;+
; NAME: saveplot
;PURPOSE:
; 	save a plot to disk in PNG format
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2004-05-14 13:52:06 by Marshall Perrin 
;-

PRO saveplot,filename

	; TVREAD auto-appends ".png" so make sure we don't
	; already have a file extension, or it ends up called
	; someimage.png.png
	filename0= strepex(filename,"\.png$","")

	result = tvread(filename=filename0,/png,/nodialog)
	message,/info,"Current graphics window saved to "+filename0
	

end