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

[ray at ghostscript.com]

Author: ray
Date: 2006-11-25 21:51:17 -0800 (Sat, 25 Nov 2006)
New Revision: 7226

Modified:
   trunk/gs/lib/gs_init.ps
Log:
Fixes for CET's. Halftone dummy lpi and angle are real for Adobe. Also
setdash must return typecheck for wrong type top operand even if there
is no second operand (09-36-3).


Modified: trunk/gs/lib/gs_init.ps
===================================================================
--- trunk/gs/lib/gs_init.ps	2006-11-24 21:53:27 UTC (rev 7225)
+++ trunk/gs/lib/gs_init.ps	2006-11-26 05:51:17 UTC (rev 7226)
@@ -391,7 +391,7 @@
 /setcolorscreen where { pop		% not in all Level 1 configurations
    /currentcolorscreen
 	{ .currenthalftone
-	   { { 60 exch 0 exch 3 copy 6 copy }	% halftone - not possible
+	   { { 60.0 exch 0.0 exch 3 copy 6 copy }	% halftone - not possible
 	     { 3 copy 6 copy }			% screen
 	     { }				% colorscreen
 	   }
@@ -400,7 +400,7 @@
 } if
 /currentscreen
 	{ .currenthalftone
-	   { { 60 exch 0 exch }			% halftone - not possible
+	   { { 60.0 exch 0.0 exch }			% halftone - not possible
 	     { }				% screen
 	     { 12 3 roll 9 { pop } repeat }	% colorscreen
 	   }
@@ -523,6 +523,9 @@
 } bind def
 % The following is only for compatibility with Adobe interpreters.
 /setdash {
+	0 .argindex type dup /integertype eq exch /realtype eq or not {
+	  /setdash .systemvar /typecheck signalerror
+	} if
 	1 .argindex length 11 gt { /setdash .systemvar /limitcheck signalerror } if
 	//setdash
 } odef