Replace gs_languagelevel by languagelevel.

(printBackground, SetColor): New procs.
(ZebraColor): Renaming old ZebraGray var.

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index 903b08d3573ca48ab4bfaf4cc6af4365dda372a2..67fe9a76ad6d9418f9d33a9b3c35cb005173ecc1 100644 (file)
--- 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