draw threequartercircle rotated 45 scaled Cdiameter;
fet_endchar;
+%% tempus imperfectum cum prolatione imperfecta proportio dupla
fet_beginchar ("Mensural 2/2 meter", "old2/2", "oldallabreve")
set_char_box(.5 Cdiameter# + interline#, .5 Cdiameter# + interline#,
interline#, interline#);
%% tempus imperfectum cum prolatione perfecta
fet_beginchar ("Mensural 6/4 meter", "old6/4", "oldsixfourmeter")
set_char_box(.5 Cdiameter# + interline#, .5 Cdiameter# + interline#,
- .5 Cdiameter# + .5 interline#, .5 Cdiameter#+ .5 interline#);
+ .5 Cdiameter#, .5 Cdiameter#);
pickup pencircle scaled Cthickness;
- draw threequartercircle rotated 45 scaled Cdiameter
- shifted (0,.5 interline);
- pickup pencircle scaled 3 stafflinethickness;
- draw (0,.5 interline);
+ draw threequartercircle rotated 45 scaled Cdiameter;
+ pickup pencircle scaled 4 stafflinethickness;
+ draw (0,0);
fet_endchar;
%% tempus perfectum cum prolatione perfecta
fet_beginchar ("Mensural 9/4 meter", "old9/4", "oldninefourmeter")
set_char_box(.5 Cdiameter# + interline#, .5 Cdiameter# + interline#,
- .5 Cdiameter# + .5 interline#, .5 Cdiameter#+ .5 interline#);
+ .5 Cdiameter#, .5 Cdiameter#);
+
+ pickup pencircle scaled Cthickness;
+ draw fullcircle scaled Cdiameter;
+ pickup pencircle scaled 4 stafflinethickness;
+ draw (0,0);
+fet_endchar;
+
+%% tempus perfectum cum prolatione imperfecta proportio dupla
+fet_beginchar ("Mensural 3/4 meter", "old3/4", "oldthreefourmeter")
+ set_char_box(.5 Cdiameter# + interline#, .5 Cdiameter# + interline#,
+ interline#, interline#);
pickup pencircle scaled Cthickness;
- draw fullcircle scaled Cdiameter shifted (0,.5 interline);
- pickup pencircle scaled 3 stafflinethickness;
- draw (0,.5 interline);
+ draw fullcircle scaled Cdiameter;
+ draw_block((-Cthickness/2, -d), (Cthickness/2, h));
fet_endchar;
+%% tempus imperfectum cum prolatione perfecta proportio dupla
+fet_beginchar ("Mensural 6/8 meter", "old6/8", "oldsixeightmeter")
+ set_char_box(.5 Cdiameter# + interline#, .5 Cdiameter# + interline#,
+ interline#, interline#);
+
+ pickup pencircle scaled Cthickness;
+ draw threequartercircle rotated 45 scaled Cdiameter;
+ pickup pencircle scaled 4 stafflinethickness;
+ draw (0,0);
+ draw_block((-Cthickness/2, -d), (Cthickness/2, h));
+fet_endchar;
+
+%% tempus perfectum cum prolatione perfecta proportio dupla
+fet_beginchar ("Mensural 9/8 meter", "old9/8", "oldnineeight")
+ set_char_box(.5 Cdiameter# + interline#, .5 Cdiameter# + interline#,
+ interline#, interline#);
+
+ pickup pencircle scaled Cthickness;
+ draw fullcircle scaled Cdiameter;
+ pickup pencircle scaled 4 stafflinethickness;
+ draw (0,0);
+ draw_block((-Cthickness/2, -d), (Cthickness/2, h));
+fet_endchar;
fet_endgroup("timesig");