I just sent the following request to support@rsinc.com, and I thought
that you people might have some insight as well. Thanks for any
asistance. My email address is stuart @ ll.mit.edu.
IDL> help, !version, /struct
** Structure !VERSION, 5 tags, length=40:
ARCH STRING 'mipseb'
OS STRING 'IRIX'
OS_FAMILY STRING 'unix'
RELEASE STRING '5.0.3'
BUILD_DATE STRING 'Nov 3 1997'
rock(76)% uname -a
IRIX64 rock 6.4 IP27
I have an object oriented graphics routine from which I'd like to get
postscript output. The postscript created seems to only be
monochrome, though. I use the RGB color model since my machine has
24-bit color. The following test program demonstrates the problem.
The window comes up with the expected colors, but the resulting
postscript is only in black and white.
oPrinter = obj_new('IDLgrPrinter', COLOR_MODEL=0)
oView =obj_new('IDLgrView')
oModel = obj_new('IDLgrModel')
oPolyg1 = obj_new('IDLgrPolyline', [1.0, 0.0, -1.0, 0.0, 1.0], $
[0.0, 1.0, 0.0, -1.0, 0.0], $
[0.0, 0.0, 0.0, 0.0, 0.0], $
COLOR=[255, 0, 0])
oPolyg2 = obj_new('IDLgrPolyline', [2.0, 0.0, -2.0, 0.0, 2.0], $
[0.0, 2.0, 0.0, -2.0, 0.0], $
[0.0, 0.0, 0.0, 0.0, 0.0], $
COLOR=[0, 0, 0])
oPolyg3 = obj_new('IDLgrPolyline', [3.0, 0.0, -3.0, 0.0, 3.0], $
[0.0, 3.0, 0.0, -3.0, 0.0], $
[0.0, 0.0, 0.0, 0.0, 0.0], $
COLOR=[0, 0, 255])
oModel->ADD, oPolyg1
oModel->ADD, oPolyg2
oModel->ADD, oPolyg3
oView->ADD, oModel
oWindow = obj_new('IDLgrWindow', DIMENSIONS=[200,200], RETAIN=0)
set_view, oView, oWindow
oWindow->Draw, oView
status = DIALOG_PRINTERSETUP(oPrinter)
if (status ne 0) then begin
oPrinter->Draw, oView
oPrinter->NewDocument
print, 'finished ps'
endif
end
--
Scott Stuart
stuart at ll mit edu
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
