begin ; ; Create an X Workstation. ; wks = create "wks" xWorkstationClass defaultapp end create ; ; Create a data object. ; dataid = create "data" coordArraysClass defaultapp "caYArray" : (/1,3,-1,-2,0,2,3/) end create ; ; Create an XY plot. ; xy = create "xyplot" xyPlotClass wks "xyCoordData" : dataid end create ; ; Retrieve xyCoordDataSpec. ; getvalues xy "xyCoordDataSpec" : dataspec end getvalues ; ; Set the desired resources using "setvalues" on the resource we ; just retrieved. ; setvalues dataspec "xyLineColor" : 3 ; Change the line color to color index 3 ; (default is "1", the foreground color). "xyLineThicknessF" : 4.0 ; Quadruple the line thickness. "xyDashPattern" : 2 ; Change the line to a dash pattern (default ; is a solid line). end setvalues draw(xy) ; Draw the XY plot. frame(wks) ; Advance the frame. end