!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure telluric-lines-onedate
  time 00:00:00 &2
  source &3
  let velos[&1] -(astro%source%v_g_obs+astro%source%v_lsr_g)
end procedure telluric-lines-onedate
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure telluric-lines-velo-compute
  define integer nmonth ndate
  let nmonth 12
  let ndate 24
  if .not.exist(velos) define double dates[ndate] velos[ndate] /global
  let dates[idate] idate*12/24
  @ telluric-lines-onedate  1  1-jan-2016 "&1"
  @ telluric-lines-onedate  2 15-jan-2016 "&1"
  @ telluric-lines-onedate  3  1-feb-2016 "&1"
  @ telluric-lines-onedate  4 15-feb-2016 "&1"
  @ telluric-lines-onedate  5  1-mar-2016 "&1"
  @ telluric-lines-onedate  6 15-mar-2016 "&1"
  @ telluric-lines-onedate  7  1-apr-2016 "&1"
  @ telluric-lines-onedate  8 15-apr-2016 "&1"
  @ telluric-lines-onedate  9  1-may-2016 "&1"
  @ telluric-lines-onedate 10 15-may-2016 "&1"
  @ telluric-lines-onedate 11  1-jun-2016 "&1"
  @ telluric-lines-onedate 12 15-jun-2016 "&1"
  @ telluric-lines-onedate 13  1-jul-2016 "&1"
  @ telluric-lines-onedate 14 15-jul-2016 "&1"
  @ telluric-lines-onedate 15  1-aug-2016 "&1"
  @ telluric-lines-onedate 16 15-aug-2016 "&1"
  @ telluric-lines-onedate 17  1-sep-2016 "&1"
  @ telluric-lines-onedate 18 15-sep-2016 "&1"
  @ telluric-lines-onedate 19  1-oct-2016 "&1"
  @ telluric-lines-onedate 20 15-oct-2016 "&1"
  @ telluric-lines-onedate 21  1-nov-2016 "&1"
  @ telluric-lines-onedate 22 15-nov-2016 "&1"
  @ telluric-lines-onedate 23  1-dec-2016 "&1"
  @ telluric-lines-onedate 24 15-dec-2016 "&1"
end procedure telluric-lines-velo-compute
!
begin procedure telluric-lines-velo-plot
  g\clear
  g\tickspace 0 0 0 0
  g\limits /var dates velos
  g\box
  g\connect dates velos
  g\pen 1
  g\draw relo user_xmin astro%source%v_sou_lsr /user
  g\draw line user_xmax astro%source%v_sou_lsr /user
  g\pen 0
  g\label "Date of Year [Month]" /x
  g\label "V\\DObs/LSR\\U [km/s]" /y 3.5
  g\draw text 0 1 "&1" 5 0 /char 8
end procedure telluric-lines-velo-plot
!
begin procedure telluric-lines-velo
  @ telluric-lines-velo-compute "&1"
  @ telluric-lines-velo-plot "&1"
end procedure telluric-lines-velo
!
begin procedure telluric-lines-usage
  message &1 telluric-lines "Usage: @ telluric-lines ""Perseus EQ 2000 03:24:19.35 +49:51:40.5 LSR 10"" "
end procedure telluric-lines-usage
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (pro%narg.eq.0) then
   @ telluric-lines-velo "Perseus EQ 2000 03:24:19.35 +49:51:40.5 LSR 10"
   @ telluric-lines-usage i
else if (pro%narg.eq.1) then
   @ telluric-lines-velo "&1"
else
   @ telluric-lines-usage e
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
