; Provisional hardcopy procedure to replace the SSW hardcopy
; procdure (used by the 'stepper' procedure)

pro hardcopy
on_error, 2

tvlct, r, g, b, /get
img = tvrd()

xs = (size(img, /dim))[0]
ys = (size(img, /dim))[1]

set_plot, 'PRINTER'

tvlct, r, g, b
tv, 255B-congrid(img, 4000, round(4000.0*ys/xs))

device, /close_document

set_plot, 'WIN'

return  &  end