[gs-cvs] gs/lib

[Igor Melichev]

Update of /cvs/ghostscript/gs/lib
In directory casper2:/tmp/cvs-serv5852/gs/lib

Modified Files:
	opdfread.ps 
Log Message:
Fix (ps2write) : CIEBased* images must use DecodeABC as Decode (continued).

DETAILS :

The last patch appears incomplete. 
Bug 688174 ps2write: black page 
CompleteImage was underimplemented.

EXPECTED DIFFERENCES :

None.


Index: opdfread.ps
===================================================================
RCS file: /cvs/ghostscript/gs/lib/opdfread.ps,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- opdfread.ps	29 Jun 2005 20:46:20 -0000	1.75
+++ opdfread.ps	4 Jul 2005 09:03:48 -0000	1.76
@@ -2870,14 +2870,24 @@
   /DCT /DCTDecode def
 currentdict end readonly def
 
+/GetColorSpaceRange
+{ 2 index /ColorSpace get
+  dup type /arraytype eq {
+    1 get
+  } if
+  exch //knownget exec {
+    exch pop
+  } if
+} bind def
+
 /DecodeArrays 15 dict begin
   /DeviceGray { [0 1] } def
   /DeviceRGB { [0 1 0 1 0 1] } def
   /DeviceCMYK { [0 1 0 1 0 1 0 1] } def 
   /Indexed { dup /ColorSpace get 2 get [ exch 0 exch ] } def
   /Separation { [0 1] } def
-  /CIEBasedA { dup /ColorSpace get /RangeABC get } def
-  /CIEBasedABC { dup /ColorSpace get /RangeABC get } def
+  /CIEBasedA { [0 1]  /RangeA //GetColorSpaceRange exec } def
+  /CIEBasedABC { [0 1 0 1 0 1] /RangeABC //GetColorSpaceRange exec } def
 currentdict end readonly def
 
 /Substitute % <key> <dict> Substitute <key>