home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Geek Gadgets 1
/
ADE-1.bin
/
ade-dist
/
fontutils-0.6-base.tgz
/
fontutils-0.6-base.tar
/
fsf
/
fontutils
/
bzrto
/
bzrbuildch.PS
< prev
next >
Wrap
Text File
|
1992-10-22
|
1KB
|
40 lines
% This file defines the character builder for the PostScript fonts we output.
%
% Copyright (C) 1990--91 Free Software Foundation, Inc.
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2, or (at your option)
% any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program; if not, write to the Free Software
% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
% The characters are represented as arrays of seven elements. The
% first six are exactly the parameters to setcachedevice, i.e.,
% wx wy llx lly urx ury (the width and the bounding box). The seventh
% is the procedure which, when executed, draws the character.
%
userdict /BZRBuildChar known not
{
userdict
/BZRBuildChar
{
4 dict begin % Need space for four temporaries.
/char exch def
/font exch def
/charname font /Encoding get char get def
/onechardesc font /CharDescriptions get charname get def
onechardesc 0 6 getinterval aload pop setcachedevice
onechardesc 6 get exec
end
} put
} if