SAY " "
SAY "Demonstration of IMAGER: Mosaic, Single Channel case"
SAY " "
@ gag_demo:demo-setup
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Read the demo data
SAY "-----------------------------------------------------------"
SAY " The first step: Reading UV data"
SAY " "
DO "read uv gag_demo:demo-mosaic-imager.uvt" "Read the Mosaic UV data" 
DO "show fields"  "Fields in the Mosaic"
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
SAY " "
SAY " The IMAGER defaults are good for mosaics..."
DO uv_map  "Use UV_MAP as for a Single Field"
let PROMPT "MOSAIC> "
DO clean   "Use CLEAN as for a Single Field"
DO "show clean"   " Clean image with no short spacings"
DO "show SNR"     " Signal to Noise image, only valid for Mosaics"
!
SAY "------------------------------------------------------------------"
SAY " "
SAY " Now with Short Spacings added"
SAY " "
DO "read single gag_demo:demo-mosaic-imager.tab"  "Read a Short Spacing file"
DO "let short_sd_factor 4.95*0.965/0.710" "Convert to Jy for the 30-m. F_eff/B_eff at 115.271 GHz with EMIR"
DO "uv_short ?" "Will add Short Spacings with SHORT_SD_FACTOR = "'0.01*nint(100*short_sd_factor)'
DO "uv_short"   "Inserting the Short Spacings into the UV buffer"
DO "uv_map"     "Image as usual"
DO "clean "     "Cleaning with CLEAN method "'method'
DO "show clean"
!
DO "show SNR"   "Signal to Noise image"
!
SAY "------------------------------------------------------------------"
SAY " "
SAY " Testing JVM factor and UV_RESTORE"
DO "fit /jvm"
DO "uv_restore"
DO "show CLEAN"
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
