;
; Set up data.
;
Pressure = (/835.000000,832.000000,827.000000,821.000000,791.000000,693.000000,\
627.000000, 606.000000,560.000000,555.000000,500.000000,383.000000,355.000000,\
339.000000,314.000000,209.000000,192.000000,143.000000,111.000000, 100.000000,\
95.300003,76.400002,62.599998,58.299999,47.299999,30.000000,27.200001,21.500000\
/)

Temp = (/ -13.500000, -10.500000, -5.500000, -3.100000, -1.300000, -6.700000, \
-12.900000, -13.100000, -17.700001, -16.900000, -21.299999, -37.099998, \
-40.099998, -41.900002, -42.099998, -62.700001, -59.299999, -60.700001, \
-52.099998, -55.099998, -55.900002, -63.500000, -57.900002, -60.500000, \
-58.099998, -60.900002, -54.900002, -57.299999/)

;
; Create X workstation with default color map and configuration.
;
x = create "x" xWorkstationLayerClass noparent end create

;
; Create HLU data object.
;
mydata = create "mydata" coordArraysLayerClass noparent
	"caXArray" : Temp
	"caYArray" : Pressure
end create

;
; Create HLU XyPlot object and assign data_obj to it as data.
;
xy_plot = create "xy_plot" xyPlotLayerClass x
	"vpXF" : .25
	"vpYF" : .75
	"vpWidthF" : .5
	"vpHeightF" : .5
	"xyCurveData" : mydata
	"tiMainOn" : "True"
	"tiXAxisOn" : "True"
	"tiYAxisOn" : "True"
end create

;
; Draw plot.
;
draw(xy_plot)

;
; Use frame to pause and wait for mouse click, which then 
; clears the workstation.
;
frame(x)

; 
; Free variables used in this script.
;
delete(Pressure)
delete(Temp)
delete(mydata)
delete(xy_plot)
delete(x)