begin
  
  wks = gsn_open_wks("png","test")
  
  mpres              = True
  mpres@gsnMaximize  = True             ; Maximize plot in frame.
  mpres@gsnDraw = False
  mpres@gsnFrame     = False            ; Don't advance the frame
;
; Zoom in on United States.
;
  mpres@mpMinLatF    = 25.
  mpres@mpMaxLatF    = 50.
  mpres@mpMinLonF    = 235.
  mpres@mpMaxLonF    = 290.
  mpres@mpCenterLonF = (mpres@mpMinLonF+mpres@mpMaxLonF)/2.

  mpres@tiMainString = "poly test"
  map = gsn_csm_map(wks,mpres)
  
  gsres = True
  gsres@gsMarkerColor      = "red"
  dum0 = gsn_add_polymarker(wks,map,255,35,gsres)
  
  polyres = True
  polyres@txFontHeightF = 0.015
  dum1 = gsn_add_text(wks,map,"Testing",265,30,polyres)
  
  
  pres = True
  dum2 = gsn_add_polyline(wks,map,(/240,280/),(/45,49/),pres)
  
  draw(map)
  frame(wks)
end