!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Tutorial procedure about imaging.
! J.Pety 2008-2018
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure tutorial-pause
  !
  g\draw relo
  if (cursor_code.eq."E") then
     message w tutorial-pause "Exit tutorial"
     return base
  endif
  !
end procedure tutorial-pause
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Copy the demo image into the current directory.
!
sic copy gag_demo:demo-mosaic-v22.uvt 12co10.uvt
sic copy gag_demo:demo-mosaic-v22.tab 12co10.tab
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Base name of the UV table file
! 
let name 12co10
go remove
!
! The mapping defaults are not good for mosaics...
let niter 5000
let fres 0
let ares 0
let uvshort%datfac 0.965/0.710 ! Feff/Beff at 115.271 GHz with ABCD receivers
go image
@ tutorial-pause
!
go plot beam
@ tutorial-pause
go plot dirty
@ tutorial-pause
go plot res
@ tutorial-pause
go plot cct
@ tutorial-pause
!
let type lmv-clean
go snr 0.2
go bit
@ tutorial-pause
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
