You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
2.0 KiB
61 lines
2.0 KiB
% Copyright (C) 2001-2023 Artifex Software, Inc.
|
|
% All Rights Reserved.
|
|
%
|
|
% This software is provided AS-IS with no warranty, either express or
|
|
% implied.
|
|
%
|
|
% This software is distributed under license and may not be copied,
|
|
% modified or distributed except as expressly authorized under the terms
|
|
% of the license contained in the file LICENSE in this distribution.
|
|
%
|
|
% Refer to licensing information at http://www.artifex.com or contact
|
|
% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco,
|
|
% CA 94129, USA, for further information.
|
|
%
|
|
|
|
% Type 42 font support code.
|
|
|
|
% Here are the BuildChar and BuildGlyph implementation for Type 42 fonts.
|
|
% The names %Type42BuildChar and %Type42BuildGlyph are known to the
|
|
% interpreter. The real work is done in an operator:
|
|
% <font> <code|name> <name> <glyphindex> .type42execchar -
|
|
|
|
/.type42build % <font> <code|name> <name> .type42build -
|
|
{ 2 index begin
|
|
dup CharStrings exch .knownget not
|
|
{ 2 copy eq { exch pop /.notdef exch } if
|
|
QUIET not
|
|
{ (Substituting .notdef for ) print
|
|
=string cvs print ( in the font ) print
|
|
1 index /FontName get = flush
|
|
}
|
|
{ pop }
|
|
ifelse
|
|
/.notdef CharStrings /.notdef get
|
|
} if
|
|
end .type42execchar
|
|
} bind def
|
|
(%Type42BuildChar) cvn % <font> <code> %Type42BuildChar -
|
|
{ 1 index /Encoding get 1 index get //.type42build exec
|
|
} bind executeonly def
|
|
(%Type42BuildGlyph) cvn % <font> <name> %Type42BuildGlyph -
|
|
{ dup //.type42build exec
|
|
} .internalbind def
|
|
|
|
currentdict /.type42build .undef
|
|
|
|
% Register the font type for definefont.
|
|
buildfontdict 42
|
|
{ % check for bogus sfnts -- this happens in Genoa FTS 421-01.ps
|
|
dup /sfnts get 0 get length 14 lt { % smallest valid sfnts is 14 bytes
|
|
% HACK: Add a BuildGlyph and make this a Type 3 font instead
|
|
dup /FontType 3 put
|
|
dup /BuildGlyph {
|
|
1 index /CharStrings get exch 2 copy known not { pop /.notdef } if get exec
|
|
} bind put
|
|
//.buildfont3 exec
|
|
} {
|
|
systemdict /.buildfont42 get exec
|
|
} ifelse
|
|
} .internalbind
|
|
put
|