[gs-cvs] gs/lib

[Raph Levien]

Update of /cvs/ghostscript/gs/lib
In directory casper:/tmp/cvs-serv19119/lib

Modified Files:
	gs_lev2.ps 
Log Message:
Moves implementation of TransformPQR procedures in default CRD to
zcrd.c for speed. Fixes SF bug #539327.


Index: gs_lev2.ps
===================================================================
RCS file: /cvs/ghostscript/gs/lib/gs_lev2.ps,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- gs_lev2.ps	6 Apr 2002 01:18:56 -0000	1.15
+++ gs_lev2.ps	7 Apr 2002 01:10:53 -0000	1.16
@@ -852,28 +852,10 @@
 % This TransformPQR implements a relative colorimetric intent by scaling
 % the XYZ values relative to the white and black points.
    /TransformPQR
-     [ { 5 1 roll                    % p Ws Bs Wd Bd
-         4 {3 get 5 1 roll} repeat   % ws bs wd bd p 
-         3 index sub                 % ws bs wd bd p-bs 
-         1 index                     % ws bs wd bd p-bs bd
-         6 2 roll                    % p-bs bd ws bs wd bd 
-         sub                         % p-bs bd ws bs wd-bd 
-         5 1 roll                    % wd-bd p-bs bd ws bs  
-         sub                         % wd-bd p-bs bd ws-bs  
-         4 2 roll                    % bd ws-bs wd-bd p-bs 
-         mul                         % bd ws-bs (wd-bd)*(p-bs)
-         exch div add                % bd + (wd-bd)*(p-bs)/(ws-bs)
-       } bind
-       { 5 1 roll
-         4 {4 get 5 1 roll} repeat
-         3 index sub 1 index 6 2 roll sub 5 1 roll
-         sub 4 2 roll mul exch div add
-       } bind
-       { 5 1 roll
-         4 {5 get 5 1 roll} repeat
-         3 index sub 1 index 6 2 roll sub 5 1 roll
-         sub 4 2 roll mul exch div add
-       } bind
+     % The implementations have been moved to C for performance.
+     [ { .TransformPQR_scale_WB0 } bind
+       { .TransformPQR_scale_WB1 } bind 
+       { .TransformPQR_scale_WB2 } bind
      ] readonly
    /RangeLMN [0 0.9505 0 1 0 1.0890] readonly
    /MatrixABC