home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / gs403osk.tgz / gs403osk.tar / gs_type1.ps < prev    next >
Text File  |  1996-10-12  |  5KB  |  128 lines
  1. %    Copyright (C) 1994, 1995, 1996 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. % Type 1 font support code.
  19.  
  20. % The standard representation for PostScript compatible fonts is described
  21. % in the book "Adobe Type 1 Font Format", published by Adobe Systems Inc.
  22.  
  23. % Define an augmented version of .buildfont1 that inserts UnderlinePosition
  24. % and UnderlineThickness entries in FontInfo if they aren't there already.
  25. % (This works around the incorrect assumption, made by many word processors,
  26. % that these entries are present in the built-in fonts.)
  27. /.buildfont1
  28.  { dup /FontInfo known not
  29.     { .growfontdict dup /FontInfo 2 dict put }
  30.    if
  31.    dup dup /FontInfo get dup dup
  32.    /UnderlinePosition known exch /UnderlineThickness known and
  33.     { pop pop       % entries already present
  34.     }
  35.     { dup length 2 add dict .copydict
  36.       dup /UnderlinePosition known not
  37.        { dup /UnderlinePosition 3 index /FontBBox get
  38.          1 get 2 div put        % 1/2 the font descent
  39.        }
  40.       if
  41.       dup /UnderlineThickness known not
  42.        { dup /UnderlineThickness 3 index /FontBBox get
  43.          dup 3 get exch 1 get sub 20 div put    % 1/20 the font height
  44.        }
  45.       if
  46.       1 index /FontInfo get wcheck not { readonly } if
  47.       /FontInfo exch put
  48.     }
  49.    ifelse //.buildfont1
  50.  } bind def
  51. % If the diskfont feature isn't included, define a dummy .loadfontdict.
  52. /.loadfontdict where
  53.  { pop }
  54.  { /.loadfontdict 0 dict readonly def }
  55. ifelse
  56. /.loadfontfile      % <file> .loadfontfile -
  57.  { mark exch //systemdict begin
  58.    DISKFONTS { .loadfontdict begin } if
  59.    % We really would just like systemdict on the stack,
  60.    % but fonts produced by Fontographer require a writable dictionary....
  61.    userdict begin
  62.     % We can't just use `run', because we want to check for .PFB files.
  63.    currentpacking
  64.     { false setpacking .loadfont1 true setpacking }
  65.     { .loadfont1 }
  66.    ifelse
  67.     { stop } if
  68.    end
  69.    DISKFONTS { end } if
  70.    end cleartomark
  71.  } bind def
  72. /.loadfont1     % <file> .loadfont1 <errorflag>
  73.  {  % We would like to use `false /PFBDecode filter',
  74.     % but this occasionally produces a whitespace character as
  75.     % the first of an eexec section, so we can't do it.
  76.     % Also, since the real input file never reaches EOF if we are using
  77.     % a PFBDecode filter (the filter stops just after reading the last
  78.     % character), we must explicitly close the real file in this case.
  79.     % Since the file might leave garbage on the operand stack,
  80.     % we have to create a procedure to close the file reliably.
  81.     { dup read not { -1 } if
  82.       2 copy unread 16#80 eq
  83.        { [ exch dup true /PFBDecode filter cvx exch cvlit
  84.          //systemdict /closefile get ]
  85.        }
  86.       if cvx exec
  87.     } stopped
  88.    $error /newerror get and dup { .clearerror } if
  89.  } bind def
  90.  
  91.  
  92. % The CharStrings are a dictionary in which the key is the character name,
  93. % and the value is a compressed and encrypted representation of a path.
  94. % For detailed information, see the book "Adobe Type 1 Font Format",
  95. % published by Adobe Systems Inc.
  96.  
  97. % Here are the BuildChar and BuildGlyph implementation for Type 1 fonts.
  98. % The names %Type1BuildChar and %Type1BuildGlyph are known to the interpreter.
  99. % The real work is done in an operator:
  100. %   <font> <code|name> <name> <charstring> .type1execchar -
  101.  
  102. (%Type1BuildChar) cvn   % <font> <code> %Type1BuildChar -
  103.  { 1 index /Encoding get 1 index get .type1build
  104.  } bind def
  105. (%Type1BuildGlyph) cvn  % <font> <name> %Type1BuildGlyph -
  106.  { dup .type1build
  107.  } bind def
  108. /.type1build        % <font> <code|name> <name> .type1build -
  109.  { 2 index begin
  110.     dup CharStrings exch .knownget not
  111.      { 2 copy eq { exch pop /.notdef exch } if
  112.        QUIET not
  113.     { (Substituting .notdef for ) print = flush }
  114.     { pop }
  115.        ifelse
  116.        /.notdef CharStrings /.notdef get
  117.      } if
  118.    end .type1execchar
  119.  } bind def
  120. % CCRun is an undocumented procedure provided for Type 4 fonts.
  121. 1183615869 internaldict begin
  122. /CCRun          % <font> <code|name> <charstring> CCRun -
  123.  { 1 index dup type /integertype eq
  124.     { 3 index /Encoding get exch get }
  125.    if exch .type1execchar
  126.  } bind def
  127. end
  128.