PRO pltest, img

; Modified to condition B/W plot output on OS
; by David Steele, ISAS, 19 Feb 1996

loadb,"test.img",800,800,0,0,img
loadct,38
window,xsi=800,ysi=800
tv,img

hh   = 2
maxv = 500.0
wave = 6300
sdate = '1 Feb 1999'

boxdev, hh, wave, maxv, sdate, img, bg, c_bar
giff = query_yn("Do you want a giff image?")
if (giff eq "Y") then WRITE_GIF,"idl.gif",bg

bw = query_yn("Do you want a black and white PostScript hardcopy?")
cb = query_yn("Do you want a color PostScript file with black background?")

if (bw eq 'Y') then BEGIN
   fname = 'idl2.ps'
   laser_out,hh,wave,maxv,sdate,img, c_bar, fname
   IF !D.NAME NE 'win' THEN BEGIN
      prtcom = 'lp '+fname        ; only SPAWN lp command
      spawn,prtcom                ; if OS is not Windows
      ENDIF
endif

if (cb eq 'Y') then $
   color_out,hh,wave,maxv,sdate,img,c_bar,'idl.cps'

end