!
!  Id: diy-test-03.pako, v 1.1.14 2012-11-08 Hans Ungerechts
!      OTFMAP with single "tune" at the start position of each OTF subscan
!             in system "trueHorizon", OTF scanning along azimuth
!
DIY /clear                    !! clear DIY
!
define real yy xx1 xx2
!
!  tune
yy =  -300
xx1 = -300 
subscan xx1 yy         /system trueHorizon /tSubscan 10 /tune  !!

for ii 1 to 31 by 1           !! loop over y offsets
  !                           !!
  yy = -300+(ii-1)*20         !! from -300 in steps of +20
  !
  if (mod(ii,2).eq.1) then    !! zig-
    xx1 = -300
    xx2 = +300
  else                        !!    -zag
    xx1 =  300
    xx2 = -300
  end if
  !
  subscan xx1 yy xx2 yy                      /tOtf     66        !!
!  OTF
  !
next yy
!
clear plot
limits 400 -400 -350 350            !!   setup for preview plot
greg\set box match
box
!
DIY /purpose "big OTF with tunes"   !!   set purpose for DIY
!                                   !!   this also makes the plot!
!