patch::: 1.1.39.mb2: Re: LilyPond 1.1.39 -- The Rantokil Release

[lilypond.git] / mf / feta-timesig.mf

diff --git a/mf/feta-timesig.mf b/mf/feta-timesig.mf
index 3cb794c58687009060b219966aa9ed0900d0799f..afe2d28c10e2b84243f3560967fdae5ee677fcc6 100644 (file)
--- a/mf/feta-timesig.mf
+++ b/mf/feta-timesig.mf
@@ -84,6 +84,7 @@ fet_beginchar ("Mensural 4/4 meter", "old4/4", "oldfourfourmeter")
        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#);
@@ -105,25 +106,57 @@ fet_endchar;
 %% 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");