From 385f740883091cf4d36860c4f87a5df53c7f1b5a Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 20 Feb 2001 10:42:14 +0000
Subject: Code fix to support `ps-zebra-stripe-follow' funcionality
 enhancement. (doColumnZebra): Code fix.

---
 etc/ps-prin1.ps | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'etc/ps-prin1.ps')

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index 4c6acf8dbe0..c4a524bcba5 100644
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -343,7 +343,7 @@ StandardEncoding 46 82 getinterval aload pop
 /doColumnZebra{
   /lpc exch def
   gsave
-  ZebraFollow{
+  ZebraFollow 1 and 0 ne{
     /H ZebraHeight zebra-line ZebraHeight mod sub def
     /lpc lpc H sub def
     zebra-line double-zebra mod ZebraHeight lt
@@ -355,8 +355,8 @@ StandardEncoding 46 82 getinterval aload pop
     /zebra-line zebra-line LinesPerColumn add def
   }if
   lpc dup double-zebra idiv{ZebraHeight doZebra 0 yiter rmoveto}repeat
-  double-zebra mod
-  dup 0 le{pop}{dup ZebraHeight gt{pop ZebraHeight}if doZebra}ifelse
+  double-zebra mod dup 0 le{pop}
+  {dup ZebraHeight gt ZebraFollow 2 and 0 ne or{pop ZebraHeight}if doZebra}ifelse
   grestore
 }def
 
-- 
cgit v1.2.1