DataMuseum.dk

top - metrics - download

    Length: 3412 (0xd54)
    Types: TextFile
    Names: »gfonts.ps«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦ff23ba0e6⟧ »./ghostscript-1.3.tar.Z« 
        └─⟦a24a58cd3⟧ 
            └─⟦this⟧ »gfonts.ps« 

TextFile

%    Copyright (C) 1989 Aladdin Enterprises.  All rights reserved.
%    Distributed by Free Software Foundation, Inc.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing.  Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License.  A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities.  It should be in a file named COPYING.  Among other
% things, the copyright notice and this notice must be preserved on all
% copies.

% Font initialization for Ghostscript.

10 dict dup begin

 /FontType 7 def	% GhostScript font
 % The majuscule 'A' in uglyfont is 9 pixels high out of 14.
 % We adjust the FontMatrix to account for this.
 /.adjust 14 9 div def
 /FontMatrix [1 8 div 0 0 1 9 div .adjust div 0 0] def
 /FontBBox [0 0 1 1] def		% ****** WRONG

 /Encoding StandardEncoding readonly def

 /BuildChar
  { exch begin		% fontdict
     8 0 0 -3 8 11 setcachedevice
     Encoding exch get
     CharData exch get
     currentpoint translate 0 -3 translate
     newpath   FontType addcharpath   fill
    end
  } bind def

% Read the data for the standard font.
% The first two tokens are the width and height.
% This is followed by pairs of <character code>, <bits or vectors>.
% The vector format is compatible with the addcharpath operator.

 /CharData 256 dict def
 4 dict begin
  (uglyfont.cp) (r) file /f exch def
  f token pop /w exch def
  f token pop /h exch def
   { f token not {exit} if
     StandardEncoding exch get CharData exch
     f token pop put
   } loop
  % Make undefined characters display as tilde
  /u CharData StandardEncoding 126 get get def
  128 1 255
   { StandardEncoding exch get
     CharData exch u put
   } for
  % Make unmapped characters display as nothing
  CharData /.notdef () put
 end

 /UniqueID 5 def

end

/TheFont exch definefont pop

% Define findfont so it always finds the standard font,
% if the font isn't already present in FontDirectory.

/findfont	% key  findfont  font
 { dup FontDirectory exch known
    { FontDirectory exch get }
    { pop FontDirectory /TheFont get }
   ifelse
 } bind def

% Define the PostScript standard fonts as copies of the bit font.
% This is a no-op for now, since we have redefined findfont.

%%% {/Helvetica /Helvetica-Bold /Times-Roman /Times-Bold /Courier /Symbol}
%%%  { 9 dict
%%%    /TheFont findfont
%%%     { exch dup /FID ne
%%%        { exch 2 index 4 1 roll put }
%%%        { pop pop }
%%%        ifelse
%%%     } forall
%%%    definefont pop
%%%  } forall

% Initialize with a default font
/Courier findfont 10 scalefont setfont

% Simulate charpath
/charpath
 { pop
   matrix currentmatrix exch		% gsave won't work
   currentfont begin
    FontMatrix concat
    currentpoint translate 0 -3 translate
    { Encoding exch get
      CharData exch get
      FontType addcharpath
      8 0 translate
    } forall
   end
   setmatrix
 } bind def

%%%%%%
DEBUG {vmstatus pop = pop flush} if
%%%%%%