load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl"

  arr = generate_2d_array(10, 10, -19.,16., 0, (/100,100/))


  wks = gsn_open_wks("x11","circle");                                                                                 
  res = True
  res@gsnDraw = False
  res@gsnFrame = False
  res@cnLineColor = "gray65"

  plot_c = gsn_csm_contour(wks,arr,res)
  plot_e = gsn_csm_contour(wks,arr,res)

  resc                  = True
  resc@gsLineColor      = "Purple"
  resc@gsLineThicknessF = 1.5

;---Add ncirc circles to the plot at random locations
  ncirc = 10
  x = random_uniform(5,95,ncirc)
  y = random_uniform(5,95,ncirc)
  radius = 7
  do i=0,dimsizes(x)-1
    circle_ll(wks,plot_c,x(i),y(i),radius,resc)
  end do
  draw(plot_c)
  frame(wks) 

;---Add a single red ellipse to the second plot
  resc@gsLineColor      = "red"
  resc@gsLineThicknessF = 3.5
  resc@Scale            = 2.5
  resc@Rotation         = -45

  circle_ll(wks,plot_e,40,60,radius,resc)
  draw(plot_e)
  frame(wks)