code.delx.au - gnu-emacs/blob - etc/ps-prin1.ps

   1 % === BEGIN ps-print prologue 1
   2 % version: 6.0
   3
   4 % ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:
   5 /ISOLatin1Encoding where{pop}{
   6 % -- The ISO Latin-1 encoding vector isn't known, so define it.
   7 % -- The first half is the same as the standard encoding,
   8 % -- except for minus instead of hyphen at code 055.
   9 /ISOLatin1Encoding
  10 StandardEncoding 0 45 getinterval aload pop
  11     /minus
  12 StandardEncoding 46 82 getinterval aload pop
  13 %*** NOTE: the following are missing in the Adobe documentation,
  14 %*** but appear in the displayed table:
  15 %*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
  16 % 0200 (128)
  17     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  18     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  19     /dotlessi/grave/acute/circumflex/tilde/macron/breve/dotaccent
  20     /dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut/ogonek/caron
  21 % 0240 (160)
  22     /space/exclamdown/cent/sterling
  23         /currency/yen/brokenbar/section
  24     /dieresis/copyright/ordfeminine/guillemotleft
  25         /logicalnot/hyphen/registered/macron
  26     /degree/plusminus/twosuperior/threesuperior
  27         /acute/mu/paragraph/periodcentered
  28     /cedilla/onesuperior/ordmasculine/guillemotright
  29         /onequarter/onehalf/threequarters/questiondown
  30 % 0300 (192)
  31     /Agrave/Aacute/Acircumflex/Atilde
  32         /Adieresis/Aring/AE/Ccedilla
  33     /Egrave/Eacute/Ecircumflex/Edieresis
  34         /Igrave/Iacute/Icircumflex/Idieresis
  35     /Eth/Ntilde/Ograve/Oacute
  36         /Ocircumflex/Otilde/Odieresis/multiply
  37     /Oslash/Ugrave/Uacute/Ucircumflex
  38         /Udieresis/Yacute/Thorn/germandbls
  39 % 0340 (224)
  40     /agrave/aacute/acircumflex/atilde
  41         /adieresis/aring/ae/ccedilla
  42     /egrave/eacute/ecircumflex/edieresis
  43         /igrave/iacute/icircumflex/idieresis
  44     /eth/ntilde/ograve/oacute
  45         /ocircumflex/otilde/odieresis/divide
  46     /oslash/ugrave/uacute/ucircumflex
  47         /udieresis/yacute/thorn/ydieresis
  48 256 packedarray def
  49 }ifelse
  50
  51 /reencodeFontISO{ %def
  52   dup
  53   length 12 add dict    % Make a new font (a new dict the same size
  54                         % as the old one) with room for our new symbols.
  55
  56   begin                 % Make the new font the current dictionary.
  57
  58     % Copy each of the symbols from the old dictionary
  59     % to the new one except for the font ID.
  60     {1 index/FID ne{def}{pop pop}ifelse}forall
  61
  62     % Override the encoding with the ISOLatin1 encoding.
  63     currentdict/FontType get 0 ne{/Encoding ISOLatin1Encoding def}if
  64
  65     % Use the font's bounding box to determine the ascent, descent,
  66     % and overall height; don't forget that these values have to be
  67     % transformed using the font's matrix.
  68
  69 %          ^    (x2 y2)
  70 %          |       |
  71 %          |       v
  72 %          |  +----+ - -
  73 %          |  |    |   ^
  74 %          |  |    |   | Ascent (usually > 0)
  75 %          |  |    |   |
  76 % (0 0) -> +--+----+-------->
  77 %             |    |   |
  78 %             |    |   v Descent (usually < 0)
  79 % (x1 y1) --> +----+ - -
  80
  81     currentdict/FontType get 0 ne
  82     {/FontBBox load aload pop                   % -- x1 y1 x2 y2
  83      FontMatrix transform/Ascent  exch def pop
  84      FontMatrix transform/Descent exch def pop}
  85     {/PrimaryFont FDepVector 0 get def
  86      PrimaryFont/FontBBox get aload pop
  87      PrimaryFont/FontMatrix get transform/Ascent exch def pop
  88      PrimaryFont/FontMatrix get transform/Descent exch def pop}ifelse
  89
  90     /FontHeight Ascent Descent sub def  % use `sub' because descent < 0
  91
  92     % Define these in case they're not in the FontInfo
  93     % (also, here they're easier to get to).
  94     /UnderlinePosition  Descent 0.70 mul def
  95     /OverlinePosition   Descent UnderlinePosition sub Ascent add def
  96     /StrikeoutPosition  Ascent 0.30 mul def
  97     /LineThickness      FontHeight 0.05 mul def
  98     /Xshadow            FontHeight  0.08 mul def
  99     /Yshadow            FontHeight -0.09 mul def
 100     /SpaceBackground    Descent neg UnderlinePosition add def
 101     /XBox               Descent neg def
 102     /YBox               LineThickness 0.7 mul def
 103
 104     currentdict         % Leave the new font on the stack
 105     end                 % Stop using the font as the current dictionary.
 106     definefont          % Put the font into the font dictionary
 107     pop                 % Discard the returned font.
 108 }bind def
 109
 110 % Font definition
 111 /DefFont{findfont exch scalefont reencodeFontISO}def
 112
 113 % Font selection
 114 /F{
 115   findfont
 116   dup/Ascent            get/Ascent            exch def
 117   dup/Descent           get/Descent           exch def
 118   dup/FontHeight        get/FontHeight        exch def
 119   dup/UnderlinePosition get/UnderlinePosition exch def
 120   dup/OverlinePosition  get/OverlinePosition  exch def
 121   dup/StrikeoutPosition get/StrikeoutPosition exch def
 122   dup/LineThickness     get/LineThickness     exch def
 123   dup/Xshadow           get/Xshadow           exch def
 124   dup/Yshadow           get/Yshadow           exch def
 125   dup/SpaceBackground   get/SpaceBackground   exch def
 126   dup/XBox              get/XBox              exch def
 127   dup/YBox              get/YBox              exch def
 128   setfont
 129 }def
 130
 131 /FG/setrgbcolor load def
 132
 133 /bg false def
 134 /BG{
 135   dup/bg exch def
 136   {[4 1 roll]}
 137   {[1.0 1.0 1.0]}
 138   ifelse
 139   /bgcolor exch def
 140 }def
 141
 142 %  B    width    C
 143 %   +-----------+
 144 %               | Ascent  (usually > 0)
 145 % A +           +
 146 %               | Descent (usually < 0)
 147 %   +-----------+
 148 %  E    width    D
 149
 150 /dobackground{                          % width --
 151   currentpoint                          % -- width x y
 152   gsave
 153     newpath
 154     moveto                              % A (x y)
 155     0 Ascent rmoveto                    % B
 156     dup 0 rlineto                       % C
 157     0 Descent Ascent sub rlineto        % D
 158     neg 0 rlineto                       % E
 159     closepath
 160     FillBgColor
 161   grestore
 162 }def
 163
 164 /eolbg{                                 % dobackground until right margin
 165   PrintWidth                            % -- x-eol
 166   currentpoint pop                      % -- cur-x
 167   sub                                   % -- width until eol
 168   dobackground
 169 }def
 170
 171 /PSL{bg{eolbg}if  0  currentpoint exch pop LineHeight sub  moveto}def
 172 /PLN{PrintLineNumber{doLineNumber}if}def
 173
 174 /SL{PSL isLineStep pop}def              % Soft Linefeed
 175
 176 /HL{PSL PLN}def                         % Hard Linefeed
 177
 178 % Some debug
 179 /dcp{currentpoint exch 40 string cvs print(, )print =}def
 180 /dp{print 2 copy  exch 40 string cvs print(, )print =}def
 181
 182 /W{
 183   ( )stringwidth        % Get the width of a space in the current font.
 184   pop                   % Discard the Y component.
 185   mul                   % Multiply the width of a space
 186                         % by the number of spaces to plot
 187   bg{dup dobackground}if
 188   0 rmoveto
 189 }def
 190
 191 /Effect 0 def
 192 /EF{/Effect exch def}def
 193
 194 % stack:  string  |-  --
 195 % effect: 1  - underline  2   - strikeout  4  - overline
 196 %         8  - shadow     16  - box        32 - outline
 197 /S{
 198   /xx currentpoint dup Descent add/yy exch def
 199   Ascent add/YY exch def def
 200   dup stringwidth pop xx add/XX exch def
 201   Effect 8 and 0 ne{
 202     /yy yy Yshadow add def
 203     /XX XX Xshadow add def
 204   }if
 205   bg{
 206     true
 207     Effect 16 and 0 ne
 208       {SpaceBackground doBox}
 209       {xx yy XX YY doRect}
 210     ifelse
 211   }if                                           % background
 212   Effect 16 and 0 ne{false 0 doBox}if           % box
 213   Effect 8  and 0 ne{dup doShadow}if            % shadow
 214   Effect 32 and 0 ne
 215     {true doOutline}                            % outline
 216     {show}                                      % normal text
 217   ifelse
 218   Effect 1  and 0 ne{UnderlinePosition Hline}if % underline
 219   Effect 2  and 0 ne{StrikeoutPosition Hline}if % strikeout
 220   Effect 4  and 0 ne{OverlinePosition  Hline}if % overline
 221 }bind def
 222
 223 % stack:  position  |-  --
 224 /Hline{
 225   currentpoint exch pop add dup
 226   gsave
 227   newpath
 228   xx exch moveto
 229   XX exch lineto
 230   closepath
 231   LineThickness setlinewidth stroke
 232   grestore
 233 }bind def
 234
 235 % stack:  fill-or-not delta  |-  --
 236 /doBox{
 237   /dd exch def
 238   xx XBox sub dd sub yy YBox sub dd sub
 239   XX XBox add dd add YY YBox add dd add
 240   doRect
 241 }bind def
 242
 243 % stack:  fill-or-not lower-x lower-y upper-x upper-y  |-  --
 244 /doRect{
 245   /rYY exch def
 246   /rXX exch def
 247   /ryy exch def
 248   /rxx exch def
 249   gsave
 250   newpath
 251   rXX rYY moveto
 252   rxx rYY lineto
 253   rxx ryy lineto
 254   rXX ryy lineto
 255   closepath
 256   % top of stack: fill-or-not
 257   {FillBgColor}
 258   {LineThickness setlinewidth stroke}ifelse
 259   grestore
 260 }bind def
 261
 262 % stack:  string  |-  --
 263 /doShadow{
 264   gsave
 265   Xshadow Yshadow rmoveto
 266   false doOutline
 267   grestore
 268 }bind def
 269
 270 /st 1 string def
 271
 272 % stack:  string fill-or-not  |-  --
 273 /doOutline{
 274   /-fillp- exch def
 275   /-ox- currentpoint/-oy- exch def def
 276   gsave
 277   LineThickness setlinewidth
 278   {st 0 3 -1 roll put
 279    st dup true charpath
 280    -fillp- {gsave FillBgColor grestore}if
 281    stroke stringwidth
 282    -oy- add/-oy- exch def
 283    -ox- add/-ox- exch def
 284    -ox- -oy- moveto
 285   }forall
 286   grestore
 287   -ox- -oy- moveto
 288 }bind def
 289
 290 % stack:  --
 291 /FillBgColor{bgcolor aload pop setrgbcolor fill}bind def
 292
 293 % stack:  -- |- boolean
 294 /isLineStep{
 295   SyncLineZebra
 296   {PLScounter 0 gt                                              % or zebra
 297    {/PLScounter PLScounter 1 sub def PLScounter 0 eq}
 298    {false}ifelse
 299    PrintLineStep 1 gt
 300    {/PrintLineStep PrintLineStep 1 sub def}
 301    {/PrintLineStep ZebraHeight def
 302     /PLScounter PrintLineStart def}ifelse}
 303   {LineNumber PrintLineStart sub PrintLineStep mod 0 eq}ifelse  % or line step
 304 }def
 305
 306 % stack:  --
 307 /doLineNumber{
 308   /LineNumber where
 309   {pop
 310    isLineStep                   % or line step
 311    LineNumber Lines ge or       % or last line
 312    {currentfont
 313     gsave
 314     0.0 0.0 0.0 setrgbcolor
 315     /L0 findfont setfont
 316     LineNumber Lines ge
 317     {(end      )}
 318     {LineNumber 6 string cvs(      )strcat}ifelse
 319     dup stringwidth pop neg 0 rmoveto
 320     show
 321     grestore
 322     setfont}if
 323     /LineNumber LineNumber 1 add def
 324   }if
 325 }def
 326
 327 % stack: color-specifier |- --
 328 /SetColor{dup type/realtype eq{setgray}{aload pop setrgbcolor}ifelse}def
 329
 330 % stack: --
 331 /printZebra{
 332   gsave
 333   ZebraColor SetColor
 334   /double-zebra ZebraHeight ZebraHeight add def
 335   /yiter double-zebra LineHeight mul neg def
 336   /xiter PrintWidth InterColumn add def
 337   /zebra-line PageNumber 1 sub NumberOfColumns mul LinesPerColumn mul def
 338   NumberOfColumns{LinesPerColumn doColumnZebra xiter 0 rmoveto}repeat
 339   grestore
 340 }def
 341
 342 % stack:  lines-per-column |- --
 343 /doColumnZebra{
 344   /lpc exch def
 345   gsave
 346   ZebraFollow{
 347     /H ZebraHeight zebra-line ZebraHeight mod sub def
 348     /lpc lpc H sub def
 349     zebra-line double-zebra mod ZebraHeight lt
 350     {H doZebra  % "black" stripe followed by a "white" stripe
 351      /lpc lpc ZebraHeight sub def
 352      H ZebraHeight add}
 353     {H}ifelse   % "white" stripe
 354     LineHeight mul neg 0 exch rmoveto
 355     /zebra-line zebra-line LinesPerColumn add def
 356   }if
 357   lpc dup double-zebra idiv{ZebraHeight doZebra 0 yiter rmoveto}repeat
 358   double-zebra mod
 359   dup 0 le{pop}{dup ZebraHeight gt{pop ZebraHeight}if doZebra}ifelse
 360   grestore
 361 }def
 362
 363 % stack:  zebra-height (in lines) |- --
 364 /doZebra{
 365   /zh exch 0.05 sub LineHeight mul def
 366   gsave
 367   0 LineHeight 0.65 mul rmoveto
 368   PrintWidth 0 rlineto
 369   0 zh neg rlineto
 370   PrintWidth neg 0 rlineto
 371   0 zh rlineto
 372   fill
 373   grestore
 374 }def
 375
 376 % stack: --
 377 /printBackground{
 378   /BackgroundColor where{
 379     pop gsave BackgroundColor SetColor
 380     NumberOfColumns{
 381      gsave
 382      0 LineHeight 0.65 mul rmoveto
 383      PrintWidth 0 rlineto
 384      0 PrintHeight neg rlineto
 385      PrintWidth neg 0 rlineto
 386      0 PrintHeight rlineto
 387      fill
 388      grestore
 389      PrintWidth InterColumn add 0 rmoveto
 390     }repeat
 391     grestore
 392   }if
 393 }def
 394
 395 % tx ty rotation xscale yscale xpos ypos BeginBackImage
 396 /BeginBackImage{
 397   /-save-image- save def
 398   /showpage{}def
 399   translate
 400   scale
 401   rotate
 402   translate
 403 }def
 404
 405 /EndBackImage{-save-image- restore}def
 406
 407 % string fontsize fontname rotation gray xpos ypos ShowBackText
 408 /ShowBackText{
 409   gsave
 410   translate
 411   setgray
 412   rotate
 413   findfont exch dup/-offset- exch -0.25 mul def scalefont setfont
 414   0 -offset- moveto
 415   /-saveLineThickness- LineThickness def
 416   /LineThickness 1 def
 417   false doOutline
 418   /LineThickness -saveLineThickness- def
 419   grestore
 420 }def
 421
 422 /SetPageSize{
 423   BMark/PageSize[PageWidth LandscapePageHeight LandscapeMode{exch}if]EMark setpagedevice
 424 }def
 425
 426 /BeginDoc{
 427   % ---- Remember space width of the normal text font `f0'.
 428   /SpaceWidth/f0 findfont setfont( )stringwidth pop def
 429   % ---- save the state of the document (useful for ghostscript!)
 430   /docState save def
 431   % ---- [andrewi] set PageSize based on chosen dimensions
 432   UseSetpagedevice{
 433    WarnPaperSize{SetPageSize}{mark{SetPageSize}stopped cleartomark}ifelse
 434   }if
 435   /ColumnWidth PrintWidth InterColumn add def
 436   % ---- define where  printing will start
 437   /f0 F                                 % this installs Ascent
 438   /PrintStartY PrintHeight Ascent sub def
 439   /ColumnIndex 1 def
 440   /N-Up-Counter N-Up-End 1 sub def
 441   /PLScounter PrintLineStart def
 442 }def
 443
 444 /EndDoc{
 445   % ---- restore the state of the document (useful for ghostscript!)
 446   docState restore
 447 }def
 448
 449 /BeginDSCPage{
 450   % ---- when 1st column, save the state of the page
 451   ColumnIndex 1 eq{/pageState save def}if
 452   % ---- save the state of the column
 453   /columnState save def
 454 }def
 455
 456 /PrintHeaderWidth PrintOnlyOneHeader{PrintPageWidth}{PrintWidth}ifelse def
 457
 458 /BeginPage{
 459   % ---- when 1st column, print all background effects
 460   ColumnIndex 1 eq{
 461     0 PrintStartY moveto                % move to where printing will start
 462     printBackground
 463     Zebra{printZebra}if
 464     printGlobalBackground
 465     printLocalBackground
 466   }if
 467   PrintHeader{
 468     PrintOnlyOneHeader{ColumnIndex 1 eq}{true}ifelse{
 469       PrintHeaderFrame{HeaderFrame}if
 470       HeaderText
 471     }if
 472   }if
 473   0 PrintStartY moveto                  % move to where printing will start
 474   /LineNumber where
 475   {pop
 476    SyncLineZebra
 477    {/H PageNumber 1 sub NumberOfColumns mul ColumnIndex 1 sub add
 478        LinesPerColumn mul ZebraHeight mod def
 479     /PLScounter H PrintLineStart ge{0}{PrintLineStart H sub}ifelse def
 480     /PrintLineStep ZebraHeight H sub def}if}if
 481   PLN
 482 }def
 483
 484 /EndPage{bg{eolbg}if}def
 485
 486 /EndDSCPage{
 487   ColumnIndex NumberOfColumns eq{
 488     % ---- restore the state of the page
 489     pageState restore
 490     /ColumnIndex 1 def
 491     % ---- N-up printing
 492     N-Up 1 gt{
 493       N-Up-Counter 0 gt
 494       {% ---- Next page on same row
 495         /N-Up-Counter N-Up-Counter 1 sub def
 496         N-Up-XColumn N-Up-YColumn}
 497       {% ---- Next page on next line
 498         /N-Up-Counter N-Up-End 1 sub def
 499         N-Up-XLine N-Up-YLine}ifelse
 500       translate
 501     }if
 502   }{ % else
 503     % ---- restore the state of the current column
 504     columnState restore
 505     % ---- and translate to the next column
 506     ColumnWidth 0 translate
 507     /ColumnIndex ColumnIndex 1 add def
 508   }ifelse
 509 }def
 510
 511 % stack: number-of-pages-per-sheet |- --
 512 /BeginSheet{
 513   /sheetState save def
 514   /pages-per-sheet exch def
 515
 516   % ---- translate to bottom-right corner of Portrait page
 517   LandscapeMode{
 518     LandscapePageHeight 0 translate
 519     90 rotate
 520   }if
 521   % ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7
 522   /JackGhostscript where{pop 1 27.7 29.7 div scale}if
 523   UpsideDown{PageWidth LandscapePageHeight translate 180 rotate}if
 524   % ---- N-Up printing
 525   N-Up 1 gt{
 526     % ---- landscape
 527     N-Up-Landscape{
 528       PageWidth 0 translate
 529       90 rotate
 530     }if
 531     N-Up-Margin dup translate
 532     % ---- scale
 533     LandscapeMode{
 534       /HH PageWidth def
 535       /WW LandscapePageHeight def
 536     }{
 537       /HH LandscapePageHeight def
 538       /WW PageWidth def
 539     }ifelse
 540     /xx 0 def
 541     N-Up-Landscape{
 542       /ww WW WW mul N-Up-Lines HH mul div def
 543       /cc HH N-Up-Columns N-Up-Missing add div def
 544       ww cc gt{/xx WW def/WW cc ww div WW mul def/xx xx WW sub def}if
 545     }{
 546       /hh HH N-Up-Columns N-Up-Missing add div def
 547       /cc HH N-Up-Lines div def
 548       hh cc gt{/xx WW def/WW cc hh div WW mul def/xx xx WW sub def}if
 549     }ifelse
 550     WW N-Up-Margin sub N-Up-Margin sub
 551     N-Up-Landscape
 552     {N-Up-Lines div HH}
 553     {N-Up-Columns N-Up-Missing add div WW}ifelse
 554     div dup scale
 555     LandscapeMode{/yy 0 def}{/yy xx def/xx 0 def}ifelse
 556     xx N-Up-Repeat 1 sub LandscapePageHeight mul yy add translate
 557     % ---- go to start position in page matrix
 558     N-Up-XStart N-Up-Missing 0.5 mul
 559     LandscapeMode
 560     {LandscapePageHeight mul N-Up-YStart add}
 561     {PageWidth mul add N-Up-YStart}ifelse
 562     translate
 563   }if
 564   % ---- translate to lower left corner of TEXT
 565   LeftMargin BottomMargin translate
 566
 567   % ---- N-up printing
 568   N-Up 1 gt N-Up-Border and pages-per-sheet 0 gt and{
 569     % ---- page border
 570     gsave
 571     0 setgray
 572     LeftMargin neg BottomMargin neg moveto
 573     N-Up-Repeat
 574     {N-Up-End
 575      {gsave
 576       PageWidth 0 rlineto
 577       0 LandscapePageHeight rlineto
 578       PageWidth neg 0 rlineto
 579       closepath stroke
 580       grestore
 581       /pages-per-sheet pages-per-sheet 1 sub def
 582       pages-per-sheet 0 le{exit}if
 583       N-Up-XColumn N-Up-YColumn rmoveto
 584      }repeat
 585      pages-per-sheet 0 le{exit}if
 586      N-Up-XLine N-Up-XColumn sub N-Up-YLine rmoveto
 587     }repeat
 588     grestore
 589   }if
 590 }def
 591
 592 /EndSheet{
 593   showpage
 594   sheetState restore
 595 }def
 596
 597 /SetHeaderLines{                        % nb-lines --
 598   /HeaderLines exch def
 599   % ---- bottom up
 600   HeaderPad
 601   HeaderLines 1 sub HeaderLineHeight mul add
 602   HeaderTitleLineHeight add
 603   HeaderPad add
 604   /HeaderHeight exch def
 605 }def
 606
 607 % |---------|
 608 % |  tm     |
 609 % |---------|
 610 % |  header |
 611 % |-+-------| <-- (x y)
 612 % |  ho     |
 613 % |---------|
 614 % |  text   |
 615 % |-+-------| <-- (0 0)
 616 % |  bm     |
 617 % |---------|
 618
 619 % -- |- x y
 620 /HeaderFrameStart{0  PrintHeight HeaderOffset add}def
 621
 622 /HeaderFramePath{
 623   PrintHeaderWidth      0                       rlineto
 624   0                     HeaderHeight            rlineto
 625   PrintHeaderWidth neg  0                       rlineto
 626   0                     HeaderHeight neg        rlineto
 627 }def
 628
 629 /HeaderFrame{
 630   gsave
 631     0.4 setlinewidth
 632     % ---- fill a black rectangle (the shadow of the next one)
 633     HeaderFrameStart moveto
 634     1 -1 rmoveto
 635     HeaderFramePath
 636     0 setgray fill
 637     % ---- do the next rectangle ...
 638     HeaderFrameStart moveto
 639     HeaderFramePath
 640     gsave 0.9 setgray fill grestore     % filled with grey
 641     gsave 0 setgray stroke grestore     % drawn  with black
 642   grestore
 643 }def
 644
 645 /HeaderStart{
 646   HeaderFrameStart
 647   exch HeaderPad add exch       % horizontal pad
 648   % ---- bottom up
 649   HeaderPad add                 % vertical   pad
 650   HeaderDescent sub
 651   HeaderLineHeight HeaderLines 1 sub mul add
 652 }def
 653
 654 /strcat{
 655   dup length 3 -1 roll dup length dup 4 -1 roll add string dup
 656   0 5 -1 roll putinterval
 657   dup 4 2 roll exch putinterval
 658 }def
 659
 660 /pagenumberstring{
 661   PageNumber 32 string cvs
 662   ShowNofN{(/)strcat PageCount 32 string cvs strcat}if
 663 }def
 664
 665 /HeaderText{
 666   HeaderStart moveto
 667
 668   HeaderLinesRight HeaderLinesLeft      % -- rightLines leftLines
 669
 670   % ---- hack: `PN 1 and'  ==  `PN 2 modulo'
 671
 672   % ---- if even page number and duplex, then exchange left and right
 673   PageNumber 1 and 0 eq SwitchHeader and{exch}if
 674
 675   { % ---- process the left lines
 676     aload pop
 677     exch F
 678     gsave
 679       dup xcheck{exec}if
 680       show
 681     grestore
 682     0 HeaderLineHeight neg rmoveto
 683   }forall
 684
 685   HeaderStart moveto
 686
 687   { % ---- process the right lines
 688     aload pop
 689     exch F
 690     gsave
 691       dup xcheck{exec}if
 692       dup stringwidth pop
 693       PrintHeaderWidth exch sub HeaderPad 2 mul sub 0 rmoveto
 694       show
 695     grestore
 696     0 HeaderLineHeight neg rmoveto
 697   }forall
 698 }def
 699
 700 /ReportFontInfo{
 701   2 copy
 702   /t0 3 1 roll DefFont
 703   /t0 F
 704   /lh FontHeight def
 705   /sw( )stringwidth pop def
 706   /aw(01234567890abcdefghijklmnopqrstuvwxyz)dup length exch
 707   stringwidth pop exch div def
 708   /t1 12/Helvetica-Oblique DefFont
 709   /t1 F
 710   gsave
 711     (languagelevel = )show
 712     languagelevel 32 string cvs show
 713   grestore
 714   0 FontHeight neg rmoveto
 715   gsave
 716     (For )show
 717     128 string cvs show
 718     ( )show
 719     32 string cvs show
 720     ( point, the line height is )show
 721     lh 32 string cvs show
 722     (, the space width is )show
 723     sw 32 string cvs show
 724     (,)show
 725   grestore
 726   0 FontHeight neg rmoveto
 727   gsave
 728     (and a crude estimate of average character width is )show
 729     aw 32 string cvs show
 730     (.)show
 731   grestore
 732   0 FontHeight neg rmoveto
 733 }def
 734
 735 % cm to point
 736 /cm{72 mul 2.54 div}def
 737
 738 /ReportAllFontInfo{
 739   % key = font name   value = font dictionary
 740   FontDirectory{pop 10 exch ReportFontInfo}forall
 741 }def
 742
 743 % 3 cm 20 cm moveto  10/Courier ReportFontInfo  showpage
 744 % 3 cm 20 cm moveto  ReportAllFontInfo          showpage
 745
 746 % === END ps-print prologue 1