save, /SYSTEM_VARIABLES, filename='sysvar.sav'
;img = READ_BMP('fig2.bmp', r,g ,b)
;
READ_GIF, 'fig5.gif', Img ; [, R, G, B]
window, 0
tv,img ;, /true

stop
;op_ps
;The NAME field of the !D system variable contains the name of the current plotting device.
SET_PLOT, 'PS',/copy,/interpolate	         ;Set plotting to PostScript.
;SET_PLOT, 'PS'
device,filename='dummy2.ps',/portrait, xsize=7.5,ysize=7.5/2.,yoffset=0.5,xoffset=0.5, bits_per_pixel=8 ,/color ;,/times,/isolatin1 ;/encapsul



tv,img  , xs=695*4, ys=228*4 ;, /true



;cl_ps
DEVICE, /CLOSE	         ;DEVICE   closes the PostScript file.
SET_PLOT, 'win'	     ;Return plotting to the original device.
restore, 'sysvar.sav'

end