;
; Basic graphics exercise 3.
;

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_type = "ps"
  wks_type@wkOrientation = "landscape"

  wks = gsn_open_wks(wks_type,"basic_ex03")     ; Open a PS file.

  res = False                          ; No plot options set.
  plot = gsn_csm_y(wks,y,res)          ; Call the gsn_csm function for drawing
                                       ; the curve.
end