;
; Basic graphics exercise 2.
;

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", "basic_ex02")     ; Open a PS file.
; wks = gsn_open_wks("pdf","basic_ex02")     ; Open a PDF file.
; wks = gsn_open_wks("png","basic_ex02")     ; Open a PNG file.

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