[gs-cvs] rev 7169 - trunk/gs/lib

[leonardo at ghostscript.com]

Author: leonardo
Date: 2006-11-07 04:46:34 -0800 (Tue, 07 Nov 2006)
New Revision: 7169

Modified:
   trunk/gs/lib/gs_cet.ps
Log:
Fix (gs_cet.ps) : Patch 'setsmoothing' for a better view of shadings in CET tests.

DETAILS :

CET tests execute "1 setsmoothing", which allows a 100% color error
while a shading rasterization. We patch 'setsmoothing' to make
the shadings be painted with the default smoothing.
It appears closer to what CPSI does.

EXPECTED DIFFERENCES :

None.


Modified: trunk/gs/lib/gs_cet.ps
===================================================================
--- trunk/gs/lib/gs_cet.ps	2006-11-07 03:50:09 UTC (rev 7168)
+++ trunk/gs/lib/gs_cet.ps	2006-11-07 12:46:34 UTC (rev 7169)
@@ -33,4 +33,15 @@
 >>
 setpagedevice
 
+% Patch setsmoothness, currentsmoothness for a better view of shadings :
+userdict /.smoothness currentsmoothness put
+/setsmoothness { 
+   dup type dup /integertype eq exch /realtype eq or {
+     userdict /.smoothness 3 2 roll cvr put 
+   } {
+     /setsmoothness .systemvar /typecheck signalerror
+   } ifelse
+} bind odef
+/currentsmoothness { userdict /.smoothness get } bind odef % for 09-55.PS, 09-%&.PS .
+
 false 0 startjob pop		% re-enter encapsulated mode