;---------------------------------------------------------------------- ; Function to create and draw map of Australia. ; If mode = "create", then only create the map, ; don't draw it and advance the frame. ;---------------------------------------------------------------------- function Australia_map(wks,mode:string) local res begin res = True ; Set up resource list if(mode.eq."create") then res@gsnFrame = False res@gsnDraw = False end if res@gsnMaximize = True ; Maximize plot in frame res@mpFillOn = False ; Outlines will be turned on ; internally res@mpDataBaseVersion = "MediumRes" ; Medium resolution res@mpDataSetName = "Earth..4" ; Contains divisions for ; other countries. res@mpOutlineBoundarySets = "AllBoundaries" res@mpLimitMode = "LatLon" res@mpMinLatF = -45 ; Zoom in on Australia res@mpMaxLatF = -10 res@mpMinLonF = 112 res@mpMaxLonF = 155 res@tiMainString = "Australian states and territories" map = gsn_csm_map(wks,res) ; Create or draw default map return(map) end ;--Main code begin wks = gsn_open_wks("png","poly3d") map = Australia_map(wks,"draw") end