;
; Basic graphics exercise 1.
;

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          = "x11"
  wks_type@wkWidth  = 1000          ; Make X11 window larger. Default
  wks_type@wkHeight = 1000          ; is 512 x 512.

  wks = gsn_open_wks(wks_type,"basic_ex01")

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