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

begin
  wks = gsn_open_wks("x11","poly2_ex01")

  res             = True                      ; Plot options desired.

  res@gsnMaximize = True                      ; maximize plot in frame
  res@gsnFrame    = False                     ; don't advance frame
  res@gsnDraw     = False                     ; don't draw plot yet

  res@mpMinLatF   =  -20                      ; zoom in on a subregion
  res@mpMaxLatF   =   40
  res@mpMinLonF   = -130
  res@mpMaxLonF   =    0

  map = gsn_csm_map(wks,res)

;---Create list of lat/lon points that will form a box.
  boxlat = (/ 30.0,  30.0,  0.0,   0.0, 30.0/)
  boxlon = (/-90.0, -45.0,-45.0, -90.0,-90.0/)

;---Attach the box
  lnres                  = True                      ; polyline mods desired
  lnres@gsLineColor      = "red"                     ; color of lines
  lnres@gsLineThicknessF = 2.0                       ; thickness of lines

  dum = gsn_add_polyline(wks,map,boxlon,boxlat,lnres)      

  draw(map)
  frame(wks)
end