[gs-cvs] gs/lib

[Igor Melichev]

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

Modified Files:
	opdfread.ps 
Log Message:
Fix (ps2write) : Allow .HWMargins in the printer's userdict.

DETAILS :

Testing with HP LazerJet 1320 we found that it defines a PageSize bigger than
the real page. Allowing a method for an user to compensate that.
The method is to define .HWMargins to the printer's userdict.

EXPECTED DIFFERENCES :

None.


Index: opdfread.ps
===================================================================
RCS file: /cvs/ghostscript/gs/lib/opdfread.ps,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -d -r1.76 -r1.77
--- opdfread.ps	4 Jul 2005 09:03:48 -0000	1.76
+++ opdfread.ps	5 Jul 2005 17:56:55 -0000	1.77
@@ -776,10 +776,14 @@
   /MediaBox get aload pop                               % bx0 by0 bx1 by1
   3 index neg 3 index neg translate % Temporary move to origin
   3 -1 roll sub 3 1 roll exch sub exch                  % bw bh
-  currentpagedevice /.HWMargins //knownget exec {
+  userdict  /.HWMargins //knownget exec {
     aload pop
   } {
-    0 0 0 0
+    currentpagedevice /.HWMargins //knownget exec {
+      aload pop
+    } {
+      0 0 0 0
+    } ifelse
   } ifelse
   currentpagedevice /PageSize get aload pop
   3 -1 roll sub 3 1 roll exch sub exch                  % bw bh px0 py0 px1 py1