Re: Color Printing [message #20304 is a reply to message #4844] |
Fri, 02 June 2000 00:00   |
Martin Schultz
Messages: 515 Registered: August 1997
|
Senior Member |
|
|
I can recommend Liam Gumley's imdisp program for this sort of thing.
http://cimss.ssec.wisc.edu/~gumley/
Cheers,
Martin
Mark Guagenti wrote:
>
> I was wondering if I could get some help on how to print a direct graphics
> window in color to my color printer. I load a grayscale image with
> tvscl and then change the color table. When I print my image it only comes
> out in B&W. Included is my code that I am currently using to try and print
> the direct graphics window. Thanks for any help.
>
> -- Mark
>
> Grace and peace to you from God our Father and the Lord Jesus Christ.
> 1 Cor. 1:3
>
> PRO riobj::print, event
> ok = Dialog_PrinterSetup()
> IF ok THEN BEGIN
> snapshot = TVRD()
> thisDevice = !D.Name
> Set_Plot, 'PRINTER'
> plotAspect = Float(self.CurDimX / self.CurDimY)
> windowAspect = 11.0 / 8.5
> position = Aspect(plotAspect, WindowAspect=windowAspect)
> TVScale, snapshot, position=position, /KEEP_ASPECT_RATIO
> Device, /Close_Document
> Set_Plot, thisDevice
> ENDIF
> END
--
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ [[[[[[[
[[ Dr. Martin Schultz Max-Planck-Institut fuer Meteorologie [[
[[ Bundesstr. 55, 20146 Hamburg [[
[[ phone: +49 40 41173-308 [[
[[ fax: +49 40 41173-298 [[
[[ martin.schultz@dkrz.de [[
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ [[[[[[[
|
|
|