def real x2 dx y2 
let x2 box_xmax 
let y2 box_ymax 
! 
set expand 0.6 
if (page_x.gt.page_y) then 
  let dx min((page_x-x2)|box_aspect,0.5*page_y) 
  set box (page_x+x2-0.4*dx*box_aspect)*0.5 (page_x+x2+0.8*dx*box_aspect)*0.5 0.45*page_y-0.3*dx 0.45*page_y+0.3*dx 
else 
  let dx min((0.5*page_x|box_aspect),(page_y-y2)) 
  set box (page_x-0.6*dx*box_aspect)*0.5 (page_x+0.6*dx*box_aspect)*0.5 (page_y+y2-0.3*dx)*0.5 (page_y+y2+0.3*dx)*0.5 
endif 
@ p_drawbox.graphic label 'drawn' 
set expand 1.0