release: 1.3.123

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

diff --git a/mf/feta-banier.mf b/mf/feta-banier.mf
index 246f599bfe3e29c6be75e60e1354b28aea5dafe5..4795c825136d6c92c42c415bd617506203971a5c 100644 (file)
--- a/mf/feta-banier.mf
+++ b/mf/feta-banier.mf
@@ -17,11 +17,10 @@ right_downflag_space# = .2 downflag_width#;
 % Flags pointing down cannot overlap with the notehead in y-direction,
 % so they have less slant.
 
-%
 % Because of optical illusion, the utmost flag (bottom for
 % down-pointing, top for up-pointing) should be smaller than the other
-% flags.  Adobe Sonata doesn't do this correctly.  (Instead they have an 
-% extension flag. Yuck)
+% flags.  Adobe Sonata doesn't do this correctly.  (Instead they have
+% an extension flag, which looks less elegant)
 %
 
 save hip_thickness, foot_thickness;
@@ -432,4 +431,25 @@ fet_beginchar("grace dash (down)", "dgrace", "dgracedash")
        y_mirror_char;
 fet_endchar;
 
+% ustem?
+%
+%
+% Stem characters so we can compose metronome markings with Feta
+% entirely.
+%
+
+fet_beginchar("stem (up)", "stem", "stem")
+       set_char_box(stemthickness#/2, stemthickness#/2, 0, 3.5staff_space#);
+       pickup pencircle scaled stemthickness;
+       draw (0, 0.2staff_space) .. (0, 3.5staff_space);
+fet_endchar;
+
+% do we want this?
+fet_beginchar("stem (down)", "dstem", "dstem")
+       set_char_box(stemthickness#/2, stemthickness#/2, 3.5staff_space#, 0);
+       pickup pencircle scaled stemthickness;
+       draw (0, -0.2staff_space) .. (0, -3.5staff_space);
+fet_endchar;
+
+
 fet_endgroup("flags");