def real x2 dx y2 x1 y1 
let x1 box_xmin 
let y1 box_ymin 
let x2 box_xmax 
let y2 box_ymax 
def character place*8 

! 
set expand 0.6 
! Ceci est calcule pour correspondre a la boite tracee par GO BOX 
! ... 
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 
  let place top 
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 
  let place right 
endif 
if (spacing.eq.-1) then 
  wedge 'place' /scaling linear true_scale[1] true_scale[2] /level 
else 
  wedge 'place' /scaling linear true_scale[1] true_scale[2] 
endif 
set box x1 x2 y1 y2 
set expand 1.0