def real x2 dx y2 x1 y1 
let x1 box_xmin 
let y2 box_ymin 
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.4*page_y-0.3*dx 0.4*page_y+0.3*dx 
else 
  let dx min((0.5*page_x|box_aspect),(page_y-y2)) 
  set box 0.7*page_x-0.3*dx*box_aspect 0.7*page_x+0.3*dx*box_aspect (page_y+y2-0.6*dx)*0.5 (page_y+y2+0.6*dx)*0.5 
endif 
@ p_box.greg label 'drawn' 
set box x1 x2 y1 y2 
set expand 1.0