home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / word / misc / 010 / gs_fonts.ps < prev    next >
Text File  |  1992-09-09  |  15KB  |  464 lines
  1. %    Copyright (C) 1990, 1992 Aladdin Enterprises.  All rights reserved.
  2. %    Distributed by Free Software Foundation, Inc.
  3. %
  4. % This file is part of Ghostscript.
  5. %
  6. % Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the Ghostscript General Public License for full details.
  11. %
  12. % Everyone is granted permission to copy, modify and redistribute
  13. % Ghostscript, but only under the conditions described in the Ghostscript
  14. % General Public License.  A copy of this license is supposed to have been
  15. % given to you along with Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % Font initialization for Ghostscript.
  21.  
  22. % Ghostscript fonts have essentially the same contents as Adobe Type 1 fonts,
  23. % except that the external form doesn't use eexec encryption.
  24. % Someday there may be GNU documentation that describes this format.
  25. % Until then, you'll have to either get a copy of Adobe's book, or read
  26. % the Ghostscript code.  The interpreter for Type 1 fonts, which reveals
  27. % most of their structure, is in the file gstype1.c.
  28.  
  29.  
  30. % Define the default font.
  31. /defaultfontname /Ugly def
  32.  
  33. % Load the font name -> font file name map.
  34. FontDirectory maxlength dict
  35. 2 dict begin
  36.   mark 1 index
  37.   /;
  38.    { % The stack contains a mark, the dictionary, the font name,
  39.      % the file or alias name, and possibly additional information
  40.      % about the font.
  41.      counttomark 3 sub { pop } repeat put
  42.      1 index
  43.    } bind def
  44.   (Fontmap) run
  45. end
  46. pop pop        % pop the mark and the copy of the dictionary
  47. userdict exch /Fontmap exch put
  48.  
  49.  
  50. % Ghostscript optionally can load individual CharStrings as they are needed.
  51. % (This is intended primarily for machines with very small memories.)
  52. % This happens if DISKFONTS is true.  In this case, we define another
  53. % dictionary parallel to FontDirectory that retains an open file
  54. % for every font loaded.
  55. DISKFONTS
  56.  { /FontFileDirectory FontDirectory maxlength dict def
  57.  }
  58. if
  59.  
  60.  
  61. % Define an augmented version of .buildfont1 that inserts UnderlinePosition
  62. % and UnderlineThickness entries in FontInfo if they aren't there already.
  63. % (This works around the incorrect assumption, made by many word processors,
  64. % that these entries are present in the built-in fonts.)
  65. /.buildfont1x
  66.  { dup /FontInfo known not
  67.     { dup /FontInfo 2 dict put }
  68.    if
  69.    dup dup /FontInfo get dup dup
  70.    /UnderlinePosition known exch /UnderlineThickness known and
  71.     { pop pop        % entries already present
  72.     }
  73.     { dup length 2 add dict copy
  74.       dup /UnderlinePosition known not
  75.        { dup /UnderlinePosition 3 index /FontBBox get
  76.          1 get 2 div put        % 1/2 the font descent
  77.        }
  78.       if
  79.       dup /UnderlineThickness known not
  80.        { dup /UnderlineThickness 3 index /FontBBox get
  81.          dup 3 get exch 1 get sub 20 div put    % 1/20 the font height
  82.        }
  83.       if
  84.       1 index /FontInfo get wcheck not { readonly } if
  85.       /FontInfo exch put
  86.     }
  87.    ifelse .buildfont1
  88.  } bind def
  89. % Define definefont.  This is a procedure built on an operator that
  90. % does all the error checking and key insertion.
  91. /.buildfontdict 3 dict
  92.     /.buildfont0 where { pop dup 0 /.buildfont0 load put } if
  93.     /.buildfont1 where { pop dup 1 /.buildfont1x load put } if
  94.     /.buildfont3 where { pop dup 3 /.buildfont3 load put } if
  95. def
  96. /definefont
  97.  { 1 dict begin count /d exch def    % save stack depth in case of error
  98.     { dup /FontType get .buildfontdict exch get exec
  99.       DISKFONTS
  100.        { FontFileDirectory 2 index known
  101.           { dup /FontFile FontFileDirectory 4 index get put
  102.       }
  103.      if
  104.        }
  105.       if
  106.       readonly
  107.     }
  108.    stopped
  109.     { count d sub { pop } repeat end /invalidfont signalerror }
  110.     { end dup FontDirectory 4 2 roll put }
  111.    ifelse
  112.  } odef
  113.  
  114.  
  115. % Ghostscript optionally can load individual CharStrings as they are needed.
  116. % (This is intended primarily for machines with very small memories.)
  117. % Initially, the character definition is the file position of the definition;
  118. % this gets replaced with the actual CharString.
  119. % Note that if we are loading characters lazily, CharStrings is writable.
  120.  
  121. % _Cstring must be long enough to hold the longest CharString for
  122. % a character defined using seac.  This is lenIV + 4 * 5 (for the operands
  123. % of sbw, assuming div is not used) + 2 (for sbw) + 3 * 5 (for the operands
  124. % of seac other than the character codes) + 2 * 2 (for the character codes)
  125. % + 2 (for seac), i.e., lenIV + 43.
  126.  
  127. /_Cstring 60 string def
  128.  
  129. % When we initially load the font, we call
  130. %    <index|charname> <length> /readstring|/readhexstring skip_C
  131. % to skip over each character definition and return the file position instead.
  132. % This substitutes for the procedure
  133. %    <length> string currentfile exch read[hex]string pop
  134. % What we actually store is fileposition * 1000 + length,
  135. %   negated if the string is stored in binary form.
  136.  
  137. /skip_C
  138.  { load exch dup 1000 ge 3 index type /nametype ne or
  139.     { % This is a Subrs string, or the string is so long we can't represent
  140.       % its length.  Load it now.
  141.       currentfile 3 1 roll string exch exec pop
  142.     }
  143.     { % Record the position and length, and skip the string.
  144.       dup currentfile fileposition 1000 mul add
  145.       2 index /readstring load eq { neg } if
  146.       3 1 roll
  147.       dup _Cstring length idiv
  148.        { currentfile _Cstring 3 index exec pop pop
  149.        } repeat
  150.       _Cstring length mod _Cstring exch 0 exch getinterval
  151.       currentfile exch 3 -1 roll exec pop pop
  152.     }
  153.    ifelse
  154.  } bind def
  155.  
  156. % Type1BuildChar calls load_C to actually load the character definition.
  157.  
  158. /load_C        % charindex fileposandlength ->
  159.  { exch Encoding exch get exch
  160.    read_C type1addpath
  161.  } bind def
  162.  
  163. /read_C        % charname fileposandlength -> charstring
  164.  { dup abs 1000 idiv FontFile exch setfileposition
  165.    CharStrings 3 1 roll
  166.    dup 0 lt
  167.     { neg 1000 mod string FontFile exch readstring }
  168.     { 1000 mod string FontFile exch readhexstring }
  169.    ifelse pop
  170.    dup 4 1 roll put
  171. % If the character is defined with seac, load its components now.
  172.    dup mark exch seac_C
  173.    counttomark
  174.     { StandardEncoding exch get dup CharStrings exch get
  175.       dup type /integertype eq { read_C } { pop } ifelse pop
  176.     } repeat
  177.    pop        % the mark
  178.  } bind def
  179.  
  180. /seac_C        % charstring -> achar bchar ..or nothing..
  181.  { dup length _Cstring length le
  182.     { 4330 exch _Cstring type1decrypt exch pop
  183.       dup dup length 2 sub 2 getinterval <0c06> eq    % seac
  184.        { dup length
  185.          Private /lenIV known { Private /lenIV get } { 4 } ifelse
  186.      exch 1 index sub getinterval
  187. % Parse the string just enough to extract the seac information.
  188. % We assume that the only possible operators are hsbw, sbw, and seac,
  189. % and that there are no 5-byte numbers.
  190.      mark 0 3 -1 roll
  191.       { exch
  192.          { { dup 32 lt
  193.               { pop 0 }
  194.           { dup 247 lt
  195.              { 139 sub 0 }
  196.              { dup 251 lt
  197.             { 247 sub 256 mul 108 add 1 1 }
  198.             { 251 sub -256 mul -108 add -1 1 }
  199.                ifelse
  200.              }
  201.             ifelse
  202.           }
  203.          ifelse
  204.            }            % 0
  205.            { mul add 0 }        % 1
  206.          }
  207.         exch get exec
  208.       }
  209.      forall pop
  210.      counttomark 1 add 2 roll cleartomark    % pop all but achar bchar
  211.        }
  212.        { pop    % not seac
  213.        }
  214.       ifelse
  215.     }
  216.     { pop    % punt
  217.     }
  218.    ifelse
  219.  } bind def
  220.  
  221. % Define an auxiliary procedure for loading a font.
  222. % If DISKFONTS is true:
  223. %    - Prevent the CharStrings from being made read-only.
  224. %    - Substitute a different CharString-reading procedure.
  225. % If the body of the font is encrypted with eexec, this is disabled,
  226. % because the implicit 'systemdict begin' hides the redefinitions.
  227. % We assume that:
  228. %    - The magic procedures (-|, -!, |-, and |) are defined with
  229. %    executeonly or readonly;
  230. %    - The contents of the reading pr