REM ? MKXCOMP -- Creates MKX RADAR composite image over Google Basemap
REM ?      MKXCOMP 


        keyin "LWU COPY google_base AREA8570"
     let f=1
     keyin "DATALOC ADD WSR NOAAPORT.SSEC.WISC.EDU"
rem     keyin "DSSERVE ADD A/A AREA 1 9999 {Loop of all AREAS}"

     t = val(mid$(TIME$,1,2)) + (val(mid$(TIME$,3,2))/60)
     keyin "IMGOPER WSR/BREF4 A/A.8569 SIZE=ALL LLMT=20 SCALE=20 75 49 120 UNIT=ECHO ID=MKX DAY=#Y TIME="; t-.25,t  
     if status<>0 stop
     keyin "IMGREMAP A/A.8569 A/A.8570 ID=MKX"
     keyin "OWLRAD A/A.8570 A/A.8571 A/A.8572 A/A.8573 A/A.8580 70"

rem 
rem --- Display the final image, add map and weather boxes
rem
     keyin "GU MAKE 1 BLACK "; f,f+2
     keyin "GU OFF 3 "; f,f+2
     keyin "IMGDISP A/A.8580 "; f ;" SF=YES BAND=1 TEXT=X X X NO"
     keyin "IMGDISP A/A.8580 "; f+1 ;" SF=YES BAND=2 TEXT=X X X NO"
     keyin "IMGDISP A/A.8580 "; f+2 ;" SF=YES BAND=3 TEXT=X X X NO"
     keyin "MAP COUNTY=ALL GRA=1-3"
     keyin "SHOWVG 4321 "; f,f+2

     keyin "FRMLABEL LEVEL=255 2 IMA="; f ;" {MILWAUKEE/SULLIVAN RADAR (DAY) - (TIME) UTC}"
     keyin "FRMLABEL LEVEL=255 2 IMA="; f+1 ;" {MILWAUKEE/SULLIVAN RADAR (DAY) - (TIME) UTC}"
     keyin "FRMLABEL LEVEL=255 2 IMA="; f+2 ;" {MILWAUKEE/SULLIVAN RADAR (DAY) - (TIME) UTC}"
     keyin "SF "; f
     keyin "SF "; f+1
     keyin "SF "; f+2

     keyin "COMBINE 2 "; f,f+1,f+2 ;" VIEW=NO"

rem
rem --- Maintain loop and rename previous files 
rem

     keyin "OS {mv mkx_google_radar_2.jpg mkx_google_radar_1.jpg}"
     keyin "OS {mv mkx_google_radar_3.jpg mkx_google_radar_2.jpg}"
     keyin "OS {mv mkx_google_radar_4.jpg mkx_google_radar_3.jpg}"
     keyin "OS {mv mkx_google_radar_5.jpg mkx_google_radar_4.jpg}"
     keyin "OS {mv mkx_google_radar_6.jpg mkx_google_radar_5.jpg}"
     keyin "OS {mv mkx_google_radar_7.jpg mkx_google_radar_6.jpg}"
     keyin "OS {mv mkx_google_radar_8.jpg mkx_google_radar_7.jpg}"

     keyin "FRMSAVE 2 mkx_google_radar_8.jpg TYPE=COMBINE FORM=JPG"

     stop