begin

;
; Create dummy data for XY plot.
;
  y =  (/10, 100, 5000, 10, 9000, 70, 300, 10000, 600/)

  wid = create "wks" xWorkstationClass defaultapp end create

;
; Create the data object.
;
  dataid = create "data" coordArraysClass defaultapp
    "caYArray": y
  end create

;
; Create and draw an XyPlot with linear scaling.
;
  xyid = create "plot" xyPlotClass wid
    "xyCoordData"   : dataid
    "tiXAxisString" : "linear"   ; Label for X axis.
    "tiYAxisString" : "linear"   ; Label for Y axis.
  end create

  draw(xyid)  ; Draw the XY plot.
  frame(wid)  ; Advance the frame.

;
; Change the Y axis scale to be log and redraw the plot.
;
  setvalues xyid
    "trYLog"        : True   ; Set Y axis to log.
    "tiYAxisString" : "log"  ; Change label for Y axis.
  end setvalues

  draw(xyid)  ; Draw the XY plot.
  frame(wid)  ; Advance the frame.
end