2 % parmesan-accidentals.mf -- implement ancient accidentals
4 % source file of LilyPond's pretty-but-neat music font
6 % (c) 2001--2002 Juergen Reuter <reuter@ipd.uka.de>
9 fet_begingroup ("accidentals")
20 fet_beginchar("Ed. Med. Flat" , "medicaea-1", "medicaeaflat");
21 set_char_box(0, 0.8 staff_space#, 0.6 staff_space#,
25 xscaled 0.50 stafflinethickness
26 yscaled 0.22 staff_space;
31 za = (0.00 staff_space, +0.90 staff_space);
32 zb = (0.00 staff_space, -0.50 staff_space);
36 xscaled 0.50 stafflinethickness
37 yscaled 0.22 staff_space
43 zc = (0.10 staff_space, -0.50 staff_space);
44 zd = (0.40 staff_space, +0.40 staff_space);
45 ze = (0.10 staff_space, +0.40 staff_space);
47 draw zc{(1,2)} .. zd .. ze{(-1,-1)};
59 fet_beginchar("Ed. Vat. Flat" , "vaticana-1", "vaticanaflat");
60 set_char_box(0, 0.7 staff_space#, 0.6 staff_space#,
62 define_pixels (stafflinethickness, staff_space);
64 save za, zb, zc, zd, ze, zf, zg;
65 pair za, zb, zc, zd, ze, zf, zg;
66 za = (0.00 staff_space, +0.80 staff_space);
67 zb = (0.00 staff_space, -0.03 staff_space);
68 zc = (0.25 staff_space, -0.23 staff_space);
69 zd = (0.50 staff_space, -0.23 staff_space);
70 ze = (0.50 staff_space, +0.00 staff_space);
71 zf = (0.25 staff_space, +0.20 staff_space);
72 zg = (0.15 staff_space, +0.26 staff_space);
75 xscaled 0.50 stafflinethickness
76 yscaled 0.22 staff_space;
77 draw za{down} .. {down}zb .. zc .. zd{up} .. {up}ze .. zf .. zg;
80 fet_beginchar("Ed. Vat. Natural" , "vaticana0", "vaticananatural");
81 set_char_box(0, 0.6 staff_space#, 0.6 staff_space#,
83 define_pixels (stafflinethickness, staff_space);
88 xscaled 0.80 stafflinethickness
89 yscaled 0.22 staff_space;
90 za = (0.00 staff_space, +0.65 staff_space);
91 zb = (0.00 staff_space, -0.35 staff_space);
92 zc = (0.00 staff_space, -0.30 staff_space);
93 zd = (0.40 staff_space, -0.08 staff_space);
97 addto currentpicture also currentpicture
100 shifted (0.40 staff_space, 0.0 staff_space);
112 fet_beginchar("Mensural Sharp" , "mensural1", "mensuralsharp");
113 set_char_box(0.4 staff_space#, 0.6 staff_space#, 0.5 staff_space#,
116 define_pixels (stemthick, staff_space);
117 stemthick# = stafflinethickness#;
121 pickup pencircle scaled 0.8 stemthick;
122 za = 0.4 * staff_space * (0.8, 1);
126 addto currentpicture also currentpicture xscaled -1;
127 addto currentpicture also currentpicture shifted (0.20 staff_space, 0);
131 fet_beginchar("Mensural Flat" , "mensural-1", "mensuralflat");
132 set_char_box(0.1 staff_space#, 0.7 staff_space#, 0.4 staff_space#,
135 define_pixels (stemthick, staff_space);
136 stemthick# = stafflinethickness#;
138 save za, zb, zc, zd, ze;
139 pair za, zb, zc, zd, ze;
141 xscaled 1.4 stemthick
142 yscaled 0.6 stemthick
145 za = (0.00 staff_space, +1.80 staff_space);
146 zb = (0.00 staff_space, -0.25 staff_space);
147 zc = (0.35 staff_space, -0.25 staff_space);
148 zd = (0.35 staff_space, +0.25 staff_space);
149 ze = (0.00 staff_space, +0.25 staff_space);
150 draw za -- zb .. zc .. zd .. ze;
153 fet_beginchar("Hufnagel Flat" , "hufnagel-1", "hufnagelflat");
154 set_char_box(0.5 staff_space#, 0.7 staff_space#, 0.4 staff_space#,
157 define_pixels (stemthick, staff_space);
158 stemthick# = stafflinethickness#;
160 save za, zb, zc, zd, ze, zf;
161 pair za, zb, zc, zd, ze, zf;
163 xscaled 2.4 stemthick
164 yscaled 0.4 stemthick
167 za = (0.00 staff_space, +1.80 staff_space);
168 zb = (0.00 staff_space, -0.15 staff_space);
169 zc = (0.25 staff_space, -0.30 staff_space);
170 zd = (0.50 staff_space, +0.00 staff_space);
171 ze = (0.30 staff_space, +0.30 staff_space);
172 zf = (0.00 staff_space, +0.15 staff_space);
173 draw za -- zb -- zc .. zd .. ze -- zf;
176 fet_endgroup ("accidentals")