diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-03-30 13:27:27 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-30 13:27:27 +0000 |
| commit | 8f4a5e995438fd9df16166711e2c4ab11ce38036 (patch) | |
| tree | b35b44c340e7260eab82f0aca5d8c23cd0a58403 /etc/ps-prin1.ps | |
| parent | 392a704f2bbab0f9dac2e29b249fb438f18a4a2f (diff) | |
| download | emacs-8f4a5e995438fd9df16166711e2c4ab11ce38036.tar.gz | |
Replace gs_languagelevel by languagelevel.
(printBackground, SetColor): New procs.
(ZebraColor): Renaming old ZebraGray var.
Diffstat (limited to 'etc/ps-prin1.ps')
| -rw-r--r-- | etc/ps-prin1.ps | 30 |
1 files 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 |