From 30301a737a0f344769d4dbbc5f91209d6917bc97 Mon Sep 17 00:00:00 2001
From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Tue, 30 Mar 2004 03:08:48 +0000
Subject: Clip the header and footer area.

---
 etc/ps-prin1.ps | 7 +++++++
 1 file changed, 7 insertions(+)

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

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index 1716562b0f4..70adabc7b0c 100644
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -751,6 +751,9 @@ StandardEncoding 46 82 getinterval aload pop
   FooterLineHeight FooterLines 1 sub mul add
 }def
 
+/HeaderClip{HeaderFrameStart moveto HeaderFramePath clip}def
+/FooterClip{FooterFrameStart moveto FooterFramePath clip}def
+
 /strcat{
   dup length 3 -1 roll dup length dup 4 -1 roll add string dup
   0 5 -1 roll putinterval
@@ -803,17 +806,21 @@ StandardEncoding 46 82 getinterval aload pop
 }def
 
 /HeaderText{
+  gsave HeaderClip
   HeaderLinesRight HeaderLinesLeft
   /HeaderStart HeaderLineHeight HeaderPad
   HeaderFrameProperties 0 get
   HeaderOrFooterText
+  grestore
 }def
 
 /FooterText{
+  gsave FooterClip
   FooterLinesRight FooterLinesLeft
   /FooterStart FooterLineHeight FooterPad
   FooterFrameProperties 0 get
   HeaderOrFooterText
+  grestore
 }def
 
 /ReportFontInfo{
-- 
cgit v1.2.1