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
|
font_identifier:="mxsk";
mode_setup;
font_size 20pt#;
nhh#:=5pt#;
nhw#:=6pt#;
define_pixels(nhh,nhw,beamht,gregwidth);
define_blacker_pixels(thin,med,thick);
font_x_height nhh#;
font_quad nhw#;
%%% terribly written, I know, but this is not a final solution...
%%% 20pt stuff
slurendpen:=max(0.12nhh, 1);
slurmiddlehalfpen:=max(0.18nhh,1.5);
beginchar(0, 0, 0, 0);
z1l = (-12pt, 4pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir-45}z2e);
endchar;
beginchar(1, 0, 0, 0);
z1l = (-12pt, -4pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir45}z2e);
endchar;
%%% 16pt stuff
slurendpen:=max(0.48pt, 1);
slurmiddlehalfpen:=max(0.72pt,1.5);
beginchar(64, 0, 0, 0);
z1l = (-9.6pt, 3.2pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir-45}z2e);
endchar;
beginchar(65, 0, 0, 0);
z1l = (-9.6pt, -3.2pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir45}z2e);
endchar;
%%% 13pt stuff
slurendpen:=max(0.4pt, 1);
slurmiddlehalfpen:=max(0.585pt,1.5);
beginchar(128, 0, 0, 0);
z1l = (-7.8pt, 2.6pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir-45}z2e);
endchar;
beginchar(129, 0, 0, 0);
z1l = (-7.8pt, -2.6pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir45}z2e);
endchar;
%%% 11pt stuff
slurendpen:=max(0.33pt, 1);
slurmiddlehalfpen:=max(0.5pt,1.5);
beginchar(192, 0, 0, 0);
z1l = (-6.6pt, 2.2pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir-45}z2e);
endchar;
beginchar(193, 0, 0, 0);
z1l = (-6.6pt, -2.2pt); z2l = (0, 0);
penpos1(slurmiddlehalfpen,90);
penpos2(slurendpen,90);
penstroke (z1e{right}..{dir45}z2e);
endchar;
end;
|