! @ wipe_set_aper.map 
! 
! Panel for parameter selection of the synthetic aperture in the wipe method 
! 
if (.not.exist(wipe_ax)) then 
  define real wipe_ax /global 
  define real wipe_ay /global 
  let wipe_ax 1.2 
  let wipe_ay 1.2 
endif 
if (.not.exist(wipe_theta)) then 
  define real wipe_theta /global 
  let wipe_theta 0 
endif 
! 
gui\panel "Synthetic Aperture Design" pr:map/wipe_aper.hlp 
gui\button "@ wipe_init" "Return to WIPE main panel" 
let wipe_ax 'aperture[1]' /prompt "Amplification of MAJOR axis" /range 1 3 
let wipe_ay 'aperture[2]' /prompt "Amplification of MINOR axis" /range 1 3 
let wipe_theta 'wipe_theta' /prompt "Rotation angle (degrees)" /range -90 90 
! 
gui\go "@ wipe_valid.map" 
!