# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954422847 0
# Node ID b2d43a6995644f5abc82399454548b49215c48ce
# Parent  15c0a66a4a8b2b7f299a6e1cd0cd584f481541d3
Replace gs_languagelevel by languagelevel.
(printBackground, SetColor): New procs.
(ZebraColor): Renaming old ZebraGray var.

diff -r 15c0a66a4a8b -r b2d43a699564 etc/ps-prin1.ps
--- a/etc/ps-prin1.ps	Thu Mar 30 13:26:37 2000 +0000
+++ b/etc/ps-prin1.ps	Thu Mar 30 13:27:27 2000 +0000
@@ -162,8 +162,7 @@
     0 Descent Ascent sub rlineto	% D
     neg 0 rlineto			% E
     closepath
-    bgcolor aload pop setrgbcolor
-    fill
+    FillBgColor
   grestore
 }def
 
@@ -322,10 +321,13 @@
   }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 @@
   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 @@
   % ---- 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 @@
   /t1 F
   gsave
     (languagelevel = ) show
-    gs_languagelevel 32 string cvs show
+    languagelevel 32 string cvs show
   grestore
   0 FontHeight neg rmoveto
   gsave