diff options
| author | Jaap Keuter <jaap.keuter@xs4all.nl> | 2008-08-01 17:34:36 +0000 |
|---|---|---|
| committer | Jaap Keuter <jaap.keuter@xs4all.nl> | 2008-08-01 17:34:36 +0000 |
| commit | 2db97aed2c0b4c3135bb5769c92af0df9ddafcfb (patch) | |
| tree | 7c123f7e916632d698d606293099680c0f74361c /print.ps | |
| parent | 341fba51c59cacfe4cec9917728a23ca9c24e737 (diff) | |
Several improvements to the PostScript code:
- Remove old code and comments.
- Add 5 pnt between last lines baseline and lower horizontal line to avoid having the last line sitting right on top of the horizontal line
- Fix pagewidth expression (although outcome is the same)
- Add page decorations for single page print as well
- Add DSC end of file marker
svn path=/trunk/; revision=25900
Diffstat (limited to 'print.ps')
| -rw-r--r-- | print.ps | 27 |
1 files changed, 8 insertions, 19 deletions
@@ -50,20 +50,13 @@ clippath pathbbox /hmax exch def pop pop % junk -% 1-inch margins -%/lmargin 72 def -%/tmargin vmax 72 sub def -%/bmargin 72 def -%/pagenumtab hmax 72 sub def - % 1/2-inch margins /lmargin 36 def % left margin /tmargin vmax 56 sub def % top margin /bmargin 36 def % bottom margin -/pagenumtab hmax 36 sub def % right margin +/pagenumtab hmax 36 sub def % right margin % Counters -/vpos vmax 40 sub def /thispagenum 1 def % Strings @@ -90,7 +83,7 @@ pop pop % junk /vpos vpos 10 sub def - vpos bmargin le % is vpos <= bottom margin? + vpos 5 sub bmargin le % is vpos <= bottom margin? { formfeed } @@ -104,7 +97,7 @@ pop pop % junk /indent exch def % wrapat = width / sizeof font (remember: monospaced font) - /pagewidth pagenumtab bmargin sub def + /pagewidth pagenumtab lmargin sub def /cwidth (A) stringwidth pop def /wrapat pagewidth cwidth div cvi def @@ -134,7 +127,7 @@ pop pop % junk eth_pagetitle show % this page number - pagenumtab (Page ) stringwidth pop sub thispagenum pagenostr cvs stringwidth pop sub % X + pagenumtab (Page ) stringwidth pop sub thispagenum pagenostr cvs stringwidth pop sub % X vmax 36 sub % Y moveto (Page ) show @@ -158,7 +151,6 @@ pop pop % junk bmargin % Y moveto - % title pagenumtab % X bmargin % Y lineto @@ -246,12 +238,9 @@ formfeed % ---- wireshark finale start ---- % -% If this is not the first page, then print the page number -thispagenum 1 gt % is thispagenum > 1 ? -{ - printpagedecorations -} -if - +printpagedecorations showpage + +%%EOF + % ---- wireshark finale end ---- % |