[comp.windows.news] Color in OpenWindows pageview program?

montnaro@spyder.crd.ge.com (Skip Montanaro) (03/03/90)

I am using the pageview program that comes with Sun's OpenWindows to preview
the color PostScript file that appears at the end of this message. If I
image at 36, 72, or 100 dpi, it is shown in color. If I image at 150, 300,
or 400 dpi, however, it is shown in black and white. Can someone tell me if
this is a bug or a feature? Is there a workaround other than avoiding the
higher resolutions?

Thanks, and beware the trailing signature.

Skip (montanaro@crdgw1.ge.com)

%!

save /psnewssav exch def

% "@(#)drawlib.ps 1.1 12/19/89 Arthur van Hoff (Turing Institute)";

% -- drawlib.ps -- Header file for PostScript drawings.
/SC {dup length 3 eq {aload pop setrgbcolor} {aload pop setgray} ifelse} def
/MX {1 0 0 1} def
/CT {curveto} def
/CP {closepath} def
/LT {lineto} def
/PT {moveto} def
/PC {{lineto} stopped {moveto} if} def
/LN {0 0 PT LT} def
/LC {0 0 PC LT} def
/FL {SC fill} def
/ST {SC setlinewidth stroke} def
/FS {gsave FL grestore ST} def
/CM {matrix currentmatrix exch concat} def
/SM {setmatrix} def
/BO {gsave newpath concat} def
/EO {grestore} def
/SG {gsave SC eofill grestore ST} def
/FG {SC eofill} def

/AR {	%  c s a x y --
	newpath matrix currentmatrix 5 1 roll
	newpath translate rotate
	0 0 moveto 0 0 3 -1 roll -20 20 arc 0 0 lineto
	setmatrix FL
} def
/DA {	% x y --
	matrix currentmatrix 3 1 roll
	scale 0 1 1 -90 0 arc
	setmatrix
} def
/DR {	% w h --
	0 0 moveto
	exch dup 0 lineto
	1 index lineto
	0 exch lineto
	closepath
} def
/DO {	% w h --
	matrix currentmatrix 3 1 roll
	scale 0.5 0.5 translate 0 0 0.5 0 360 arc
	setmatrix
} def
/RR {	% w h c --
	10 dict begin /c exch def /h exch def /w exch def
	c 0 moveto
	mark
	w 0 w h c arcto
	w h 0 h c arcto
	0 h 0 0 c arcto
	0 0 w 0 c arcto
	cleartomark closepath
	end
} def
/DP {	% d1 d2 w h --
	matrix currentmatrix 5 1 roll scale
	0.5 0.5 moveto
	0.5 0.5 0.5 5 -2 roll arc
	0.5 0.5 lineto
	setmatrix
} def
/SF {	% text col fontsize font -- text width
	findfont exch scalefont setfont SC
	1 1 index {stringwidth pop abs 2 copy lt {exch} if pop} forall
} def
/TS {	% width w h --
	exch 2 index div exch scale
} def
/TL {	% text w h lh --
	5 dict begin /h exch def 0 exch moveto pop
	{gsave show grestore 0 h rmoveto} forall
	end
} def
/TR {	% text w h bh --
	5 dict begin /h exch def moveto 
	{ gsave dup stringwidth pop neg 0 rmoveto show 
	  grestore 0 h rmoveto} forall
	end
} def
/TC {	% text w h bh --
	5 dict begin /h exch def 
	exch 2 div exch moveto 
	{ gsave dup stringwidth pop 2 div neg 0 rmoveto show 
	  grestore 0 h rmoveto} forall
	end
} def
/IR {	% w h
	DR gsave 1 setgray fill grestore 0 setgray stroke
} def
/IC {	% str w h --
	scale LoadImage imagecanvas
} def
/IM {	% ... --
	/pstr exch string def
	0 exch translate scale
	{} settransfer
	0 0 3 -1 roll 0 0 6 array astore
	{currentfile pstr readhexstring pop} image
} def
/EPSdict 10 dict begin
/initmatrix {
	#Matrisk# setmatrix 
} def
/initgraphics {
	systemdict /initgraphics get exec 
	#Matrisk# setmatrix 
} def
/showpage {} def
currentdict end def
/BEPS {
	save 5 1 roll
	EPSdict begin
	gsave scale translate
	matrix currentmatrix /#Matrisk# exch def
	systemdict /initgraphics get exec
	#Matrisk# setmatrix
	500 dict begin
} def
/EEPS {
	end grestore end
	restore
} def
gsave initmatrix -172.180 -206.580 translate
0.820 0.820 scale
[1 0 0 1 0 0 ] BO
1166 1470 DR
[.7891 1 0.058] FL
EO
[1 0 0 1 399 958 ] BO
[1 0 0 1 9 9 ] BO
30 30 DO
1 [0 0 1] ST
EO
[1 0 0 1 0 0 ] BO
48 48 DO
1 [1 .6305 .1929] ST
EO
[1 0 0 1 25 24 ] BO
0 15 LN
1 [1 .6305 .1929] ST
EO
[1 0 0 1 25 24 ] BO
14 0 LN
1 [1 .6305 .1929] ST
EO
EO
[1 0 0 1 472 938 ] BO
[1 0 0 1 0 36 ] BO
195 0 LN
4 [1 0 0.03] ST
EO
[1 0 0 1 56 78 ] BO
0 -77 LN
4 [1 0 0.03] ST
EO
[1 0 0 1 140 78 ] BO
0 -78 LN
4 [1 0 0.03] ST
EO
[1 0 0 1 2 36 ] BO
54 40 DA
4 [1 0 0.03] ST
EO
[1 0 0 1 193 36 ] BO
-53 38 DA
4 [1 0 0.03] ST
EO
[1 0 0 1 102 50 ] BO
38 26 DA
4 [1 0 0.03] ST
EO
[1 0 0 1 102 50 ] BO
-46 24 DA
4 [1 0 0.03] ST
EO
EO
showpage grestore psnewssav restore
--
Skip (montanaro@crdgw1.ge.com)

naughton@wind.Sun.COM (Patrick Naughton) (03/06/90)

>> From: montnaro@spyder.crd.ge.com (Skip Montanaro)
>> Newsgroups: comp.windows.news,comp.windows.x,comp.lang.postscript
>> Subject: Color in OpenWindows pageview program?
>> Date: 2 Mar 90 17:25:44 GMT
>> Organization: GE Corporate Research & Development, Schenectady, NY
>> 
>> I am using the pageview program that comes with Sun's OpenWindows to
>> preview the color PostScript file that appears at the end of this
>> message.  If I image at 36, 72, or 100 dpi, it is shown in color.  If I
>> image at 150, 300, or 400 dpi, however, it is shown in black and white. 
>> Can someone tell me if this is a bug or a feature? Is there a workaround
>> other than avoiding the higher resolutions?
>> 
>> Skip (montanaro@crdgw1.ge.com)
>> 

It's a feature...
Pageview switches to monochrome above 100 dpi since the memory
requirements for retaining 8 bit rasters at high resolutions are
prohibitive.  For instance at 300 dpi an 8.5 by 11 inch page takes
8.4 Meg.

If you really want to try it, use the undocumented command line switch:
-mcd (max color dpi).

pageview -mcd 900 -dpi 900 tiger.ps

will work, but it will take over 75 Meg of memory.  If you have that
much memory...  have fun!

-Patrick

    OpenWindows Version 2... flying soon on a SPARCstation near you!
    "Time to eat all your words, Swallow your pride, Open your eyes..."
					- Tears for Fears
    ______________________________________________________________________
    Patrick J. Naughton				    ARPA: naughton@sun.com
    Window Systems Group			    UUCP: ...!sun!naughton
    Sun Microsystems, Inc.			    AT&T: (415) 336 - 1080