| color printing [message #4844] |
Fri, 04 August 1995 00:00  |
coelke
Messages: 1
Registered: August 1995
|
Junior Member |
|
|
Hello,
I'm looking for a way to produce post-script files of a high
quality with IDL. So far I produced my window (tv,...)
and saved the contents with tvrd(), displayed it in print
mode with tv,<window-save> and thus produced a ps-file.
But the quality of this method is not great.
Is there any routine for this problem?
Thanks,
Christoph
---
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/_/_/_/
Christoph Oelke
Alfred-Wegener-Institut f. Polar- u. Meeresforschung
Sektion Physik I
-Sea Ice/Remote Sensing Group- phone : (49) 471-4831 261
Am Handelshafen 12 FAX : (49) 471-4831 425
D-27570 Bremerhaven, GERMANY e-mail: coelke@awi-bremerhaven.de
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/_/_/_/
|
|
|
|
| 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 [[
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ [[[[[[[
|
|
|
|
| Re: Color Printing [message #20305 is a reply to message #4844] |
Fri, 02 June 2000 00:00 |
wbiagiot
Messages: 59
Registered: January 1999
|
Member |
|
|
Try this:
.
.
TVLCT, rtable, gtable, btable, /GET ; Get current palettes
set_plot, 'PRINTER'
TVLCT, rtable, gtable, btable
.
.
<plot commands>
.
.
DEVICE, /CLOSE_DOCUMENT
Hope this helps.
Bill B.
Advanced Testing Technologies
--
"They don't think it be like it is, but it do."
Oscar Gamble, NY Yankees
Sent via Deja.com http://www.deja.com/
Before you buy.
|
|
|
|
| Re: Color Printing [message #20307 is a reply to message #4844] |
Fri, 02 June 2000 00:00 |
Michael Asten
Messages: 53
Registered: March 1999
|
Member |
|
|
I'm guessing a problem with settings on your printer driver (do other progs
print in color ok?). I regularly print direct graphics in color to a color
printer (eg HP1000) under Win95/98 printer drivers, and have no difficulty
with color. Maybe try a simple line plot in color just to be sure it is not a
problem with your color table conversion on the image.
Regards,
Michael Asten
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
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
