blob: 821d62fb39809ddc14f05211d44cbccda740f074 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
% Copyright (C) 1997 Aladdin Enterprises. All rights reserved.
%
% This file is part of Aladdin Ghostscript.
%
% Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author
% or distributor accepts any responsibility for the consequences of using it,
% or for whether it serves any particular purpose or works at all, unless he
% or she says so in writing. Refer to the Aladdin Ghostscript Free Public
% License (the "License") for full details.
%
% Every copy of Aladdin Ghostscript must include a copy of the License,
% normally in a plain ASCII text file named PUBLIC. The License grants you
% the right to copy, modify and redistribute Aladdin Ghostscript, but only
% under certain conditions described in the License. Among other things, the
% License requires that the copyright notice and this notice be preserved on
% all copies.
% Initialization file for Type 32 fonts.
% ------ Type 32 fonts ------ %
% We need LanguageLevel 2 or higher in order to have defineresource.
languagelevel dup 2 max .setlanguagelevel
/BitmapFontInit mark
/addglyph systemdict /addglyph get
systemdict /addglyph .undef
/removeall { % <type32font> removeall -
0 65535 2 index removeglyphs pop
} obind
/removeglyphs systemdict /removeglyphs get
systemdict /removeglyphs .undef
.dicttomark /ProcSet defineresource pop
/.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse
.cidfonttypes begin
4 % CIDFontType 4 = FontType 32
{ dup /FontType 32 put
1 index exch .buildfont32 exch pop
} bind def
end % .cidfonttypes
buildfontdict 32 /.buildfont32 cvx put
32 dup /FontType defineresource pop
.setlanguagelevel
|