;
; Basic graphics exercise 6.
;

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_ex06")  ; Open an X11 window

  res = True                           ; Plot options desired
  res@gsnFrame = False                 ; Turn off frame advance

  res@vpXF      = 0.10                 ; X position of upper right corner
  res@vpYF      = 0.95                 ; Y position of upper right corner
  res@vpWidthF  = 0.4                  ; Width of plot
  res@vpHeightF = 0.4                  ; Height of plot

  plot = gsn_csm_y(wks,y1,res)         ; Draw plot, frame won't be advanced

  res@vpXF     = 0.5                   ; Change X and Y positions
  res@vpYF     = 0.5                   ; of second plot.

  plot = gsn_csm_y(wks,y2,res)         ; Draw plot in same frame

  frame(wks)                           ; Manually advance frame.
end