!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
sic log macro#dir: `macro#dir:`"gag_demo:;" ! Order matters here
@ mrtcal-tools.cal
@ class-otf-tools.class
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure demo-tracked-psw
  @ mrtcal-project 09054 controld
  @ mrtcal-calibrate
  @ mrtcal-toc
  @ mrtcal-loads-old
  @ mrtcal-temps-old
  @ mrtcal-spectra
  @ mrtcal-compare-with-mira
  @ mrtcal-compare-with-mrtcal
  @ mrtcal-noise
end procedure demo-tracked-psw
!
begin procedure demo-tracked-wsw
  @ mrtcal-project 09228 w3oh
  @ mrtcal-calibrate
  @ mrtcal-toc
  @ mrtcal-loads
  @ mrtcal-temps
  @ mrtcal-spectra
  @ mrtcal-compare-with-mira
  @ mrtcal-noise
end procedure demo-tracked-wsw
!
begin procedure demo-test
!mset bandwidth 20
  @ mrtcal-project 12t00 *
  @ mrtcal-calibrate
file in red-mrtcal/'mrtcal%proj'
find /sou IRC+10216
list /toc
for isetup 1 to toc%nsetup
   find /sou 'toc%setup[isetup,1]' /tel 'toc%setup[isetup,3]'
   set mode a tot
   load
   pl /i
   list
   g\draw relo
   average /nocheck position
   go browse
next isetup
!  @ mrtcal-noise
end procedure demo-test
!
begin procedure demo-tracked-fsw
!!$  @ mrtcal-project 12142 chain-1
!!$mset output chunk ele
!!$  @ mrtcal-calibrate
file in red-mrtcal/12142.30m
set sou chain-1
!set sou tsys
find /line C18O(2-1) /tel *v04
!set mode y -14 -7
stitch
plot
set mode a curr
find /line C18O(2-1) /tel *v04 /freq 219540
stitch
spec /pen 1
find /line C18O(2-1) /tel *v04 /freq 219560
stitch
spec /pen 2
find /line C18O(2-1) /tel *v04 /freq 219580
stitch
spec /pen 3
return
!!$  @ mrtcal-toc
!!$  @ mrtcal-loads
!!$  @ mrtcal-temps
!!$  @ mrtcal-spectra
  @ mrtcal-compare-with-mira
!  @ mrtcal-noise
end procedure demo-tracked-fsw
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure demo-otf-psw
  @ mrtcal-project 11128 *
  @ mrtcal-calibrate
!  @ mrtcal-otf-11128
end procedure demo-otf-psw
!
begin procedure demo-otf-fsw
  @ mrtcal-project 12142-otf *
  @ mrtcal-calibrate
!  @ mrtcal-otf-11128
end procedure demo-otf-fsw
!
begin procedure demo-hera-otf-psw
  @ mrtcal-project 12177 *
  @ mrtcal-calibrate
  @ mrtcal-otf-12177
end procedure demo-hera-otf-psw
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (pro%narg.eq.1) then
   @ demo-&1
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
