home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / ps2ascii.ps < prev    next >
Text File  |  2000-03-09  |  44KB  |  1,510 lines
  1. %    Copyright (C) 1991, 1995, 1996, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: ps2ascii.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  20. % Instead, ASCII information is written to stdout.  The idea is similar to
  21. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  22.  
  23. % If SIMPLE is defined, just the text is written, with a guess at line
  24. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  25. % to stdout as follows:
  26. %
  27. %    F <height> <width> (<fontname>)
  28. %        Indicate the font height and the width of a space.
  29. %
  30. %    P
  31. %        Indicate the end of the page.
  32. % 
  33. %    S <x> <y> (<string>) <width>
  34. %        Display a string.
  35. %
  36. % <width> and <height> are integer dimensions in units of 1/720".
  37. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  38. %   at the lower left.
  39. % <string> and <fontname> are strings represented with the standard
  40. %   PostScript escape conventions.
  41.  
  42. % If COMPLEX is defined, the following additional types of lines are
  43. % written to stdout.
  44. %
  45. %    C <r> <g> <b>
  46. %        Indicate the current color.
  47. %
  48. %    I <x> <y> <width> <height>
  49. %        Note the presence of an image.
  50. %
  51. %    R <x> <y> <width> <height>
  52. %        Fill a rectangle.
  53. %
  54. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  55. %
  56. % Note that future versions of this program (in COMPLEX mode) may add
  57. %   other output elements, so programs parsing the output should be
  58. %   prepared to ignore elements that they do not recognize.
  59.  
  60. % Note that this code will only work in all cases if systemdict is writable
  61. % and if `binding' the definitions of operators defined as procedures
  62. % is deferred.  For this reason, it is normally invoked with
  63. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  64.  
  65. % Thanks to:
  66. %    J Greely <jgreely@cis.ohio-state.edu> for improvements to this code;
  67. %    Jerry Whelan <jerryw@abode.ccd.bnl.gov> for motivating other improvements;
  68. %    David M. Jones <dmjones@theory.lcs.mit.edu> for improvements noted below.
  69.  
  70. %%  Additional modifications by David M. Jones
  71. %%  (dmjones@theory.lcs.mit.edu), December 23, 1997
  72. %%  
  73. %%  (a) Rewrote forall loop at the end of .show.write.  This fixes a
  74. %%      stack leakage problem, but the changes are more significant
  75. %%      than that.  
  76. %% 
  77. %%      .char.map includes the names of all characters in the
  78. %%      StandardEncoding, ISOLatin1Encoding, OT1Encoding and
  79. %%      T1Encoding vectors.  Thus, if the Encoding vector for the
  80. %%      current font contains a name that is not in .char.map, it's
  81. %%      redundant to check if the Encoding vector is equal to one of
  82. %%      the known vectors.  Previous versions of ps2ascii would give
  83. %%      up at this point, and substitute an asterisk (*) for the
  84. %%      character.  I've taken the liberty of instead using the
  85. %%      OT1Encoding vector to translate the character, on the grounds
  86. %%      that in the cases I'm most interested in, a font without a
  87. %%      useful Encoding vector was most likely created by a DVI to PS
  88. %%      converter such as dvips or DVILASER (and OT1Encoding is
  89. %%      largely compatible with StandardEncoding anyway).  [Note that
  90. %%      this does not make my earlier changes to support dvips (see
  91. %%      fix (a) under my 1996 changes) completely obsolete, since
  92. %%      there's additional useful information I can extract in that
  93. %%      case.]
  94. %%      
  95. %%      Overall, this should provide better support for some documents
  96. %%      (e.g, DVILASER documents will no longer be translated into a
  97. %%      series of *'s) without breaking any other documents any worse
  98. %%      than they already were broken.
  99. %% 
  100. %%  (b) Fixed two bugs in dvips.df-tail: (1) changed "dup 127" to "dup
  101. %%      128" to fix fencepost error, and (2) gave each font it's own
  102. %%      FontName rather than having all fonts share the same name.
  103. %%  
  104. %%  (c) Added one further refinement to the heuristic for detecting
  105. %%      paragraph breaks: do not ever start a new paragraph after a
  106. %%      line ending in a hyphen.
  107. %% 
  108. %%  (d) Added a bunch of missing letters from the T1Encoding,
  109. %%      OT1Encoding and ISOLatin1Encoding vectors to .letter.chars to
  110. %%      improve hyphen-elimination algorithm.  This still won't help
  111. %%      if there's no useful Encoding vector.
  112. %% 
  113. %%  NOTE: A better solution to the problem of missing Encoding vectors
  114. %%  might be to redefine definefont to check whether the Encoding
  115. %%  vector is sensible and, if not, replace it by a default.  This
  116. %%  would alleviate the need for constant tests in the .show.write
  117. %%  loop, as well as automatically solving the problem noted in fix
  118. %%  (d) above, and the similar problem with .break.chars.  This should
  119. %%  be investigated.  Also, the hyphen-elimination algorithm really
  120. %%  needs to be looked at carefully and rethought.
  121.  
  122. %%* Modifications to ps2ascii.ps by David M. Jones
  123. %%* (dmjones@theory.lcs.mit.edu), June 25-July 8, 1996
  124.  
  125. %%* Modifications:
  126. %%* 
  127. %%* (a) added code to give better support for dvips files by providing
  128. %%*     FontBBox's, FontName's and Encoding vectors for downloaded
  129. %%*     bitmap fonts.  This is done by using dvips's start-hook to
  130. %%*     overwrite the df-tail and D procedures that dvips uses to
  131. %%*     define its Type 3 bitmap fonts.  Thus, this change should
  132. %%*     provide better support for dvips-generated PS files without
  133. %%*     affecting the handling of other documents.
  134. %%* 
  135. %%* (b) Fixed two bugs that could potentially affect any PS file, not
  136. %%*     just those created by dvips: (1) added missing "get" operator
  137. %%*     in .show.write and (2) fixed bug that caused a hyphen at the
  138. %%*     end of a line to be replaced by a space rather than begin
  139. %%*     deleted.  Note that the first bug was a source of stack
  140. %%*     leakage, causing ps2ascii to run out of operand stack space
  141. %%*     occasionally.
  142. %%* 
  143. %%*     Search for "%%* BF" to find these modifications.
  144. %%*     
  145. %%* (c) Improved the heuristic for determining whether a line break
  146. %%*     has occurred and whether a line break represents a paragraph
  147. %%*     break.  Previously, any change in the vertical position caused
  148. %%*     a line break; now a line break is only registered if the
  149. %%*     change is larger than the height of the current font.  This
  150. %%*     means that superscripts, subscripts, and such things as
  151. %%*     shifted accents generated by TeX won't cause line breaks.
  152. %%*     Paragraph-recognition is now done by comparing the indentation
  153. %%*     of the new line to the indentation of the previous line and by
  154. %%*     comparing the vertical distance between the new line and the
  155. %%*     previous line to the vertical distance between the previous
  156. %%*     line and its predecessor.
  157. %%*     
  158. %%* (d) Added a hook for renaming the files where stdout and stderr
  159. %%*     go.
  160. %%* 
  161. %%* In general, my additions or changes to the code are described in
  162. %%* comments beginning with "%%*".  However, there are numerous other
  163. %%* places where I have either re-formatted code or added comments to
  164. %%* the code while I was trying to understand it.  These are usually
  165. %%* not specially marked.
  166. %%* 
  167.  
  168. /QUIET true def
  169. systemdict wcheck { systemdict } { userdict } ifelse begin
  170. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  171. /COMPLEX dup where { pop true } { false } ifelse def
  172. /SIMPLE dup where { pop true } { false } ifelse def
  173. /setglobal where
  174.  { pop currentglobal /setglobal load true setglobal }
  175.  { { } }
  176. ifelse
  177.  
  178. % Define a way to store and retrieve integers that survives save/restore.
  179. /.i.string0 (0               ) def
  180. /.i.string .i.string0 length string def
  181. /.iget { cvi } bind def
  182. /.iput { exch //.i.string exch copy cvs pop } bind def
  183. /.inew { //.i.string0 dup length string copy } bind def
  184.  
  185. % We only want to redefine operators if they are defined already.
  186.  
  187. /codef { 1 index where { pop def } { pop pop } ifelse } def
  188.  
  189. % Redefine the end-of-page operators.
  190.  
  191. /erasepage { } codef
  192. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } codef
  193. /showpage { copypage erasepage initgraphics } codef
  194.  
  195. % Redefine the fill operators to detect rectangles.
  196.  
  197. /.orderrect    % <llx> <lly> <urx> <ury> .orderrect <llx> <lly> <w> <h>
  198.  {    % Ensure llx <= urx, lly <= ury.
  199.    1 index 4 index lt { 4 2 roll } if
  200.    dup 3 index lt { 3 1 roll exch } if
  201.    exch 3 index sub exch 2 index sub
  202.  } odef
  203. /.fillcomplex
  204.  {    % Do a first pass to see if the path is all rectangles in
  205.     % the output coordinate system.  We don't worry about overlapping
  206.     % rectangles that might be partially not filled.
  207.     % Stack: mark llx0 lly0 urx0 ury0 ... true mark x0 y0 ...
  208.    mark true mark
  209.     % Add a final moveto so we pick up any trailing unclosed subpath.
  210.    0 0 itransform moveto
  211.     { .coord counttomark 2 gt
  212.        { counttomark 4 gt { .fillcheckrect } { 4 2 roll pop pop }  ifelse }
  213.       if
  214.     }
  215.     { .coord }
  216.     { cleartomark not mark exit }
  217.     { counttomark -2 roll 2 copy counttomark 2 roll .fillcheckrect }
  218.    pathforall cleartomark
  219.     { .showcolor counttomark 4 idiv
  220.        { counttomark -4 roll .orderrect
  221.      (R ) //print .show==4
  222.        }
  223.       repeat pop
  224.     }
  225.     { cleartomark
  226.     }
  227.    ifelse
  228.  } odef
  229. /.fillcheckrect
  230.  {    % Check whether the current subpath is a rectangle.
  231.     % If it is, add it to the list of rectangles being accumulated;
  232.     % if not exit the .fillcomplex loop.
  233.     % The subpath has not been closed.
  234.     % Stack: as in .fillcomplex, + newx newy
  235.    counttomark 10 eq { 9 index 9 index 4 2 roll } if
  236.    counttomark 12 ne { cleartomark not mark exit } if
  237.    12 2 roll
  238.     % Check for the two possible forms of rectangles:
  239.     %    x0 y0  x0 y1  x1 y1  x1 y0  x0 y0
  240.     %    x0 y0  x1 y0  x1 y1  x0 y1  x0 y0
  241.    9 index 2 index eq 9 index 2 index eq and
  242.    10 index 9 index eq
  243.     {    % Check for first form.
  244.       7 index 6 index eq and 6 index 5 index eq and 3 index 2 index eq and
  245.     }
  246.     {    % Check for second form.
  247.       9 index 8 index eq and
  248.       8 index 7 index eq and 5 index 4 index eq and 4 index 3 index eq and
  249.     }
  250.    ifelse not { cleartomark not mark exit } if
  251.     % We have a rectangle.
  252.    pop pop pop pop 4 2 roll pop pop 8 4 roll
  253.  } odef
  254. /eofill { COMPLEX { .fillcomplex } if newpath } codef
  255. /fill { COMPLEX { .fillcomplex } if newpath } codef
  256. /rectfill { gsave newpath .rectappend fill grestore } codef
  257. /ueofill { gsave newpath uappend eofill grestore } codef
  258. /ufill { gsave newpath uappend fill grestore } codef
  259.  
  260. % Redefine the stroke operators to detect rectangles.
  261.  
  262. /rectstroke
  263.  { gsave newpath
  264.    dup type dup /arraytype eq exch /packedarraytype eq or
  265.     { dup length 6 eq { exch .rectappend concat } { .rectappend } ifelse }
  266.     { .rectappend }
  267.    ifelse stroke grestore
  268.  } codef
  269. /.strokeline    % <fromx> <fromy> <tox> <toy> .strokeline <tox> <toy>
  270.         % Note: fromx and fromy are in output coordinates;
  271.         % tox and toy are in user coordinates.
  272.  { .coord 2 copy 6 2 roll .orderrect
  273.     % Add in the line width.  Assume square or round caps.
  274.    currentlinewidth 2 div dup .dcoord add abs 1 max 5 1 roll
  275.    4 index add 4 1 roll 4 index add 4 1 roll
  276.    4 index sub 4 1 roll 5 -1 roll sub 4 1 roll
  277.    (R ) //print .show==4
  278.  } odef
  279. /.strokecomplex
  280.  {    % Do a first pass to see if the path is all horizontal and vertical
  281.     % lines in the output coordinate system.
  282.     % Stack: true mark origx origy curx cury
  283.    true mark null null null null
  284.     { .coord 6 2 roll pop pop pop pop 2 copy }
  285.     { .coord 1 index 4 index eq 1 index 4 index eq or
  286.        { 4 2 roll pop pop }
  287.        { cleartomark not mark exit }
  288.       ifelse
  289.     }
  290.     { cleartomark not mark exit }
  291.     { counttomark -2 roll 2 copy counttomark 2 roll
  292.       1 index 4 index eq 1 index 4 index eq or
  293.        { pop pop 2 copy }
  294.        { cleartomark not mark exit }
  295.       ifelse
  296.     }
  297.    pathforall cleartomark
  298.    0 currentlinewidth .dcoord 0 eq exch 0 eq or and
  299.     % Do the second pass to write out the rectangles.
  300.     % Stack: origx origy curx cury
  301.     { .showcolor null null null null
  302.        { 6 2 roll pop pop pop pop 2 copy .coord }
  303.        { .strokeline }
  304.        { }
  305.        { 3 index 3 index .strokeline }
  306.       pathforall pop pop pop pop
  307.     }
  308.    if
  309.  } odef
  310. /stroke { COMPLEX { .strokecomplex } if newpath } codef
  311. /ustroke
  312.  { gsave newpath
  313.    dup length 6 eq { exch uappend concat } { uappend } ifelse
  314.    stroke grestore
  315.  } codef
  316.  
  317. % The image operators must read the input and note the dimensions.
  318. % Eventually we should redefine these to detect 1-bit-high all-black images,
  319. % since this is how dvips does underlining (!).
  320.  
  321. /.noteimagerect        % <width> <height> <matrix> .noteimagerect -
  322.  { COMPLEX
  323.     { gsave setmatrix itransform 0 0 itransform
  324.       grestore .coord 4 2 roll .coord .orderrect
  325.       (I ) //print .show==4
  326.     }
  327.     { pop pop pop
  328.     }
  329.    ifelse
  330.  } odef
  331. /colorimage where
  332.  { pop /colorimage
  333.     { 1 index
  334.        { dup 6 add index 1 index 6 add index 2 index 5 add index }
  335.        { 6 index 6 index 5 index }
  336.       ifelse .noteimagerect gsave nulldevice //colorimage grestore
  337.     } codef
  338.  } if
  339. /.noteimage        % Arguments as for image[mask]
  340.  { dup type /dicttype eq
  341.     { dup /Width get 1 index /Height get 2 index /ImageMatrix get }
  342.     { 4 index 4 index 3 index }
  343.    ifelse .noteimagerect
  344.  } odef
  345. /image { .noteimage gsave nulldevice //image grestore } codef
  346. /imagemask { .noteimage gsave nulldevice //imagemask grestore } codef
  347.  
  348. % Output the current color if necessary.
  349. /.color.r .inew def
  350.   .color.r -1 .iput        % make sure we write the color at the beginning
  351. /.color.g .inew def
  352. /.color.b .inew def
  353. /.showcolor
  354.  { COMPLEX
  355.     { currentrgbcolor
  356.       1000 mul round cvi
  357.       3 1 roll 1000 mul round cvi
  358.       exch 1000 mul round cvi
  359.         % Stack: b g r
  360.       dup //.color.r .iget eq
  361.       2 index //.color.g .iget eq and
  362.       3 index //.color.b .iget eq and
  363.        { pop pop pop
  364.        }
  365.        { (C ) //print
  366.      dup //.color.r exch .iput .show==only
  367.          ( ) //print dup //.color.g exch .iput .show==only
  368.          ( ) //print dup //.color.b exch .iput .show==only
  369.      (\n) //print
  370.        }
  371.       ifelse
  372.     }
  373.    if
  374.  } bind def
  375.  
  376. % Redefine `show'.
  377.  
  378. % Set things up so our output will be in tenths of a point, with origin at
  379. % lower left.  This isolates us from the peculiarities of individual devices.
  380.  
  381. /.show.ident.matrix matrix def
  382. /.show.ident {        % - .show.ident <scale> <matrix>
  383. %   //.show.ident.matrix defaultmatrix
  384. %               % Assume the original transformation is well-behaved.
  385. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  386. %   0.1 dup 3 -1 roll scale
  387.   gsave initmatrix
  388.         % Assume the original transformation is well-behaved...
  389.   0.1 0 dtransform abs exch abs .max
  390.   0.1 dup scale .show.ident.matrix currentmatrix
  391.         % ... but undo any rotation into landscape orientation.
  392.   dup 0 get 0 eq {
  393.     1 get dup abs div 90 mul rotate
  394.     .show.ident.matrix currentmatrix
  395.   } if
  396.   grestore
  397. } bind def
  398.  
  399. /.coord {        % <x> <y> .coord <x'> <y'>
  400.   transform .show.ident exch pop itransform
  401.   exch round cvi exch round cvi
  402. } odef
  403.  
  404. /.dcoord {        % <dx> <dy> .coord <dx'> <dy'>
  405.         % Transforming distances is trickier, because
  406.         % the coordinate system might be rotated.
  407.    .show.ident pop 3 1 roll
  408.    exch 0 dtransform
  409.     dup mul exch dup mul add sqrt
  410.      2 index div round cvi
  411.    exch 0 exch dtransform
  412.     dup mul exch dup mul add sqrt
  413.      3 -1 roll div round cvi
  414. } odef
  415.  
  416. % Remember the current X, Y, and height.
  417. /.show.x .inew def
  418. /.show.y .inew def
  419. /.show.height .inew def
  420.  
  421. % Remember the last character of the previous string; if it was a
  422. % hyphen preceded by a letter, we didn't output the hyphen.
  423.  
  424. /.show.last (\000) def
  425.  
  426. % Remember the current font.
  427. /.font.name 130 string def
  428. /.font.name.length .inew def
  429. /.font.height .inew def
  430. /.font.width .inew def
  431.  
  432. %%* Also remember indentation of current line and previous vertical
  433. %%* skip
  434.  
  435. /.show.indent .inew def
  436. /.show.dy     .inew def
  437.  
  438. % We have to redirect stdout somehow....
  439.  
  440. /.show.stdout { (%stdout) (w) file } bind def
  441.  
  442. % Make sure writing will work even if a program uses =string.
  443. /.show.string =string length string def
  444. /.show.=string =string length string def
  445. /.show==only
  446.  { //=string //.show.=string copy pop
  447.    dup type /stringtype eq
  448.     { dup length //.show.string length le
  449.        { dup rcheck { //.show.string copy } if
  450.        } if
  451.     } if
  452.    .show.stdout exch write==only
  453.    //.show.=string //=string copy pop
  454.  } odef
  455. /.show==4
  456.  { 4 -1 roll .show==only ( ) //print
  457.    3 -1 roll .show==only ( ) //print
  458.    exch .show==only ( ) //print
  459.    .show==only (\n) //print
  460.  } odef
  461.  
  462. /.showwidth    % Same as stringwidth, but disable COMPLEX so that
  463.         % we don't try to detect rectangles during BuildChar.
  464.  { COMPLEX
  465.     { /COMPLEX false def stringwidth /COMPLEX true def }
  466.     { stringwidth }
  467.    ifelse
  468.  } odef
  469.  
  470. /.showfont    % <string> .showfont <string>
  471.  { gsave
  472.     % Try getting the height and width of the font from the FontBBox.
  473.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  474.      aload pop      % llx lly urx ury
  475.      exch 4 -1 roll % lly ury urx llx
  476.      sub            % lly ury dx
  477.      3 1 roll exch  % dx ury lly
  478.      sub            % dx dy
  479.      2 copy .max 0 ne
  480.       { currentfont /FontMatrix get dtransform
  481.       }
  482.       {    pop pop
  483.     % Fonts produced by dvips, among other applications, have
  484.     % BuildChar procedures that bomb out when given unexpected
  485.     % characters, and there is no way to determine whether a given
  486.     % character will do this.  So for Type 1 fonts, we measure a
  487.     % typical character ('X'); for others, we punt.
  488.     currentfont /FontType get 1 eq
  489.      { (X) .showwidth pop dup 1.3 mul
  490.      }
  491.      {    % No safe way to get the character size.  Punt.
  492.        0 0
  493.      }
  494.     ifelse
  495.       }
  496.      ifelse .dcoord exch
  497.      currentfont /FontName .knownget not { () } if
  498.      dup type /stringtype ne { //.show.string cvs } if
  499.    grestore
  500.     % Stack: height width fontname
  501.    SIMPLE
  502.     { pop pop //.show.height exch .iput }
  503.     { 2 index //.font.height .iget eq
  504.       2 index //.font.width .iget eq and
  505.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  506.        { pop pop pop
  507.        }
  508.        { (F ) //print
  509.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  510.          exch dup //.font.width exch .iput .show==only ( ) //print
  511.      dup length //.font.name.length exch .iput
  512.          //.font.name cvs .show==only (\n) //print
  513.        }
  514.       ifelse
  515.     }
  516.    ifelse
  517.  } odef
  518.  
  519. % Define the letters -- characters which, if they occur followed by a hyphen
  520. % at the end of a line, cause the hyphen and line break to be ignored.
  521. /.letter.chars 100 dict def
  522. mark
  523.   65 1 90 { dup 32 add } for
  524.     counttomark
  525.         { StandardEncoding exch get .letter.chars exch dup put }
  526.     repeat
  527. pop
  528.  
  529. %%* Add the rest of the letters from the [O]T1Encoding and
  530. %%* ISOLatin1Encoding vectors
  531.  
  532. mark
  533.     /AE
  534.     /Aacute
  535.     /Abreve
  536.     /Acircumflex
  537.     /Adieresis
  538.     /Agrave
  539.     /Aogonek
  540.     /Aring
  541.     /Atilde
  542.     /Cacute
  543.     /Ccaron
  544.     /Ccedilla
  545.     /Dcaron
  546.     /Eacute
  547.     /Ecaron
  548.     /Ecircumflex
  549.     /Edieresis
  550.     /Egrave
  551.     /Eng
  552.     /Eogonek
  553.     /Eth
  554.     /Gbreve
  555.     /Germandbls 
  556.     /IJ
  557.     /Iacute
  558.     /Icircumflex
  559.     /Idieresis
  560.     /Idot
  561.     /Igrave
  562.     /Lacute
  563.     /Lcaron
  564.     /Lslash
  565.     /Nacute
  566.     /Ncaron
  567.     /Ntilde
  568.     /OE
  569.     /Oacute
  570.     /Ocircumflex
  571.     /Odieresis
  572.     /Ograve
  573.     /Ohungarumlaut
  574.     /Oslash
  575.     /Otilde
  576.     /Racute
  577.     /Rcaron
  578.     /Sacute
  579.     /Scaron
  580.     /Scedilla
  581.     /Tcaron
  582.     /Tcedilla
  583.     /Thorn
  584.     /Uacute
  585.     /Ucircumflex
  586.     /Udieresis
  587.     /Ugrave
  588.     /Uhungarumlaut
  589.     /Uring
  590.     /Yacute
  591.     /Ydieresis
  592.     /Zacute
  593.     /Zcaron
  594.     /Zdot
  595.     /aacute
  596.     /abreve
  597.     /acircumflex
  598.     /adieresis
  599.     /ae
  600.     /agrave
  601.     /aogonek
  602.     /aring
  603.     /atilde
  604.     /cacute
  605.     /ccaron
  606.     /ccedilla
  607.     /dbar
  608.     /dcaron
  609.     /dotlessi
  610.     /dotlessj
  611.     /eacute
  612.     /ecaron
  613.     /ecircumflex
  614.     /edieresis
  615.     /egrave
  616.     /eng
  617.     /eogonek
  618.     /eth
  619.     /exclamdown
  620.     /ff
  621.     /ffi
  622.     /ffl
  623.     /fi
  624.     /fl
  625.     /gbreve
  626.     /germandbls
  627.     /iacute
  628.     /icircumflex
  629.     /idieresis
  630.     /igrave
  631.     /ij
  632.     /lacute
  633.     /lcaron
  634.     /lslash
  635.     /nacute
  636.     /ncaron
  637.     /ntilde
  638.     /oacute
  639.     /ocircumflex
  640.     /odieresis
  641.     /oe
  642.     /ograve
  643.     /ohungarumlaut
  644.     /oslash
  645.     /otilde
  646.     /questiondown
  647.     /racute
  648.     /rcaron
  649.     /sacute
  650.     /scaron
  651.     /scedilla
  652.     /section
  653.     /sterling
  654.     /tcaron
  655.     /tcedilla
  656.     /thorn
  657.     /uacute
  658.     /ucircumflex
  659.     /udieresis
  660.     /ugrave
  661.     /uhungarumlaut
  662.     /uring
  663.     /yacute
  664.     /ydieresis
  665.     /zacute
  666.     /zcaron
  667.     /zdot
  668. counttomark
  669.     { .letter.chars exch dup put }
  670. repeat
  671. pop
  672.  
  673. % Define a set of characters which, if they occur at the start of a line,
  674. % are taken as indicating a paragraph break.
  675. /.break.chars 50 dict def
  676. mark
  677.     /bullet /dagger /daggerdbl /periodcentered /section
  678.     counttomark
  679.         { .break.chars exch dup put }
  680.     repeat
  681. pop
  682.  
  683. % Define character translation to ASCII.
  684. % We have to do this for the entire character set.
  685.  
  686. /.char.map 500 dict def
  687.  
  688. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  689.  
  690. % Encode the printable ASCII characters.
  691.  
  692. mark 32 1 126
  693.  { 1 string dup 0 4 -1 roll put
  694.    dup 0 get StandardEncoding exch get exch
  695.  }
  696. for .chars.def
  697.  
  698.         % Encode accents.
  699. mark
  700.     /acute      (')
  701.     /caron      (^)
  702.     /cedilla    (,)
  703.     /circumflex (^)
  704.     /dieresis   (")
  705.     /grave      (`)
  706.     /ring       (*)
  707.     /tilde      (~)
  708. .chars.def
  709.  
  710.         % Encode the ISO accented characters.
  711. mark 192 1 255
  712.  { ISOLatin1Encoding exch get =string cvs
  713.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  714.    .char.map 2 index known .char.map 2 index known and
  715.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  716.       .char.map 3 1 roll put
  717.     }
  718.     { pop pop pop
  719.     }
  720.    ifelse
  721.  }
  722. for .chars.def
  723.  
  724. % Encode the remaining standard and ISO alphabetic characters.
  725.  
  726. mark
  727.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  728.   /ae (ae) /eth (dh)
  729.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  730.   /germandbls (ss) /oe (oe) /thorn (th)
  731. .chars.def
  732.  
  733. % Encode the other standard and ISO characters.
  734.  
  735. mark
  736.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  737.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  738.   /dotlessi (i)
  739.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  740.   /florin (f) /fraction (/)
  741.   /guillemotleft (<<) /guillemotright (>>)
  742.   /guilsinglleft (<) /guilsinglright (>) /hungarumlaut ("") /logicalnot (~)
  743.   /macron (_) /minus (-) /mu (u) /multiply (*)
  744.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  745.   /ordfeminine (-a) /ordmasculine (-o)
  746.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  747.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  748.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  749.   /section ($) /sterling (#)
  750.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  751.   /yen (Y)
  752. .chars.def
  753.  
  754. % Encode a few common Symbol characters.
  755.  
  756. mark
  757.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  758.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  759.   /trademarksans ((TM)) /trademarkserif ((TM))
  760. .chars.def
  761.  
  762. %%* Add a few characters from StandardEncoding and ISOLatin1Encoding
  763. %%* that were missing.
  764.  
  765. mark
  766.     /cent           (c)
  767.     /guilsinglleft  (<)
  768.     /guilsinglright (>)
  769.     /breve          (*)
  770.     /Lslash         (L/)
  771.     /lslash         (l/)
  772. .chars.def
  773.  
  774. %%* Define the OT1Encoding and T1Encoding vectors for use with dvips
  775. %%* files.  Unfortunately, there's no way of telling what font is
  776. %%* really being used within a dvips document, so we can't provide an
  777. %%* appropriate encoding for each individual font.  Instead, we'll
  778. %%* just provide support for the two most popular text encodings, the
  779. %%* OT1 and T1 encodings, and just accept the fact that any font not
  780. %%* using one of those encodings will be rendered as gibberish.
  781. %%* 
  782. %%* OT1 is Knuth's 7-bit encoding for the CMR text fonts, while T1
  783. %%* (aka the Cork encoding) is the 8-bit encoding used by the DC
  784. %%* fonts, a preliminary version of the proposed Extended Computer
  785. %%* Modern fonts.  Unfortunately, T1 is not a strict extension of OT1;
  786. %%* they differ in positions 8#000 through 8#040, 8#074, 8#076, 8#134,
  787. %%* 8#137, 8#173, 8#174, 8#175 and 8#177, so we can't use the same
  788. %%* vector for both.
  789. %%* 
  790. %%* Of course, we also can't reliably tell the difference between an
  791. %%* OT1-encoded font and a T1-encoded font based on the information in
  792. %%* a dvips-created PostScript file.  As a best-guess solution, we'll
  793. %%* use the T1 encoding if the font contains any characters in
  794. %%* positions above 8#177 and the OT1 encoding if it doesn't.
  795.  
  796. /T1Encoding  256 array def
  797.  
  798. /OT1Encoding 256 array def
  799.  
  800. %%* T1Encoding shares a lot with StandardEncoding, so let's start
  801. %%* there.
  802.  
  803. StandardEncoding T1Encoding copy pop
  804.  
  805. /OT1.encode {
  806.     counttomark
  807.     2 idiv
  808.       { OT1Encoding 3 1 roll put }
  809.     repeat
  810.     cleartomark
  811. } def
  812.  
  813. /T1.encode {
  814.     counttomark
  815.     2 idiv
  816.       { T1Encoding 3 1 roll put }
  817.     repeat
  818.     cleartomark
  819. } def
  820.  
  821. mark
  822.     8#000 /grave
  823.     8#001 /acute
  824.     8#002 /circumflex
  825.     8#003 /tilde
  826.     8#004 /dieresis
  827.     8#005 /hungarumlaut
  828.     8#006 /ring
  829.     8#007 /caron
  830.  
  831.     8#010 /breve
  832.     8#011 /macron
  833.     8#012 /dotaccent
  834.     8#013 /cedilla
  835.     8#014 /ogonek
  836.     8#015 /quotesinglbase
  837.     8#016 /guilsinglleft
  838.     8#017 /guilsinglright
  839.  
  840.     8#020 /quotedblleft
  841.     8#021 /quotedblright
  842.     8#022 /quotedblbase
  843.     8#023 /guillemotleft
  844.     8#024 /guillemotright
  845.     8#025 /endash
  846.     8#026 /emdash
  847.     8#027 /cwm
  848.  
  849.     8#030 /perthousandzero
  850.     8#031 /dotlessi
  851.     8#032 /dotlessj
  852.     8#033 /ff
  853.     8#034 /fi
  854.     8#035 /fl
  855.     8#036 /ffi
  856.     8#037 /ffl
  857.  
  858. %%  8#040 through 8#176 follow StandardEncoding
  859.  
  860.     8#177 /hyphen
  861. T1.encode
  862.  
  863. mark
  864.     8#200 /Abreve
  865.     8#201 /Aogonek
  866.     8#202 /Cacute
  867.     8#203 /Ccaron
  868.     8#204 /Dcaron
  869.     8#205 /Ecaron
  870.     8#206 /Eogonek
  871.     8#207 /Gbreve
  872.     8#210 /Lacute
  873.     8#211 /Lcaron
  874.     8#212 /Lslash
  875.     8#213 /Nacute
  876.     8#214 /Ncaron
  877.     8#215 /Eng
  878.     8#216 /Ohungarumlaut
  879.     8#217 /Racute
  880.     8#220 /Rcaron
  881.     8#221 /Sacute
  882.     8#222 /Scaron
  883.     8#223 /Scedilla
  884.     8#224 /Tcaron
  885.     8#225 /Tcedilla
  886.     8#226 /Uhungarumlaut
  887.     8#227 /Uring
  888.     8#230 /Ydieresis
  889.     8#231 /Zacute
  890.     8#232 /Zcaron
  891.     8#233 /Zdot
  892.     8#234 /IJ
  893.     8#235 /Idot
  894.     8#236 /dbar
  895.     8#237 /section
  896.     8#240 /abreve
  897.     8#241 /aogonek
  898.     8#242 /cacute
  899.     8#243 /ccaron
  900.     8#244 /dcaron
  901.     8#245 /ecaron
  902.     8#246 /eogonek
  903.     8#247 /gbreve
  904.     8#250 /lacute
  905.     8#251 /lcaron
  906.     8#252 /lslash
  907.     8#253 /nacute
  908.     8#254 /ncaron
  909.     8#255 /eng
  910.     8#256 /ohungarumlaut
  911.     8#257 /racute
  912.     8#260 /rcaron
  913.     8#261 /sacute
  914.     8#262 /scaron
  915.     8#263 /scedilla
  916.     8#264 /tcaron
  917.     8#265 /tcedilla
  918.     8#266 /uhungarumlaut
  919.     8#267 /uring
  920.     8#270 /ydieresis
  921.     8#271 /zacute
  922.     8#272 /zcaron
  923.     8#273 /zdot
  924.     8#274 /ij
  925.     8#275 /exclamdown
  926.     8#276 /questiondown
  927.     8#277 /sterling
  928.  
  929.     8#300 /Agrave
  930.     8#301 /Aacute
  931.     8#302 /Acircumflex
  932.     8#303 /Atilde
  933.     8#304 /Adieresis
  934.     8#305 /Aring
  935.     8#306 /AE
  936.     8#307 /Ccedilla
  937.     8#310 /Egrave
  938.     8#311 /Eacute
  939.     8#312 /Ecircumflex
  940.     8#313 /Edieresis
  941.     8#314 /Igrave
  942.     8#315 /Iacute
  943.     8#316 /Icircumflex
  944.     8#317 /Idieresis
  945.     8#320 /Eth
  946.     8#321 /Ntilde
  947.     8#322 /Ograve
  948.     8#323 /Oacute
  949.     8#324 /Ocircumflex
  950.     8#325 /Otilde
  951.     8#326 /Odieresis
  952.     8#327 /OE
  953.     8#330 /Oslash
  954.     8#331 /Ugrave
  955.     8#332 /Uacute
  956.     8#333 /Ucircumflex
  957.     8#334 /Udieresis
  958.     8#335 /Yacute
  959.     8#336 /Thorn
  960.     8#337 /Germandbls 
  961.  
  962.     8#340 /agrave
  963.     8#341 /aacute
  964.     8#342 /acircumflex
  965.     8#343 /atilde
  966.     8#344 /adieresis
  967.     8#345 /aring
  968.     8#346 /ae
  969.     8#347 /ccedilla
  970.     8#350 /egrave
  971.     8#351 /eacute
  972.     8#352 /ecircumflex
  973.     8#353 /edieresis
  974.     8#354 /igrave
  975.     8#355 /iacute
  976.     8#356 /icircumflex
  977.     8#357 /idieresis
  978.     8#360 /eth
  979.     8#361 /ntilde
  980.     8#362 /ograve
  981.     8#363 /oacute
  982.     8#364 /ocircumflex
  983.     8#365 /otilde
  984.     8#366 /odieresis
  985.     8#367 /oe
  986.     8#370 /oslash
  987.     8#371 /ugrave
  988.     8#372 /uacute
  989.     8#373 /ucircumflex
  990.     8#374 /udieresis
  991.     8#375 /yacute
  992.     8#376 /thorn
  993.     8#377 /germandbls
  994.  
  995. T1.encode
  996.  
  997. %%* Now copy OT1Encoding into T1Encoding and make a few changes.
  998.  
  999. T1Encoding OT1Encoding copy pop
  1000.  
  1001. mark
  1002.     8#000 /Gamma
  1003.     8#001 /Delta
  1004.     8#002 /Theta
  1005.     8#003 /Lambda
  1006.     8#004 /Xi
  1007.     8#005 /Pi
  1008.     8#006 /Sigma
  1009.     8#007 /Upsilon
  1010.  
  1011.     8#010 /Phi
  1012.     8#011 /Psi
  1013.     8#012 /Omega
  1014.     8#013 /ff
  1015.     8#014 /fi
  1016.     8#015 /fl
  1017.     8#016 /ffi
  1018.     8#017 /ffl
  1019.  
  1020.     8#020 /dotlessi
  1021.     8#021 /dotlessj
  1022.     8#022 /grave
  1023.     8#023 /acute
  1024.     8#024 /caron
  1025.     8#025 /breve
  1026.     8#026 /macron
  1027.     8#027 /ring
  1028.  
  1029.     8#030 /cedilla
  1030.     8#031 /germandbls
  1031.     8#032 /ae
  1032.     8#033 /oe
  1033.     8#034 /oslash
  1034.     8#035 /AE
  1035.     8#036 /OE
  1036.     8#037 /Oslash
  1037.  
  1038.     8#040 /polishslash
  1039.  
  1040.     8#042 /quotedblright
  1041.  
  1042.     8#074 /exclamdown
  1043.     8#076 /questiondown
  1044.  
  1045.     8#134 /quotedblleft
  1046.     8#137 /dotaccent
  1047.  
  1048.     8#173 /endash
  1049.     8#174 /emdash
  1050.     8#175 /hungarumlaut
  1051.     8#177 /dieresis
  1052. OT1.encode
  1053.  
  1054. %%* And add a few characters from the OT1Encoding
  1055.  
  1056. mark
  1057.     /Gamma              (\\Gamma )
  1058.     /Delta              (\\Delta )
  1059.     /Theta              (\\Theta )
  1060.     /Lambda             (\\Lambda )
  1061.     /Xi                 (\\Xi )
  1062.     /Pi                 (\\Pi )
  1063.     /Sigma              (\\Sigma )
  1064.     /Upsilon            (\\Upsilon )
  1065.  
  1066.     /Phi                (\\Phi )
  1067.     /Psi                (\\Psi )
  1068.     /Omega              (\\Omega )
  1069.  
  1070.     /dotlessj           (j)
  1071.     /ff                 (ff)
  1072.  
  1073.     /cwm                ()
  1074.  
  1075.     /perthousandzero    (0)
  1076.  
  1077.     /polishslash        ()
  1078.  
  1079.     /Abreve             (A*)
  1080.     /Aogonek            (A,)
  1081.     /Cacute             (C')
  1082.     /Ccaron             (C^)
  1083.     /Dcaron             (D^)
  1084.     /Ecaron             (E^)
  1085.     /Eogonek            (E,)
  1086.     /Gbreve             (G*)
  1087.     /Lacute             (L')
  1088.     /Lcaron             (L^)
  1089.     /Nacute             (N')
  1090.     /Ncaron             (N^)
  1091.     /Eng                (NG)
  1092.     /Ohungarumlaut      (O"")
  1093.     /Racute             (R')
  1094.     /Rcaron             (R^)
  1095.     /Sacute             (S')
  1096.     /Scaron             (S^)
  1097.     /Scedilla           (S,)
  1098.     /Tcaron             (T^)
  1099.     /Tcedilla           (T,)
  1100.     /Uhungarumlaut      (U"")
  1101.     /Uring              (U*)
  1102.     /Ydieresis          (Y")
  1103.     /Zacute             (Z')
  1104.     /Zcaron             (Z^)
  1105.     /Zdot               (Z.)
  1106.     /IJ                 (IJ)
  1107.     /Idot               (I.)
  1108.     /dbar               (d-)
  1109.     /abreve             (a*)
  1110.     /aogonek            (a,)
  1111.     /cacute             (c')
  1112.     /ccaron             (c^)
  1113.     /dcaron             (d^)
  1114.     /ecaron             (e^)
  1115.     /eogonek            (e,)
  1116.     /gbreve             (g*)
  1117.     /lacute             (l')
  1118.     /lcaron             (l^)
  1119.     /nacute             (n')
  1120.     /ncaron             (n^)
  1121.     /eng                (ng)
  1122.     /ohungarumlaut      (o"")
  1123.     /racute             (r')
  1124.     /rcaron             (r^)
  1125.     /sacute             (s')
  1126.     /scaron             (s^)
  1127.     /scedilla           (s,)
  1128.     /tcaron             (t^)
  1129.     /tcedilla           (t,)
  1130.     /uhungarumlaut      (u"")
  1131.     /uring              (u*)
  1132.     /zacute             (z')
  1133.     /zcaron             (z^)
  1134.     /zdot               (z.)
  1135.     /ij                 (ij)
  1136.     /Germandbls         (SS)
  1137. .chars.def
  1138.  
  1139. %%* We extend the df-tail command to stick in an Encoding vector (see
  1140. %%* above for a discussion of the T1 and OT1 encodings), put in a
  1141. %%* FontName (which will just be dvips's name for the font, i.e., Fa,
  1142. %%* Fb, etc.) and give each font a separate FontBBox instead of
  1143. %%* letting them all share a single one.
  1144.  
  1145. /dvips.df-tail      % id numcc maxcc df-tail
  1146.   {
  1147.     /nn 9 dict N
  1148.     nn begin
  1149.         %%  
  1150.         %%  Choose an encoding based on the highest position occupied.
  1151.         %%  
  1152.         dup 128 gt { T1Encoding } { OT1Encoding } ifelse
  1153.         /Encoding X
  1154.         /FontType 3 N
  1155.         %%
  1156.         %%  It's ok for all the fonts to share a FontMatrix, but they
  1157.         %%  need to have separate FontBBoxes
  1158.         %%
  1159.     /FontMatrix fntrx N
  1160.     /FontBBox [0 0 0 0] N
  1161.         string /base X
  1162.         array /BitMaps X
  1163.         %%
  1164.         %%  And let's throw in a FontName for good measure
  1165.         %%
  1166.         dup (    ) cvs
  1167.         %%  
  1168.         %%  Make sure each font gets it own private FontName.  -- dmj,
  1169.         %%  12/23/97
  1170.         %%  
  1171.         dup length string copy
  1172.         /FontName X
  1173.         /BuildChar {CharBuilder} N
  1174.     end
  1175.     dup { /foo setfont }
  1176.        2 array copy cvx N
  1177.     load
  1178.        0 nn put
  1179.     /ctr 0 N
  1180.     [
  1181. } def
  1182.  
  1183. %%* This is functionally equivalent to dvips's /D procedure, but it
  1184. %%* also calculates the Font Bounding Box while defining the
  1185. %%* characters.
  1186.  
  1187. /dvips.D   % char-data ch D - : define character bitmap in current font
  1188. {
  1189.     /cc X                           % char-data
  1190.     dup type /stringtype ne {]} if  % char-data
  1191.  
  1192.     /ch-data X
  1193.     nn /base get cc ctr put     % (adds ctr to cc'th position of BASE)
  1194.     nn /BitMaps get
  1195.     ctr
  1196.     ch-data                     % BitMaps ctr char-data
  1197.     sf 1 ne {
  1198.        dup dup length 1 sub dup 2 index S get sf div put
  1199.     } if
  1200.     put                         % puts char-data into BitMaps at index ctr
  1201.     /ctr ctr 1 add N
  1202. %%  
  1203. %%  Make sure the Font Bounding Box encloses the Bounding Box of the
  1204. %%  current character
  1205. %%
  1206.     nn /FontBBox get        % BB
  1207.  
  1208.     dup                     % calculate new llx
  1209.     dup 0 get
  1210.     ch-xoff
  1211.     min
  1212.     0 exch put
  1213.  
  1214.     dup                     % calculate new lly
  1215.     dup 1 get
  1216.     ch-yoff ch-height sub
  1217.     min
  1218.     1 exch put
  1219.  
  1220.     dup                     % calculate new urx
  1221.     dup 2 get
  1222.     ch-dx ch-width add
  1223.     max
  1224.     2 exch put
  1225.  
  1226.     dup 3 get               % calculate new ury
  1227.     ch-yoff
  1228.     max
  1229.     3 exch put
  1230.  
  1231. } def
  1232.  
  1233. %%* Define start-hook to replace df-tail and D by our versions.
  1234. %%* Unfortunately, the user can redefine start-hook and thus bypass
  1235. %%* these changes, but I don't see an obvious way around that.
  1236.  
  1237. userdict /start-hook {
  1238.     TeXDict /df-tail /dvips.df-tail load bind put
  1239.     TeXDict /D       /dvips.D       load bind put
  1240. } put
  1241.  
  1242. %%* Introduce a symbolic constant for hyphens.  (Need to make
  1243. %%* allowance for hyphen being in different place?)
  1244.  
  1245. /.hyphen 45 def
  1246.  
  1247. % Write out a string.  If it ends in a letter and a hyphen,
  1248. % don't write the hyphen, and set .show.last to a hyphen;
  1249. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  1250. /.show.write    % <string>
  1251.  {
  1252.     dup length 1 ge
  1253.         { dup dup length 1 sub get      % string last_char
  1254.           dup .hyphen eq                % string last_char hyphen?
  1255.             {                           % string last_char
  1256.                 1 index length 1 gt
  1257.                     { 1 index dup length 2 sub get }
  1258.                     { //.show.last 0 get }
  1259.                 ifelse                  % string last_char prev-char
  1260.                 currentfont /Encoding get exch get  % look up prev-char
  1261.                 //.letter.chars exch known          % is it a letter?
  1262.                     { % Remove the hyphen           % string last_char
  1263.                         exch                        % last_char string
  1264.                         dup length 1 sub            % last_char string len-1
  1265.                         0 exch getinterval          % last_char string-1
  1266.                         exch                        % string-1 last_char
  1267.                     }
  1268.                     { pop 0 }                       % string 0
  1269.                 ifelse
  1270.             }
  1271.           if
  1272.           //.show.last 0 3 -1 roll put              % store last_char
  1273.                                                     % in .show.last
  1274.                                                     % If .show.last ==
  1275.                                                     % hyphen, then
  1276.                                                     % last char of
  1277.                                                     % previous string
  1278.                                                     % was a hyphen
  1279.         }
  1280.     if                                          % string
  1281.     { % begin forall                            % c
  1282.         dup                                     % c c
  1283.         currentfont /Encoding get               % c c vec
  1284.         exch get                                % c name
  1285.         dup //.char.map exch known              % c name bool
  1286.           { exch pop }
  1287.           { pop OT1Encoding exch get }
  1288.         ifelse                                  % name
  1289.         //.char.map exch get                    % translation
  1290.         .show.stdout exch writestring
  1291.     }
  1292.     forall
  1293. } odef
  1294.  
  1295. /.showstring1 {                 % string
  1296.     currentpoint .coord         % string x y
  1297.     3 -1 roll dup .showwidth    % x y string dx dy
  1298.     1 index                     % x y string dx dy dx
  1299.     0 rmoveto                   % x y string dx dy
  1300.     .dcoord pop                 % x y string width
  1301.     SIMPLE
  1302.       {                         % x y string width
  1303.         2 index                 % x y string width y
  1304.         //.show.y .iget         % x y string width y old.y
  1305.         %%* 
  1306.         %%* Replaced test "has y changed" by "has y changed by more
  1307.         %%* than the current font height" so that subscripts and
  1308.         %%* superscripts won't cause line/paragraph breaks
  1309.         %%* 
  1310.          sub abs dup            % x y string width dy dy
  1311.          //.show.height .iget
  1312.          gt
  1313.          {                      % x y string width dy
  1314.  
  1315.             %%* Vertical position has changed by more than the font
  1316.             %%* height, so we now try to figure out whether we've
  1317.             %%* started a new paragraph or merely a new line, using a
  1318.             %%* variety of heuristics.
  1319.  
  1320.             %%* If any of the following is true, we start a new
  1321.             %%* paragraph:
  1322.  
  1323.             %%* (a) the current vertical shift is more than 1.1 times
  1324.             %%*     the previous vertical shift, where 1.1 is an
  1325.             %%*     arbitrarily chosen factor that could probably be
  1326.             %%*     refined.
  1327.  
  1328.             dup                 % x y string width dy dy
  1329.             //.show.dy .iget 1.1 mul
  1330.             gt
  1331.             exch
  1332.  
  1333.             %%* Save the new vertical shift
  1334.  
  1335.             //.show.dy exch .iput
  1336.  
  1337.             %%* (b) The vertical shift is more than 1.3 times the
  1338.             %%*     "size" of the current font.  I've removed this
  1339.             %%*     test since it's not really very useful.
  1340.  
  1341. %%*            //.show.dy .iget
  1342. %%*            //.show.height .iget 1.4 mul
  1343. %%*            gt                          % x y string width bool
  1344. %%*            .show.height .iget 0 gt and % only perform test if font
  1345. %%*                                        % height is nonzero
  1346. %%*            or
  1347.  
  1348.             %%* (c) the first character of the new line is one of the
  1349.             %%*     .break.chars
  1350.  
  1351.             2 index length      % x y string width newpar? len
  1352.             0 gt                % x y string width newpar? len>0?
  1353.               {
  1354.                 2 index 0 get   % x y string width newpar? s
  1355.                 currentfont /Encoding get
  1356.                 exch get        % x y string width newpar? s_enc
  1357.                 //.break.chars exch known { pop true } if
  1358.               }
  1359.             if                  % x y string width newpar?
  1360.  
  1361.             %%* (d) The indentation of the new line is greater than
  1362.             %%*     the indentation of the previous line.
  1363.  
  1364.             4 index
  1365.             //.show.indent .iget
  1366.             gt
  1367.             or
  1368.  
  1369.             %%* HOWEVER, if the line ends in a hyphen, we do NOT begin
  1370.             %%* a new paragraph (cf. comment at end of BF2).  --dmj,
  1371.             %%* 12/23/97
  1372.  
  1373.             //.show.last 0 get .hyphen ne
  1374.             and
  1375.  
  1376.             % newpar?
  1377.               { (\n\n) }        % Paragraph
  1378.               {                 % Line
  1379.                                 %%* 
  1380.                                 %%* BF2: If last character on a line is
  1381.                                 %%* a hyphen, we omit the hyphen and
  1382.                                 %%* run the lines together.  Of
  1383.                                 %%* course, this will fail if a word
  1384.                                 %%* with an explicit hyphen (e.g.,
  1385.                                 %%* X-ray) is split across two lines.
  1386.                                 %%* Oh, well.  (What should we do
  1387.                                 %%* about a hyphen that ends a
  1388.                                 %%* "paragraph"?  Perhaps that should
  1389.                                 %%* inhibit a paragraph break.)
  1390.                                 %%*
  1391.                 //.show.last 0 get .hyphen eq
  1392.                     { ()  }
  1393.                     { ( ) }
  1394.                 ifelse          % x y string width char
  1395.               }
  1396.             ifelse
  1397.             //print
  1398.  
  1399.             //.show.y 3 index .iput % x y string width
  1400.             //.show.x 4 index .iput % x y string width
  1401.             //.show.indent 4 index .iput
  1402.          }
  1403.          {                      % x y string width dy
  1404.                   % If the word processor split a hyphenated word within
  1405.                   % the same line, put out the hyphen now.
  1406.             pop
  1407.             //.show.last 0 get .hyphen eq { (-) //print } if
  1408.          }
  1409.         ifelse
  1410.                                 %%* 
  1411.                                 %%* If have moved more than 1 point to
  1412.                                 %%* the right, interpret it as a
  1413.                                 %%* space?  This need to be looked at
  1414.                                 %%* more closely.
  1415.                                 %%* 
  1416.         3 index                     % x y string width x
  1417.         //.show.x .iget 10 add gt   % x y string width bool
  1418.             { ( ) //print }
  1419.         if
  1420.                                     % x y string width
  1421.         4 1 roll                    % width x y string
  1422.         .show.write pop             % width x
  1423.         add //.show.x exch .iput    % <empty>
  1424.       }
  1425.       { (S ) //print .show==4 }
  1426.     ifelse
  1427. } odef
  1428.  
  1429. /.showstring
  1430.  { dup () eq { pop } { .showstring1 } ifelse
  1431.  } bind def
  1432.  
  1433. % Redefine all the string display operators.
  1434.  
  1435. /show {
  1436.     .showfont
  1437.     .showcolor
  1438.     .showstring
  1439. } codef
  1440.  
  1441. % We define all the other operators in terms of .show1.
  1442.  
  1443. /.show1.string ( ) def
  1444. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  1445. /ashow
  1446.  { .showfont .showcolor
  1447.    { .show1 2 copy rmoveto } forall
  1448.    pop pop
  1449.  } codef
  1450. /awidthshow
  1451.  { .showfont .showcolor
  1452.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  1453.       2 copy rmoveto
  1454.     }
  1455.    forall
  1456.    pop pop pop pop pop
  1457.  } codef
  1458. /widthshow
  1459.  { .showfont .showcolor
  1460.    //.show1.string 0 4 -1 roll put
  1461.     { //.show1.string search not { exit } if
  1462.       .showstring .showstring
  1463.       2 index 2 index rmoveto
  1464.     } loop
  1465.    .showstring pop pop
  1466.  } codef
  1467. /kshow
  1468.  { .showfont .showcolor
  1469.     %**************** Should construct a closure, in case the procedure
  1470.     %**************** affects the o-stack.
  1471.     { .show1 dup exec } forall pop
  1472.  } codef
  1473.  
  1474. % We don't really do the right thing with the Level 2 show operators,
  1475. % but we do something semi-reasonable.
  1476. /xshow { pop show } codef
  1477. /yshow { pop show } codef
  1478. /xyshow { pop show } codef
  1479. /glyphshow
  1480.  { currentfont /Encoding .knownget not { {} } if
  1481.    0 1 2 index length 1 sub
  1482.     {        % Stack: glyph encoding index
  1483.       2 copy get 3 index eq { exch pop exch pop null exit } if
  1484.     }
  1485.    for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  1486.  } codef
  1487.  
  1488. end
  1489.  
  1490. % Bind the operators we just defined, and all the others if we didn't
  1491. % do it before.  Also reenable 'bind' for future files.
  1492.  
  1493. .bindoperators
  1494. NOBIND currentdict systemdict ne and
  1495.  { systemdict begin .bindoperators end }
  1496. if
  1497. NOBIND
  1498.  { /bind /.bind load def }
  1499. if
  1500.  
  1501. % Make systemdict read-only if it wasn't already.
  1502.  
  1503. systemdict wcheck { systemdict readonly pop } if
  1504.  
  1505. % Restore the current local/global VM mode.
  1506.  
  1507. exec
  1508.  
  1509.  
  1510.