SR TTue Feb 5 17:04:20 2002roarkcore2.gsfc.nasa.govsparcsunos5.3 RGRIDPROF%U4USPARENTFPROFILECOORDS@XSIZEIYSIZEJ PROFILE_COUNTHCLATCLONLEFTLAT LEFTLON TOPLAT TOPLON RIGHTLAT RIGHTLONP BOTLATBOTLONG START_LONUEND_LON( START_LATMEND_LATNINIT_XINIT_YINIT_ZDRAW_ID*TITLE ZPBASETOP_BASEBGROUP TRACK_BASEE LAT_TRACKLAT_WIN  LON_TRACK!LON_WIN< ELEV_TRACK#!ELEV_WIN"ZDRAW%#ZDRAW1$ NUM_COLORSO%R &G?'B>(ELEMENTSQ) X_TICKNAME4*X1:+X2,Y1/-Y2.PTHICK'/PSIZE00TICK_V1X82Y.3Z$4 TICK_NAMES_X075 TICK_NAMES_X126X0_097X0_1,8X1_0;9X1_1-:N&;AA)<BB= HALF_TICK>DISTANCE?X_LENGTH+@ X_DISTANCEAAY_LENGTH5B Y_DISTANCECC VERT_EXAG3DPIXIDE BUTTON_PRESSFPSCOUNT1GXVALKHYVALLIXVAL2BJYVAL2DK START_LOCLEND_LOCM NUM_ELEMENTSNSLOPERO ELEV_DIFF"P SLOPE_COUNTTQA=R SLOPE_RECSSTATE6T$$- WSET$gvprof- STRTRIM $-  WIDGET_BASECOLUMNGROUP_LEADERTITLEW $>>-  WIDGET_BASEFRAMEROW $Done PostscriptSave asReset,>-  CW_BGROUPROW $>>-  WIDGET_BASEFRAMEROW $Lat>>-8CW_FIELDFLOATINGRETURN_EVENTSTITLEUVALUEVALUEXSIZE $W_Lon>>>>-8CW_FIELDFLOATINGRETURN_EVENTSTITLEUVALUEVALUEXSIZE $Value>>> !-8CW_FIELDFLOATINGRETURN_EVENTSTITLEUVALUEVALUEXSIZE" $>draw>>->  WIDGET_DRAWBUTTON_EVENTSMOTION_EVENTSRETAINUVALUEXSIZEYSIZE# $>- WIDGET_CONTROLREALIZE$#$- WIDGET_CONTROLGET_VALUEE$$- WSET$3!D9N_COLORS6% $3!D9N_COLORS6#% $&'(>- TVLCTGETE$%>& $%>>' $%>>( $%>& $%>>' $%>>( $&'(- TVLCT$ -  N_ELEMENTS) $ > > > > > > > > > > > > > > > > > > ,* $>8Q+ $?n{, $>u- $?Q. $>/ $>0 $>1value+-,.,*(I5)>0////-t PLOT   CHARSIZECHARTHICKCOLORPOSITIONTHICKXTHICKXTICKNAMEXTICK_GETYNOZEROYTHICKYTICKFORMATYTITLE$!X2 $!Y3 $!Y4 $>1- FIX >- STRTRIM5 $>1- FIX >- STRTRIM6 $6- FLOAT-IDL2MAR26 $>>5 - DOUBLE7 $>>5 - DOUBLE8 $>>6 - DOUBLE9 $>>6 - DOUBLE: $(f5.1)5- STRINGFORMAT5 $(f6.1)6- STRINGFORMAT6 $ 5-  N_ELEMENTS; $ ;>> 5 $ 6-  N_ELEMENTS; $ ;>> 6 $>1-  N_ELEMENTS>>5 >latitude>0/-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$>1-  N_ELEMENTS>>6 > W longitude>0/-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$>1 >>>-  CONVERT_COORDDATATO_NORMAL< $>1 >>>-  CONVERT_COORDDATATO_NORMAL= $>= >< @> $798:-CALCDIST? $?@? $>< >< >< >>< >>< ,>z># >>>,>>- POLYFILLCOLORNORMC$>< >@=G(F8.2)?- STRINGFORMAT?>>- XYOUTSALIGNMENTCOLORNORM$ km>- XYOUTSCOLORA$">1 >>>-  CONVERT_COORDDATATO_DEVICE< $#>1 >>>-  CONVERT_COORDDATATO_DEVICE= $$>= >< @ $%798:-CALCDISTA $&>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICE< $'>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICE= $(>= >< B $)3!Y>:CRANGE63!Y>:CRANGE6DzC $*BA@CD $+ V.E.=D- FIX>- STRTRIM:1>- XYOUTSCOLORA$.+,+>=L Start : [>- STRTRIM, >- STRTRIM ] End : [>- STRTRIM>>- STRTRIM]>>0/>-4 XYOUTSALIGNMENTCHARSIZECHARTHICKCOLORNORM$9>>- WINDOWFREEPIXMAPXSIZEYSIZE$:3!D9WINDOW6E $<E- WSET$=>1> +-,.,*> >//0//-t PLOT   CHARSIZECHARTHICKCOLORPOSITIONTHICKXTHICKXTICKNAMEXTICK_GETYNOZEROYTHICKYTICKFORMATYTITLE$B>1-  N_ELEMENTS>>5 >> >0/-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$F>1-  N_ELEMENTS>>6 >> >0/-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$K>1 >>>-  CONVERT_COORDDATATO_NORMAL< $L>1 >>>-  CONVERT_COORDDATATO_NORMAL= $M>= >< >> $N798:-CALCDIST? $O?>? $P>< >< >< >>< >>< ,>>>>>,>>- POLYFILLCOLORNORMC$Q>< >>>>?- STRINGFORMAT>>>- XYOUTSALIGNMENTCOLORNORM$R>>- XYOUTSCOLORA$V>1 >>>-  CONVERT_COORDDATATO_DEVICE< $W>1 >>>-  CONVERT_COORDDATATO_DEVICE= $X>= >< @ $Y798:-CALCDISTA $Z>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICE< $[>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICE= $\>= >< B $]3!Y>:CRANGE63!Y>:CRANGE6>C $^BA@CD $_>D- FIX>- STRTRIM>>- XYOUTSCOLORA$c+,+>>>>- STRTRIM>>- STRTRIM>>- STRTRIM>>- STRTRIM>>>0/>-4 XYOUTSALIGNMENTCHARSIZECHARTHICKCOLORNORM$e$- WSET$h>F $i>G $j>H $k>I $l>J $m>K $n?>>,L $o>>>,M $p-  N_ELEMENTSN $q>? $r>O $s>P $u>Q $w>>>>>>>>= SLOPEDATAX1Y1X2Y2SLOPEDISTLABELXLABELYR $y= SLOPEDATA-  REPLICATES $|$#NEFG   HIJK  LM234?OP0/SQ "%=44PROFILECOORDSXSIZEYSIZEZDRAW1BGROUPZDRAW NUM_ELEMENTS MOUSEBUTTONPIXID BUTTON_PRESSPSCOUNTCLATCLONLEFTLATLEFTLONTOPLATTOPLONXVALYVALXVAL2YVAL2RIGHTLATRIGHTLONBOTLATBOTLON START_LON START_LOCEND_LOCXYZINIT_XINIT_YINIT_ZDRAW_IDEND_LON START_LATEND_LATTITLEDISTANCESLOPE ELEV_DIFFPSIZEPTHICK SLOPE_REC SLOPE_COUNTPARENTLAT_WINLON_WINELEV_WIN NUM_COLORST $>-  WIDGET_INFOCHILDAT>- WIDGET_CONTROLNO_COPYSET_UVALUEA$gridprof>-XMANAGERNO_BLOCK$<8 GRIDPROF_EVENT\p44 EVENT BASE#STASHSTATE START_LAT START_LONEND_LATEND_LON0SLOPELABEL LABEL_LOC A" EV_DATA/ LAT LON!ELEVPSNAME TITLE. DEVICE_NAME%ELEMENTS X_TICKNAMEX1X2'Y1Y2)TICK_V TICK_NAMES_X0 TICK_NAMES_X1X0_0X0_1X1_0 X1_1N AA!BB," HALF_TICK+#DISTANCE$X_LENGTH% X_DISTANCE&&Y_LENGTH' Y_DISTANCE(( VERT_EXAG2)I3* DATESTAMP+USERNAME*,TXTNAME1-FILENAME$.ERR/U-0W_LONS1 INIT_LATS42 INIT_LONS 3N$$29HANDLER6 $-  WIDGET_INFOCHILD $>- WIDGET_CONTROLGET_UVALUENO_COPYU$29ID629ZDRAW6#%$29TYPE6*$29X629Y629PTHICK6>- PLOTSCOLORTHICK"%>*$29 BUTTON_PRESS6>#$29 BUTTON_PRESS>7$29XVAL29X67$29YVAL29Y67$29 START_LOC29XVAL629YVAL6>>-  CONVERT_COORDDEVICETO_DATAE7$2>: START_LOC6- ROUND29 NUM_ELEMENTS62>: START_LOC6- ROUND>#29 BUTTON_PRESS>07$29 BUTTON_PRESS6>#$29XVAL229X67$29YVAL229Y67$29ZDRAW16- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$29 BUTTON_PRESS29 BUTTON_PRESS6>7$29 BUTTON_PRESS6>29 BUTTON_PRESS6#$29X629Y629PTHICK6>>>>- PLOTSCOLORDEVICEPSYMTHICK$29PIXID6- WSET$29X629Y629PTHICK6>>>>- PLOTSCOLORDEVICEPSYMTHICK$29 BUTTON_PRESS6>#$29END_LOC29X629Y6>>-  CONVERT_COORDDEVICETO_DATAE7$2>:END_LOC6- ROUND29 NUM_ELEMENTS62>:END_LOC6- ROUND>#$2>2>: START_LOC6- ROUND:COORDS6 $2>2>: START_LOC6- ROUND:COORDS6 $2>2>:END_LOC6- ROUND:COORDS6 $2>2>:END_LOC6- ROUND:COORDS6 $29XVAL629X6,29YVAL629Y6,>>29PTHICK6>- PLOTSCOLORDEVICETHICK$29DISTANCE-CALCDIST7$29X629XVAL6# 29DISTANCE29DISTANCE6>07$29 ELEV_DIFF2>:END_LOC62>: START_LOC6Dz7$Infinity $29DISTANCE6# 29SLOPE29 ELEV_DIFF629DISTANCE6- ATAN!PIC4- ABS7$ 29DISTANCE6> #29SLOPEB7$  - PRINT$  Distance: 29DISTANCE6>- STRTRIM km- PRINT$ Delta Height: 29 ELEV_DIFF6>- STRTRIM>- PRINT$ Slope: (F8.5)29SLOPE6- STRINGFORMAT deg- PRINT"$29 BUTTON_PRESS>7$29X629Y629PTHICK6>>>>- PLOTSCOLORDEVICEPSYMTHICK$29 BUTTON_PRESS6#$29SLOPE6<# # (F8.3, " km")29DISTANCE6- STRINGFORMAT ">29SLOPE6- STRINGFORMAT $29SLOPE6- ROUNDB #>29 ELEV_DIFF6- ABS- STRINGFORMAT $29X629Y6 >29PSIZE6>- XYOUTSCHARSIZECOLORDEVICE$29PIXID6- WSET$29X629Y6 >29PSIZE6>- XYOUTSCHARSIZECOLORDEVICE$29 BUTTON_PRESS>7$29X629Y6,>>-  CONVERT_COORDDEVICETO_DATAA $2>: START_LOC62>: START_LOC62>:END_LOC62>:END_LOC629SLOPE629DISTANCE6> > = SLOPEDATAX1Y1X2Y2SLOPEDISTLABELXLABELY $229 SLOPE_COUNT6: SLOPE_REC 7$!29 SLOPE_COUNT29 SLOPE_COUNT6>7$%29DRAW_ID6- WSET$&29INIT_X6 !X$'29INIT_Y6 !Y$(29INIT_Z6 !Z"%>*#$-29ZDRAW16- WSET$.29X6 !X$/29Y6 !Y$029Z6 !Z$229 BUTTON_PRESS6>#$3>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$529X629Y6,>>-  CONVERT_COORDDEVICETO_DATAA $7> - ROUND29 NUM_ELEMENTS6> - ROUND>#$9> >> 29 NUM_ELEMENTS6> 3!Y>:CRANGE6 > 3!Y>:CRANGE6#$;2>> - FLOOR:COORDS6 $<2>> - FLOOR:COORDS6 $=2> - FLOOR:PROFILE6 $?29LAT_WIN6 - WIDGET_CONTROLSET_VALUES$@29LON_WIN6-IDL2MAR2- WIDGET_CONTROLSET_VALUES$A29ELEV_WIN6- WIDGET_CONTROLSET_VALUES$B> >>29PSIZE6- PLOTSCOLORPSYMSYMSIZE$E> > ,3!Y>:CRANGE63!Y>:CRANGE6,>- PLOTSCOLORR$F3!X>:CRANGE63!X>:CRANGE6,> > ,>- PLOTSCOLORR$N29 BUTTON_PRESS6>#$O>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$R29X629Y6,>>-  CONVERT_COORDDEVICETO_DATAA $S> >> 29 NUM_ELEMENTS6> 3!Y>:CRANGE6 > 3!Y>:CRANGE6#$T29XVAL629X6,29YVAL629Y6,>>29PTHICK6>- PLOTSCOLORDEVICETHICK$U> > ,3!Y>:CRANGE63!Y>:CRANGE6,>- PLOTSCOLORR$V3!X>:CRANGE63!X>:CRANGE6,> > ,>- PLOTSCOLORR$Z29 BUTTON_PRESS6>#"$\>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$^29SLOPE6>#>29DISTANCE6- STRINGFORMAT " >29SLOPE6- STRINGFORMAT $_29SLOPE6- ROUND> #!>29 ELEV_DIFF6- ABS- STRINGFORMAT $`29X629Y6 >29PSIZE6>- XYOUTSCHARSIZECOLORDEVICE$c29DRAW_ID6- WSET$d29INIT_X6 !X$e29INIT_Y6 !Y$f29INIT_Z6 !Z"%>*$$n3- PRINT"%+$v29ID629BGROUP6#M$y29VALUE6>#&$|29DRAW_ID6- WSET$}29INIT_X6 !X$~29INIT_Y6 !Y$29INIT_Z6 !Z$29TOP6>- WIDGET_CONTROLDESTROYA$29VALUE6>#F$ Wait : creating postscript file- PRINT$29TOP6>- WIDGET_CONTROLHOURGLASSS$29PSCOUNT29PSCOUNT6>7$29TITLE6_29PSCOUNT6>- STRTRIM.ps $Grid Profile!C $3!P9COLOR>7$3!D9NAME6 $ps- SET_PLOT$3!VERSION9 OS_FAMILY6unix#)$>>>-4 DEVICEBITS_PER_PIXELCOLORFILENAMELANDSCAPETIMES$3!P9FONT>7"*$>>(>-, DEVICEBITS_PER_PIXELCOLORFILENAMELANDSCAPE$2>:COORDS6-  N_ELEMENTS $>>>>>>>>>>>>>>>>>>>, $=  $?zH $> $?fff $29PROFILE6>value,(I5)>-H PLOTCOLORPOSITIONXTICKNAMEXTICK_GETYNOZEROYTICKFORMATYTITLE$2>- FIX:COORDS6>- STRTRIM $2>- FIX:COORDS6>- STRTRIM $- FLOAT-IDL2MAR2 $>> - DOUBLE $>> - DOUBLE $>> - DOUBLE $>> - DOUBLE $(f5.1)- STRINGFORMAT $(f6.1)- STRINGFORMAT $-  N_ELEMENTS $ >> $-  N_ELEMENTS $ >> $>-  N_ELEMENTS>> >latitude>-2 AXISCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$>-  N_ELEMENTS>> > W longitude>-2 AXISCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$> >>>-  CONVERT_COORDDATATO_NORMALE! $> >>>-  CONVERT_COORDDATATO_NORMALE" $>" >! @# $-CALCDIST$ $$@$ $>! >! >! #>! #>! ,=Q=>4>3>3,>>- POLYFILLCOLORNORM$>! #@=\)(F8.2)$- STRINGFORMAT?>>- XYOUTSALIGNMENTCOLORNORM$>>- XYOUTSCOLORA$> >>>-  CONVERT_COORDDATATO_DEVICEE! $> >>>-  CONVERT_COORDDATATO_DEVICEE" $>" >! % $-CALCDIST& $>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICEE! $>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICEE" $>" >! ' $3!Y>:CRANGE63!Y>:CRANGE6> ( $'&%() $ V.E.=)- FIX>- STRTRIM:1>- XYOUTSCOLORA$>*29 SLOPE_COUNT6>&>$2*: SLOPE_REC9X162*: SLOPE_REC9X26,2*: SLOPE_REC9Y162*: SLOPE_REC9Y26,>29 NUM_COLORS6>>(- PLOTSCOLORDATATHICK$2*: SLOPE_REC9SLOPE6> #;>2*: SLOPE_REC9DIST6- STRINGFORMAT "<>2*: SLOPE_REC9SLOPE6- STRINGFORMAT $2*: SLOPE_REC9SLOPE6- ROUND> #=>2*: SLOPE_REC9Y262*: SLOPE_REC9Y16> - ABS- STRINGFORMAT $2*: SLOPE_REC9LABELX62*: SLOPE_REC9LABELY6 >>>- XYOUTSCHARSIZECOLORDATA(:$29PROFILE6>- OPLOTCOLORC$>1>>>?>7-( XYOUTSALIGNMENTCHARSIZECOLORNORM$>1=u Start : [29 START_LON6>- STRTRIM, 29 START_LAT6>- STRTRIM ] End : [29END_LON6>- STRTRIM>A29END_LAT6>- STRTRIM]>>7>>-( XYOUTSALIGNMENTCHARSIZECOLORNORM$>1<Image Center : [29CLON6>- STRTRIM>A29CLAT6>- STRTRIM] Image Limits : [29LEFTLAT6>- STRTRIM>A29LEFTLON6>- STRTRIM>A29TOPLAT6>- STRTRIM>A29TOPLON6>- STRTRIM>A29RIGHTLAT6>- STRTRIM>A29RIGHTLON6>- STRTRIM>A29BOTLAT6>- STRTRIM>A29BOTLON6>- STRTRIM>C>>7?L>-( XYOUTSALIGNMENTCHARSIZECOLORNORM$>+ $>, $3!VERSION9 OS_FAMILY6>'#D$date+- SPAWN$whoami,- SPAWN$>1> ,>>+>>>7>7-( XYOUTSALIGNMENTCHARSIZECOLORNORM$>- DEVICECLOSE$3!P9FONT>07$3!P9COLOR>7$- SET_PLOT$Created - PRINT$3!VERSION9 OS_FAMILY6>'#E$ Printing - PRINT$lpr - SPAWN$continue using gridview ...- PRINT$ 29VALUE6>#I$ 29TITLE6.txt- $ -*.txt29PARENT6Select File Name>-$ DIALOG_PICKFILEFILEFILTERGROUPTITLEWRITEU. $>0/ $0- GET_LUN$0./- OPENWERRORL$/>#I$2>:COORDS6-  N_ELEMENTS $0&&Lat / W Lon / E Lon / Value / Distance- PRINTF$2>:COORDS6-IDL2MAR21 $- FLTARR2 $2>>:COORDS62 $- FLTARR3 $2>>:COORDS63 $232>:COORDS62>:COORDS6-CALCDIST$ $ >*>&H$!02>*:COORDS6*1 2>*:COORDS62*:PROFILE6*$ - PRINTF(G$#0- FREE_LUN$$Saved : .- PRINT$)29VALUE6>#M$*29ZDRAW16- WSET$+29X6 !X$,29Y6 !Y$-29Z6 !Z$/>8Q $0?n{ $1>u $2?Q $4>>>>>>>>>>>>>>>>>>>, $729PROFILE6>>+,>,>29PSIZE629PTHICK629PTHICK629PTHICK629PTHICK6-t PLOT   CHARSIZECHARTHICKCOLORPOSITIONTHICKXTHICKXTICKNAMEXTICK_GETYNOZEROYTHICKYTICKFORMATYTITLE$<2>- FIX:COORDS6>- STRTRIM $=2>- FIX:COORDS6>- STRTRIM $>- FLOAT-IDL2MAR2 $@>> - DOUBLE $A>> - DOUBLE $B>> - DOUBLE $C>> - DOUBLE $E>-- STRINGFORMAT $F>.- STRINGFORMAT $H-  N_ELEMENTS $I >> $J-  N_ELEMENTS $K >> $M>-  N_ELEMENTS>> >>/>29PSIZE629PTHICK6-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$Q>-  N_ELEMENTS>> >>0>29PSIZE629PTHICK6-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$V> >>>-  CONVERT_COORDDATATO_NORMALP! $W> >>>-  CONVERT_COORDDATATO_NORMALP" $X>" >! >1# $Y-CALCDIST$ $Z$>2$ $[>! >! >! #>! #>! ,>z># >K>J>J,>>- POLYFILLCOLORNORMC$\>! #>5=G>6$- STRINGFORMAT>7>>- XYOUTSALIGNMENTCOLORNORM$]>>- XYOUTSCOLORA$a> >>>-  CONVERT_COORDDATATO_DEVICEP! $b> >>>-  CONVERT_COORDDATATO_DEVICEP" $c>" >! % $d-CALCDIST& $e>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICEP! $f>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICEP" $g>" >! ' $h3!Y>:CRANGE63!Y>:CRANGE6> ( $i'&%() $j>8)- FIX>- STRTRIM>9>- XYOUTSCOLORA$m>1>?>@29 START_LON6>- STRTRIM>A29 START_LAT6>- STRTRIM>B29END_LON6>- STRTRIM>A29END_LAT6>- STRTRIM>C>>729PSIZE629PTHICK6>-4 XYOUTSALIGNMENTCHARSIZECHARTHICKCOLORNORM$p29PIXID6- WSET$r- ERASE$t29PROFILE6>>+,>,>29PSIZE629PTHICK629PTHICK629PTHICK629PTHICK6-t PLOT   CHARSIZECHARTHICKCOLORPOSITIONTHICKXTHICKXTICKNAMEXTICK_GETYNOZEROYTHICKYTICKFORMATYTITLE$y>-  N_ELEMENTS>> >>/>29PSIZE629PTHICK6-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$}>-  N_ELEMENTS>> >>0>29PSIZE629PTHICK6-F AXISCHARSIZECHARTHICKCOLORXAXISXSTYLEXTICKNAMEXTICKSXTITLE$> >>>-  CONVERT_COORDDATATO_NORMALP! $> >>>-  CONVERT_COORDDATATO_NORMALP" $>" >! >1# $-CALCDIST$ $$>2$ $>! >! >! #>! #>! ,>J>K>K>J>J,>>- POLYFILLCOLORNORMC$>! #>5>L>6$- STRINGFORMAT>7>>- XYOUTSALIGNMENTCOLORNORM$>>- XYOUTSCOLORA$> >>>-  CONVERT_COORDDATATO_DEVICEP! $> >>>-  CONVERT_COORDDATATO_DEVICEP" $>" >! % $-CALCDIST& $>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICEP! $>3!Y>:CRANGE6>>-  CONVERT_COORDDATATO_DEVICEP" $>" >! ' $3!Y>:CRANGE63!Y>:CRANGE6> ( $'&%() $>8)- FIX>- STRTRIM>9>- XYOUTSCOLORA$>1>?>@29 START_LON6>- STRTRIM>A29 START_LAT6>- STRTRIM>B29END_LON6>- STRTRIM>A29END_LAT6>- STRTRIM>C>>729PSIZE629PTHICK6>-4 XYOUTSALIGNMENTCHARSIZECHARTHICKCOLORNORM$29 SLOPE_COUNT>7$29ZDRAW16- WSET$>-  WIDGET_INFOVALIDA#N>- WIDGET_CONTROLNO_COPYSET_UVALUEA$<8 i<GRIDVIEW5aGRIDDEMO~SCR}YDIMXDIMXSIZEWYSIZEXHOSTNAME@LATMIN:LATMAX LONMIN; LONMAX MOLAGRID CENTLAT CENTLONCLAT7CLON8ECLON< INIT_ELEV.GEOaU=ERR!TITLEMENUBASEoTLB"CENTBASEF TRACKBASEFILEBUTGRIDBUT-IMGBUTTABBUTSAVBUT3EXITBUT TOOLSBUTC! STRETCHBUT"RESETBUT#MAXBUTV$SHADEBUT{% PROFILEBUTf&ZOOMBUTx'RINGSBUT(RING2BUT) CONTOURBUT* CONTOUR2BUT++GRIDBUT2z, INTERPBUT5- GREAT_CIRCBUTh.INFOBUT/PRINT'0SAVE_PNG1SAVE_BMP22SHOW_GEO#3INVERT4PLOT_LAB15CLAT_WIN6CLON_WIN7 REPLOTBUT$8 LAT_TRACKB9 LON_TRACK%: ELEV_TRACK; UNIT_TRACKk<IMGBASE=DRAWBASEA> IMAGEDRAWQ?DRAWID@LEFTGATOPIBRIGHTKCBOTTOMDCENTERELEFTLATHFLEFTLON GTOPLATJHTOPLONcIRIGHTLATLJRIGHTLON*KBOTLATNLBOTLONEMMISSING NBILINEARMOIMG>PMIN_IMGQMAX_IMGRMIN_ZOOMOSMAX_ZOOMTMAXVALUEpUXSTARTuVYSTARTvWCUR_IMGX OTHER_IMG[Y OTHER_SUBIMGdZOTHERCONTOUR_INTERVAL^[OTHERMIN_RANGEZ\OTHERMAX_RANGE]]OTHERCLABEL_FACTOR\^DO_OTHERCONTOURg_GEO_IMGb`GEO_UNIT/aTOPOBYTbPIXID6cPSCOUNT9d PROFILE_COUNTie DO_PROFILE?f GREAT_CIRCLEg PROF_XLOCjh PROF_YLOCeiXqjYtkZwlOFFSET_mMINXrnMAXXsoXCOORDpMINYRqMAXYSrYCOORDs XZOOMCOORDlt YZOOMCOORDmuZOOM(v ZOOM_COUNTywZOOM_TBLxHI_REZySHOWGEO|zSHOWGRID4{SHADE&|DEV}ALT~AZICOLOR, DO_CONTOUR`CONTOUR_INTERVALY CLABEL_FACTOR MIN_RANGET MAX_RANGE MAX_STRETCHU LABEL_GRID RESULTD RINGSAVEFILE) THICKNESS NUM_RINGS RINGARRAY RING_INFO RINGS CLICKRINGSRINGFILE LABELFILELABELN_COLORSn BASE_SIZEPINFO0,$$ !ORDER$3!VERSION9 OS_FAMILY6Windows#$>- WINDOWPIXMAPXSIZEYSIZE$- DEVICEPSEUDO_COLOR$3!D9NAME6X3!D9NAME6MAC3!D9N_COLORS6#>- DEVICEPSEUDO_COLOR$>>- DEVICEBYPASS_TRANSLATIONDECOMPOSED$Number of colors : 3!D9N_COLORS6- STRING- PRINT$n $3!VERSION9 OS_FAMILY6MacOS# $- BEEP$ - PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$>- PRINT$- BEEP$$$Mac users must answer this question:- PRINT$88Enter response at the prompt on the bottom of the screen- PRINT$//Is this a timed "trial" version of IDL ? (y,n):- PRINT$- READ$ 3!VERSION9 OS_FAMILY6unix# >- DEVICEPSEUDO_COLOR$- DEVICEGET_SCREEN_SIZEI$-  N_ELEMENTS># > ?&ff- FIX $- FIX $ $ $!none $'B0 $)>  $+C40 $-> $1 - FLTARR $73!VERSION9 OS_FAMILY6> #$=hostname- SPAWN$E $G> $K @ $M0#> 0 $O> #>  $S   > $U  #$W> $]-IDL2MAR2 $a> $g> $i> core2.gsfc.nasa.gov> eib2#$k- GET_LUN$l /opal/roark/gridview/mgeo_c2.txt- OPENRERROR_$n- FREE_LUN$p>#y "$t- GET_LUN$u mgeo_c2.txt- OPENRERROR_$w- FREE_LUN$y>#> $gridview $>>-6  WIDGET_BASEAPP_MBARKBRD_FOCUS_EVENTSTITLETLB_SIZE_EVENTSL $>>-  WIDGET_BASEFRAMEROW $>>-  WIDGET_BASEFRAMEROW $File>-  WIDGET_BUTTONMENUVALUER $Load (.sav) Grid load_grid-  WIDGET_BUTTONUVALUEVALUE_ $Load EGDR (IMG) Gridload_img-  WIDGET_BUTTONUVALUEVALUE_ $Load EGDR (TAB) Gridload_tab-  WIDGET_BUTTONUVALUEVALUE_ $Save (EGDR) Grid as (.sav) Grid save_grid-  WIDGET_BUTTONUVALUEVALUE_ $Exitexit-  WIDGET_BUTTONUVALUEVALUE_ $Tools >-  WIDGET_BUTTONMENUVALUEE! $!Stretch Colorsstretch-  WIDGET_BUTTONUVALUEVALUE_" $!Reset Colortable reset_colors-  WIDGET_BUTTONUVALUEVALUE_# $!Maximize Color Stretch max_stretch-  WIDGET_BUTTONUVALUEVALUE_$ $! Shaded Reliefshade-  WIDGET_BUTTONUVALUEVALUE_% $!Profileprofile-  WIDGET_BUTTONUVALUEVALUE_& $!Zoom Inzoomin-  WIDGET_BUTTONUVALUEVALUE_' $!Plot a ring file plotrings-  WIDGET_BUTTONUVALUEVALUE_( $! Click a ring clickring-  WIDGET_BUTTONUVALUEVALUE_) $! Show contourscontour-  WIDGET_BUTTONUVALUEVALUE_* $!Contour with another grid contour_other-  WIDGET_BUTTONUVALUEVALUE_+ $!Show labeled grid lines show_grid-  WIDGET_BUTTONUVALUEVALUE_ $!Show grid lines show_grid2-  WIDGET_BUTTONUVALUEVALUE_, $!Turn Interpolation Off  interpolate-  WIDGET_BUTTONUVALUEVALUE_- $!Calculate Great Cirlces  great_circle-  WIDGET_BUTTONUVALUEVALUE_. $!Grid array info grid_info-  WIDGET_BUTTONUVALUEVALUE_/ $ !Produce Postscriptprint-  WIDGET_BUTTONUVALUEVALUE_0 $ !Produce PNG Imagesave_png-  WIDGET_BUTTONUVALUEVALUE_1 $ !Produce BMP Imagesave_bmp-  WIDGET_BUTTONUVALUEVALUE_2 $ >#!! Show Geologyshow_geo-  WIDGET_BUTTONUVALUEVALUE_3 $ !""Invert image/data (for ENVI users)invert-  WIDGET_BUTTONUVALUEVALUE_4 $ !Plot a LABEL FILE plot_labels-  WIDGET_BUTTONUVALUEVALUE_5 $  Center Lat>>>clat-@CW_FIELDFLOATINGFRAMERETURN_EVENTSTITLEUVALUEVALUEXSIZES6 $ ! Center W Lon>>>>"clon-@CW_FIELDFLOATINGFRAMERETURN_EVENTSTITLEUVALUEVALUEXSIZES7 $ %Reset>reset-  WIDGET_BUTTONFRAMEUVALUEVALUE8 $ +Lat >>>>"tracklat-@CW_FIELDFLOATINGFRAMERETURN_EVENTSTITLEUVALUEVALUEXSIZES9 $ /W Lon >>>>"tracklon-@CW_FIELDFLOATINGFRAMERETURN_EVENTSTITLEUVALUEVALUEXSIZES: $ 3Value>>>> trackelev-@CW_FIELDFLOATINGFRAMERETURN_EVENTSTITLEUVALUEVALUEXSIZES; $ 7>>>>> trackunit-6CW_FIELDFRAMERETURN_EVENTSTITLEUVALUEVALUEXSIZEL< $ <>> -  WIDGET_BUTTONUVALUEVALUEU) $ B-  WIDGET_BASE= $ F=>>-  WIDGET_BASEMAPROW> $ J>draw>>>->  WIDGET_DRAWBUTTON_EVENTSMOTION_EVENTSRETAINUVALUEXSIZEYSIZE? $ R>- WIDGET_CONTROLREALIZE_$ V?@- WIDGET_CONTROLGET_VALUEI$ Z@- WSET$ ^>- WIDGET_CONTROLHOURGLASSE$ b>><# >#?}p>$,>>>>-@ MAP_SETGRIDISOTROPICLATDELLONDELNOBORDERORTHPOSITION$ h>#?>>-  CONVERT_COORDNORMTO_DATATA $ j>%>$>>-  CONVERT_COORDNORMTO_DATATB $ l>$>%>>-  CONVERT_COORDNORMTO_DATATC $ n>%>#>>-  CONVERT_COORDNORMTO_DATATD $ t>#>$>#>>#>$>#>>>-  CONVERT_COORDNORMTO_DATATE $ z>A F $ |>A G $ ~>B H $ >B I $ >C J $ >C K $ >D L $ >D M $ F`N $ >O $ >>- FLTARRP $ >Q $ >R $ QS $ RT $ R?U $ >V $ >W $ - FLTARRX $ UX $ VWPX $ - FLTARRY $ - FLTARRZ $ >&[ $ >&\ $ >&] $ >&^ $ >_ $ - BYTARR` $ _- STRARRa $ > >> >#'/opal/roark/gridview/topo5c.col-RLOADCT"( topo5c.col-RLOADCT$ XF 0F+- BYTSCLMAXMINTOPAb $ >>- WINDOWFREEPIXMAPXSIZEYSIZE$ 3!D9WINDOW6c $ >>>>@,- DEVICECOPY$ @- WSET$ >d $ >e $ >f $!>g $!>- FLTARRh $!>- FLTARRi $!!Xj $! !Yk $! !Zl $!m $!>mn $!>mo $!noonn,p $!>)m $!>mq $! >mr $!"rrqqr,s $!&>>>>>,t $!(>>>>>,u $!,>v $!.>w $!0>2- FLTARRx $!4>y $!6>z $!8>{ $!>>| $!@C} $!B>&~ $!D>& $!F> $!J> $!L> $!N:o $!P> $!RDz $!V> $!X> $!`>- LMGRDEMO $!b> #*$!c> $!drunning in demo mode- PRINT$!h gvrings.dat $!l>#,$!n- GET_LUN$!o .newrings- OPENW$!q- FREE_LUN$!s- GET_LUN$!u>+- OPENW$!w- FREE_LUN$!}> $!> $!>>- FLTARR $!= NUM_RINGS RINGARRAY $!> $!> $!no_____ringfile_____yet.dat $!no_____labelfile_____yet.dat $!> $!3!D9N_COLORS6B $!B $!- WIDGET_CONTROLTLB_GET_SIZE$!- PRINT$!X@?cps>>>>d> LMFGHIJK-67vVWbejklOyUQRSThif   9:tuwx;g.|}~z`a<{_[\]^Y=aaTLBCUR_IMG ORIG_XSIZE ORIG_YSIZEDRAWIDXSIZEYSIZE IMAGEDRAW MOUSEBUTTONPIXIDXCOORDYCOORDBXBYEXEYPSCOUNTDRAWBASECLATCLONMOLAGRIDBOTLATBOTLONLEFTLATLEFTLONTOPLATTOPLONRIGHTLATRIGHTLON INTERPBUTCLAT_WINCLON_WINZOOM RING_INFORINGSXSTARTYSTARTTOPOBYT PROFILE_COUNTXYZ DO_CONTOURBILINEARCONTOUR_INTERVAL MAX_STRETCHN_COLORSHI_REZMAXVALUEMIN_IMGMAX_IMGMIN_ZOOMMAX_ZOOMHOSTNAMERINGFILE CLICKRINGS PROF_XLOCDEMO PROF_YLOC DO_PROFILE LABEL_GRIDLATMINLATMAXLONMINLONMAX LAT_TRACK LON_TRACK XZOOMCOORD YZOOMCOORD ZOOM_COUNTZOOM_TBL ELEV_TRACK GREAT_CIRCLE GREAT_CIRCBUT CLABEL_FACTOR MIN_RANGE MAX_RANGESHADEDEVALTAZICOLORSHOWGEOGEO_IMGGEO_UNIT UNIT_TRACKSHOWGRIDDO_OTHERCONTOUROTHERCONTOUR_INTERVALOTHERMIN_RANGEOTHERMAX_RANGEOTHERCLABEL_FACTOR OTHER_IMG RINGSAVEFILE THICKNESS LABELFILELABEL $!> $!>- WIDGET_CONTROLNO_COPYSET_UVALUES$!> $">>-XMANAGERNO_BLOCK$";$" <8 GRIDVIEW_EVENTkf!EVENT?INFOhTESTWTXTU0COUNT%LATLONLABELSTEPz IB ALIGN5 GRIDFILEN LATMINE LATMAXLONMINLONMAXMISSINGMOLAGRIDXSTARTYSTARTIMGkMIN_ZOOMAA MAX_ZOOMMAXVALUEYTMP_IMGF MIN_RANGE# INT_MIN_RANGE~ MAX_RANGE$ INT_MAX_RANGE CLABEL_FACTORUA CONTOUR_INTERVALq!MIN_VAL"MAX_VAL#CURRENTm$ MAX_LEVELc%GRID &LEVELS'BB(CCI)LEVEL(*IMG_NAME+RRJ,GG-GEO_IMG.. UNIT_FILE/B)0ORDERX1DEVISOR2COLORj3ALT64AZI15TOPO[6SMINv7SMAX88DEV39 PIXEL_RANGEK:RELIEF>;DEMO:<RESULT=FILENAME>RO?C*@IMAGEAHOSTNAME BM_CLONCLEFTDTOPERIGHTFBOTTOMGCENTERHSAVEFILEI PIX_PER_DEGpJXSIZEKYSIZEL GRIDSPACERMRAD1PNRAD2OELEVwPHITSCQYfRXdSCLATTPSNAME@UTITLEV ORIG_DEVICE;WMAX_IMG&XMIN_IMGYTOPOBYTZGEOIMG/[LATLOC\LONLOC] RING_INFO-^SZ_MID_Xb`MID_YZa MAX_OTHERbX1ecX2LdY1geY2MfINTERVALgLINEhCOL_IMGiIMGBYTj DATESTAMP=kDATAlXX{mYY|nPROFILEoCOORDSpEND_XsqEND_YrDISTANCEsBREAK_DISTANCEAtSTARTPNTuENDPNTvMIDDLEawSIZE_X9xSTEPS`yX_GCzY_GC{ PROFILE_GCV|K}L ~MN2PROFILE2} SIZE_PROFyLIMITiCLON4 START_LON END_LONr START_LATEND_LATLEFTLONTOPLON7RIGHTLONBOTLONHVMDIMTIMG_PATHIMG_FILE,FLAG\LAT1LAT2]MLON2MLON1REZGX_SIZESY_SIZEMDIMxLON1LON2^CENTLON LEFT_X+RIGHT_X_BOTTOM_YuTOP_YCENTLAT M_CENTLONDEDGELONEDGELAT M_EDGELONRADIUSDIAMETERtERRCOMMENT"EDGELON1EDGELAT1 M_EDGELON1EDGELON2EDGELAT2 M_EDGELON2EDGELON3QEDGELAT3 M_EDGELON3TEMP_VALINFILERED<GREEN'BLUEXVALnYVALoDATAVALlECOORD$ $ 29TOP6- WIDGET_CONTROLGET_UVALUENO_COPYP$ profile $ >-  TAG_NAMESSTRUCTURE_NAME WIDGET_BASE#29ID6- WIDGET_CONTROLGET_UVALUE$ 29ID6>>-  TAG_NAMESSTRUCTURE_NAMEWIDGET_KBRD_FOCUS#~$ & base_resize*$ 0resize- PRINT"~exit*$ 829TOP6>- WIDGET_CONTROLDESTROYU$ :>- CLOSEALLS"~ plot_labels*$$ @29DRAWID6- WSET$ B29X6 !X$ D29Y6 !Y$ F29Z6 !Z$ H29 LABELFILE>*.datSelect Label File29 LABELFILE6- DIALOG_PICKFILEFILEFILTERREADTITLE7$ L29 LABELFILE6- STRLEN ##$ N29TOP6>- WIDGET_CONTROLHOURGLASS$ P29 LABELFILE6- PRINT$ RPlotting labels ..."- PRINT$ T  $ U- GET_LUN$ V29 LABELFILE6- OPENR$ W> $ X- EOF1# $ Y- READF$ Z# > " $ \- FREE_LUN$ ^- STRING labels- PRINT$ `? $ a> $ b>  $ d- GET_LUN$ e29 LABELFILE6- OPENR$ f> $ g> &"$ h- READF$ i- STRTRIM $ j> >- STRMID $ l-MAR2IDL2 $ m29ZOOM6>#>>?L29LEFTLON629BOTLAT629RIGHTLON629TOPLAT6,>-0 PLOTSCLIPCOLORNOCLIPPSYMSYMSIZETHICK$ n29ZOOM6>#>>>>-" PLOTSCOLORPSYMSYMSIZETHICKS$ o >#> $ p >#> $ q >#> $ r #> $ s #? $ t29ZOOM6>#> >29LEFTLON629BOTLAT629RIGHTLON629TOPLAT6,>-0 XYOUTSALIGNMENTCHARSIZECLIPCOLORNOCLIP$ u29ZOOM6># > >-" XYOUTSALIGNMENTCHARSIZECOLOR$ v > $ w >#!> ($ z- FREE_LUN$ ~29PIXID6- WSET$ >>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ 29X!X7$ 29Y!Y7$ 29Z!Z7$ 29DRAWID6- WSET$ 29LABEL>7"~ contour_other*A$ 2>:HOSTNAME6core2.gsfc.nasa.gov2>:HOSTNAME6eib2#*>*.savSelect Grid Data/opal/roark/gridview/grids- DIALOG_PICKFILEFILTERPATHREADTITLE $ 2>:HOSTNAME6>%2>:HOSTNAME6>&#+>>'>(- DIALOG_PICKFILEFILTERREADTITLET $  - STRLEN> #@$ 29DRAWID6- WSET$ 29X6 !X$ 29Y6 !Y$ 29Z6 !Z$ 29TOP6>- WIDGET_CONTROLHOURGLASSN$ B0 $ >, $ C40 $ >- $ Reading data ...- PRINT$  - RESTORE$ '0 $ >> 29BILINEAR6-N MAP_IMAGE  BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP $ - MIN $ - WHERE $ > >0#/F<0 $ - MAX $ - MAX> $ 29XSIZE629YSIZE6- FLTARR $  $  $ 29 OTHER_IMG7$ Dz $ - FIX $ >#1> $ >0 $ >0 $ - FIX $ >#2> $ >0 $ > $ 29XSIZE6>29YSIZE6>29TLB6-POP_CONT $  29BUTNAME6accept#>$ 29OTHERCONTOUR_INTERVAL 29INTERVAL67$ 29OTHERMIN_RANGE 29 MIN_RANGE67$ 29OTHERMAX_RANGE 29 MAX_RANGE67$ 29OTHERCLABEL_FACTOR 29 CLABEL_FACTOR67$ 29OTHERCLABEL_FACTOR6#529OTHERCLABEL_FACTOR>7$ !29TOP6>- WIDGET_CONTROLHOURGLASSN$ %29OTHERCONTOUR_INTERVAL629OTHERCLABEL_FACTOR6! $ '29OTHERMIN_RANGE629OTHERCLABEL_FACTOR6" $ )29OTHERMAX_RANGE629OTHERCLABEL_FACTOR6# $ -"$ $ /G\0% $ 329 OTHER_IMG629OTHERCLABEL_FACTOR6& $ 9>7,>7>7,>>>>,>29XSIZE6>,>29YSIZE6>,>>>-8 PLOTNOERASEPOSITIONXRANGEXSTYLEYRANGEYSTYLEp$ ?Contouring at interval :29OTHERCONTOUR_INTERVAL6>- STRTRIM- PRINT$ A%##<$ C$!- FINDGEN,' $ E'#"( $ G(-UNIQ) $ I)' * $ K&*>>>>?>0>29OTHERCLABEL_FACTOR6-T CONTOUR C_CHARSIZEC_COLORC_THICKFOLLOWFONTLEVELSMAX_VALUENOERASEOVERPLOT$ Q'- MAX% $ S%!$ "9$ [29X6 !X$ ]29Y6 !Y$ _29Z6 !Z$ e29PIXID6- WSET$ g>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ o29DRAWID6- WSET$ q29DO_OTHERCONTOUR>7$ sFinished contouring- PRINT$ wContinue using gridview- PRINT"~show_geo*O$ 29TOP6>- WIDGET_CONTROLHOURGLASSC$ 2>:HOSTNAME6>%2>:HOSTNAME6>&#C$$/opal/home/roark/mars2/mgeo_mola.png+ "D mgeo_mola.png+ $ +,-(- READ_PNG $ 3!VERSION9RELEASE6@#G- ROTATE $ > $ 29X6 !X$ 29Y6 !Y$ 29Z6 !Z$ >>>-0>->,0>,-D MAP_IMAGE COMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP. $ ,-(- TVLCT$ .- TV$ 29PIXID6- WSET$ >>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ 29X!X7$ 29Y!Y7$ 29Z!Z7$ 29DRAWID6- WSET$ 29XSIZE629YSIZE6- BYTARR $ > $ . $ 29GEO_IMG7$ 2>:HOSTNAME6>%2>:HOSTNAME6>&#H /opal/roark/gridview/mgeo_c2.txt/ "I mgeo_c2.txt/ $ > $ >- STRING0 $ - GET_LUN$ /- OPENR$ > ^&K$  0- READF$ 2 :GEO_UNIT07(J$ - FREE_LUN$ 29DEMO6n#N$ - GET_LUN$  .newrings- OPENW$ - FREE_LUN$ 29 CLICKRINGS>7$ 29SHOWGEO>7$ 29SHOWGRID>7$ 29SHADE>7$ 29 MAX_STRETCH>7$ 29DO_OTHERCONTOUR>7$ 29 DO_CONTOUR>7$ 29LABEL>7"~invert*S$ !ORDER1 $ 1>#P> !ORDER$ 1>#Q> !ORDER$ 29TOPOBYT6- TV$ $29PIXID6- WSET$ (>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ .29X!X7$ 029Y!Y7$ 229Z!Z7$ 429DRAWID6- WSET$ 829DEMO6>L#R$ :- GET_LUN$ <>M- OPENW$ >- FREE_LUN$ ?29 CLICKRINGS>7"~shade*`$ M29TOP6>- WIDGET_CONTROLHOURGLASSC$ QC2 $ S>3 $ UA4 $ W>U5 $ Y29CUR_IMG6Fj`0- WHERE $ [29CUR_IMG626 $ ] 6 - MIN7 $ _6- MAX8 $ a>3 $ g24537829TLB6-POP_3D $ i 29BUTNAME6>3#^$ k29TOP6>- WIDGET_CONTROLHOURGLASSC$ o 29DEV69 $ q 29ALT64 $ s 29AZI65 $ u 29COLOR63 $ w29DEV 29DEV67$ y29ALT 29ALT67$ {29AZI 29AZI67$ }29COLOR 29COLOR67$ 29CUR_IMG696 $ 3!D9N_COLORS6#Y$ 87>W: $ >W3!D9N_COLORS6 $ 8 :8 $ 64578- SUN_SHADE; $ 29DRAWID6- WSET$ - ERASE$ 3>#[$ 2>:HOSTNAME6>%2>:HOSTNAME6>&#Z!!/jade/roark/idl_share/shade_1.col-RLOADCT"[ shade_1.col-RLOADCT$ 3>#]$ 2>:HOSTNAME6>%2>:HOSTNAME6>&#\!!/jade/roark/idl_share/grays3d.col-RLOADCT"] grays3d.col-RLOADCT$ ;- TV$ 29PIXID6- WSET$ >>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ 29X!X7$ 29Y!Y7$ 29Z!Z7$ 29DRAWID6- WSET$ >; $ >6 $ 29SHADE>7$ 29 MAX_STRETCH>7$ 29DO_OTHERCONTOUR>7$ 29LABEL>7$ 29SHOWGEO6>#^29SHOWGRID>7$ 29DEMO6>L#_$ - GET_LUN$ >M- OPENW$ - FREE_LUN$ 29 CLICKRINGS>7"~save_png*j$ Save PNG- PRINT$ 29DRAWID6- WSET$ >L< $ >- LMGRDEMO= $ => #by< $ <>L#g$ gv*.png>- DIALOG_PICKFILEFILEFILTERWRITE> $ >.png> $ 29TOP6>- WIDGET_CONTROLHOURGLASS$ >,-(- TVLCTGETS$ >>- TVRDCHANNELTRUEW? $ !3!D9N_COLORS6>W #e$ #>>- TVRDCHANNELTRUEW? $ %>? >? >? ,-(-  COLOR_QUAN@ $ '29XSIZE629YSIZE6- BYTARRA $ )>@ A $ +>A,-(-  WRITE_PNG$ -> saved- PRINT"f$ 1- TVRD? $ 3>?,-(-  WRITE_PNG$ 5>>d- PRINT"i$ 9$$This function dissabled in demo mode- PRINT$ =>?- PRINT"~save_bmp*p$ GSave BMP- PRINT$ I29DRAWID6- WSET$ O>L< $ Q>- LMGRDEMO= $ S=> #k>a< $ U<>L#n$ Y>c*.bmp>- DIALOG_PICKFILEFILEFILTERWRITE> $ [>.bmp> $ ]29TOP6>- WIDGET_CONTROLHOURGLASS$ _>,-(- TVLCTGETS$ a>>- TVRDCHANNELTRUEW? $ c3!D9N_COLORS6>W #l$ e>>- TVRDCHANNELTRUEW? $ g>? >? >? ,-(-  COLOR_QUAN@ $ i29XSIZE629YSIZE6- BYTARRA $ k>@ A $ m>A,-(- WRITE_BMP$ o>>d- PRINT"m$ s- TVRD? $ u>?,-(- WRITE_BMP$ w>>d- PRINT"o$ {>h- PRINT$ >?- PRINT"~ load_grid*$  Load Grid- PRINT$ >  $ 3!VERSION9 OS_FAMILY6unix#u$ > B $ hostnameB- SPAWN$ >B >%>B >&#s>>'>(>)- DIALOG_PICKFILEFILTERPATHREADTITLEX $ >B >%>B >&#t>>'>(- DIALOG_PICKFILEFILTERREADTITLET "v$ >>'- DIALOG_PICKFILEFILTERREAD $  > #$ 29TOP6>- WIDGET_CONTROLHOURGLASSK$  - STRLEN> #z$ >,0 $ >, $ >-0 $ >- $ >.- PRINT$  - RESTORE$ 29LATMIN 7$ 29LATMAX7$ 29LONMIN7$ 29LONMAX7$ 29CLAT29LATMIN629LATMAX629LATMIN6@7$ 29CLAT6>:0#x29CLAT>,07$ 29CLAT6>: #y29CLAT>,7$ 29CLON29LONMIN629LONMAX629LONMIN6>w7$ 29LONMIN629LONMAX6 #z29CLON>-7$ 29TLB629CUR_IMG629 ORIG_XSIZE629 ORIG_YSIZE629DRAWID629XSIZE629YSIZE629 IMAGEDRAW629 MOUSEBUTTON629PIXID629XCOORD629YCOORD629BX629BY629EX629EY629PSCOUNT629DRAWBASE629CLAT629CLON629BOTLAT629BOTLON629LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629 INTERPBUT629CLAT_WIN629CLON_WIN629ZOOM629 RING_INFO629RINGS629XSTART629YSTART629TOPOBYT629 PROFILE_COUNT629X629Y629Z629 DO_CONTOUR629BILINEAR629CONTOUR_INTERVAL629 MAX_STRETCH629N_COLORS629HI_REZ629MAXVALUE629MIN_IMG629MAX_IMG629MIN_ZOOM629MAX_ZOOM629HOSTNAME629RINGFILE629 CLICKRINGS629 PROF_XLOC629DEMO629 PROF_YLOC629 DO_PROFILE629 LABEL_GRID629LATMIN629LATMAX629LONMIN629LONMAX629 LAT_TRACK629 LON_TRACK629 XZOOMCOORD629 YZOOMCOORD629 ZOOM_COUNT629ZOOM_TBL629 ELEV_TRACK629 GREAT_CIRCLE629 GREAT_CIRCBUT629 CLABEL_FACTOR629 MIN_RANGE629 MAX_RANGE629SHADE629DEV629ALT629AZI629COLOR629SHOWGEO629GEO_IMG629GEO_UNIT629 UNIT_TRACK629SHOWGRID629DO_OTHERCONTOUR629OTHERCONTOUR_INTERVAL629OTHERMIN_RANGE629OTHERMAX_RANGE629OTHERCLABEL_FACTOR629 OTHER_IMG629 RINGSAVEFILE629 THICKNESS629 LABELFILE629LABEL6=aaTLBCUR_IMG ORIG_XSIZE ORIG_YSIZEDRAWIDXSIZEYSIZE IMAGEDRAW MOUSEBUTTONPIXIDXCOORDYCOORDBXBYEXEYPSCOUNTDRAWBASECLATCLONMOLAGRIDBOTLATBOTLONLEFTLATLEFTLONTOPLATTOPLONRIGHTLATRIGHTLON INTERPBUTCLAT_WINCLON_WINZOOM RING_INFORINGSXSTARTYSTARTTOPOBYT PROFILE_COUNTXYZ DO_CONTOURBILINEARCONTOUR_INTERVAL MAX_STRETCHN_COLORSHI_REZMAXVALUEMIN_IMGMAX_IMGMIN_ZOOMMAX_ZOOMHOSTNAMERINGFILE CLICKRINGS PROF_XLOCDEMO PROF_YLOC DO_PROFILE LABEL_GRIDLATMINLATMAXLONMINLONMAX LAT_TRACK LON_TRACK XZOOMCOORD YZOOMCOORD ZOOM_COUNTZOOM_TBL ELEV_TRACK GREAT_CIRCLE GREAT_CIRCBUT CLABEL_FACTOR MIN_RANGE MAX_RANGESHADEDEVALTAZICOLORSHOWGEOGEO_IMGGEO_UNIT UNIT_TRACKSHOWGRIDDO_OTHERCONTOUROTHERCONTOUR_INTERVALOTHERMIN_RANGEOTHERMAX_RANGEOTHERCLABEL_FACTOR OTHER_IMG RINGSAVEFILE THICKNESS LABELFILELABEL $(29CLAT_WIN629CLAT6- WIDGET_CONTROLSET_VALUEK$*29CLON6-IDL2MAR2C $,29CLON_WIN6C- WIDGET_CONTROLSET_VALUEK$029DRAWID6- WSET$429CLAT629CLON6>><# >{?}p>|,>>>:>:-@ MAP_SETGRIDISOTROPICLATDELLONDELNOBORDERORTHPOSITIONL$:warping image ...- PRINT$@>{>>>-  CONVERT_COORDNORMTO_DATAED $B>>|>>-  CONVERT_COORDNORMTO_DATAEE $D>|>>>-  CONVERT_COORDNORMTO_DATAEF $F>>{>>-  CONVERT_COORDNORMTO_DATAEG $L>{>|>{>w>{>|>{>w>>-  CONVERT_COORDNORMTO_DATAEH $R29LEFTLAT>D 7$T29LEFTLON>D 7$V29TOPLAT>E 7$X29TOPLON>E 7$Z29RIGHTLAT>F 7$\29RIGHTLON>F 7$^29BOTLAT>G 7$`29BOTLON>G 7$dF` $h29MOLAGRID6>>29LONMIN629LONMAX629LATMIN629LATMAX629BILINEAR6-N MAP_IMAGE  BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP $n29MIN_ZOOM- MIN7$p- WHERE $r> >0#>V0 $t29MAX_ZOOM- MAX7$x29MAXVALUE- MAX>7$|29XSIZE629YSIZE6- FLTARR $~29MAXVALUE6 $ $29CUR_IMG7$29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG6F 0F+- BYTSCLMAXMINTOPI7$>3!D9N_COLORS6E $29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG629MAX_IMG629MIN_IMG6E- BYTSCLMAXMINTOPI7$29 XZOOMCOORD629 YZOOMCOORD6>>-  CONVERT_COORDDATATO_DEVICER $29XCOORD> ,7$29YCOORD> ,7$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET$2>:HOSTNAME6>%2>:HOSTNAME6>&#/opal/roark/gridview/topo5c.col-RLOADCT" topo5c.col-RLOADCT$29TOPOBYT6- TV$29 XZOOMCOORD629 YZOOMCOORD6>>>>-$ PLOTSCOLORDATALINESTYLETHICKN$>-MAP_GRIDCOLOR$29ZOOM>7$29RINGS>7$29 CLICKRINGS>7$29 DO_CONTOUR>7$29HI_REZ>7$29 DO_PROFILE>7$29 LABEL_GRID>7$29 ZOOM_COUNT>7$29SHADE>7$29SHOWGEO>7$29SHOWGRID>7$29DO_OTHERCONTOUR>7$29LABEL>7$29DEMO6>L#$- GET_LUN$>M- OPENW$- FREE_LUN$29 CLICKRINGS>7$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET$>?- PRINT"~ save_grid*$ Save Grid- PRINT$>Save Grid (IDL 'Save' file) as- DIALOG_PICKFILETITLEWRITEI $29TOP6>- WIDGET_CONTROLHOURGLASS$I- STRLEN> #$29LATMIN6 $29LATMAX6 $29LONMIN6 $29LONMAX6 $29MOLAGRID6 $ Writing data ...- PRINT$"I - SAVEFILENAME$$Saved I- PRINT$(>?- PRINT"~load_img*$6Load EDGR (IMG) grid- PRINT$8>  $<3!VERSION9 OS_FAMILY6>q#$>> B $@>rB- SPAWN$D>B >%>B >&#>*.imgSelect EGDR (IMG) Data>)- DIALOG_PICKFILEFILTERPATHREADTITLER $J>B >%>B >&#>>>- DIALOG_PICKFILEFILTERREADTITLET "$P>>>- DIALOG_PICKFILEFILTERREADTITLET $V > #$Z 29XSIZE629YSIZE629TLB6-POP_IMG $\ 29BUTNAME6>3#$^29LATMAX 29MAXLAT67$`29LATMIN 29MINLAT67$b29LONMAX 29MAXLON67$d29LONMIN 29MINLON67$f 29SPACING6J $j29LATMAX6- PRINT$l29LATMIN6- PRINT$n29LONMIN6- PRINT$p29LONMAX6- PRINT$t29LONMAX629LONMIN6J- FIXK $v29LATMAX629LATMIN6J- FIXL $zKL- INTARR $}- GET_LUN$~ - OPENR$29TOP6>- WIDGET_CONTROLHOURGLASSL$reading grid ....- PRINT$- READU$- FREE_LUN$3!VERSION9 OS_FAMILY6Windows#- SWAP_ENDIAN $>F- ROTATE $- MAX- PRINT$- MIN- PRINT$29CLAT29LATMIN629LATMAX629LATMIN6>w7$29CLAT6>:0#29CLAT>,07$29CLAT6>: #29CLAT>,7$29CLON29LONMIN629LONMAX629LONMIN6>w7$29LONMIN629LONMAX6 #29CLON>-7$29TLB629CUR_IMG629 ORIG_XSIZE629 ORIG_YSIZE629DRAWID629XSIZE629YSIZE629 IMAGEDRAW629 MOUSEBUTTON629PIXID629XCOORD629YCOORD629BX629BY629EX629EY629PSCOUNT629DRAWBASE629CLAT629CLON629BOTLAT629BOTLON629LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629 INTERPBUT629CLAT_WIN629CLON_WIN629ZOOM629 RING_INFO629RINGS629XSTART629YSTART629TOPOBYT629 PROFILE_COUNT629X629Y629Z629 DO_CONTOUR629BILINEAR629CONTOUR_INTERVAL629 MAX_STRETCH629N_COLORS629HI_REZ629MAXVALUE629MIN_IMG629MAX_IMG629MIN_ZOOM629MAX_ZOOM629HOSTNAME629RINGFILE629 CLICKRINGS629 PROF_XLOC629DEMO629 PROF_YLOC629 DO_PROFILE629 LABEL_GRID629LATMIN629LATMAX629LONMIN629LONMAX629 LAT_TRACK629 LON_TRACK629 XZOOMCOORD629 YZOOMCOORD629 ZOOM_COUNT629ZOOM_TBL629 ELEV_TRACK629 GREAT_CIRCLE629 GREAT_CIRCBUT629 CLABEL_FACTOR629 MIN_RANGE629 MAX_RANGE629SHADE629DEV629ALT629AZI629COLOR629SHOWGEO629GEO_IMG629GEO_UNIT629 UNIT_TRACK629SHOWGRID629DO_OTHERCONTOUR629OTHERCONTOUR_INTERVAL629OTHERMIN_RANGE629OTHERMAX_RANGE629OTHERCLABEL_FACTOR629 OTHER_IMG629 RINGSAVEFILE629 THICKNESS629 LABELFILE629LABEL6=aaTLBCUR_IMG ORIG_XSIZE ORIG_YSIZEDRAWIDXSIZEYSIZE IMAGEDRAW MOUSEBUTTONPIXIDXCOORDYCOORDBXBYEXEYPSCOUNTDRAWBASECLATCLONMOLAGRIDBOTLATBOTLONLEFTLATLEFTLONTOPLATTOPLONRIGHTLATRIGHTLON INTERPBUTCLAT_WINCLON_WINZOOM RING_INFORINGSXSTARTYSTARTTOPOBYT PROFILE_COUNTXYZ DO_CONTOURBILINEARCONTOUR_INTERVAL MAX_STRETCHN_COLORSHI_REZMAXVALUEMIN_IMGMAX_IMGMIN_ZOOMMAX_ZOOMHOSTNAMERINGFILE CLICKRINGS PROF_XLOCDEMO PROF_YLOC DO_PROFILE LABEL_GRIDLATMINLATMAXLONMINLONMAX LAT_TRACK LON_TRACK XZOOMCOORD YZOOMCOORD ZOOM_COUNTZOOM_TBL ELEV_TRACK GREAT_CIRCLE GREAT_CIRCBUT CLABEL_FACTOR MIN_RANGE MAX_RANGESHADEDEVALTAZICOLORSHOWGEOGEO_IMGGEO_UNIT UNIT_TRACKSHOWGRIDDO_OTHERCONTOUROTHERCONTOUR_INTERVALOTHERMIN_RANGEOTHERMAX_RANGEOTHERCLABEL_FACTOR OTHER_IMG RINGSAVEFILE THICKNESS LABELFILELABEL $29CLAT_WIN629CLAT6- WIDGET_CONTROLSET_VALUEL$29CLON6-IDL2MAR2C $29CLON_WIN6C- WIDGET_CONTROLSET_VALUEL$29DRAWID6- WSET$29CLAT629CLON6>>>{>{>|>|,>>>:>:-@ MAP_SETGRIDISOTROPICLATDELLONDELNOBORDERORTHPOSITION$>}- PRINT$ >{>>>-  CONVERT_COORDNORMTO_DATAD $ >>|>>-  CONVERT_COORDNORMTO_DATAE $>|>>>-  CONVERT_COORDNORMTO_DATAF $>>{>>-  CONVERT_COORDNORMTO_DATAG $>{>|>{>w>{>|>{>w>>-  CONVERT_COORDNORMTO_DATAH $29LEFTLAT>D 7$29LEFTLON>D 7$!29TOPLAT>E 7$#29TOPLON>E 7$%29RIGHTLAT>F 7$'29RIGHTLON>F 7$)29BOTLAT>G 7$+29BOTLON>G 7$/>~ $3> !QUIET$529MOLAGRID6>>29LONMIN629LONMAX629LATMIN629LATMAX629BILINEAR6-N MAP_IMAGE  BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP $9> !QUIET$=29MIN_ZOOM- MIN7$?- WHERE $A> >0#>V0 $C29MAX_ZOOM- MAX7$G29MAXVALUE- MAX>7$K29XSIZE629YSIZE6- FLTARR $M29MAXVALUE6 $Q $S29CUR_IMG7$W29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG6>0>>- BYTSCLMAXMINTOPI7$[>3!D9N_COLORS6E $]29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG629MAX_IMG629MIN_IMG6E- BYTSCLMAXMINTOPI7$c29 XZOOMCOORD629 YZOOMCOORD6>>-  CONVERT_COORDDATATO_DEVICER $e29XCOORD> ,7$g29YCOORD> ,7$k2>:HOSTNAME6>%2>:HOSTNAME6>&#>-RLOADCT">-RLOADCT$s29TOPOBYT6- TV$u29 XZOOMCOORD629 YZOOMCOORD6>>>>-$ PLOTSCOLORDATALINESTYLETHICKN$w>-MAP_GRIDCOLOR$y29ZOOM>7${29RINGS>7$}29 DO_CONTOUR>7$29 CLICKRINGS>7$29HI_REZ>7$29 DO_PROFILE>7$29 LABEL_GRID>7$29 ZOOM_COUNT>7$29SHADE>7$29SHOWGEO>7$29SHOWGRID>7$29DO_OTHERCONTOUR>7$29LABEL>7$29DEMO6>L#$- GET_LUN$>M- OPENW$- FREE_LUN$29 CLICKRINGS>7$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET$done- PRINT$Continue using Gridview- PRINT"~load_tab*$Load EDGR (TAB) grid- PRINT$>  $3!VERSION9 OS_FAMILY6>q#$> B $>rB- SPAWN$>B >%>B >&#>*.tabSelect EGDR (TAB) Data>)- DIALOG_PICKFILEFILTERPATHREADTITLER $>B >%>B >&#>>>- DIALOG_PICKFILEFILTERREADTITLET "$>>>- DIALOG_PICKFILEFILTERREADTITLET $ > #$ 29XSIZE629YSIZE629TLB6-POP_EGDR $ 29BUTNAME6>3#$29LATMAX 29MAXLAT67$29LATMIN 29MINLAT67$29LONMAX 29MAXLON67$29LONMIN 29MINLON67$  29SPACING6M $ 29LATMAX6- PRINT$29LATMIN6- PRINT$29LONMIN6- PRINT$29LONMAX6- PRINT$29LONMAX629LONMIN6M- FIXK $29LATMAX629LATMIN6M- FIXL $KL- FLTARR $- GET_LUN$! - OPENR$#> $%> $'>N $)>O $+>P $->Q $/29TOP6>- WIDGET_CONTROLHOURGLASS$1>- PRINT$3L>R>>0'$5>SK>&$7NOPQ- READF$9SRP ()$?- FREE_LUN$C29CLAT29LATMIN629LATMAX629LATMIN6>w7$E29CLAT6>:0#29CLAT>,07$G29CLAT6>: #29CLAT>,7$K29CLON29LONMIN629LONMAX629LONMIN6>w7$M29LONMIN629LONMAX6 #29CLON>-7$S29TLB629CUR_IMG629 ORIG_XSIZE629 ORIG_YSIZE629DRAWID629XSIZE629YSIZE629 IMAGEDRAW629 MOUSEBUTTON629PIXID629XCOORD629YCOORD629BX629BY629EX629EY629PSCOUNT629DRAWBASE629CLAT629CLON629BOTLAT629BOTLON629LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629 INTERPBUT629CLAT_WIN629CLON_WIN629ZOOM629 RING_INFO629RINGS629XSTART629YSTART629TOPOBYT629 PROFILE_COUNT629X629Y629Z629 DO_CONTOUR629BILINEAR629CONTOUR_INTERVAL629 MAX_STRETCH629N_COLORS629HI_REZ629MAXVALUE629MIN_IMG629MAX_IMG629MIN_ZOOM629MAX_ZOOM629HOSTNAME629RINGFILE629 CLICKRINGS629 PROF_XLOC629DEMO629 PROF_YLOC629 DO_PROFILE629 LABEL_GRID629LATMIN629LATMAX629LONMIN629LONMAX629 LAT_TRACK629 LON_TRACK629 XZOOMCOORD629 YZOOMCOORD629 ZOOM_COUNT629ZOOM_TBL629 ELEV_TRACK629 GREAT_CIRCLE629 GREAT_CIRCBUT629 CLABEL_FACTOR629 MIN_RANGE629 MAX_RANGE629SHADE629DEV629ALT629AZI629COLOR629SHOWGEO629GEO_IMG629GEO_UNIT629 UNIT_TRACK629SHOWGRID629DO_OTHERCONTOUR629OTHERCONTOUR_INTERVAL629OTHERMIN_RANGE629OTHERMAX_RANGE629OTHERCLABEL_FACTOR629 OTHER_IMG629 RINGSAVEFILE629 THICKNESS629 LABELFILE629LABEL6=aaTLBCUR_IMG ORIG_XSIZE ORIG_YSIZEDRAWIDXSIZEYSIZE IMAGEDRAW MOUSEBUTTONPIXIDXCOORDYCOORDBXBYEXEYPSCOUNTDRAWBASECLATCLONMOLAGRIDBOTLATBOTLONLEFTLATLEFTLONTOPLATTOPLONRIGHTLATRIGHTLON INTERPBUTCLAT_WINCLON_WINZOOM RING_INFORINGSXSTARTYSTARTTOPOBYT PROFILE_COUNTXYZ DO_CONTOURBILINEARCONTOUR_INTERVAL MAX_STRETCHN_COLORSHI_REZMAXVALUEMIN_IMGMAX_IMGMIN_ZOOMMAX_ZOOMHOSTNAMERINGFILE CLICKRINGS PROF_XLOCDEMO PROF_YLOC DO_PROFILE LABEL_GRIDLATMINLATMAXLONMINLONMAX LAT_TRACK LON_TRACK XZOOMCOORD YZOOMCOORD ZOOM_COUNTZOOM_TBL ELEV_TRACK GREAT_CIRCLE GREAT_CIRCBUT CLABEL_FACTOR MIN_RANGE MAX_RANGESHADEDEVALTAZICOLORSHOWGEOGEO_IMGGEO_UNIT UNIT_TRACKSHOWGRIDDO_OTHERCONTOUROTHERCONTOUR_INTERVALOTHERMIN_RANGEOTHERMAX_RANGEOTHERCLABEL_FACTOR OTHER_IMG RINGSAVEFILE THICKNESS LABELFILELABEL $29CLAT_WIN629CLAT6- WIDGET_CONTROLSET_VALUE$29CLON6-IDL2MAR2C $29CLON_WIN6C- WIDGET_CONTROLSET_VALUE$29DRAWID6- WSET$29CLAT629CLON6>>>{>{>|>|,>>>:>:-@ MAP_SETGRIDISOTROPICLATDELLONDELNOBORDERORTHPOSITION$>}- PRINT$>{>>>-  CONVERT_COORDNORMTO_DATAED $>>|>>-  CONVERT_COORDNORMTO_DATAEE $>|>>>-  CONVERT_COORDNORMTO_DATAEF $>>{>>-  CONVERT_COORDNORMTO_DATAEG $>{>|>{>w>{>|>{>w>>-  CONVERT_COORDNORMTO_DATAEH $29LEFTLAT>D 7$29LEFTLON>D 7$29TOPLAT>E 7$29TOPLON>E 7$29RIGHTLAT>F 7$29RIGHTLON>F 7$29BOTLAT>G 7$29BOTLON>G 7$>~ $> !QUIET$29MOLAGRID6>>29LONMIN629LONMAX629LATMIN629LATMAX629BILINEAR6-N MAP_IMAGE  BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP $> !QUIET$29MIN_ZOOM- MIN7$- WHERE $> >0#>V0 $29MAX_ZOOM- MAX7$29MAXVALUE- MAX>7$29XSIZE629YSIZE6- FLTARR $29MAXVALUE6 $ $29CUR_IMG7$29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG6>0>>- BYTSCLMAXMINTOPI7$>3!D9N_COLORS6E $29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG629MAX_IMG629MIN_IMG6E- BYTSCLMAXMINTOPI7$ 29 XZOOMCOORD629 YZOOMCOORD6>>-  CONVERT_COORDDATATO_DEVICER $ 29XCOORD> ,7$29YCOORD> ,7$2>:HOSTNAME6>%2>:HOSTNAME6>&#>-RLOADCT">-RLOADCT$29TOPOBYT6- TV$29 XZOOMCOORD629 YZOOMCOORD6>>>>-$ PLOTSCOLORDATALINESTYLETHICKN$>-MAP_GRIDCOLOR$ 29ZOOM>7$"29RINGS>7$$29 DO_CONTOUR>7$&29 CLICKRINGS>7$(29HI_REZ>7$*29 DO_PROFILE>7$,29 LABEL_GRID>7$.29 ZOOM_COUNT>7$029SHADE>7$229SHOWGEO>7$429SHOWGRID>7$629DO_OTHERCONTOUR>7$829LABEL>7$<29DEMO6>L#$>- GET_LUN$@>M- OPENW$B- FREE_LUN$D29 CLICKRINGS>7$L29PIXID6- WSET$N>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$T29X!X7$V29Y!Y7$X29Z!Z7$Z29DRAWID6- WSET$`>- PRINT$j>- PRINT"~reset*$x29TOP6>- WIDGET_CONTROLHOURGLASS$z29CLAT_WIN6T- WIDGET_CONTROLGET_VALUE$|29CLON_WIN6C- WIDGET_CONTROLGET_VALUE$~29CLATT7$29CLONC-MAR2IDL27$29CLAT6C- PRINT$29DRAWID6- WSET$29CLAT629CLON6>>>{>{>|>|,>>>:>:-@ MAP_SETGRIDISOTROPICLATDELLONDELNOBORDERORTHPOSITION$>}- PRINT$>{>>>-  CONVERT_COORDNORMTO_DATAED $>>|>>-  CONVERT_COORDNORMTO_DATAEE $>|>>>-  CONVERT_COORDNORMTO_DATAEF $>>{>>-  CONVERT_COORDNORMTO_DATAEG $>{>|>{>w>{>|>{>w>>-  CONVERT_COORDNORMTO_DATAEH $29LEFTLAT>D 7$29LEFTLON>D 7$29TOPLAT>E 7$29TOPLON>E 7$29RIGHTLAT>F 7$29RIGHTLON>F 7$29BOTLAT>G 7$29BOTLON>G 7$>~ $29MOLAGRID6>>29LONMIN629LONMAX629LATMIN629LATMAX629BILINEAR6-N MAP_IMAGE  BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP $29MIN_ZOOM- MIN7$- WHERE $> >0#>V0 $29MAX_ZOOM- MAX7$29MAXVALUE- MAX>7$29XSIZE629YSIZE6- FLTARR $29MAXVALUE6 $ $29CUR_IMG7$29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG6>0>>- BYTSCLMAXMINTOPI7$>3!D9N_COLORS6E $29 MAX_STRETCH6>#29TOPOBYT29CUR_IMG629MAX_IMG629MIN_IMG6E- BYTSCLMAXMINTOPI7$29 XZOOMCOORD629 YZOOMCOORD6>>-  CONVERT_COORDDATATO_DEVICER $29XCOORD> ,7$29YCOORD> ,7$2>:HOSTNAME6>%2>:HOSTNAME6>&#>-RLOADCT">-RLOADCT$29DEMO6>L#$- GET_LUN$>M- OPENW$- FREE_LUN$29 CLICKRINGS>7$ 29TOPOBYT29CUR_IMG6#(0*>- BYTSCLMAXMINTOPI7$29TOPOBYT6- TV$29 XZOOMCOORD629 YZOOMCOORD6>>>>-$ PLOTSCOLORDATALINESTYLETHICKN$>-MAP_GRIDCOLOR$29ZOOM>7$29RINGS>7$29 DO_CONTOUR>7$29 CLICKRINGS>7$29HI_REZ>7$29 DO_PROFILE>7$ 29 LABEL_GRID>7$"29 ZOOM_COUNT>7$$29SHADE>7$&29SHOWGEO>7$(29 MAX_STRETCH>7$*29DO_OTHERCONTOUR>7$,29LABEL>7$229PIXID6- WSET$4>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$829X!X7$:29Y!Y7$<29Z!Z7$>29DRAWID6- WSET"~print*$J Wait : creating postscript file- PRINT$L29TOP6>- WIDGET_CONTROLHOURGLASS$N29PSCOUNT29PSCOUNT6>7$Pgridview29PSCOUNT6>- STRTRIM.psU $RGRIDVIEWV $T3!D9NAME6W $Vps- SET_PLOT$X29CLON6-IDL2MAR2C $\>>U>@A>?@>-Z DEVICE BITS_PER_PIXELCOLORFILENAMEINCHESPORTRAITTIMESXOFFSETXSIZEYOFFSETYSIZE$`3!P9FONT>7$d3!VERSION9 OS_FAMILY6>#$f>U>>>>>>>-T DEVICEBITS_PER_PIXELCOLORFILENAMEINCHESPORTRAITXOFFSETXSIZEYOFFSETYSIZE$j3!P9FONT>07$p29ZOOM6>#$p29CLAT629CLON6>>=\)>L?s33>,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>V>-> MAP_SETCLIPISOTROPICLIMITNOBORDERORTHPOSITIONTITLET"$z29CLAT629CLON6>>>>>>,>V>-6MAP_SETCLIPISOTROPICNOBORDERORTHPOSITIONTITLE$>V0 $29MOLAGRID629BILINEAR6>>=L29LONMIN629LONMAX629LATMIN629LATMAX6-V MAP_IMAGE BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGSCALEWHOLE_MAP $- MAX# $#X $- WHERE $> >0#>~ $- MIN" $"Y $29SHADE6>29SHOWGEO6>29SHOWGRID6>#$29 MAX_STRETCH6>#>0>>- BYTSCLMAXMINTOPLZ $29 MAX_STRETCH6>#29MAX_IMG629MIN_IMG629N_COLORS6- BYTSCLMAXMINTOPLZ $> >0#>Z $Z3!X>:WINDOW63!Y>:WINDOW63!X>:WINDOW63!X>:WINDOW63!Y>:WINDOW63!Y>:WINDOW6>- TVNORMXSIZEYSIZE$29SHADE6>#$>~- WHERE $>T2 $26 $6- MIN7 $ 6 - MAX8 $29DEV66 $3!D9N_COLORS6>W#$87>W: $>W3!D9N_COLORS6 $8>X:8 $629ALT629AZI678- SUN_SHADE; $> >0#>; $;3!X>:WINDOW63!Y>:WINDOW63!X>:WINDOW63!X>:WINDOW63!Y>:WINDOW63!Y>:WINDOW6>- TVNORMXSIZEYSIZE$29SHOWGEO6>29SHOWGRID6>#$2>:HOSTNAME6>%2>:HOSTNAME6>&#>B+ ">C+ $+,-(- READ_PNG[ $3!VERSION9RELEASE6>E#[>F- ROTATE[ $ > $[>>>-0>->,0>,>-L MAP_IMAGE  COMPRESSLATMAXLATMINLONMAXLONMINMISSINGSCALEWHOLE_MAPW. $,-(- TVLCT$.3!X>:WINDOW63!Y>:WINDOW63!X>:WINDOW63!X>:WINDOW63!Y>:WINDOW63!Y>:WINDOW6>- TVNORMXSIZEYSIZE$&29ZOOM6>#$(29CLAT629CLON6>>>>>>,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>>V>-H MAP_SET COLORISOTROPICLIMITNOBORDERNOERASEORTHPOSITIONTITLEF$229LEFTLON629RIGHTLON629LEFTLON6- ABS=\)\ $429BOTLAT629TOPLAT629BOTLAT6- ABS>] $6>>]\-MMAPGRIDCOLORLABELLATLABLONLAB$>29ZOOM6>#29CLAT629CLON6>>>>>>,>V>>>>-L MAP_SET  CLIPCOLORGRIDISOTROPICNOBORDERNOERASEORTHPOSITIONTITLE$H29 CLICKRINGS6>29DEMO6>L#$J>M-MAPRNGF^ $P^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$X29RINGS6>#$Z29RINGFILE6-MAPRNGF^ $`^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$f29LABEL6>#$g>  $h- GET_LUN$i29 LABELFILE6- OPENR$j> $k- EOF1#$l- READF$m> #> "$o- FREE_LUN$q- STRING>- PRINT$s> $t> $u>  $w- GET_LUN$x29 LABELFILE6- OPENR$y> $z> &${- READF$|>- STRTRIM $}> >>- STRMID $-MAR2IDL2 $29ZOOM6>#>>>>>29LEFTLON629BOTLAT629RIGHTLON629TOPLAT6,>-6 PLOTSCLIPCOLORDATANOCLIPPSYMSYMSIZETHICK $29ZOOM6>#>>>>>-( PLOTSCOLORDATAPSYMSYMSIZETHICKS$ >#> $ >#> $ >#> $ >#> $ >#> $29ZOOM6>#>> >29LEFTLON629BOTLAT629RIGHTLON629TOPLAT6,>>0-< XYOUTS ALIGNMENTCHARSIZECLIPCOLORDATAFONTNOCLIP$29ZOOM6>#>> >>0-. XYOUTSALIGNMENTCHARSIZECOLORDATAFONT$ > $ >#> ($- FREE_LUN$29 DO_CONTOUR6>#$29LEFTLON629LEFTLAT6>>-  CONVERT_COORDDATATO_NORMALSD $29TOPLON629TOPLAT6>>-  CONVERT_COORDDATATO_NORMALSE $29RIGHTLON629RIGHTLAT6>>-  CONVERT_COORDDATATO_NORMALSF $29BOTLON629BOTLAT6>>-  CONVERT_COORDDATATO_NORMALSG $29CONTOUR_INTERVAL629 CLABEL_FACTOR6! $29 MIN_RANGE629 CLABEL_FACTOR6" $29 MAX_RANGE629 CLABEL_FACTOR6# $"$ $>60% $29 CLABEL_FACTOR6& $&- SIZE_ $>7>7,>7>7,>D >G >F >E ,>>_ >,>>_ >,>>>-8 PLOTNOERASEPOSITIONXRANGEXSTYLEYRANGEYSTYLEp$Contouring ...- PRINT$%##$$!>:- FINDGEN,' $'#"( $(-UNIQ) $)' * $&*>>>>>;>0>29MAXVALUE629 CLABEL_FACTOR6-T CONTOUR C_CHARSIZEC_COLORC_THICKFOLLOWFONTLEVELSMAX_VALUENOERASEOVERPLOT$'- MAX% $%!$ "$29DO_OTHERCONTOUR6>#$29LEFTLON629LEFTLAT6>>-  CONVERT_COORDDATATO_NORMALSD $29TOPLON629TOPLAT6>>-  CONVERT_COORDDATATO_NORMALSE $29RIGHTLON629RIGHTLAT6>>-  CONVERT_COORDDATATO_NORMALSF $29BOTLON629BOTLAT6>>-  CONVERT_COORDDATATO_NORMALSG $29OTHERCONTOUR_INTERVAL629OTHERCLABEL_FACTOR6! $29OTHERMIN_RANGE629OTHERCLABEL_FACTOR6" $29OTHERMAX_RANGE629OTHERCLABEL_FACTOR6# $"$ $ >60% $29XSIZE6>` $29YSIZE6>a $29 OTHER_IMG6- MAXb $2>`aa: OTHER_IMG6b- WHEREc $c>- MAXc $2`29XSIZE6>aa: OTHER_IMG6b- WHEREd $`d- MIN>d $2``>a: OTHER_IMG6b- WHEREe $e>- MAXe $!2``a29YSIZE6>: OTHER_IMG6b- WHEREf $#af- MIN>f $'2cdef: OTHER_IMG629OTHERCLABEL_FACTOR6& $+&- SIZE_ $5>7>7,>7>7,>D >G >F >E ,>>_ >,>>_ >,>>>-8 PLOTNOERASEPOSITIONXRANGEXSTYLEYRANGEYSTYLEp$=>- PRINT$?%##$A$!>:- FINDGEN,' $C'#"( $E(-UNIQ) $G)' * $I&*>>>>>;>0>#-T CONTOUR C_CHARSIZEC_COLORC_THICKFOLLOWFONTLEVELSMAX_VALUENOERASEOVERPLOT$O'- MAX% $Q%!$ "$a29 DO_PROFILE6>#29 PROF_XLOC629 PROF_YLOC6>>- PLOTSCOLORTHICK$kXYCg $mYg- FINDGEN,h $o>>- FLTARRi $q>hi $s>hi $u29SHADE6>29SHOWGEO6>29SHOWGRID6>#$w29 MAX_STRETCH6>#i>0>>- BYTSCLMAXMINTOPMj ${29 MAX_STRETCH6>#i29MAX_IMG629MIN_IMG629N_COLORS6- BYTSCLMAXMINTOPMj $j>.{>\)?Y>>>>- TVNORMXSIZEYSIZE$>>,R $YX,S $SR>>>>,YX,>>>>>>-J PLOT CHARSIZECOLORNOERASEPOSITIONXRANGEXSTYLEXTICKLENYSTYLE$29SHADE6>#$i29DEV6j $j29ALT629AZI678- SUN_SHADEj $>j h $h> $ > $>>- BYTARRj $> &$ > $  j ($j>>>>>>>- TVNORMXSIZEYSIZE$>>,R $YX,S $SR>>>>,YX,>>>>>>-J PLOT CHARSIZECOLORNOERASEPOSITIONXRANGEXSTYLEXTICKLENYSTYLE$>>Center Latitude: 29CLAT6>- STRTRIM Center Longitude: C>- STRTRIM>>>>-( XYOUTSALIGNMENTCHARSIZECOLORNORM$> k $3!VERSION9 OS_FAMILY6>q#datek- SPAWN$?333>4Uk>>>- XYOUTSCHARSIZECOLORNORMC$>- DEVICECLOSE$3!P9FONT>07$3!VERSION9 OS_FAMILY6>#win- SET_PLOT$3!VERSION9 OS_FAMILY6MacOS#mac- SET_PLOT$3!VERSION9 OS_FAMILY6>q#x- SET_PLOT$29X6 !X$29Y6 !Y$29Z6 !Z$Created U- PRINT$2>:HOSTNAME6>%2>:HOSTNAME6>&#"$3!VERSION9 OS_FAMILY6>q#lpr U- SPAWN$continue using gridview ...- PRINT"~stretch* $29TOPOBYT629DRAWID629PIXID629XSIZE629YSIZE6=TOPOBYTDRAWIDPIXIDXSIZEYSIZEl $ 3!VERSION9RELEASE6- FLOAT@ff3!D9N_COLORS6>W #29TOP6>updatel>>-BXLOADCTGROUPMODALSILENTUPDATECALLBACKUPDATECBDATAUSE_CURRENTN$3!VERSION9RELEASE6- FLOAT>3!D9N_COLORS6>W#29TOP6>>>-$XLOADCTGROUPMODALSILENTUSE_CURRENTB$3!VERSION9RELEASE6- FLOAT@ 3!VERSION9RELEASE6- FLOAT># 29TOP6>>>-$XLOADCTGROUPMODALSILENTUSE_CURRENTB$3!VERSION9RELEASE6- FLOAT> # 29TOP629 NUM_COLORS6>>>-,XLOADCTGROUPMODALNCOLORSSILENTUSE_CURRENT$#29TOP6>- WIDGET_CONTROLHOURGLASSD$%29PIXID6- WSET$'>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$+29X!X7$-29Y!Y7$/29Z!Z7$129DRAWID6- WSET"~>*)$?29DRAWID6- WSET$A29X6 !X$C29Y6 !Y$E29Z6 !Z$G3!P9COLOR>7$I29 PROFILE_COUNT29 PROFILE_COUNT6>7$K29 IMAGEDRAW6>- WIDGET_CONTROLCLEAR_EVENTS$O29CUR_IMG6mn-PROFILEo $Q29 IMAGEDRAW6>- WIDGET_CONTROLCLEAR_EVENTS$Sm,n,>>>>-& PLOTSCOLORDEVICELINESTYLETHICK$Umn>>-  CONVERT_COORDDEVICETO_DATAp $Wp- SIZE_ $Y>p S $[>>_ >S S $]>p R $_>>_ >R R $c>_ >S q $e>_ >R r $i>S >R  from- PRINT$k>_ >S >_ >R  to- PRINT$s29 GREAT_CIRCLE6>#$$u29TOP6>- WIDGET_CONTROLHOURGLASS$w Calculating great circle profile- PRINT${3!D9NAME6W $z- SET_PLOT$ > ,- DEVICESET_RESOLUTION$>R >S >_ >R >_ >S -CALCDISTs $s km distance- PRINT$t $st#>R >S >>>4>4>>,>>-0MAP_SETCOLORISOTROPICNOBORDERORTHPOSITION$st#>R >S >>>4>4>>,>>-0MAP_SETCOLORISOTROPICLAMBNOBORDERPOSITION$> > - BYTARR $> $>S >R >>-  CONVERT_COORDDATATO_DEVICEu $>_ >S >_ >R >>-  CONVERT_COORDDATATO_DEVICEv $>u >u >v >v mn-PROFFUNCo $>LH $H>a#$mn>>-  CONVERT_COORDDEVICETO_DATAp $p- SIZE_ $>_ >w $s#>wp >wp >>>4>4>>,>>-0MAP_SETCOLORISOTROPICNOBORDERORTHPOSITION$s>#>wp >wp >>>4>4>>,>>-0MAP_SETCOLORISOTROPICLAMBNOBORDERPOSITION$>u >u >v >v mn-PROFFUNCo $mn>>-  CONVERT_COORDDEVICETO_DATAp $p- SIZE_ $>p S $>>_ >S S $>p R $>>_ >R R $ >_ >qS $ >_ >rR $S>>- SMOOTHEDGE_TRUNCATEAS $R>>- SMOOTHEDGE_TRUNCATEAR $W- SET_PLOT$29DRAWID6- WSET$29X6 !X$!29Y6 !Y$#29Z6 !Z$%29ZOOM6>#$'29CLAT629CLON6>>>{>{>|>|,>>>-:MAP_SETCOLORISOTROPICNOBORDERNOERASEORTHPOSITION$/29ZOOM6>#$129CLAT629CLON6>>>{>{>|>|,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>>>-@ MAP_SETCOLORISOTROPICLIMITNOBORDERNOERASEORTHPOSITION$AS- SIZEx $G>x g $Ist#> >&g>wg ($Kst#> >&g>wg ($Mg>#>g $O>x g- FIXy $S- INTARRz $U>- INTARR{ $W>- INTARR| $Y>7z $[>} $]g>~ $_> $a> $o> y>&#$q}S }R >>-  CONVERT_COORDDATATO_DEVICEu $s~S ~R >>-  CONVERT_COORDDATATO_DEVICEv $w y>#qr>>-  CONVERT_COORDDATATO_DEVICEv $y29CUR_IMG6>u >u >v >v mn-PROFFUNC ${- SIZE $}>  $> $>>m z $>>n { $>> | $ y># >>>m z $ y>#!>>>n { $ y>#">>> | $~} $~g>~ $> ($z>7- WHERE- MAX $>z m $>{ n $>| o $mn>>-  CONVERT_COORDDEVICETO_DATAp $p- SIZE_ $>p S $>>_ >S S $>p R $>>_ >R R $>_ >qS $>_ >rR $S,R,>>>- PLOTSCOLORDATATHICK$29 PROF_XLOCS-CONGRID7$29 PROF_YLOCR>%-CONGRID7$2: PROF_XLOC>>_ >p 7$2>&: PROF_YLOC>>_ >p 7$29CLON6-IDL2MAR2 $>S -IDL2MAR2 $>_ >S -IDL2MAR2 $>R  $>_ >R  $29LEFTLON6-IDL2MAR2 $29TOPLON6-IDL2MAR2 $29RIGHTLON6-IDL2MAR2 $29BOTLON6-IDL2MAR2 $29TLB6op29XSIZE6?29YSIZE6>29 PROFILE_COUNT629CLAT629LEFTLAT629TOPLAT629RIGHTLAT629BOTLAT629X629Y629Z629DRAWID6-GRIDPROF$29DRAWID6- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$29ZOOM6>#'$29CLAT629CLON6>>>{>{>|>|,>>>-:MAP_SETCOLORISOTROPICNOBORDERNOERASEORTHPOSITION$29ZOOM6>#($29CLAT629CLON6>>>{>{>|>|,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>>>-@ MAP_SETCOLORISOTROPICLIMITNOBORDERNOERASEORTHPOSITION$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ 29DRAWID6- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$29 DO_PROFILE>7$Done- PRINT"~mdim*0$#29TOP6>- WIDGET_CONTROLHOURGLASSL$%29X6 !X$'29Y6 !Y$)29Z6 !Z$+>  $-Is this a VMDIM image?: (y,n)- PRINT$/- READ$1Pick the VMDIM image file- PRINT$3>>- DIALOG_PICKFILEFILTERPATHREAD $5- STRLEN> #/$7 Reading image- PRINT$9- PRINT$;> $=> $?> $A> $C> $E> $G>a#*$I- GET_LUN$J- OPENR$L- READF$R>L#+$T Enter the image bottom latitude:- PRINT$V- READ$XEnter the image top latitude:- PRINT$Z- READ$\Enter the image left longitude:- PRINT$^- READ$` Enter the image right longitude:- PRINT$b- READ$dEnter the image resolution:- PRINT$f- READ$h- GET_LUN$j- OPENR$p $r $t- BYTARR $v- READU$x- FREE_LUN$z>7#,>F- ROTATE $|-MAR2IDL2 $~-MAR2IDL2 $ #->w $ #.$h $>w $>>29BILINEAR6-F MAP_IMAGE BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINWHOLE_MAP $29MAXVALUE- MAX>7$2:CUR_IMG29MAXVALUE67$29XSIZE629YSIZE6- INTARR $ $29CUR_IMG7$29XSTART7$29YSTART7$29 MAX_STRETCH>7$>3!D9N_COLORS6E $29TOPOBYT29CUR_IMG6E- BYTSCLTOP7$>-LOADCT$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET$- ERASE$29TOPOBYT6- TV$>-MAP_GRIDCOLORG$29RINGS>7$29 DO_CONTOUR>7$29HI_REZ>7$29SHADE>7$29DO_OTHERCONTOUR>7$29LABEL>7$29DEMO6>L#/$- GET_LUN$>M- OPENW$- FREE_LUN$29 CLICKRINGS>7"~zoomin*<$29TOP6>- WIDGET_CONTROLHOURGLASSL$29DRAWID6- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$29XCOORD629YCOORD6>>-  CONVERT_COORDDEVICETO_DATA $29 XZOOMCOORD> ,7$29 YZOOMCOORD> ,7$2>:XCOORD62>:XCOORD6 $2>:XCOORD62>:XCOORD6 $2>:YCOORD62>:YCOORD6 $2>:YCOORD62>:YCOORD6 $ >- FIX>>-  CONVERT_COORDDEVICETO_DATAD $>- FIX>>-  CONVERT_COORDDEVICETO_DATAE $>- FIX>>-  CONVERT_COORDDEVICETO_DATAF $>- FIX>>-  CONVERT_COORDDEVICETO_DATAG $>>>>-  CONVERT_COORDDEVICETO_DATAH $29LEFTLAT>D 7$ 29LEFTLON>D 7$"29TOPLAT>E 7$$29TOPLON>E 7$&29RIGHTLAT>F 7$(29RIGHTLON>F 7$*29BOTLAT>G 7$,29BOTLON>G 7$2>G >E  #1$4>>Flipping!C(image over pole)>>>>-( XYOUTSALIGNMENTCHARSIZECOLORNORM$829LEFTLAT>F 7$:29LEFTLON>F 7$<29TOPLAT>G 7$>29TOPLON>G 7$@29RIGHTLAT>D 7$B29RIGHTLON>D 7$D29BOTLAT>E 7$F29BOTLON>E 7$H>- WAIT$P29CLAT>H 7$R29CLON>H 7$X29CLAT629CLON629LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6, >- STRTRIM $ZNaN- WHERE $\> 0#:$b29CLAT_WIN629CLAT6- WIDGET_CONTROLSET_VALUEG$d29CLON_WIN629CLON6-IDL2MAR2- WIDGET_CONTROLSET_VALUEG$h29ZOOM>7$j29DRAWID6- WSET$n29CLAT629CLON6>>>{>{>|>|,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>>-6MAP_SETGRIDISOTROPICLIMITNOBORDERORTHPOSITION$z29SHADE6>29SHOWGEO6>#4$|2>:HOSTNAME6>%2>:HOSTNAME6>&#2>-RLOADCT"3>-RLOADCT$29SHADE>7$29SHOWGEO>7$29X!X7$29Y!Y7$29Z!Z7$>}- PRINT$>~ $29MOLAGRID6>29BILINEAR6>29LONMIN629LONMAX629LATMIN629LATMAX6-N MAP_IMAGE BILINEARCOMPRESSLATMAXLATMINLONMAXLONMINMISSINGWHOLE_MAP $29MIN_ZOOM- MIN7$- WHERE $> >0#5>V0 $29MAX_ZOOM- MAX7$29MAXVALUE- MAX>7$29XSIZE629YSIZE6- FLTARR $>V0 $ $29CUR_IMG7$29XSTART7$29YSTART7$29 MAX_STRETCH6>#629TOPOBYT29CUR_IMG6>0>>- BYTSCLMAXMINTOPI7$>3!D9N_COLORS6E $29 MAX_STRETCH6>#729TOPOBYT29CUR_IMG629MAX_IMG629MIN_IMG6E- BYTSCLMAXMINTOPI7$29 ZOOM_COUNT61#829 ZOOM_COUNT>7$229 ZOOM_COUNT6:ZOOM_TBL29CLAT629CLON629LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6, 7$29 ZOOM_COUNT29 ZOOM_COUNT6>7$- ERASE$29TOPOBYT6- TV$>-MAP_GRIDCOLOR$29RINGS>7$29 CLICKRINGS>7$29 DO_CONTOUR>7$29HI_REZ>7$29SHADE>7$29SHOWGEO>7$29SHOWGRID>7$29DO_OTHERCONTOUR>7$29LABEL>7$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$ 29X!X7$ 29Y!Y7$29Z!Z7$29DRAWID6- WSET$29DEMO6>L#9$- GET_LUN$>M- OPENW$- FREE_LUN$29 CLICKRINGS>7";$"!!Zoom box edges must be on the map- PRINT"~zoomout*=$029TOP6>- WIDGET_CONTROLHOURGLASSD$229DRAWID6- WSET$429X6 !X$629Y6 !Y$829Z6 !Z"~ grid_info*>$F MOLA grid- PRINT$H29MOLAGRID6- HELP"~ plotrings*@$T29DRAWID6- WSET$V29X6 !X$X29Y6 !Y$Z29Z6 !Z$\29RINGFILE>>Select Ring File29RINGFILE6- DIALOG_PICKFILEFILEFILTERREADTITLER7$`29RINGFILE6- STRLEN> #?$b29TOP6>- WIDGET_CONTROLHOURGLASSD$dCalculating ring locations ..."- PRINT$f29RINGFILE6-MAPRNGF^ $l^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$p29PIXID6- WSET$r>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$v29X!X7$x29Y!Y7$z29Z!Z7$|29DRAWID6- WSET$29RINGS>7"~ clickring*J$29 MOUSEBUTTON>7$29DRAWID6- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$Click ring center- PRINT$>- CURSORWAIT$>>>- PLOTSCOLORPSYMTHICK$>- WAIT$-IDL2MAR2 $Click ring edge- PRINT$>- CURSORWAIT$-IDL2MAR2 $-CALCDIST $>w $-CLIKRING^ $^29 NUM_RINGS6^29 RINGARRAY6>>-RINGPLOTTHICKP$^29 NUM_RINGS6^29 RINGARRAY6>>-RINGPLOTTHICKP$(F6.2)- STRINGFORMAT- FLOAT $(F7.2)- STRINGFORMAT- FLOAT $(F9.2)- STRINGFORMAT- FLOAT $ Center Lat = - STRING- PRINT$ Center Lon = - STRING- PRINT$ Diameter = - STRING km- PRINT$>0 $29DEMO6>L#F$- GET_LUN$29 RINGSAVEFILE6>- OPENWAPPENDERRORH$- FREE_LUN$>#I$29 RINGSAVEFILE629 THICKNESS629XSIZE6>29YSIZE6>-RINGPOP= $29 RINGSAVEFILE=29 RINGSAVEFILE67$>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$>>>- PLOTSCOLORPSYMTHICK$^29 NUM_RINGS6^29 RINGARRAY6>>-RINGPLOTTHICKP$=29ANSWER6>#I$29 CLICKRINGS>7$29 THICKNESS=29THICK67$=29CLAT6 $=29CLON6 $=29DIAM6 $=29COMMENT6 $- GET_LUN$>M>- OPENWAPPENDERRORH$--(I4," ",F8.3," ", F8.3," ", F10.3," ", A)29 THICKNESS6>- STRMID- PRINTFFORMAT$- FREE_LUN$- GET_LUN$29 RINGSAVEFILE6>- OPENWAPPENDERROR$>G29 THICKNESS6>>H- STRMID- PRINTFFORMAT$- FREE_LUN$>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$>>>- PLOTSCOLORPSYMTHICK$^29 NUM_RINGS6^29 RINGARRAY6>29 THICKNESS6-RINGPLOTTHICKP$ 29 IMAGEDRAW6>- WIDGET_CONTROLCLEAR_EVENTS$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET"~ fitcircle*M$-29DRAWID6- WSET$/29X6 !X$129Y6 !Y$329Z6 !Z$5..You need to click on three edges of the circle- PRINT$7Click on the first edge- PRINT$9- CURSOR$;-IDL2MAR2 $=- PRINT$?>- WAIT$AClick on the second edge- PRINT$C- CURSOR$E-IDL2MAR2 $G- PRINT$I>- WAIT$KClick on the third edge- PRINT$M- CURSOR$O-IDL2MAR2 $Q- PRINT$S>- WAIT$]-IDL2MAR2 $_>A- PRINT$a- CURSOR$c-IDL2MAR2 $e-CALCDIST $g>w $i-CLIKRING^ $o^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$s29PIXID6- WSET$u>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$y29X!X7${29Y!Y7$}29Z!Z7$29DRAWID6- WSET$29 CLICKRINGS>7$>B>- STRTRIM- PRINT$>C>- STRTRIM- PRINT$>D>- STRTRIM>E- PRINT$>0 $29DEMO6>L#L$- GET_LUN$29 RINGSAVEFILE6>- OPENWAPPENDERRORH$>#K$ 2- PRINTF$- FREE_LUN"~ interpolate*P$29BILINEAR6 $>#N$29BILINEAR>7$29 INTERPBUT6Turn Interpolation Off- WIDGET_CONTROLSET_VALUEE$>#O$29BILINEAR>7$29 INTERPBUT6Turn Interpolation On- WIDGET_CONTROLSET_VALUEE"~ great_circle*S$29 GREAT_CIRCLE6 $>#Q$29 GREAT_CIRCLE>7$29 GREAT_CIRCBUT6Don't Calculate Great Circles- WIDGET_CONTROLSET_VALUEE$>#R$29 GREAT_CIRCLE>7$29 GREAT_CIRCBUT6Calculate Great Circles- WIDGET_CONTROLSET_VALUEE"~ reset_colors*Y$29TOP6>- WIDGET_CONTROLHOURGLASSE$2>:HOSTNAME6>%2>:HOSTNAME6>&#T>-RLOADCT"U>-RLOADCT$29TOPOBYT29CUR_IMG6>0>>- BYTSCLMAXMINTOPE7$29TOPOBYT6- TV$29 CLICKRINGS6>#V$>M-MAPRNGF^ $^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$29RINGS6>#W$29RINGFILE6-MAPRNGF^ $^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$ 29DRAWID6- WSET$ 29 MAX_STRETCH>7$29 DO_CONTOUR>7$29DO_OTHERCONTOUR>7$29SHADE>7$29SHOWGEO6>#X29SHOWGRID>7$29LABEL>7"~ max_stretch*`$#29TOP6>- WIDGET_CONTROLHOURGLASSE$'2>:HOSTNAME6>%2>:HOSTNAME6>&#Z/opal/roark/mars/topomola.col "[ topomola.col $-- GET_LUN$/- OPENR$1> 3 $3>W- INTARR $5>W- INTARR $7>W- INTARR $93- READF$;(16I4)- READFFORMAT$=3- READF$?>\- READFFORMAT$A3- READF$C>\- READFFORMAT$E>3!D9N_COLORS6E $GE-CONGRID $IE-CONGRID $KE-CONGRID $M- TVLCT$O- FREE_LUN$S29MIN_IMG29MIN_ZOOM67$U29MAX_IMG29MAX_ZOOM67$Y>3!D9N_COLORS6E $[29TOPOBYT29CUR_IMG629MAX_IMG629MIN_IMG6E- BYTSCLMAXMINTOPE7$_29TOPOBYT6- TV$a29 CLICKRINGS6>#]$c>M-MAPRNGF^ $i^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT$m29RINGS6>#^$o29RINGFILE6-MAPRNGF^ $u^29 NUM_RINGS6^29 RINGARRAY6>-RINGPLOT${29PIXID6- WSET$}>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET$29 MAX_STRETCH>7$29 DO_CONTOUR>7$29DO_OTHERCONTOUR>7$29SHADE>7$29SHOWGEO6>#_29SHOWGRID>7$29LABEL>7"~contour*g$>g $29DRAWID6- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$29MIN_ZOOM6>0 $- FIX $>#a> $>0 $29MAX_ZOOM6>0 $- FIX $>#b> $>0 $29XSIZE629YSIZE629MIN_ZOOM629MAX_ZOOM629 CLABEL_FACTOR629TLB6-POP_CONT $ 29BUTNAME6>3#f$29CONTOUR_INTERVAL 29INTERVAL67$29 MIN_RANGE 29 MIN_RANGE67$29 MAX_RANGE 29 MAX_RANGE67$29 CLABEL_FACTOR 29 CLABEL_FACTOR67$29 CLABEL_FACTOR6>4#c29 CLABEL_FACTOR>7$29TOP6>- WIDGET_CONTROLHOURGLASSE$29CONTOUR_INTERVAL629 CLABEL_FACTOR6! $29 MIN_RANGE629 CLABEL_FACTOR6" $29 MAX_RANGE629 CLABEL_FACTOR6# $"$ $>60% $29CUR_IMG629 CLABEL_FACTOR6& $>7>7,>7>7,>>>>,>29XSIZE6>,>29YSIZE6>,>>>-8 PLOTNOERASEPOSITIONXRANGEXSTYLEYRANGEYSTYLEp$>829CONTOUR_INTERVAL6>- STRTRIM- PRINT$%##e$ $!>:- FINDGEN,' $ '#"( $ (-UNIQ) $)' * $&*>>>>>;>0>29MAXVALUE629 CLABEL_FACTOR6-T CONTOUR C_CHARSIZEC_COLORC_THICKFOLLOWFONTLEVELSMAX_VALUENOERASEOVERPLOT$'- MAX% $%!$ "d$!29X6 !X$#29Y6 !Y$%29Z6 !Z$+29PIXID6- WSET$->>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$529DRAWID6- WSET$729 DO_CONTOUR>7$929DO_OTHERCONTOUR>7$;>=- PRINT$?>?- PRINT"~ show_grid*j$K29DRAWID6- WSET$M29X6 !X$O29Y6 !Y$Q29Z6 !Z$S29ZOOM6>#h$U29CLAT629CLON6>>>{>{>|>|,>>>-:MAP_SETCOLORISOTROPICNOBORDERNOERASEORTHPOSITIONM$]29ZOOM6>#i$_29CLAT629CLON6>>>{>{>|>|,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>>>-@ MAP_SETCOLORISOTROPICLIMITNOBORDERNOERASEORTHPOSITION$k29TOP6>- WIDGET_CONTROLHOURGLASSL$m29 LABEL_GRID>7$o>>-MMAPGRIDCOLORLABEL$s29PIXID6- WSET$u>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$y29X!X7${29Y!Y7$}29Z!Z7$29DRAWID6- WSET"~ show_grid2*m$29DRAWID6- WSET$29X6 !X$29Y6 !Y$29Z6 !Z$29ZOOM6>#k$29CLAT629CLON6>>>{>{>|>|,>>>-:MAP_SETCOLORISOTROPICNOBORDERNOERASEORTHPOSITIONS$29ZOOM6>#l$29CLAT629CLON6>>>{>{>|>|,29LEFTLAT629LEFTLON629TOPLAT629TOPLON629RIGHTLAT629RIGHTLON629BOTLAT629BOTLON6,>>>-@ MAP_SETCOLORISOTROPICLIMITNOBORDERNOERASEORTHPOSITION$29TOP6>- WIDGET_CONTROLHOURGLASSL$29 LABEL_GRID>7$>-MMAPGRIDCOLORG$29PIXID6- WSET$>>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$29X!X7$29Y!Y7$29Z!Z7$29DRAWID6- WSET"~none*n"~draw*}$29TYPE6>*t$29PRESS6>*p$29X6 $29Y6 $29CUR_IMG6!  $29 MOUSEBUTTON7$29DRAWID6- WSET$>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$29BX29EX29X6%77$29BY29EY29Y6%77"s>*q$29 MOUSEBUTTON7"s>*r$29 MOUSEBUTTON7"s+"|>*u$29 MOUSEBUTTON7$29EX29X67$29EY29Y67"|>*y$ 29 MOUSEBUTTON6>o#v$29DRAWID6- WSET$>>29XSIZE629YSIZE6>>29PIXID6,- DEVICECOPY$29XCOORD29BX629X629X629BX629BX6,7$29YCOORD29BY629BY629Y629Y629BY6,7$29XCOORD629YCOORD6>>>>-& PLOTSCOLORDEVICELINESTYLETHICKR$%29DRAWID6- WSET$'29X6 !X$)29Y6 !Y$+29Z6 !Z$-SR>>- CURSORDATANOWAIT$1SR>>-  CONVERT_COORDDATATO_DEVICET $3SN- STRPOS= $5=>0#w$729 LAT_TRACK6R- WIDGET_CONTROLSET_VALUEW$929 LON_TRACK6S-IDL2MAR2- WIDGET_CONTROLSET_VALUEW$;> >> >#w$=29 ELEV_TRACK62> > :CUR_IMG6- WIDGET_CONTROLSET_VALUEW$?29SHOWGEO6>#w29 UNIT_TRACK622> > :GEO_IMG6:GEO_UNIT6- WIDGET_CONTROLSET_VALUEW$E=>0#x$G29 LAT_TRACK6>4- WIDGET_CONTROLSET_VALUEW$I29 LON_TRACK6>4- WIDGET_CONTROLSET_VALUEW$K29 ELEV_TRACK6>- WIDGET_CONTROLSET_VALUEW$M29 UNIT_TRACK6> - WIDGET_CONTROLSET_VALUEW"|>*z"|>*{"|+"~+$m>-  TAG_NAMESSTRUCTURE_NAME>#$y29TOP6>-  WIDGET_INFOVALIDU#29TOP6>- WIDGET_CONTROLNO_COPYSET_UVALUEN$;$<8 cMMAPGRID,YY?BOX_AXESCHARSIZE CLIP_TEXTCOLOR FILL_HORIZON GLINESTYLE GLINETHICKHORIZON INCREMENTLABELLATALIGNLATDELLATLABLATNAMESLATSLONALIGNLONDELLONLABLONNAMESLONSNO_GRID ORIENTATIONT3D WHOLE_MAPZVALUE_EXTRABOX_AXES:CHARSIZE CLIP_TEXTCOLOR4 FILL_HORIZONH GLINESTYLE GLINETHICKQHORIZON3 INCREMENT.LABELM LATALIGN# LATDEL) LATLAB9 LATNAMES LATS2LONALIGN$LONDEL-LONLAB"LONNAMESLONS1NO_GRID/ ORIENTATION'T3DP WHOLE_MAPCZVALUEEXTRANLABEL HAVE_LONS HAVE_LATSNOCLIPLATMAX LATMINNLONMINI LONMAX!!LATD "LOND#IPROJ&$IS_CYLK%STEPS&LENF'LATI0(DELR)LONI*N_LONS+ LONGITUDES+,INDEX%-N_LATS,. LATITUDES / LON_LABELJ0 LAT_LABEL(1IO2COUNT;3ID_18074MCOUNTL5ID_M180 6N7 LATLONTXT8 BOX_THICK9DC*:XWX;YWY<BDELD=BCOLOR>>XPV?YPW@YCHARAAXCHAR@BBOXPOSCEDLONGELON2FFMTGLONNAMEHMAP_POINT_VALID6IJ JMMAPGRID_SOLVE8KLAT LLATNAMEMIAXIS5NVUOGOODPDYEQSUBSRVTEXTSV0TTXP0<UYP0=VXYCHARBWZX|$$-  KEYWORD_SET $ -  N_ELEMENTS#> - ABS- FIX "-  KEYWORD_SET $-  N_ELEMENTS>  $-  N_ELEMENTS>  $-  N_ELEMENTS>#> $-  N_ELEMENTS>#> "-  KEYWORD_SET $-  N_ELEMENTS#T3D-MAP_STRUCT_APPEND$-  N_ELEMENTS#COLOR-MAP_STRUCT_APPEND$-  N_ELEMENTS># > $ LINESTYLE-MAP_STRUCT_APPEND$-  N_ELEMENTS# THICK-MAP_STRUCT_APPEND$-  N_ELEMENTS# CHARSIZE-MAP_STRUCT_APPEND$-  N_ELEMENTS#  ORIENTATION>0-MAP_STRUCT_APPEND$3!X9TYPE6#??mmapgrid---Current ploting device must have mapping coordinates- MESSAGE$ -  N_ELEMENTS> >#;;mmapgrid---The LATNAMES keyword MUST be used in conjuction with the LATS keyword.- MESSAGE$-  N_ELEMENTS> >#;;mmapgrid---The LONNAMES keyword MUST be used in conjuction with the LONS keyword.- MESSAGE$#- MINMAXI "3!MAP>:LL_BOX63!MAP:LL_BOX6#$3!MAP>:LL_BOX6 $3!MAP>:LL_BOX6 "$Z0 $> $#$>  $-  N_ELEMENTS> ! "$3!MAP>:LL_BOX63!MAP> :LL_BOX6B>0 #$3!MAP>:LL_BOX6 $3!MAP> :LL_BOX6! "$0 $>! $! #!C! $ -  N_ELEMENTS>#$- MMAPGRID_INCR $>" "$ " $-  N_ELEMENTS>#$! - MMAPGRID_INCR $># " $# $- ABS@ ">#!$- FLOOR- FLOAT $- CEIL $! - ABS #>#"$ - FLOOR- FLOAT $!- CEIL! $ -  N_ELEMENTS>## !> $-  N_ELEMENTS>#$> $  -  N_ELEMENTS>#&? $ -  N_ELEMENTS>#'>% $ $%>- MAP_PROJ_INFOCURRENTCYLINDRICAL$ -  KEYWORD_SET#(& "+A & $ - FLOAT&- FLOAT?- LONG' $ - FLOAT'>,'- FINDGEN( $ %3!MAP9P0LAT6>#.$ < ) $ >( >0#->)>( $ '>( >#.'>>)( $ >)! >*& $ ! &>' $ '- FINDGEN& * $ '>* !#/*!,* $ -  N_ELEMENTS>#0$ >! - FIX+ $   +- FINDGEN, "2$ !-  N_ELEMENTS>#1$ ">! - FIX+ $ #> +- FINDGEN+>, $ $,> - WHERE- $ %,>>- 0- SHIFT, "2$ '-  N_ELEMENTS+ $ (, $ .-  N_ELEMENTS>#3$ /> - FIX. $ 0 .- FINDGEN / "5$ 1-  N_ELEMENTS>#4$ 2> - FIX. $ 3> .- FINDGEN.> / $ 4/> - WHERE- $ 5/>>- 0- SHIFT/ "5$ 7-  N_ELEMENTS. $ 8/ $ >+- BYTARR0 $ ?.- BYTARR1 $ @>#A$ A-  N_ELEMENTS>#8$ B,> - WHERE- $ C>- 2+>'72>0 )6";$ E>2+>':2>0 )9$ H-  N_ELEMENTS>#>$ L/> 3- WHERE- $ M>- 2.>'=2>1 )<"A$ O>2.>'@2>1 )?$ X%#D$ Y,>3- WHERE4 $ Z,>05- WHERE6 $ [3> 5> #D$ \-  N_ELEMENTS>#C$ ]> >0#B4>0 "D$ ^6>0 $ b+.7 $ c7>- STRARR8 $ e-  N_ELEMENTS>#I$ f=9 $ g3!D9 Y_CH_SIZE6: $ h-  N_ELEMENTS#E:: $ i3!X9WINDOW63!D9X_SIZE6; $ j3!Y9WINDOW63!D9Y_SIZE6< $ k93!D9Y_PX_CM6= $ m-  N_ELEMENTS>#F3!P9COLOR6> "G> $ p>; >==>,? $ q>< >>==,@ $ s>>>>>,; >>>>>,< >>- PLOTSCOLORDEVICEI$ t>>>>>,; =0===0=0,>>>>>,< =0=0===0,>>- PLOTSCOLORDEVICEI$ w>< =:>< =:@,A $ x>; =:>H>; =:>H,B $ y3!VALUES9F_NAN67>>-  REPLICATEC "J$ z>9 $ }-  KEYWORD_SET#KD- MAP_HORIZON0$ ~-  KEYWORD_SET#LD>-  MAP_HORIZON0FILLO$ >2+>&c$ 2, E $ E>0#OEhF "QE> #PE>NF "QEF $ %#V$ E3!MAP9P0LON6) $ )> #S)>) "R$ )>0#U)>) "T$ )- ABS>#V$ E7'Ŭ>)>>E $ >#WE(>- PLOTS0NOCLIPE$ FF- LONG#Y(f7.2)G "Z(i4)G $ 20 #`$ 2-  N_ELEMENTS#^$ 2 - SIZE-REVERSE>! #\2 H "]2 G- STRINGFORMAT>- STRTRIMH "_$ FG- STRINGFORMAT>- STRTRIMH $ 2>H8 $ 9>>EI #`EH>-MARS_LATLONSTR- XYOUTS0ALIGNMENTNOCLIPZ$ 9>#c>J>&b2J>>; J< ,>; J< ,>EK C (a(M$ >2.>&o$ 2/ L $ LL- LONG#e>XG "f>YG $ 21 #k$ 2 -  N_ELEMENTS#i$ 2 - SIZE-REVERSE>! >[#g2 M "h2 G- STRINGFORMAT>- STRTRIMM "j$ LG- STRINGFORMAT>- STRTRIMM $ 2>M8 $ 9>> LI #k LM>-MARS_LATLONSTR - XYOUTS0ALIGNMENTNOCLIPZ$ >L- ABS>#l*L>- PLOTS0NOCLIPM$ 9>#o>J>&n2J>J; >< ,J; >< ,>LK C (m(d$ 9>#|>N>&{>J>&z$ JNC O $ O- FINITE3- WHEREP $ N>Q $ 3> #z$ PO O $ O- SORTR $ RO O $ PN8 R! S $ >; >< ,N! T $ ?J>; >; =U $ @J>< >< =V $ JB JA ,W $ >23>&w$ 2O X $ N>#sTXXT,U "tTTXX,V $ 2>#uUV>>- POLYFILLCOLORDEVICEN$ NXW $ 2S - STRLEN> #v>W >W 2S Q-MARS_LATLONSTRQ>>J>%>>-. XYOUTS0ALIGNCLIPDEVICEORIENTATIONZ$ XT (r$ N>#xT>; >; T,U "yTT>< >< ,V $ 2>#zUV>>- POLYFILLCOLORDEVICE(q(p$ <8 m POP_3D_EVENT  EVENTNAMEPINFOTESTBUTNAME DATADEVALT AZICOLOR $$-  TAG_NAMESSTRUCTURE_NAME $ WIDGET_BUTTON#$29TOP6>- WIDGET_CONTROLGET_UVALUENO_COPY$29ID6- WIDGET_CONTROLGET_VALUEE$CANCEL*$29TOP6>- WIDGET_CONTROLDESTROYE$cancel $>==DEVALTAZICOLORBUTNAME $29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUE"ACCEPT*$29DEV6- WIDGET_CONTROLGET_VALUEE$29ALT6- WIDGET_CONTROLGET_VALUEE$29AZI6- WIDGET_CONTROLGET_VALUEE$29COLOR6 - WIDGET_CONTROLGET_VALUEE$ - PRINT$accept $ =DEVALTAZICOLORBUTNAME $29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUE$29TOP6>- WIDGET_CONTROLDESTROY"+$<8 xDPOP_CONT_EVENT  EVENTNAMEPINFOTESTBUTNAME DATAINTERVAL  MIN_RANGE MAX_RANGE CLABEL_FACTOR $-$/-  TAG_NAMESSTRUCTURE_NAME $0 WIDGET_BUTTON#$229TOP6>- WIDGET_CONTROLGET_UVALUENO_COPYU$329ID6- WIDGET_CONTROLGET_VALUEE$5CANCEL*$729TOP6>- WIDGET_CONTROLDESTROYE$8cancel $9>=?=INTERVAL MIN_RANGE MAX_RANGE CLABEL_FACTORBUTNAME $:29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUEU"ACCEPT*$>29INTERVAL6- WIDGET_CONTROLGET_VALUEE$?29 MIN_RANGE6- WIDGET_CONTROLGET_VALUEE$@29 MAX_RANGE6- WIDGET_CONTROLGET_VALUEE$A29 CLABEL_FACTOR6 - WIDGET_CONTROLGET_VALUEE$Baccept $C =INTERVAL MIN_RANGE MAX_RANGE CLABEL_FACTORBUTNAME $D29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUEU$E29TOP6>- WIDGET_CONTROLDESTROY"+$I<8 POP_EGDR_EVENT  EVENT NAMEPINFO TESTBUTNAMEDATAMINLONMAXLON MINLATMAXLAT SPACING $w$y-  TAG_NAMESSTRUCTURE_NAME $z WIDGET_BUTTON#$|29TOP6>- WIDGET_CONTROLGET_UVALUENO_COPYU$}29ID6- WIDGET_CONTROLGET_VALUEE$CANCEL*$29TOP6>- WIDGET_CONTROLDESTROYE$cancel $>>>>=MINLONMAXLONMINLATMAXLATSPACINGBUTNAME $29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUEU"ACCEPT*$29MINLON6- WIDGET_CONTROLGET_VALUEE$29MAXLON6- WIDGET_CONTROLGET_VALUEE$29MINLAT6- WIDGET_CONTROLGET_VALUEE$29MAXLAT6 - WIDGET_CONTROLGET_VALUEE$29SPACING6 - WIDGET_CONTROLGET_VALUEE$accept $  =MINLONMAXLONMINLATMAXLATSPACINGBUTNAME $29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUEU$29TOP6>- WIDGET_CONTROLDESTROY"+$<8  POP_IMG_EVENT  EVENT NAMEPINFO TESTBUTNAMEDATAMINLONMAXLON MINLATMAXLAT SPACING $E$G-  TAG_NAMESSTRUCTURE_NAME $H WIDGET_BUTTON#$J29TOP6>- WIDGET_CONTROLGET_UVALUENO_COPYU$K29ID6- WIDGET_CONTROLGET_VALUEE$MCANCEL*$O29TOP6>- WIDGET_CONTROLDESTROYE$Pcancel $Q>>>>=MINLONMAXLONMINLATMAXLATSPACINGBUTNAME $R29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUEU"ACCEPT*$V29MINLON6- WIDGET_CONTROLGET_VALUEE$W29MAXLON6- WIDGET_CONTROLGET_VALUEE$X29MINLAT6- WIDGET_CONTROLGET_VALUEE$Y29MAXLAT6 - WIDGET_CONTROLGET_VALUEE$Z29SPACING6 - WIDGET_CONTROLGET_VALUEE$[accept $\  =MINLONMAXLONMINLATMAXLATSPACINGBUTNAME $]29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUEU$^29TOP6>- WIDGET_CONTROLDESTROY"+$b<8 RINGPLOT THICKNUMRINGSBLINESTHICKJ THICKNESSI$$)&$*>  $+-  N_ELEMENTS># $,>#$->Y# $.' $/ > ,> > ,>>- PLOTSCLIPCOLORDATATHICK)$3Z #$4>  $5>>' $6 > ,> > ,>>>-* PLOTSCLIPCOLORDATALINESTYLETHICKO) $:>#$;- ABS $<>>>'$= > ,> > ,>>>-* PLOTSCLIPCOLORDATALINESTYLETHICKO)($F<8 $ RINGPOP_EVENT  EVENTINFOTESTPATH RINGSAVEFILEANSWERTHICKCLAT CLON DIAM COMMENT DATA $T$U29TOP6- WIDGET_CONTROLGET_UVALUENO_COPYA$V29ID6- WIDGET_CONTROLGET_UVALUE$W ..choose file *$Y choose file- PRINT$Z>*.datSelect a ring data file- DIALOG_PICKFILEFILTERGET_PATHTITLEWRITE $\- STRTRIM#$]29 RINGSAVEFILE7$^29 FILE_LABEL6- WIDGET_CONTROLSET_VALUE" Yes *$b> $c29 THICK_FIELD6- WIDGET_CONTROLGET_VALUE$d29 CLAT_FIELD6- WIDGET_CONTROLGET_VALUE$e29 CLON_FIELD6- WIDGET_CONTROLGET_VALUE$f29 DIAM_FIELD6 - WIDGET_CONTROLGET_VALUE$g29 COMMENT_FIELD6 - WIDGET_CONTROLGET_VALUE$h29 FILE_LABEL6- WIDGET_CONTROLGET_VALUE$i .ringfile- OPENW$j>- PRINTF$k>- CLOSE$l>- STRTRIM $m>- STRTRIM $n>- STRTRIM $o >- STRTRIM $p >- STRTRIM $r  =ANSWER RINGSAVEFILETHICKCLATCLONDIAMCOMMENT $t29PTR6 >- WIDGET_CONTROLNO_COPYSET_UVALUEA$u29TOP6>- WIDGET_CONTROLDESTROY" No *$x $y29 RINGSAVEFILE6=ANSWER RINGSAVEFILE $z29PTR6 >- WIDGET_CONTROLNO_COPSET_UVALUE${29TOP6>- WIDGET_CONTROLDESTROYS"+$29TOP6>-  WIDGET_INFOVALIDR# 29TOP6>- WIDGET_CONTROLNO_COPYSET_UVALUEA$<8 RLOADCT COLORSINFILE R_ORIGG_ORIGB_ORIGR_CURRG_CURRB_CURRU Z1 Z2 Z3REDGREENBLUECOLOR $?$G- GET_LUN$H- OPENR$J- INTARR $K>- INTARR $L>- INTARR $N>- INTARR $O>- INTARR $P>- INTARR $R  $T- READF$U(16I4)- READFFORMAT$W- READF$X>- READFFORMAT$Z- READF$[>- READFFORMAT$] $^ $_ $a- TVLCT$c $d $e $g- FREE_LUN$i<8 UPDATEDATADATA$%$&29DRAWID6- WSET$'29TOPOBYT6- TV$(29PIXID6- WSET$)>29XSIZE629YSIZE6>>29DRAWID6,- DEVICECOPY$+<8  YNPOP_EVENT\EVENTINFOTESTANSWER$!$"29TOP6- WIDGET_CONTROLGET_UVALUENO_COPY$#29ID6- WIDGET_CONTROLGET_VALUEE$$ Yes *$&> $'29PTR6- WIDGET_CONTROLSET_UVALUE$(29TOP6>- WIDGET_CONTROLDESTROYU" No *$+ $,29PTR6>- WIDGET_CONTROLNO_COPYSET_UVALUE$-29TOP6>- WIDGET_CONTROLDESTROY"+$0<8 CALCDISTLALAALOBLABLOALA1ALO1BLA1BLO1 PI PI4 DTOR DR C1 DIST $u$w $w $w $w $z@I- DOUBLE ${?I $|<4 $}@f $  $  $  $  $- COS- COS- COS- SIN- SIN- ACOS $Bl  - DOUBLE $ ;$<8 ʘCLIKRING CENTLATCENTLONEDGELATEDGELON RADIUS DIAMETER OUTPUT_TEXT RING_COUNTUINFILE RINGARRAY J FLAG CLON LON_LAT0ARC_DIST INITPOINT I MLONANGLENEWPOINT NUM_RINGS RING_INFO $$-CALCDIST $@ $ Diameter = - STRTRIM- PRINT$ - PRINT$n $ $3!P9POSITION>>>,7$y#$- GET_LUN$ basinout.dat- OPENW$ - PRINTF$>- FLTARR $>0 $> $>#$>- PRINTF$Ring - STRING- PRINTF$Center Latitude = - STRING- PRINTF$Center Longitude = - STRING- PRINTF$>- STRING km- PRINTF$>- PRINTF$ Lat W_Lon E_Lon- PRINTF$C4# ?0 $> # C> 0 $ , $ER $>>-LL_ARC_DISTANCEDEGREESE $ $ > $>   $>  $>  $ >  $ >  $>#$> - IDL2MARS2 $ (3(F9.2))> > - PRINTFFORMAT$> > '$>-LL_ARC_DISTANCEDEGREESE $  >  $ > $  >  $ > $>#$> - IDL2MARS2 $>> > - PRINTFFORMAT$- FREE_LUN)$> $'> $* = NUM_RINGS RINGARRAY $,;$0<8 ՐDOT HELPS0 AZIALTHLP NPSNXNY SZNZ NL LX LY LZ RW$$- N_PARAMS $>-  KEYWORD_SET#$<< Used by SUN_SHADE for dot prod. of surf. normal & sun vect.- PRINT$ r = dot(s,[azi,alt])- PRINT$88 s = Surface array to be shaded. in- PRINT$88 azi = Light azimuth (deg, def = 135). in- PRINT$88 alt = Light altitude (deg, def = 60). in- PRINT$99 r = dot products: surface normals and sun vector. out- PRINT$0;$#Bp $#C $- FLOAT $>>- SHIFT $>>- SHIFT $>>>  $>>>  $- SIZE $> > - FLTARR? $>> >- SQRT $  $  $   $!RADEG- SIN!RADEG- COS $!RADEG- COS!RADEG- COS $!RADEG- SIN $     $- WHERE $> >0#> $;$<8 `IDL2MAR2TMPLONLONAB$$ $ - WHERE $C40- WHERE $> >#h - ABS $> ># - ABS $;$!<8 MAPRNGF |INFILE OUTPUT_TEXT RING_COUNTTXTUCOUNT UU RINGARRAYJFLAG CENTLAT CENTLON DIAMETER CLON RADIUSLON_LAT0ARC_DIST  INITPOINT IMLONANGLENEWPOINT NUM_RINGS RING_INFO$$n $ $3!P9POSITION>>>,7$- PRINT$  $- GET_LUN$- OPENR$> $- EOF1#$- READF$> "$- FREE_LUN$- STRING rings- PRINT$- GET_LUN$- OPENR$y#$- GET_LUN$ basinout.dat- OPENW$- PRINTF$- FLTARR $>0 $- EOF1#$    - READF$># $>- PRINTF$Ring - STRING- PRINTF$Center Latitude =  - STRING- PRINTF$Center Longitude =  - STRING- PRINTF$ Diameter =  - STRING km- PRINTF$>- PRINTF$ Lat W_Lon E_Lon- PRINTF$ C4#  ?0 $ > # C> 0 $ - FLOAT@ $  , $ER $>>-LL_ARC_DISTANCEDEGREES $ $> $>  $>  $  $>  $>  $>#$> - IDL2MARS2 $ (3(F9.2))> > - PRINTFFORMAT$> > '$>-LL_ARC_DISTANCEDEGREES $>  $> $>  $> $>#$> - IDL2MARS2 $>> > - PRINTFFORMAT)$ > "$ - FREE_LUN$>#- FREE_LUN$> $= NUM_RINGS RINGARRAY $;$<8 @MAR2IDL2LONTMPABCD$#$% $-C4C- WHERE $.>- WHERE $/- WHERE $0> - WHERE $1 ># >- ABS $2> ># ?0 $3> >#> $4> >#>  $7;$><8 0MARS_LATLONSTR0INSTRDYVALOUTSTR $$- READS$#$#$>- STRLEN>- STRMID S "$ N " $>#$>- STRLEN>- STRMID W " $- LONG- FLOAT#h- FIX- STRING $- LONG- FLOAT# C- FLOAT(f7.2)- STRINGFORMAT $> $;$<8  MMAPGRID_INCR SPANIPOWT INCREMENTSI $E$I#B4;$J> $KC $L#$L  $L "$M?@@@A ApA>, $N> $O > # > "$P >;$Q<8 MMAP_GRID_SOLVEC0C1 ICOORD GWANT P0P1TNTRYDTRYITRY DEL LOW HIGH TOL CP$T$_>-  CONVERT_COORDDEVICETO_DATAE!  $`>>-  CONVERT_COORDDEVICETO_DATAE!  $b- FINITE- FINITE>#3!VALUES9F_NAN6;$c#3!VALUES9F_NAN6;$d $f $g- FLOAT $h> $j? #$k $l - ABS- TOTAL# 3!VALUES9F_NAN6;$m ># $n $o $p ># 3!VALUES9F_NAN6;$s $t-MMAP_GRID_SOLVE $u- FINITE# ;"$w- FINITE># 3!VALUES9F_NAN6;$x# 3!VALUES9F_NAN6;$y $z > "$~> $> $7'Ŭ $ $  - ABS #$  @ $  $>>-  CONVERT_COORDDEVICETO_DATAE!  $- FINITE>#;$> #$ $ "$ "$ ;$<8 POP_3DDEVALTAZI COLORSMINSMAXGROUP XOFF YOFFBASE LABEL LABEL1 LABEL2 BUTBASE CANCELACCEPTBUTNAMEPTRPINFODATA$$ 3d Parameters-(  WIDGET_BASECOLUMNGROUPTITLEXOFFSETYOFFSET $Shaded relief settings $  -  WIDGET_LABELVALUEM $ light altitude (deg): >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $ light azimuth (deg): >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $ Exaggeration: >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $  -  WIDGET_LABELVALUEA $ >>> grayscalecolor, colorselect>-0 CW_BGROUPEXCLUSIVENO_RELROWSET_VALUEUVALUE $ >>-  WIDGET_BASEFRAMEROW $ CANCEL-  WIDGET_BUTTONVALUE $ ACCEPT-  WIDGET_BUTTONVALUE $cancel $ >- WIDGET_CONTROLREALIZE$ - WIDGET_BASE $ =DEVALTAZICOLORPTR $  >- WIDGET_CONTROLNO_COPYSET_UVALUE$pop_3d >- XMANAGERMODAL$>- WIDGET_CONTROLGET_UVALUENO_COPY$>- WIDGET_CONTROLDESTROYL$;$<8 "POP_CONTHXOFFYOFF IMAGE_MIN IMAGE_MAXINIT_MININIT_MAX CLABEL_FACTORGROUPBASELABEL LABEL1 MIN_RANGE MAX_RANGE LABEL2 INTERVAL BUTBASECANCELACCEPT BUTNAMEPTRPINFODATA$L$Ncontour interval-(  WIDGET_BASECOLUMNGROUPTITLEXOFFSETYOFFSET $Q Current image data range: Min = - STRTRIM Max = >- STRTRIM $S -  WIDGET_LABELVALUEM $VMinimum contour range : >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $XMaximum contour range : >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $ZContour label factor: >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $] -  WIDGET_LABELVALUEA $`Contour interval : Dz>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $d>>-  WIDGET_BASEFRAMEROW $eCANCEL-  WIDGET_BUTTONVALUE $fACCEPT-  WIDGET_BUTTONVALUE $hcancel $j>- WIDGET_CONTROLREALIZE$l- WIDGET_BASE $n  =INTERVAL MIN_RANGE MAX_RANGE CLABEL_FACTORBUTNAMEPTR $o>- WIDGET_CONTROLNO_COPYSET_UVALUEU$qpop_cont>- XMANAGERMODAL$s>- WIDGET_CONTROLGET_UVALUENO_COPYU$t>- WIDGET_CONTROLDESTROYL$u;$v<8 0POP_EGDR8GRIDFILEXOFFYOFFGROUP BASE GRIDNAMEMINLONMAXLON MAXLATMINLAT SPACING BUTBASE CANCEL ACCEPT BUTNAME PTR PINFODATA$$Enter Grid Information-(  WIDGET_BASECOLUMNGROUPTITLEXOFFSETYOFFSET $-  WIDGET_LABELVALUEM $Min (east) Lon: >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $Max (east) Lon: C>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $Max Lat: B>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $Min Lat: >0>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $Grid Spacing (degrees): >>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $>>-  WIDGET_BASEFRAMEROW $ CANCEL-  WIDGET_BUTTONVALUE $ ACCEPT-  WIDGET_BUTTONVALUE $cancel $>- WIDGET_CONTROLREALIZE$- WIDGET_BASE $  =MINLONMAXLONMINLATMAXLATSPACINGBUTNAMEPTR $>- WIDGET_CONTROLNO_COPYSET_UVALUEU$pop_egdr>- XMANAGERMODAL$>- WIDGET_CONTROLGET_UVALUENO_COPYU$>- WIDGET_CONTROLDESTROYL$;$<8 ?POP_IMG8GRIDFILEXOFFYOFFGROUP BASE GRIDNAMEMINLONMAXLON MAXLATMINLAT SPACING BUTBASE CANCEL ACCEPT BUTNAME PTR PINFODATA$e$gEnter Grid Information-(  WIDGET_BASECOLUMNGROUPTITLEXOFFSETYOFFSET $j-  WIDGET_LABELVALUEM $lMin (east) Lon: >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $oMax (east) Lon: C>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $rMax Lat: B>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $uMin Lat: >0>>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE $xPixels per degree: >>-&CW_FIELDFLOATRETURN_EVENTSTITLEVALUE ${>>-  WIDGET_BASEFRAMEROW $| CANCEL-  WIDGET_BUTTONVALUE $} ACCEPT-  WIDGET_BUTTONVALUE $cancel $>- WIDGET_CONTROLREALIZE$- WIDGET_BASE $  =MINLONMAXLONMINLATMAXLATSPACINGBUTNAMEPTR $>- WIDGET_CONTROLNO_COPYSET_UVALUEU$pop_img>- XMANAGERMODAL$>- WIDGET_CONTROLGET_UVALUENO_COPYU$>- WIDGET_CONTROLDESTROYL$;$<8 LPROFFUNC NOMARKXSTARTYSTARTIMAGESTART_XSTART_Y END_XEND_YXXYYNOMARKX0Y0 S SX SY Y X XX1YY1Y1X1DXDYNR $7$- ON_ERROR$- SIZE $  $>  $-  N_ELEMENTS#> $ -  N_ELEMENTS>#> $ $ $  $ $!ORDER># >  $>  >  #$Point outside image>- MESSAGECONTINUE$"$?- WAIT$ $ $  $ $!ORDER># > $> > # $Point outside image.>- MESSAGECONTINUE$"$-  KEYWORD_SET1# ,,>>- PLOTSDEVNOCLIP_$- FLOAT $ - FLOAT $- ABS- ABS $># Zero length line.- MESSAGE$>- FLTARR $- ABS- ABS #$# > " >0 $ - ABS "$ #> ">0 $- ABS $- FINDGEN - LONG $>- FINDGEN  - LONG $- LONG  ;$<8 _RINGPOP SAVEFILE THICKNESS CLAT CLON DIAMXOFFYOFFGROUPBASEDATABASE THICK_FIELD CLAT_FIELD CLON_FIELD DIAM_FIELD COMMENTBASE COMMENT_FIELDINFOBASE FILE_LABELLABEL2FILEBUTYNBASEYESBUTNOBUTPTRANSWER INFODATA $$Choose Yes or No-(  WIDGET_BASECOLUMNGROUPTITLEXOFFSETYOFFSET $>-  WIDGET_BASEROWL $  Thickness  thick_field- CW_FIELDTITLEUVALUEVALUEXSIZE $  Center Lat   lat_field- CW_FIELDTITLEUVALUEVALUEXSIZE $  Center Lon > lon_field- CW_FIELDTITLEUVALUEVALUEXSIZE $  Diameter > diam_field- CW_FIELDTITLEUVALUEVALUEXSIZE $>-  WIDGET_BASEROWI $ Comment   comment_field- CW_FIELDTITLEUVALUEVALUEXSIZE $>-  WIDGET_BASEROWI $Append ring data to >0 file_label-.CW_FIELDRETURN_EVENTSTITLEUVALUEVALUEXSIZE $ ? -  WIDGET_LABELVALUET $ ..choose file >-  WIDGET_BUTTONUVALUEVALUEN $>-  WIDGET_BASEROWL $ Yes >-  WIDGET_BUTTONUVALUEVALUEN $ No >-  WIDGET_BUTTONUVALUEVALUEN $>- WIDGET_CONTROLREALIZE$- WIDGET_BASE $ $    = ANSWER RINGSAVEFILE FILE_LABEL THICK_FIELD CLAT_FIELD CLON_FIELD DIAM_FIELD COMMENT_FIELDPTR $>- WIDGET_CONTROLNO_COPYSET_UVALUE$> !QUIET$ringpop>- XMANAGERMODAL$> !QUIET$>- WIDGET_CONTROLGET_UVALUENO_COPY$>- WIDGET_CONTROLDESTROYL$;$<8 l SUN_SHADE|HELPDALTAZIEMINEMAXHLPNP II S SMIN SMAX JJ R W $$- N_PARAMS $-  KEYWORD_SET#$66 Make a colored shaded relief view of a surface array.- PRINT$11 relief = sun_shade(surf, [alt, azi, smin, smax])- PRINT$44 surf = Surface array. in- PRINT$44 alt = Optional sun altitude (def = 60). in- PRINT$44 azi = Optional sun azimuth (def = 135). in- PRINT$44 smin = Optional min value to use for scaling. in- PRINT$44 smax = Optional max value to use for scaling. in- PRINT$55 If not specified the array min and max are used.- PRINT$33 These are useful to insure that different data- PRINT$ arrays are scaled the same.- PRINT$ 55 relief = Shaded relief image. out- PRINT$ // Note: Use shade_clt to get proper color table.- PRINT$ >0;$#< $# $#- MIN $#- MAX $ Shading surface with alt=>- STRTRIM and azi=>- STRTRIM . . .- PRINT$A $- FIX> $-DOT $- MIN $- MAX $>     $ - FIX> > $ - BYTE $ >- WHERE $!> >0#  > $# ;$$<8 t,YNPOP<  TXTGROUP BASE LABELYNBASEYESBUTNOBUTPTRANSWERINFO DATA $2$3Choose Yes or No-  WIDGET_BASECOLUMNGROUPTITLE $4-  WIDGET_LABELVALUE $5>-  WIDGET_BASEROWE $6 Yes -  WIDGET_BUTTONVALUE $7 No -  WIDGET_BUTTONVALUE $8>- WIDGET_CONTROLREALIZE8$9- WIDGET_BASE $: $;=ANSWERPTR $< >- WIDGET_CONTROLNO_COPYSET_UVALUEU$=> !QUIET$>ynpop>- XMANAGERMODAL$?> !QUIET$@ >- WIDGET_CONTROLGET_UVALUENO_COPYU$A>- WIDGET_CONTROLDESTROYL$B ;$C<8