summaryrefslogtreecommitdiff
path: root/fonts/musixtex-fonts/source/mxsk.mf
blob: e667476d9d2abd5c8b75ec0c272edb4f98d0a636 (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
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;