pro dev_close

common dev_sel, dev, X_save,Y_save,Z_save,P_save, name


	CASE dev OF

's':

'g':	begin

if n_elements(name) eq 1 then $
	Filename=pickfile(filt='*.gif',file=name+'.gif') else $
	Filename=pickfile(filt='*.gif')

	if Filename eq '' then begin
	print,'You have selected no file'
	return
	endif

if (!d.flags and 2L^16) ne 0 then widget_control,/hourglass

xxx=tvrd()
write_gif,Filename,xxx
xxx=0
	end

'b':	begin

if n_elements(name) eq 1 then $
	Filename=pickfile(filt='*.bmp',file=name+'.bmp') else $
	Filename=pickfile(filt='*.bmp')

	if Filename eq '' then begin
	print,'You have selected no file'
	return
	endif

if (!d.flags and 2L^16) ne 0 then widget_control,/hourglass

xxx=tvrd()
write_bmp,Filename,xxx
xxx=0
	end

'p':	device,/close

'e':	device,/close

'l':	device,/close

'c':	device,/close

ELSE:	message, 'Incorrect device input'


	ENDCASE

	if strlowcase(strmid(!Version.OS,0,3)) eq 'win' then set_plot, 'WIN' $
	else set_plot,'X'

!P=P_save

!P.background=0
!P.color=!d.n_colors-1

!x.thick=(!y.thick=(!z.thick=1))
!P.thick=(!P.charthick=1.)
!p.multi=0

end