;+
; This procedure clears any overlays and erases the plotter.
;
; @examples
;   getps,10
;   show
;   clear
;
; @version $Id: clear.pro,v 1.2 2005/04/29 06:02:19 bgarwood Exp $
;-

pro clear
   common gbtplot_common,mystate,xarray
   clearoplotslist
   clearoshowslist
   if not widget_info(mystate.main,/valid_id) then return

   wset,mystate.pix_id
   erase
   wset,mystate.win_id
   erase
end