1 % === BEGIN ps-print prologue 1
4 % Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
6 % This file is part of GNU Emacs.
8 % GNU Emacs is free software; you can redistribute it and/or modify
9 % it under the terms of the GNU General Public License as published by
10 % the Free Software Foundation; either version 2, or (at your option)
13 % GNU Emacs is distributed in the hope that it will be useful,
14 % but WITHOUT ANY WARRANTY; without even the implied warranty of
15 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 % GNU General Public License for more details.
18 % You should have received a copy of the GNU General Public License
19 % along with GNU Emacs; see the file COPYING. If not, write to the
20 % Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 % Boston, MA 02111-1307, USA.
23 % As a special exception, the copyright holders of this module give
24 % you permission to include the module in a Postscript file generated
25 % by Emacs or other free software together with the result of
26 % converting text to be printed, regardless of the license terms of
27 % that text, and to use under terms of your choice the page images
28 % resulting from formatting said combination. If you modify this
29 % module, you may extend this exception to your version of the module
30 % but you are not obligated to do so. If you do not wish to do so,
31 % delete this exception statement from your version.
34 % ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:
35 /ISOLatin1Encoding where
{pop}{
36 % -- The ISO Latin-1 encoding vector isn't known, so define it.
37 % -- The first half is the same as the standard encoding,
38 % -- except for minus instead of hyphen at code 055.
40 StandardEncoding
0 45 getinterval aload
pop
42 StandardEncoding
46 82 getinterval aload
pop
43 %*** NOTE: the following are missing in the Adobe documentation,
44 %*** but appear in the displayed table:
45 %*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
47 /.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
48 /.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
49 /dotlessi
/grave
/acute
/circumflex
/tilde
/macron
/breve
/dotaccent
50 /dieresis
/.notdef
/ring
/cedilla
/.notdef
/hungarumlaut
/ogonek
/caron
52 /space
/exclamdown
/cent
/sterling
53 /currency
/yen
/brokenbar
/section
54 /dieresis
/copyright
/ordfeminine
/guillemotleft
55 /logicalnot
/hyphen
/registered
/macron
56 /degree
/plusminus
/twosuperior
/threesuperior
57 /acute
/mu
/paragraph
/periodcentered
58 /cedilla
/onesuperior
/ordmasculine
/guillemotright
59 /onequarter
/onehalf
/threequarters
/questiondown
61 /Agrave
/Aacute
/Acircumflex
/Atilde
62 /Adieresis
/Aring
/AE
/Ccedilla
63 /Egrave
/Eacute
/Ecircumflex
/Edieresis
64 /Igrave
/Iacute
/Icircumflex
/Idieresis
65 /Eth
/Ntilde
/Ograve
/Oacute
66 /Ocircumflex
/Otilde
/Odieresis
/multiply
67 /Oslash
/Ugrave
/Uacute
/Ucircumflex
68 /Udieresis
/Yacute
/Thorn
/germandbls
70 /agrave
/aacute
/acircumflex
/atilde
71 /adieresis
/aring
/ae
/ccedilla
72 /egrave
/eacute
/ecircumflex
/edieresis
73 /igrave
/iacute
/icircumflex
/idieresis
74 /eth
/ntilde
/ograve
/oacute
75 /ocircumflex
/otilde
/odieresis
/divide
76 /oslash
/ugrave
/uacute
/ucircumflex
77 /udieresis
/yacute
/thorn
/ydieresis
81 /reencodeFontISO
{ %def
83 length
12 add dict
% Make a new font (a new dict the same size
84 % as the old one) with room for our new symbols.
86 begin
% Make the new font the current dictionary.
88 % Copy each of the symbols from the old dictionary
89 % to the new one except for the font ID.
90 {1 index
/FID ne
{def
}{pop pop}ifelse}forall
92 % Override the encoding with the ISOLatin1 encoding.
93 currentdict
/FontType get
0 ne
{/Encoding ISOLatin1Encoding def
}if
95 % Use the font's bounding box to determine the ascent, descent,
96 % and overall height; don't forget that these values have to be
97 % transformed using the font's matrix.
104 % | | | | Ascent (usually > 0)
106 % (0 0) -> +--+----+-------->
108 % | | v Descent (usually < 0)
109 % (x1 y1) --> +----+ - -
111 currentdict
/FontType get
0 ne
112 {/FontBBox load aload
pop % -- x1 y1 x2 y2
113 FontMatrix transform
/Ascent
exch def
pop
114 FontMatrix transform
/Descent
exch def
pop}
115 {/PrimaryFont FDepVector
0 get def
116 PrimaryFont
/FontBBox get aload
pop
117 PrimaryFont
/FontMatrix get transform
/Ascent
exch def
pop
118 PrimaryFont
/FontMatrix get transform
/Descent
exch def
pop}ifelse
120 /FontHeight Ascent Descent
sub def
% use `sub' because descent < 0
122 % Define these in case they're not in the FontInfo
123 % (also, here they're easier to get to).
124 /UnderlinePosition Descent
0.70 mul def
125 /OverlinePosition Descent UnderlinePosition
sub Ascent add def
126 /StrikeoutPosition Ascent
0.30 mul def
127 /LineThickness FontHeight
0.05 mul def
128 /Xshadow FontHeight
0.08 mul def
129 /Yshadow FontHeight
-0.09 mul def
130 /SpaceBackground Descent neg UnderlinePosition add def
131 /XBox Descent neg def
132 /YBox LineThickness
0.7 mul def
134 currentdict
% Leave the new font on the stack
135 end
% Stop using the font as the current dictionary.
136 definefont
% Put the font into the font dictionary
137 pop % Discard the returned font.
141 /DefFont
{findfont
exch scalefont reencodeFontISO
}def
146 dup/Ascent get
/Ascent
exch def
147 dup/Descent get
/Descent
exch def
148 dup/FontHeight get
/FontHeight
exch def
149 dup/UnderlinePosition get
/UnderlinePosition
exch def
150 dup/OverlinePosition get
/OverlinePosition
exch def
151 dup/StrikeoutPosition get
/StrikeoutPosition
exch def
152 dup/LineThickness get
/LineThickness
exch def
153 dup/Xshadow get
/Xshadow
exch def
154 dup/Yshadow get
/Yshadow
exch def
155 dup/SpaceBackground get
/SpaceBackground
exch def
156 dup/XBox get
/XBox
exch def
157 dup/YBox get
/YBox
exch def
161 /FG
/setrgbcolor load def
174 % | Ascent (usually > 0)
176 % | Descent (usually < 0)
180 /dobackground
{ % width --
181 currentpoint
% -- width x y
187 0 Descent Ascent
sub rlineto
% D
194 /eolbg
{ % dobackground until right margin
195 PrintWidth
% -- x-eol
196 currentpoint
pop % -- cur-x
197 sub % -- width until eol
201 /LineHS LineHeight LineSpacing add def
202 /ParagraphHS LineHeight ParagraphSpacing add def
203 /PSL
{/h
exch def bg
{eolbg
}if 0 currentpoint
exch pop h
sub moveto
}def
204 /PLN
{PrintLineNumber
{doLineNumber
}if}def
206 /SL
{LineHS PSL isLineStep
pop}def
% Soft Linefeed
208 /PHL
{ParagraphHS PSL PLN
}def
% Paragraph Hard Linefeed
209 /LHL
{LineHS PSL PLN
}def
% Hard Linefeed
212 /dcp
{currentpoint
exch 40 string cvs print
(, )print
=}def
213 /dp
{print
2 copy exch 40 string cvs print
(, )print
=}def
216 ( )stringwidth
% Get the width of a space in the current font.
217 pop % Discard the Y component.
218 mul % Multiply the width of a space
219 % by the number of spaces to plot
220 bg
{dup dobackground
}if
225 /EffectUnderline
false def
226 /EffectStrikeout
false def
227 /EffectOverline
false def
228 /EffectShadow
false def
230 /EffectOutline
false def
232 % effect: 1 - underline 2 - strikeout 4 - overline
233 % 8 - shadow 16 - box 32 - outline
236 /EffectUnderline Effect
1 and
0 ne def
237 /EffectStrikeout Effect
2 and
0 ne def
238 /EffectOverline Effect
4 and
0 ne def
239 /EffectShadow Effect
8 and
0 ne def
240 /EffectBox Effect
16 and
0 ne def
241 /EffectOutline Effect
32 and
0 ne def
244 % stack: string |- --
246 /xx currentpoint
dup Descent add
/yy
exch def
247 Ascent add
/YY
exch def def
248 dup stringwidth
pop xx add
/XX
exch def
250 /yy yy Yshadow add def
251 /XX XX Xshadow add def
256 {SpaceBackground doBox
}
260 EffectBox
{false 0 doBox
}if % box
261 EffectShadow
{dup doShadow
}if % shadow
263 {true doOutline
} % outline
266 EffectUnderline
{UnderlinePosition Hline
}if % underline
267 EffectStrikeout
{StrikeoutPosition Hline
}if % strikeout
268 EffectOverline
{OverlinePosition Hline
}if % overline
271 % stack: position |- --
273 currentpoint
exch pop add
dup
279 LineThickness setlinewidth stroke
283 % stack: fill-or-not delta |- --
286 xx XBox
sub dd
sub yy YBox
sub dd
sub
287 XX XBox add dd add YY YBox add dd add
291 % stack: fill-or-not lower-x lower-y upper-x upper-y |- --
304 % top of stack: fill-or-not
306 {LineThickness setlinewidth stroke
}ifelse
310 % stack: string |- --
313 Xshadow Yshadow rmoveto
320 % stack: string fill-or-not |- --
323 /-ox
- currentpoint
/-oy
- exch def def
325 LineThickness setlinewidth
328 -fillp
- {gsave FillBgColor grestore
}if
330 -oy
- add
/-oy
- exch def
331 -ox
- add
/-ox
- exch def
339 /FillBgColor
{bgcolor aload
pop setrgbcolor fill
}bind def
341 % stack: -- |- boolean
344 {PLScounter
0 gt
% or zebra
345 {/PLScounter PLScounter
1 sub def PLScounter
0 eq
}
348 {/PrintLineStep PrintLineStep
1 sub def
}
349 {/PrintLineStep ZebraHeight def
350 /PLScounter PrintLineStart def
}ifelse}
351 {LineNumber PrintLineStart
sub PrintLineStep
mod 0 eq
}ifelse % or line step
358 isLineStep
% or line step
359 LineNumber Lines ge or
% or last line
362 LineNumberColor SetColor
366 {LineNumber
6 string cvs
( )strcat
}ifelse
367 dup stringwidth
pop neg
0 rmoveto
371 /LineNumber LineNumber
1 add def
375 % stack: color-specifier |- --
376 /SetColor
{dup type
/realtype eq
{setgray
}{aload
pop setrgbcolor
}ifelse}def
382 /double
-zebra ZebraHeight ZebraHeight add def
383 /yiter double
-zebra LineHS
mul neg def
384 /xiter PrintWidth InterColumn add def
385 /zebra
-line LinesPrinted def
386 NumberOfColumns
{LinesPerColumn doColumnZebra xiter
0 rmoveto
}repeat
390 % stack: lines-per-column |- --
394 ZebraFollow
1 and
0 ne
{
395 /H ZebraHeight zebra
-line ZebraHeight
mod sub def
397 zebra
-line double
-zebra
mod ZebraHeight lt
398 {H doZebra
% "black" stripe followed by a "white" stripe
399 /lpc lpc ZebraHeight
sub def
401 {H
}ifelse % "white" stripe
402 LineHS
mul neg
0 exch rmoveto
403 /zebra
-line zebra
-line LinesPerColumn add def
406 lpc
dup double
-zebra
idiv{ZebraHeight doZebra
0 yiter rmoveto
}repeat
407 double
-zebra
mod dup 0 le
{pop}
410 {/zspacing LineSpacing def
411 ZebraFollow
2 and
0 ne
{pop ZebraHeight
}if}ifelse
416 % stack: zebra-height (in lines) |- --
418 /zh
exch 0.05 sub LineHS
mul zspacing
sub def
420 0 LineHeight
0.65 mul rmoveto
423 PrintWidth neg
0 rlineto
431 /BackgroundColor where
{
432 pop gsave BackgroundColor SetColor
435 0 LineHeight
0.65 mul rmoveto
437 0 PrintHeight neg rlineto
438 PrintWidth neg
0 rlineto
439 0 PrintHeight rlineto
442 PrintWidth InterColumn add
0 rmoveto
448 % tx ty rotation xscale yscale xpos ypos BeginBackImage
450 /-save
-image
- save def
458 /EndBackImage
{-save
-image
- restore
}def
460 % string fontsize fontname rotation gray xpos ypos ShowBackText
466 findfont
exch dup/-offset
- exch -0.25 mul def scalefont setfont
468 /-saveLineThickness
- LineThickness def
471 /LineThickness
-saveLineThickness
- def
476 BMark
/PageSize
[PageWidth LandscapePageHeight LandscapeMode
{exch}if]EMark setpagedevice
480 % ---- Remember space width of the normal text font `f0'.
481 /SpaceWidth
/f0 findfont setfont
( )stringwidth
pop def
482 % ---- save the state of the document (useful for ghostscript!)
484 % ---- [andrewi] set PageSize based on chosen dimensions
486 WarnPaperSize
{SetPageSize
}{mark{SetPageSize
}stopped cleartomark}ifelse
488 /ColumnWidth PrintWidth InterColumn add def
489 % ---- define where printing will start
490 /f0 F
% this installs Ascent
491 /PrintStartY PrintHeight Ascent
sub def
493 /N
-Up
-Counter N
-Up
-End
1 sub def
494 /PLScounter PrintLineStart def
498 % ---- restore the state of the document (useful for ghostscript!)
503 % ---- when 1st column, save the state of the page
504 ColumnIndex
1 eq
{/pageState save def
}if
505 % ---- save the state of the column
506 /columnState save def
509 /PrintHeaderWidth PrintOnlyOneHeader
{PrintPageWidth
}{PrintWidth
}ifelse def
512 /LinesPrinted
exch def
513 % ---- when 1st column, print all background effects
515 0 PrintStartY moveto
% move to where printing will start
518 printGlobalBackground
521 PrintOnlyOneHeader
{ColumnIndex
1 eq
}{true}ifelse
523 PrintHeaderFrame
{HeaderFrame
}if
527 PrintFooterFrame
{FooterFrame
}if
530 0 PrintStartY moveto
% move to where printing will start
534 {/H PageNumber
1 sub NumberOfColumns
mul ColumnIndex
1 sub add
535 LinesPerColumn
mul ZebraHeight
mod def
536 /PLScounter H PrintLineStart ge
{0}{PrintLineStart H
sub}ifelse def
537 /PrintLineStep ZebraHeight H
sub def
}if}if
541 /EndPage
{bg
{eolbg
}if}def
544 ColumnIndex NumberOfColumns eq
{
545 % ---- restore the state of the page
551 {% ---- Next page on same row
552 /N
-Up
-Counter N
-Up
-Counter
1 sub def
553 N
-Up
-XColumn N
-Up
-YColumn
}
554 {% ---- Next page on next line
555 /N
-Up
-Counter N
-Up
-End
1 sub def
556 N
-Up
-XLine N
-Up
-YLine
}ifelse
560 % ---- restore the state of the current column
562 % ---- and translate to the next column
563 ColumnWidth
0 translate
564 /ColumnIndex ColumnIndex
1 add def
569 LeftMargin BottomMargin
572 FooterLines FooterLineHeight
mul add
577 % stack: number-of-pages-per-sheet |- --
580 /pages
-per
-sheet
exch def
582 % ---- translate to bottom-right corner of Portrait page
584 LandscapePageHeight
0 translate
587 % ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7
588 /JackGhostscript where
{pop 1 27.7 29.7 div scale
}if
589 UpsideDown
{PageWidth LandscapePageHeight translate
180 rotate
}if
594 PageWidth
0 translate
597 N
-Up
-Margin
dup translate
601 /WW LandscapePageHeight def
603 /HH LandscapePageHeight def
608 /ww WW WW
mul N
-Up
-Lines HH
mul div def
609 /cc HH N
-Up
-Columns N
-Up
-Missing add div def
610 ww cc gt
{/xx WW def
/WW cc ww div WW
mul def
/xx xx WW
sub def
}if
612 /hh HH N
-Up
-Columns N
-Up
-Missing add div def
613 /cc HH N
-Up
-Lines div def
614 hh cc gt
{/xx WW def
/WW cc hh div WW
mul def
/xx xx WW
sub def
}if
616 WW N
-Up
-Margin
sub N
-Up
-Margin
sub
619 {N
-Up
-Columns N
-Up
-Missing add div WW
}ifelse
621 LandscapeMode
{/yy
0 def
}{/yy xx def
/xx
0 def
}ifelse
622 xx N
-Up
-Repeat
1 sub LandscapePageHeight
mul yy add translate
623 % ---- go to start position in page matrix
624 N
-Up
-XStart N
-Up
-Missing
0.5 mul
626 {LandscapePageHeight
mul N
-Up
-YStart add
}
627 {PageWidth
mul add N
-Up
-YStart
}ifelse
630 % ---- translate to lower left corner of TEXT
634 N
-Up
1 gt N
-Up
-Border and pages
-per
-sheet
0 gt and
{
638 TextStart
exch neg
exch neg moveto
643 0 LandscapePageHeight rlineto
644 PageWidth neg
0 rlineto
647 /pages
-per
-sheet pages
-per
-sheet
1 sub def
648 pages
-per
-sheet
0 le
{exit}if
649 N
-Up
-XColumn N
-Up
-YColumn rmoveto
651 pages
-per
-sheet
0 le
{exit}if
652 N
-Up
-XLine N
-Up
-XColumn
sub N
-Up
-YLine rmoveto
663 /SetHeaderLines
{ % nb-lines --
664 /HeaderLines
exch def
667 HeaderLines
1 sub HeaderLineHeight
mul add
668 HeaderTitleLineHeight add
670 /HeaderHeight
exch def
673 /SetFooterLines
{ % nb-lines --
674 /FooterLines
exch def
677 FooterLines FooterLineHeight
mul add
679 /FooterHeight
exch def
686 % |-+-------| <-- (x y)
694 % |-+-------| <-- (0 0)
699 /HeaderFrameStart
{0 PrintHeight HeaderOffset add
}def
700 /FooterFrameStart
{0 FooterHeight FooterOffset add neg
}def
704 PrintHeaderWidth
0 rlineto
706 PrintHeaderWidth neg
0 rlineto
710 /HeaderFramePath
{HeaderHeight doFramePath
}def
711 /FooterFramePath
{FooterHeight doFramePath
}def
713 % /path-fun /start-fun vector-property doFrame
716 /startFrame
exch load def
717 /pathFrame
exch load def
719 vecFrame
2 get setlinewidth
% frame border width
720 % ---- do the shadow of the next rectangle
724 vecFrame
4 get SetColor fill
% frame shadow color
725 % ---- do the next rectangle ...
728 gsave vecFrame
1 get SetColor fill grestore
% frame background
729 gsave vecFrame
3 get SetColor stroke grestore
% frame border color
733 /HeaderFrame
{/HeaderFramePath
/HeaderFrameStart HeaderFrameProperties doFrame
}def
734 /FooterFrame
{/FooterFramePath
/FooterFrameStart FooterFrameProperties doFrame
}def
738 exch HeaderPad add
exch % horizontal pad
740 HeaderPad add
% vertical pad
742 HeaderLineHeight HeaderLines
1 sub mul add
747 exch FooterPad add
exch % horizontal pad
749 FooterPad add
% vertical pad
751 FooterLineHeight FooterLines
1 sub mul add
754 /HeaderClip
{HeaderFrameStart moveto HeaderFramePath clip
}def
755 /FooterClip
{FooterFrameStart moveto FooterFramePath clip
}def
758 dup length
3 -1 roll dup length
dup 4 -1 roll add string
dup
759 0 5 -1 roll putinterval
760 dup 4 2 roll exch putinterval
764 PageNumber
32 string cvs
765 ShowNofN
{(/)strcat PageCount
32 string cvs strcat
}if
768 % lines is-right HeaderOrFooterTextLines
769 /HeaderOrFooterTextLines
{
772 { % ---- process the lines
776 PrintHeaderWidth HFPad HFPad add
sub 0 rmoveto
778 dup type
/nametype eq
{
782 stringwidth
pop neg
0 rmoveto
788 dup type
/nametype eq
{
796 0 HFLineHeight neg rmoveto
800 % right-lines left-lines /start lineheight pad fore-color HeaderOrFooterText
804 /HFLineHeight
exch def
805 /HFStart
exch load def
807 % -- rightLines leftLines -- at stack
809 % ---- hack: `PN 1 and' == `PN 2 modulo'
810 % ---- if even page number and duplex, then exchange left and right
811 PageNumber
1 and
0 eq SwitchHeader and
{exch}if
813 % ---- process the left lines
814 false HeaderOrFooterTextLines
816 % ---- process the right lines
817 true HeaderOrFooterTextLines
822 HeaderLinesRight HeaderLinesLeft
823 /HeaderStart HeaderLineHeight HeaderPad
824 HeaderFrameProperties
0 get
831 FooterLinesRight FooterLinesLeft
832 /FooterStart FooterLineHeight FooterPad
833 FooterFrameProperties
0 get
843 /sw
( )stringwidth
pop def
844 /aw
(01234567890abcdefghijklmnopqrstuvwxyz
)dup length
exch
845 stringwidth
pop exch div def
846 /t1
12/Helvetica
-Oblique DefFont
849 (languagelevel
= )show
850 languagelevel
32 string cvs show
852 0 FontHeight neg rmoveto
858 ( point
, the line height is
)show
859 lh
32 string cvs show
860 (, the space width is
)show
861 sw
32 string cvs show
864 0 FontHeight neg rmoveto
866 (and a crude estimate of average character width is
)show
867 aw
32 string cvs show
870 0 FontHeight neg rmoveto
874 /cm
{72 mul 2.54 div
}def
877 % key = font name value = font dictionary
878 FontDirectory
{pop 10 exch ReportFontInfo
}forall
881 % 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage
882 % 3 cm 20 cm moveto ReportAllFontInfo showpage
884 % === END ps-print prologue 1