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

begin
;---Create dummy data for four Y curves
  NPTS  = 500
  PI100 = 0.031415926535898
  x     = ispan(0,NPTS-1,1)
  theta = PI100*x

  y      = new((/4,NPTS/),float)
  y(0,:) = sin(theta)
  y(1,:) = cos(theta)-1
  y(2,:) = sin(theta)-1.5
  y(3,:) = cos(theta)-2

;---Start the graphics
  wks = gsn_open_wks("x11","fillxy")

  res                   = True     ; Plot options desired

  res@gsnMaximize       = True     ; Maximize plot in frame
  res@xyMonoDashPattern = True     ; Solid lines for all curves

  res@tiMainString      = "Fully opaque"
  res@gsnXYFillColors   = (/"orange","blue","limegreen"/)

  xy = gsn_csm_xy(wks,x,y,res)

  res@tiMainString       = "Partially transparent"
  res@gsnXYFillOpacities = (/0.5,0.5,0.5/)
  xy = gsn_csm_xy(wks,x,y,res)
end