2 % feta-toevallig.mf -- implement Accidentals
4 % source file of the Feta (Font-En-Tja) music font
6 % (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 fet_begingroup("accidentals");
21 fet_beginchar("Ed. Med. Flat" , "medicaea-1", "medicaeaflat");
22 set_char_box(0, 0.8 staff_space#, 0.6 staff_space#,
26 xscaled 0.50 stafflinethickness
27 yscaled 0.22 staff_space;
32 za = (0.00 staff_space, +0.90 staff_space);
33 zb = (0.00 staff_space, -0.50 staff_space);
37 xscaled 0.50 stafflinethickness
38 yscaled 0.22 staff_space
44 zc = (0.10 staff_space, -0.50 staff_space);
45 zd = (0.40 staff_space, +0.40 staff_space);
46 ze = (0.10 staff_space, +0.40 staff_space);
48 draw zc{(1,2)} .. zd .. ze{(-1,-1)};
60 fet_beginchar("Ed. Vat. Flat" , "vaticana-1", "vaticanaflat");
61 set_char_box(0, 0.7 staff_space#, 0.6 staff_space#,
63 define_pixels (stafflinethickness, staff_space);
65 save za, zb, zc, zd, ze, zf, zg;
66 pair za, zb, zc, zd, ze, zf, zg;
67 za = (0.00 staff_space, +0.80 staff_space);
68 zb = (0.00 staff_space, -0.03 staff_space);
69 zc = (0.25 staff_space, -0.23 staff_space);
70 zd = (0.50 staff_space, -0.23 staff_space);
71 ze = (0.50 staff_space, +0.00 staff_space);
72 zf = (0.25 staff_space, +0.20 staff_space);
73 zg = (0.15 staff_space, +0.26 staff_space);
76 xscaled 0.50 stafflinethickness
77 yscaled 0.22 staff_space;
78 draw za{down} .. {down}zb .. zc .. zd{up} .. {up}ze .. zf .. zg;
81 fet_beginchar("Ed. Vat. Natural" , "vaticana0", "vaticananatural");
82 set_char_box(0, 0.6 staff_space#, 0.6 staff_space#,
84 define_pixels (stafflinethickness, staff_space);
89 xscaled 0.80 stafflinethickness
90 yscaled 0.22 staff_space;
91 za = (0.00 staff_space, +0.65 staff_space);
92 zb = (0.00 staff_space, -0.35 staff_space);
93 zc = (0.00 staff_space, -0.30 staff_space);
94 zd = (0.40 staff_space, -0.08 staff_space);
98 addto currentpicture also currentpicture
101 shifted (0.40 staff_space, 0.0 staff_space);
113 fet_beginchar("Mensural Sharp" , "mensural1", "mensuralsharp");
114 set_char_box(0.4 staff_space#, 0.6 staff_space#, 0.5 staff_space#,
117 define_pixels (stemthick, staff_space);
118 stemthick# = stafflinethickness#;
122 pickup pencircle scaled 0.8 stemthick;
123 za = 0.4 * staff_space * (0.8, 1);
127 addto currentpicture also currentpicture xscaled -1;
128 addto currentpicture also currentpicture shifted (0.20 staff_space, 0);
132 fet_beginchar("Mensural Flat" , "mensural-1", "mensuralflat");
133 set_char_box(0.1 staff_space#, 0.7 staff_space#, 0.4 staff_space#,
136 define_pixels (stemthick, staff_space);
137 stemthick# = stafflinethickness#;
139 save za, zb, zc, zd, ze;
140 pair za, zb, zc, zd, ze;
142 xscaled 1.4 stemthick
143 yscaled 0.6 stemthick
146 za = (0.00 staff_space, +1.80 staff_space);
147 zb = (0.00 staff_space, -0.25 staff_space);
148 zc = (0.35 staff_space, -0.25 staff_space);
149 zd = (0.35 staff_space, +0.25 staff_space);
150 ze = (0.00 staff_space, +0.25 staff_space);
151 draw za -- zb .. zc .. zd .. ze;
154 fet_beginchar("Hufnagel Flat" , "hufnagel-1", "hufnagelflat");
155 set_char_box(0.5 staff_space#, 0.7 staff_space#, 0.4 staff_space#,
158 define_pixels (stemthick, staff_space);
159 stemthick# = stafflinethickness#;
161 save za, zb, zc, zd, ze, zf;
162 pair za, zb, zc, zd, ze, zf;
164 xscaled 2.4 stemthick
165 yscaled 0.4 stemthick
168 za = (0.00 staff_space, +1.80 staff_space);
169 zb = (0.00 staff_space, -0.15 staff_space);
170 zc = (0.25 staff_space, -0.30 staff_space);
171 zd = (0.50 staff_space, +0.00 staff_space);
172 ze = (0.30 staff_space, +0.30 staff_space);
173 zf = (0.00 staff_space, +0.15 staff_space);
174 draw za -- zb -- zc .. zd .. ze -- zf;
177 fet_endgroup ("accidentals")