;..............A script to start up an X_workstation................
;................AND provide for a basic map-bkgrd..................
;...............Creates:
;			appid
;			wid
;			mapid
;			dataid
;			cnid
;...................................................................

;...APP....
appid = create "cn02" appClass noparent
    "appUsrDir"        : "/tmp"
    "appDefaultParent" : "False"           ; no aparrent effect...?
end create


;...WORKSTATION.....
wid = create "cn02Work" xWorkstationClass appid
    "wkPause"           : "True"
;    "wkPause"           : "False"
    "wkColorMap"        : "temp1"   ; white fg, black bg, +61 more
;    "wkBackgroundColor" :  (/1.0, 1.0, 1.0/)
end create
;
;...adjust colormap to have 10 elements at start for ocean, land, etc.
;....(see "mpFillColors")....
adjust_colormap(wid)


;...MAP BACKGROUND...
mask_specs = "oceans"
mapid = create "Map0" mapPlotClass wid
;     "pmTitleDisplayMode" 	: "always"
;     "tiMainString" 		: "tiMainString"
;       "mpFillOn" 		: "false"
;       "mpFillDrawOrder" 	: "postdraw"
;       "mpAreaMaskingOn" 	: "true"
;       "mpMaskAreaSpecifiers" 	: mask_specs
       "vpYF" 			: 0.9
       "vpHeightF" 		: 0.8
       "vpXF" 			: 0.1
       "vpWidthF" 		: 0.8
end create
;...Set up "mpFillColors" for land, water........
mapfill (mapid)


;...CREATE "TEMPLATE" DATA OBJECT.....
;....(- use a bogus data array to initialize with)...
ARRAY=new((/2,2/), float)
dataid = create "data_1" scalarFieldClass appid
        "sfDataArray" 	: ARRAY
end create


;...CREATE "TEMPLATE" CONTOUR-PLOT OBJECT.....
cnid = create "ContourPlot1" contourPlotClass wid
end create
;...Set a bunch of contour label specs....
  cnlabels(cnid)
;...Pick colorfill colors from the wid colormap...
  set_cnfill(wid, cnid)