;
; Basic graphics exercise 5.
;

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

begin
  y1 = sin(0.0628*ispan(0,100,1))     ; Generate a curve with 101 points.
  y2 = cos(0.0628*ispan(0,100,1))     ; Generate a 2nd curve with 101 points.

  wks = gsn_open_wks("x11","basic_ex05")  ; Open an X11 window

  res = True                           ; Plot options desired
  res@gsnFrame = False                 ; Don't advance frame
  plot = gsn_csm_y(wks,y1,res)         ; Will be drawn in first frame

  res@gsnFrame = True                  ; delete(res@gsnFrame) will also work
  plot = gsn_csm_y(wks,y2,res)         ; Will be drawn in first frame
end