!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@ window_tools.greg
gtvl\change directory <greg
@ header_position
let fixed_trc no
let aspect_ratio yes
let aspect 1.0
!
define character place*8
if (page_x.gt.page_y) then
   @ window_xy 1 4 3
   let place "bottom"
else
   @ window_xy 1 4 3
   let place "right"
endif
!
greg1\set expand 0.6
if (spacing.eq.-1) then
  greg2\wedge 'place' /scaling linear true_scale[1] true_scale[2] /level
else
  greg2\wedge 'place' /scaling linear true_scale[1] true_scale[2]
endif
greg1\set expand 1.0
!
@ window_init
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
