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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
%%% @mffile{
%%% filename="capbasd.mf",
%%% version="",
%%% date="",
%%% filetype="mf fontcreator",
%%% package="m-capbas.arj"
%%% author="Phons Bloemen (PhB)",
%%% address="Eindhoven U. of Technology"
%%% email="Internet: phons@ei.ele.tue.nl",
%%% codetable="ISO/ASCII",
%%% checksumtype="none",
%%% checksum="0",
%%% keywords="",
%%% abstract="
%%% Capital Baseball at 1.5 cm.
%%% Part of Capital Baseball package"
%%% copyright="Copyleft (L) Phons Bloemen (PhB),
%%% according to GNU public licence version 2 or later.
%%% (1) Do not change this file (even its name)
%%% (2) if you do make changes, first rename it to some
%%% other name, and mark your changes clearly.",
%%% }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
font_size 2.5mm#;
em# :=0.25mm#;
%%% We are making a straight font
font_coding_scheme:="TeX text";
font_identifier:="CAPBAS";
body_height#:=10em#; % height of tallest characters
asc_height#:=10em#; % height of lowercase ascenders
cap_height#:=10em#; % height of caps
fig_height#:=10em#; % height of numerals
x_height#:=10em#; % height of lowercase without ascenders
math_axis#:=10em#; % axis of symmetry for math symbols
bar_height#:=10em#; % height of crossbar in lowercase e
comma_depth#:=0em#; % depth of comma below baseline
desc_depth#:=0em#; % depth of lowercase descenders
%% monospace := false;
%% font_setup;
font_normal_space 10 * em#;
font_quad 40em#;
font_extra_space 10 * em#;
boolean roundcapbas;
roundcapbas := false;
revcap := 1;
mode_setup;
picture apen;
input capfon.mf;
input mftools.mf;
%%% Font Parameters
%%% thrb : witdh of total outline
%%% thra : thickness of outline
%%% thrb - thra: distance between character contour and outline
%%% tf : size of the 'edges' in the font
%%% unit : unit length of the 'grid'.
%%% wdt : size of grid. Character is 3x7, 4x7 or 5x7 units.
% A macro to generate a letter. The letters are defined on a
% 'grid'. This grid may be 'stretched', 'mirrored' and 'rotated'
% by a transform operator. This keeps the labels of the points
% equal. The capbasgrid function draws the grid. The letters
% themselved are created on the grid bij separate macros for each
% letter.
% This makes it easy to create different letterforms. Later, the
% letters may be 'pattern-filled' or 'outlined'.
def begincapbaschar(expr c,unit,wdt)(text t) =
beginchar((char c),wdt*unit*1.15em#,unit*7*1em#,0);
z1 = (0.5w,0.5h);
z0 = z1;
thrb := 0.15 * w / unit ;
thra := 0.1 * w / unit ;
tf := 0.25 * w /unit;
scapbasgrid(1,0.9*h,1*w/wdt);
t ;
douboutline(thrb,thra);
endchar;
enddef;
begincapbaschar( 32,1.43,3)(dummy);
apen:=nullpicture;
begincapbaschar( 48,1.43,4)(gencho(1));
begincapbaschar( 49,1.43,4)(genchone(1));
begincapbaschar( 50,1.43,4)(genchtwo(1));
begincapbaschar( 51,1.43,4)(genchthr(1));
begincapbaschar( 52,1.43,4)(genchfou(1));
begincapbaschar( 53,1.43,4)(genchfiv(1));
begincapbaschar( 54,1.43,4)(genchsix(1));
begincapbaschar( 55,1.43,4)(genchsev(1));
begincapbaschar( 56,1.43,4)(gencheig(1));
begincapbaschar( 57,1.43,4)(genchnin(1));
begincapbaschar( 64,1.43,4,genchij(1));
begincapbaschar( 65,1.43,4,gencha(1));
begincapbaschar( 66,1.43,4,genchb(1));
begincapbaschar( 67,1.43,4,genchc(1));
begincapbaschar( 68,1.43,4,genchd(1));
begincapbaschar( 69,1.43,4,genche(1));
begincapbaschar( 70,1.43,4,genchf(1));
begincapbaschar( 71,1.43,4,genchg(1));
begincapbaschar( 72,1.43,4,genchh(1));
begincapbaschar( 73,1.43,2,genchi(1));
begincapbaschar( 74,1.43,4,genchj(1));
begincapbaschar( 75,1.43,4,genchk(1));
begincapbaschar( 76,1.43,4,genchl(1));
begincapbaschar( 77,1.43,5,genchm(1));
begincapbaschar( 78,1.43,4,genchn(1));
begincapbaschar( 79,1.43,4,gencho(1));
begincapbaschar( 80,1.43,4,genchp(1));
begincapbaschar( 81,1.43,4,genchq(1));
begincapbaschar( 82,1.43,4,genchr(1));
begincapbaschar( 83,1.43,4,genchs(1));
begincapbaschar( 84,1.43,4,gencht(1));
begincapbaschar( 85,1.43,4,genchu(1));
begincapbaschar( 86,1.43,4,genchv(1));
begincapbaschar( 87,1.43,5,genchw(1));
begincapbaschar( 88,1.43,4,genchx(1));
begincapbaschar( 89,1.43,4,genchy(1));
begincapbaschar( 90,1.43,4,genchz(1));
end;
|
