From 8f4a5e995438fd9df16166711e2c4ab11ce38036 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 30 Mar 2000 13:27:27 +0000
Subject: [PATCH] Replace gs_languagelevel by languagelevel. (printBackground,
 SetColor): New procs. (ZebraColor): Renaming old ZebraGray var.

---
 etc/ps-prin1.ps | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index 903b08d3573..67fe9a76ad6 100644
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -162,8 +162,7 @@ StandardEncoding 46 82 getinterval aload pop
     0 Descent Ascent sub rlineto	% D
     neg 0 rlineto			% E
     closepath
-    bgcolor aload pop setrgbcolor
-    fill
+    FillBgColor
   grestore
 }def
 
@@ -322,10 +321,13 @@ StandardEncoding 46 82 getinterval aload pop
   }if
 }def
 
+% stack: color-specifier |- --
+/SetColor{dup type /realtype eq{setgray}{aload pop setrgbcolor}ifelse}def
+
 % stack: --
 /printZebra{
   gsave
-  ZebraGray setgray
+  ZebraColor SetColor
   /double-zebra ZebraHeight ZebraHeight add def
   /yiter double-zebra LineHeight mul neg def
   /xiter PrintWidth InterColumn add def
@@ -355,6 +357,25 @@ StandardEncoding 46 82 getinterval aload pop
   grestore
 }def
 
+% stack: --
+/printBackground{
+  /BackgroundColor where{
+    pop gsave BackgroundColor SetColor
+    NumberOfColumns{
+     gsave
+     0 LineHeight 0.65 mul rmoveto
+     PrintWidth 0 rlineto
+     0 PrintHeight neg rlineto
+     PrintWidth neg 0 rlineto
+     0 PrintHeight rlineto
+     fill
+     grestore
+     PrintWidth InterColumn add 0 rmoveto
+    }repeat
+    grestore
+  }if
+}def
+
 % tx ty rotation xscale yscale xpos ypos BeginBackImage
 /BeginBackImage{
   /-save-image- save def
@@ -459,6 +480,7 @@ StandardEncoding 46 82 getinterval aload pop
   % ---- when 1st column, print all background effects
   ColumnIndex 1 eq{
     0 PrintStartY moveto		% move to where printing will start
+    printBackground
     Zebra {printZebra}if
     printGlobalBackground
     printLocalBackground
@@ -655,7 +677,7 @@ StandardEncoding 46 82 getinterval aload pop
   /t1 F
   gsave
     (languagelevel = ) show
-    gs_languagelevel 32 string cvs show
+    languagelevel 32 string cvs show
   grestore
   0 FontHeight neg rmoveto
   gsave
-- 
2.39.5