home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / fontutils-0.6 / gsrenderfont / writefont.PS < prev    next >
Encoding:
Text File  |  1992-10-23  |  21.1 KB  |  826 lines
  1. % writefont.PS: make a bitmap and image-information file for a font.
  2. % 
  3. % Copyright (C) 1992 Free Software Foundation, Inc.
  4. %
  5. % This program is free software; you can redistribute it and/or modify
  6. % it under the terms of the GNU General Public License as published by
  7. % the Free Software Foundation; either version 2, or (at your option)
  8. % any later version.
  9. %
  10. % This program is distributed in the hope that it will be useful,
  11. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. % GNU General Public License for more details.
  14. %
  15. % You should have received a copy of the GNU General Public License
  16. % along with this program; if not, write to the Free Software
  17. % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  
  19. 100 dict begin % our local environment
  20.  
  21. /verbose false def
  22.  
  23.  
  24. % Utilities.
  25.  
  26. % Traditional.
  27. % 
  28. /bdef { bind def } bind def
  29.  
  30.  
  31. % /VAR incr  sets /VAR to VAR + 1.
  32. % 
  33. /incr { dup load 1 add def } bdef
  34.  
  35.  
  36. % /VAR NUMBER max=  sets /VAR to the maximum of VAR and NUMBER.
  37. % 
  38. /max= { 1 index load max def } bdef
  39.  
  40.  
  41. % Print a string if we are verbose, else do nothing.
  42. % 
  43. /vreport { verbose { = } { pop } ifelse } bdef
  44.  
  45.  
  46.  
  47. % DICT pdict prints all the components in the dictionary in a
  48. % human-readable way.
  49. /pdict
  50. {
  51.     { exch
  52.       dup =only length 8 lt {(\t) =only } if
  53.       (\t=> ) =only
  54.       ==
  55.     }
  56.   forall
  57. }
  58. bdef
  59.  
  60.  
  61. % Point and pixel conversions.
  62. % 
  63. /inches-per-pixel {1 pixels-per-inch div} bdef
  64.  
  65. % Use the real definition of points, not PostScript's.
  66. /points-per-inch 72 def
  67. /inches-per-point 1 points-per-inch div def
  68.  
  69. /points-per-pixel {points-per-inch inches-per-pixel mul} bdef
  70. /pixels-per-point {pixels-per-inch inches-per-point mul} bdef
  71.  
  72. /points {points-per-pixel mul} bdef    % Use on stuff expressed in pixels.
  73. /pixels {pixels-per-point mul} bdef    % Use on stuff expressed in points.
  74.  
  75. % Make a new font whose PostScript name is `/newfont', which is the same
  76. % as the font with name `gs-fontname' (read from file `input-filename'
  77. % if necessary) except it has encoding `output-encoding'.
  78. % 
  79. % Set the currentfont to /newfont scaled to `point-size'.
  80. % 
  81. /set-font
  82. {
  83.   % Make the new font /newfont.
  84.   input-filename gs-fontname cvlit /newfont output-encoding reencode-font
  85.  
  86.   % Make it the current font (at the requested size).
  87.   /newfont findfont point-size cvi scalefont setfont
  88.  
  89.   % Define the global `font-encoding' for future use.
  90.   /font-encoding currentfont /Encoding get def
  91. }
  92. bdef
  93.  
  94.  
  95. % (OLD-FILENAME) /OLD-FONTNAME /NEW-FONTNAME NEW-ENCODING reencode-font
  96. % defines the font NEW-FONTNAME to be like OLD-FONTNAME except that the
  97. % encoding is NEW-ENCODING.  Based on the Cookbook encoding examples.
  98. % 
  99. % We read OLD-FILENAME if /OLD-FONTNAME is unknown to Ghostscript.  We
  100. % determine this by looking at the dictionary `Fontmap' that Ghostscript
  101. % defines when it starts up.
  102. % 
  103. /reencode-font
  104. {
  105.   /new-encoding exch def
  106.   /new-fontname exch def
  107.   /old-fontname exch def
  108.   /old-filename exch def
  109.  
  110.   % If OLD-FONTNAME is not in `Fontmap', read OLD-FILENAME.
  111.   Fontmap old-fontname cvn known  not
  112.     { (Reading `) old-filename concatstrings ('...) concatstrings vreport
  113.       old-filename run
  114.  
  115.       % If reading OLD-FILENAME didn't define OLD-FONTNAME, complain.
  116.       FontDirectory old-fontname cvn known  not
  117.         { (Reading `) =only
  118.           old-filename =only
  119.           (' didn't define the font `) =only
  120.           old-fontname =only
  121.           ('!) =
  122.           quit
  123.         }
  124.       if
  125.     }
  126.   if
  127.  
  128.   % Get the old font, and make the dictionary that will be the new font.
  129.   /old-fontdict old-fontname findfont def
  130.   /new-fontdict old-fontdict maxlength dict def
  131.  
  132.   % Copy all the elements except `FID', `Encoding', and `FontName'.
  133.   old-fontdict
  134.     {
  135.       exch % now have key at top the stack
  136.       dup /FID eq  1 index /Encoding eq  2 index /FontName eq  or or
  137.         { pop pop}
  138.         { exch new-fontdict 3 1 roll put }
  139.       ifelse
  140.     }
  141.   forall
  142.  
  143.   % But if NEW-ENCODING is this sentinel value, we copy the existing
  144.   % encoding vector.
  145.   % 
  146.   new-encoding (/encoding-from-input) eq
  147.     {
  148.       /new-encoding old-fontdict /Encoding get 256 array copy def
  149.     }
  150.   if
  151.   
  152.   % Get another encoding array, this one a subset of NEW-ENCODING, which
  153.   % contains only those characters that are actually present in the font
  154.   % -- sometimes the encoding vectors lie.
  155.   % 
  156.   new-fontdict new-encoding encoding-chars-present
  157.   /ok-encoding exch def
  158.  
  159.   % Install the new Encoding and FontName.  The 10-character limit on
  160.   % the FontName is not serious, since we are the ones who specify it
  161.   % (in fact, new-fontname is the name `/newfont').
  162.   new-fontdict /Encoding ok-encoding put
  163.   new-fontdict /FontName new-fontname 10 string cvs put
  164.  
  165.   % Define the font.
  166.   new-fontname new-fontdict definefont pop
  167. }
  168. bdef % reencode-font
  169.  
  170.  
  171. % FONT-DICT ENCODING encoding-chars-present => NEW-ENCODING returns an
  172. % encoding vector contain all and only those characters which are
  173. % present in both the font represented by FONT-DICT (which lacks an
  174. % Encoding entry) and ENCODING.
  175. % 
  176. % We have to use different algorithms for Type 1 and Type 3 fonts.
  177. % 
  178. /encoding-chars-present
  179. {
  180.   /font-type 2 index /FontType get def
  181.   
  182.   font-type 1 eq
  183.     { encoding-chars-present-1 }
  184.     { encoding-chars-present-3 }
  185.   ifelse
  186. }
  187. bdef % encoding-chars-present
  188.  
  189.  
  190. % (See encoding-chars-present).  For Type 1 fonts, we can just look in
  191. % the CharStrings entry (which is required) of FONT-DICT.
  192. % 
  193. /encoding-chars-present-1
  194. {
  195.   /orig-encoding exch def
  196.   /font-dict exch def
  197.   
  198.   /font-charstrings font-dict /CharStrings get def
  199.   
  200.   /new-encoding 256 array def
  201.   /charcode 0 def
  202.   
  203.   % For each element in the old vector, see if it's in `CharStrings'.
  204.     orig-encoding
  205.     {   font-charstrings 1 index known
  206.         { new-encoding charcode 3 -1 roll put }
  207.         { new-encoding charcode /.notdef put  pop }
  208.       ifelse
  209.       /charcode incr
  210.     }
  211.   forall
  212.   
  213.   % Return the new vector.
  214.   new-encoding
  215. }
  216. bdef
  217.  
  218.  
  219. % (See encoding-chars-present).  For Type 3 fonts, the character
  220. % definitions might be in a dictionary named anything at all.  Heck,
  221. % there might not even be a dictionary.  So the best I can think of is
  222. % to try to render each character; if it succeeds, we'll say it's
  223. % present, and if it fails, we'll omit it.
  224. % 
  225. % We change the current font to be the one specified by FONT-DICT.
  226. % (Since we're going to change fonts again right after we return,
  227. % there's no point in saving and restoring.)
  228. % 
  229. /encoding-chars-present-3
  230. {
  231.   /orig-encoding exch def
  232.   /font-dict exch def
  233.   
  234.   /new-encoding 256 array def
  235.   
  236.   % Set up the current font.
  237.   font-dict orig-encoding type3-setfont
  238.   
  239.   % Have to have a current point for `show' to work.
  240.   % 
  241.   0 0 moveto
  242.   
  243.   % For each element in the old vector, see if we can render it.
  244.   0 1 255
  245.     { dup type3-render-p
  246.         % Push the name we will put in the new vector.
  247.         { orig-encoding 1 index  get }
  248.         { /.notdef }
  249.       ifelse
  250.  
  251.       % Now have charcode and charname on the stack.
  252.       new-encoding 3 1 roll put
  253.     }
  254.   for
  255.   
  256.   % Return the new vector.
  257.   new-encoding
  258. }
  259. bdef
  260.  
  261.  
  262. % FONT-DICT ENCODING type3-setfont sets the current font to be the one
  263. % represented by FONT-DICT.  We have to set up the encoding vector and
  264. % do the definefont ourselves.
  265. % 
  266. /type3-setfont
  267. {
  268.   /test-encoding exch def
  269.   /font-dict exch def
  270.   
  271.   % Use our new encoding in the test font.
  272.   font-dict /Encoding test-encoding put
  273.   
  274.   % Have to copy the dictionary explicitly, else it will become readonly
  275.   % and we won't be able to change the encoding for real later.
  276.   % 
  277.   font-dict dup maxlength dict copy
  278.   /type3-testfont exch definefont setfont
  279. }
  280. bdef
  281.  
  282.  
  283. % CHARCODE type3-render-p => bool returns true if rendering CHARCODE
  284. % does not produce an error.  We assume the current font is set to the
  285. % right thing.
  286. % 
  287. /type3-render-p
  288. {
  289.   /char exch def
  290.   put-char-in-buffer
  291.  
  292.   % If the BuildChar fails, make sure no junk is left on the operand or
  293.   % dictionary stacks.
  294.   countdictstack
  295.   mark
  296.   
  297.   % Render the character
  298.   { char-buffer show } stopped not
  299.   
  300.   % Since we need to clear the operand stack, we have to save the
  301.   % result.  But since we're going to clear the dictionary stack also,
  302.   % we have to explicitly use our dictionary.
  303.   envGSRF /ok 3 -1 roll put
  304.   
  305.   cleartomark
  306.     {
  307.       dup countdictstack eq { exit } if
  308.       end
  309.     }
  310.   loop
  311.   pop % The original `countdictstack' value.
  312.   
  313.   % Return whether or not we succeeded.
  314.   ok
  315. }
  316. bdef
  317.  
  318. % ENCODING-NAME find-encoding ENCODING reads the encoding file
  319. % `ENCODING-NAME.enc' unless ENCODING-NAME is a sentinel value, in which
  320. % case we just return it.
  321. % 
  322. /find-encoding
  323. {
  324.   dup (/encoding-from-input) eq not
  325.     { parse-encoding-file }
  326.   if
  327. }
  328. bdef
  329.  
  330.  
  331. % (FILENAME) parse-encoding-file tries to read the encoding file
  332. % `FILENAME.enc'.  If the file can't be found, we quit.  Otherwise, we
  333. % parse it into an encoding vector and return that on the stack.
  334. % 
  335. /parse-encoding-file
  336. {
  337.   /charcode 0 def
  338.  
  339.   open-encoding-file 
  340.  
  341.   % We've opened the file.  Begin the encoding array.
  342.   256 array
  343.   
  344.   % Ignore the coding scheme (assumption here that the .enc file does
  345.   % not have zero or one non-blank non-comment lines, i.e., is empty or
  346.   % just a comment):
  347.   encoding-line pop
  348.  
  349.   % Read the rest of file:
  350.     {
  351.       % If at EOF, stop.
  352.       encoding-line dup null eq
  353.         { pop exit }
  354.       if
  355.  
  356.       % Otherwise, we're at the next character.  Define it.
  357.       1 index    % array charname  on the stack.
  358.       exch    % charname array
  359.       charcode    % charcode charname array
  360.       exch    % charname charcode array
  361.       put
  362.       
  363.       % We're on the next character code.
  364.       /charcode incr
  365.     }
  366.   loop
  367.   
  368.   % The .enc file is not required to define all 256 characters.  Any
  369.   % character codes after the last one in the file go to .notdef.
  370.   charcode 1 255
  371.     {
  372.       1 index    % array charcode
  373.       exch    % charcode array
  374.       /.notdef
  375.       put
  376.     }
  377.   for
  378.   
  379.   % Leave the array on the stack as the return value.
  380. }
  381. bdef
  382.  
  383.  
  384. % FILENAME open-encoding-file opens `encodingfile' as FILENAME.enc, or quits.
  385. % 
  386. /open-encoding-file
  387. {
  388.   (.enc) concatstrings
  389.   findlibfile
  390.     { exch pop /encodingfile exch def }
  391.     { =only (: Cannot find encoding file.) = quit }
  392.   ifelse
  393. }
  394. bdef
  395.  
  396.  
  397. % encoding-line reads to the next non-blank non-comment line in the
  398. % `encodingfile'.  If we hit EOF, it returns null.  Otherwise, it
  399. % returns the first token on the line (i.e., a name).
  400. % 
  401. % Sorry about this hard limit, but I don't want to program variable
  402. % strings in PostScript.
  403. /line-buffer 1000 string def
  404.  
  405. /encoding-line
  406. {
  407.   % Read lines from `encodingfile' until we get to one that is neither blank
  408.   % nor starts with a comment.
  409.     {
  410.       encodingfile line-buffer readline
  411.         % If can get a token, pop the rest of the string after it, and
  412.         % return that first token (it is a name object).
  413.         { token { exch pop cvlit exit } if }
  414.         
  415.         % At EOF, return null.
  416.         { pop null exit }
  417.       ifelse
  418.     }
  419.   loop
  420. }
  421. bdef % encoding-line
  422.  
  423. % Expects a character code on the stack.  Sets /char to that integer,
  424. % /char-name to the character name for that code in the Encoding vector,
  425. % and /char-in-font to either true or false.
  426. % 
  427. /set-char-variables
  428. {
  429.    /char exch def
  430.    /char-name font-encoding char get def
  431.  
  432.    % There's no point in outputting .notdef.
  433.    /char-in-font  char-name /.notdef ne  def
  434. }
  435. bdef
  436.  
  437.  
  438. % Expects the integer representation of a character in `char'.
  439. % 
  440. /char-buffer 1 string def
  441.  
  442. /put-char-in-buffer
  443. {
  444.   char-buffer 0 char put
  445. }
  446. bdef
  447.  
  448.  
  449. % Expects to find the character in char-buffer.  Sets dimensions in pixels.
  450. % 
  451. /find-char-dimensions-in-pixels
  452. {
  453.   gsave
  454.     newpath
  455.     0 0 moveto
  456.  
  457.     char-buffer true charpath      
  458.     flattenpath
  459.     pathbbox % returns ury urx lly llx
  460.       /char-height exch pixels def
  461.       /char-width exch pixels def
  462.       /char-depth exch pixels def
  463.       /char-left-sidebearing exch pixels def
  464.       
  465.       % The bounding-box width is urx - llx.
  466.       /char-width char-width char-left-sidebearing sub def
  467.       
  468.       % The bounding-box height is ury - lly.
  469.       /char-tall char-height char-depth sub def
  470.       
  471.       % The set width.
  472.       /char-stringwidth char-buffer stringwidth pop pixels def
  473.  
  474.       /char-right-sidebearing        % Calculate in terms of pixels.
  475.         char-stringwidth
  476.           char-width sub
  477.           char-left-sidebearing sub
  478.       def
  479.   grestore
  480. }
  481. bdef % find-char-dimensions-in-pixels
  482.  
  483. % If the char is defined in the font, show it on on a line by itself, ni
  484. % a space that is max-char-tall-in-pixels pixels high.
  485. % 
  486. % Expects an integer, the character code to show.
  487. % 
  488. /show-char
  489. {
  490.   set-char-variables
  491.   char-in-font
  492.     {
  493.       put-char-in-buffer
  494.       find-char-dimensions-in-pixels
  495.       %%char-name print-char-dimensions %%
  496.  
  497.       % If the lsb is negative, the character protrudes to the left of
  498.       % its reference point, so we have to move the current point over
  499.       % to the right, so we image the entire thing.
  500.           char-left-sidebearing 0 lt { char-left-sidebearing neg } { 0 } ifelse
  501.         points
  502.         char-height ceiling points neg
  503.       rmoveto
  504.  
  505.       % Show the character.
  506.       char-buffer show
  507.  
  508.       % Move to the beginning of the next line.
  509.       currentpoint exch pop 0 exch moveto
  510.       
  511.       % Leave enough blank rows to fill up the max-char-tall-in-pixels
  512.       % space.  This will always be more than the descender.
  513.       0  max-char-tall-in-pixels char-height ceiling sub points neg  rmoveto
  514.     }
  515.   if
  516. }
  517. bdef % show-char
  518.  
  519.  
  520. % Expects a label string.
  521. % 
  522. /print-char-dimensions
  523. {
  524.   /label exch def
  525.   verbose 
  526.     {() = label =
  527.      char-buffer (char: ) =only = 
  528.      char-height (char-height: ) =only =
  529.      char-depth (char-depth: ) =only =
  530.      char-tall (char-tall: ) =only =
  531.      char-stringwidth (char-stringwidth: ) =only =
  532.      char-width (char-width: ) =only =
  533.      char-left-sidebearing (char-left-sidebearing: ) =only =
  534.      char-right-sidebearing (char-right-sidebearing: ) =only =
  535.      flush
  536.     }
  537.   if
  538. }
  539. bdef % print-char-dimensions
  540.  
  541. % IFI stuff.
  542.  
  543. /max-output-buffer 100 def
  544. /output-buffer max-output-buffer string def
  545.  
  546.  
  547. /ifi-charname
  548. {
  549.   char-name output-buffer cvs
  550.   %verbose { char-name =only  ( @ ) =only char = } if
  551. }
  552. bdef
  553.  
  554. % We round the character's depth.
  555. % 
  556. /baseline-adjustment
  557. {
  558.   char-depth round cvi 1 sub neg output-buffer cvs
  559. }
  560. bdef
  561.  
  562. % We cannot easily compute the number of bounding boxes in a rendered
  563. % character in Ghostscript.  A `%' might have three bounding boxes at a
  564. % high resolution, but only two at a lower one (one of the circles might
  565. % touch the slash).  So we use an external program, `bbcount'. 
  566. % 
  567. /num-bounding-boxes
  568. {
  569.   (00)
  570. }
  571. bdef
  572.  
  573. /side-bearings
  574. {
  575.   char-left-sidebearing round output-buffer cvs
  576.   ( ) concatstrings
  577.   char-right-sidebearing round output-buffer cvs 
  578.   concatstrings
  579. }
  580. bdef
  581.  
  582. % Expects an integer, the character code.  If the char is defined in the
  583. % font and the output encoding, output it.  That is, output the
  584. % character code, baseline adjustment, number of bounding boxes, and
  585. % left and right sidebearings.
  586. % 
  587. /output-char-info
  588. {
  589.   set-char-variables
  590.   char-in-font 
  591.     {
  592.       put-char-in-buffer
  593.       find-char-dimensions-in-pixels
  594.  
  595.       ifi-charname ifi-writestring
  596.       baseline-adjustment ifi-writestring
  597.       num-bounding-boxes ifi-writestring
  598.       side-bearings ifi-writestring
  599.       ifi-file (\n) writestring
  600.     }
  601.   if % char-in-font 
  602. }
  603. bdef % output-char-info
  604.  
  605.  
  606. % STRING ifi-writestring writes STRING to ifi-file, followed by a space.
  607. % 
  608. /ifi-writestring
  609. {
  610.   ifi-file exch writestring
  611.   ifi-file ( ) writestring
  612. }
  613. bdef
  614.  
  615. % Expects a label string.
  616. % 
  617. /print-current-device
  618. {
  619.   /label exch def
  620.   (\n) = label =
  621.   currentdevice getdeviceprops
  622.   (Current device's height, width and matrix are: ) =print = = == flush
  623.   cleartomark
  624. }
  625. bdef
  626.  
  627. % Make and set a monochrome image device with the normal PostScript
  628. % convention: (0,0) is at the lower left.  Expects a device
  629. % resolution, height, and width.
  630. % 
  631. /make-image-device
  632. {
  633.   /width exch def
  634.   /height exch def
  635.   /scale-factor exch def
  636.  
  637.     [scale-factor 0 0 scale-factor neg 0 height]
  638.     width height
  639.     <ff 00>
  640.   makeimagedevice 
  641.   setdevice
  642.   erasepage
  643. }
  644. bdef % make-image-device
  645.  
  646. % Figure out the maximum height + depth and width over all characters.
  647. % Also count the number of characters we will eventually output.
  648. % 
  649. /compute-max-char-dimens
  650. {
  651.   (Computing maximum character dimensions...) vreport
  652.  
  653.   /max-char-width-in-pixels 0 def
  654.   /max-char-tall-in-pixels 0 def
  655.   /extant-char-count 0 def
  656.   
  657.   0 1 255
  658.     {
  659.       set-char-variables
  660.       char-in-font
  661.         {
  662.           /extant-char-count incr
  663.  
  664.           put-char-in-buffer
  665.           find-char-dimensions-in-pixels
  666.  
  667.           % The set width might be smaller than the bounding box if we
  668.           % have negative side bearings.
  669.           char-stringwidth char-width max
  670.           /max-char-width-in-pixels exch max=
  671.           
  672.           % Accents (for example) might have a positive depth, and thus
  673.           % the height will be less than the height + depth, and what we
  674.           % want is the largest y coordinate.
  675.           /max-char-tall-in-pixels char-tall char-height max max=
  676.         }
  677.       if
  678.     }
  679.   for
  680.  
  681.   % We also want to have some blank rows between characters.  The
  682.   % constant here is also used in bbcount's pbm-reading routines.
  683.   /max-char-tall-in-pixels
  684.     max-char-tall-in-pixels ceiling  4 add  cvi
  685.   def
  686.   
  687.   verbose
  688.     {
  689.       max-char-width-in-pixels (  max-char-width-in-pixels: )=only =
  690.       max-char-tall-in-pixels  (   max-char-tall-in-pixels: )=only =
  691.       flush
  692.     }
  693.   if
  694. }
  695. bdef % compute-max-char-dimens
  696.  
  697.  
  698. % We use the max character dimensions to figure out the final size of
  699. % the device.  We also need to add a couple pixels to account for
  700. % roundoff error.  And makeimagedevice works with integers only.
  701. % 
  702. % We will output each character in a space max-char-tall-in-pixels high.
  703. % This makes it easier to write the `bbcount' program, at the expense of
  704. % making the PBM file somewhat larger.  Since the PBM file is only
  705. % temporary, I thought it was worth it.  We cannot compute the bounding
  706. % boxes ourselves without essentially implementing bbcount in
  707. % Ghostscript -- a task I thought extremely unappealing.
  708. % 
  709. /compute-final-device-dimens
  710. {
  711.   (Computing final device dimensions...) vreport
  712.  
  713.   /device-width-in-pixels max-char-width-in-pixels ceiling cvi
  714.   def
  715.   /device-height-in-pixels max-char-tall-in-pixels extant-char-count mul cvi
  716.   def
  717.  
  718.   verbose
  719.     {
  720.       device-width-in-pixels  (   device-width-in-pixels: )=only =
  721.       device-height-in-pixels (  device-height-in-pixels: )=only =
  722.       flush
  723.     }
  724.   if
  725.  
  726.   device-height-in-pixels 0 eq
  727.     { (Device height would be zero.  No characters?) = flush quit }
  728.   if
  729. }
  730. bdef % compute-final-device-dimens
  731.  
  732. % make-gsfont, the main program.
  733.  
  734. % Arguments:
  735. %   gs-fontname        (e.g., Times-Roman -- no slash in front)
  736. %   input-filename    (e.g., ptmr -- unused if the font is in Fontmap)
  737. %   output-filename    (e.g., ptmr -- to get ptmr.pbm and ptmr.ifi)
  738. %   point-size        (e.g., 10 -- in PostScript points)
  739. %   pixels-per-inch    (e.g., 300 -- can't have nonsquare pixels)
  740. %   encoding-filename    (e.g., textext -- to find .enc file)
  741. % 
  742. % (Except `encoding-filename' might be a sentinel value, not a filename.)
  743. % 
  744. /make-gsfont
  745. {
  746.   /gs-fontname exch def
  747.   /input-filename exch def
  748.   /output-filename exch def
  749.   /point-size exch cvi def
  750.   /pixels-per-inch exch cvi def
  751.   /encoding-filename exch def
  752.  
  753.   % Look for the file `encoding-filename.enc' and parse it,
  754.   % returning an encoding dictionary.
  755.   % 
  756.     (Using encoding `) encoding-filename concatstrings
  757.     (' for output...) concatstrings
  758.   vreport
  759.   /output-encoding encoding-filename find-encoding def
  760.  
  761.   % Now that we know the output encoding, we can make the font we're
  762.   % going to render the current font.
  763.   % 
  764.   (Reencoding and setting font...) vreport
  765.   set-font
  766.  
  767.   % First make an image device one inch square for finding heights of
  768.   % all the characters.  We should make it larger if necessary, i.e., if
  769.   % a character is larger than 1", but we don't.
  770.   %
  771.   pixels-per-point pixels-per-inch pixels-per-inch make-image-device
  772.  
  773.   compute-max-char-dimens
  774.  
  775.   compute-final-device-dimens
  776.  
  777.   % Now we know how many pixels we'll need to output the whole font.  So
  778.   % make another device that is big enough.
  779.   % 
  780.     pixels-per-point device-height-in-pixels device-width-in-pixels
  781.   make-image-device    
  782.  
  783.   % Move to the upper left-hand corner.
  784.   % 
  785.   0 device-height-in-pixels points moveto
  786.  
  787.   (Rendering characters to memory...) vreport
  788.   0 1 255 { show-char } for
  789.  
  790.   (Writing PBM file...) vreport
  791.   /pbm-filename output-filename (.pbm) concatstrings def
  792.   /pbm-file pbm-filename (w) file def
  793.   pbm-file currentdevice writeppmfile
  794.   pbm-file closefile
  795.  
  796.   (Writing BFI file...) vreport
  797.   /bfi-filename output-filename (.bfi) concatstrings def
  798.   /bfi-file bfi-filename (w) file def
  799.   bfi-file extant-char-count output-buffer cvs writestring
  800.   bfi-file (\n) writestring
  801.   bfi-file max-char-tall-in-pixels output-buffer cvs writestring
  802.   bfi-file (\n) writestring
  803.   bfi-file closefile
  804.   
  805.   (Writing XIFI file...) vreport
  806.   /ifi-filename output-filename (.xifi) concatstrings def
  807.   /ifi-file ifi-filename (w) file def
  808.   0 1 255 { output-char-info } for
  809.   ifi-file closefile 
  810. }
  811. bdef  % End of main program
  812.  
  813.  
  814. currentdict end /envGSRF exch def
  815.  
  816.  
  817.  
  818. % Enter the main program in the current dictionary, most likely userdict.
  819. % 
  820. /make-gsfont { envGSRF begin  make-gsfont  end } bind def
  821.  
  822.  
  823. % If the program was invoked from the command line, run it now.
  824. % 
  825. shellarguments { make-gsfont } if
  826.