!
!  Id: diy-test-12.pako, v 1.1.14 2012-11-08 Hans Ungerechts
!      DIY TIP with "tune" subscans at each elevation
!
say "  --> diy-test-12.pako "
!
source DIY-Tip HO 180 10                 !!  "Source" at azimuth 180
!                                        !!  elevation 10 [deg]
!
DIY /clear                               !!  clear DIY
!
define real el yEl 
!
for air 1.1  to 3.5 by 0.4               !!  loop over airmass
  !
  el  = 180.0/Pi*asin(1/air)
  yEl = el-10
  !
  pako\SUBSCAN -                         !!  tune
   0.0000000E+00   yEl*3600.00 -         !!  el. offset in [arc sec]
  /croFlag O -
  /system trueHorizon -
  /tSubscan    11.00000 -                !!  11 [sec]
  /tune -
  /type track
  !
  pako\SUBSCAN -                         !!  on sky
   0.0000000E+00   yEl*3600.00 -         !!  el. offset in [arc sec]
  /croFlag O -
  /system trueHorizon -
  /tSubscan    22.00000 -                !!  22 [sec]
  /type track
  !
next air
!
!! device image w
clear plot                               !! setup for preview plot
limits -10*3600 10*3600 -10*3600 80*3600 !! pako plots offsets in [arc sec]
greg\set box match
!
DIY /purpose "tuned Tip"                 !! set purpose for DIY
!
!                                        !! box & labels
limits -1 1 0 90                         !! box, Y = El. [deg]
axis yl
axis xu /tick no
axis yr
axis xl /tick no
label "Elevation [deg]" /y
!