2 % parmesan-timesig.mf -- implement ancient time signatures
4 % source file of LilyPond's pretty-but-neat music font
6 % (c) 1998--2002 Mats Bengtsson <matsb@s3.kth.se>,
7 % Christian Mondrup <scancm@biobase.dk>
9 fet_begingroup ("timesig")
11 path threequartercircle;
12 threequartercircle = halfcircle & quartercircle rotated 180;
14 save Cdiameter,Cthickness;
15 Cdiameter# := 3/2 staff_space#;
16 Cthickness# := 2 stafflinethickness#;
17 define_pixels(Cdiameter,Cthickness);
29 %% tempus imperfectum cum prolatione imperfecta
30 fet_beginchar ("Mensural 4/4 meter", "old4/4", "oldfourfourmeter")
31 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
32 .5 Cdiameter#, .5 Cdiameter#);
34 pickup pencircle scaled Cthickness;
35 draw threequartercircle rotated 45 scaled Cdiameter;
38 %% tempus imperfectum cum prolatione imperfecta proportio dupla
39 fet_beginchar ("Mensural 2/2 meter", "old2/2", "oldallabreve")
40 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
41 staff_space#, staff_space#);
43 pickup pencircle scaled Cthickness;
44 draw threequartercircle rotated 45 scaled Cdiameter;
45 draw_block((-Cthickness, -d), (0, h));
48 %% tempus perfectum cum prolatione imperfecta
49 fet_beginchar ("Mensural 3/2 meter", "old3/2", "oldthreetwometer")
50 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
51 .5 Cdiameter#, .5 Cdiameter#);
53 pickup pencircle scaled Cthickness;
54 draw fullcircle scaled Cdiameter;
57 %% tempus imperfectum cum prolatione perfecta
58 fet_beginchar ("Mensural 6/4 meter", "old6/4", "oldsixfourmeter")
59 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
60 .5 Cdiameter#, .5 Cdiameter#);
62 pickup pencircle scaled Cthickness;
63 draw threequartercircle rotated 45 scaled Cdiameter;
64 pickup pencircle scaled 4 stafflinethickness;
68 %% tempus perfectum cum prolatione perfecta
69 fet_beginchar ("Mensural 9/4 meter", "old9/4", "oldninefourmeter")
70 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
71 .5 Cdiameter#, .5 Cdiameter#);
73 pickup pencircle scaled Cthickness;
74 draw fullcircle scaled Cdiameter;
75 pickup pencircle scaled 4 stafflinethickness;
79 %% tempus perfectum cum prolatione imperfecta proportio dupla
80 fet_beginchar ("Mensural 3/4 meter", "old3/4", "oldthreefourmeter")
81 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
82 staff_space#, staff_space#);
84 pickup pencircle scaled Cthickness;
85 draw fullcircle scaled Cdiameter;
86 draw_block((-Cthickness/2, -d), (Cthickness/2, h));
89 %% tempus imperfectum cum prolatione perfecta proportio dupla
90 fet_beginchar ("Mensural 6/8 meter", "old6/8", "oldsixeightmeter")
91 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
92 staff_space#, staff_space#);
94 pickup pencircle scaled Cthickness;
95 draw threequartercircle rotated 45 scaled Cdiameter;
96 pickup pencircle scaled 4 stafflinethickness;
98 draw_block((-Cthickness/2, -d), (Cthickness/2, h));
101 %% tempus perfectum cum prolatione perfecta proportio dupla
102 fet_beginchar ("Mensural 9/8 meter", "old9/8", "oldnineeight")
103 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
104 staff_space#, staff_space#);
106 pickup pencircle scaled Cthickness;
107 draw fullcircle scaled Cdiameter;
108 pickup pencircle scaled 4 stafflinethickness;
110 draw_block((-Cthickness/2, -d), (Cthickness/2, h));
113 %% tempus imperfectum cum prolatione imperfecta diminutio simplex
114 fet_beginchar ("Mensural 4/8 meter", "old4/8", "oldfoureightmeter")
115 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
116 .5 Cdiameter#, .5 Cdiameter#);
118 pickup pencircle scaled Cthickness;
119 draw threequartercircle rotated 225 scaled Cdiameter;
122 %% tempus imperfectum cum prolatione perfecta diminutio simplex
123 fet_beginchar ("Mensural 6/8 meter", "old6/8alt", "oldsixeightmeteralt")
124 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
125 .5 Cdiameter#, .5 Cdiameter#);
127 pickup pencircle scaled Cthickness;
128 draw threequartercircle rotated 225 scaled Cdiameter;
129 pickup pencircle scaled 4 stafflinethickness;
133 %% tempus imperfectum cum prolatione imperfecta diminutio duplex
134 fet_beginchar ("Mensural 2/4 meter", "old2/4", "oldtwofourmeter")
135 set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
136 staff_space#, staff_space#);
138 pickup pencircle scaled Cthickness;
139 draw threequartercircle rotated 225 scaled Cdiameter;
140 draw_block((-Cthickness, -d), (0, h));
143 fet_endgroup ("timesig")