Handle form feed better when ps-zebra-stripe-follow

is non-nil.
(printZebra, BeginPage): Code fix.

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index 007c2e01003019a4e615044f7e478070943f1580..4c6acf8dbe092c266b2c3df0eab9fd4d6bea5afd 100644 (file)
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -334,7 +334,7 @@ StandardEncoding 46 82 getinterval aload pop
   /double-zebra ZebraHeight ZebraHeight add def
   /yiter double-zebra LineHeight mul neg def
   /xiter PrintWidth InterColumn add def
-  /zebra-line PageNumber 1 sub NumberOfColumns mul LinesPerColumn mul def
+  /zebra-line LinesPrinted def
   NumberOfColumns{LinesPerColumn doColumnZebra xiter 0 rmoveto}repeat
   grestore
 }def
@@ -456,6 +456,7 @@ StandardEncoding 46 82 getinterval aload pop
 /PrintHeaderWidth PrintOnlyOneHeader{PrintPageWidth}{PrintWidth}ifelse def
 
 /BeginPage{
+  /LinesPrinted exch def
   % ---- when 1st column, print all background effects
   ColumnIndex 1 eq{
     0 PrintStartY moveto               % move to where printing will start