sys/lib/ghostscript/pfbtopfa.ps

   1 %    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
   2 %
   3 % This software is provided AS-IS with no warranty, either express or
   4 % implied.
   5 %
   6 % This software is distributed under license and may not be copied,
   7 % modified or distributed except as expressly authorized under the terms
   8 % of the license contained in the file LICENSE in this distribution.
   9 %
  10 % For more information about licensing, please refer to
  11 % http://www.ghostscript.com/licensing/. For information on
  12 % commercial licensing, go to http://www.artifex.com/licensing/ or
  13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14 % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15
  16 % $Id: pfbtopfa.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17 % pfbtopfa.ps
  18 % Convert a .pfb font to .pfa format.
  19
  20 [ shellarguments {
  21   counttomark 2 eq {
  22     /pfa exch def /pfb exch def pop
  23     /in1 pfb (r) file def
  24     /in in1 true /PFBDecode filter def
  25     /out pfa (w) file def
  26     { in read not { exit } if out exch write } loop
  27     out closefile in closefile in1 closefile
  28     quit
  29   } {
  30     cleartomark (Usage: pfbtopfa input.pfb output.pfa) = flush
  31   } ifelse
  32 } {
  33   pop
  34 } ifelse