load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"

begin
  y = sin(0.0628*ispan(0,100,1))   ; Generate a curve with 101 points.

  wks = gsn_open_wks("ps","xy1b")  ; Open a PostScript file called "xy1b.ps".

  res             = True           ; Create a variable to hold plot resources.
  res@xyLineColor = 2              ; Set the line color.

  plot = gsn_csm_y(wks,y,res)      ; Call the gsn function for drawing the 
                                   ; curve.
end