release: 0.1.38

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

diff --git a/mf/feta-schrift.mf b/mf/feta-schrift.mf
index c600381d7a12711fd05f0a7a5432008bdf28223d..cec0283fcd79dee419ce84a85a6a18b337aae973 100644 (file)
--- a/mf/feta-schrift.mf
+++ b/mf/feta-schrift.mf
@@ -502,17 +502,22 @@ fet_endchar;
 
 fet_beginchar("Flageolet", "flageolet", "flageolet")
        save height,width,thickness;
-       height#=6/5interline#/2;
+       height#=4/15 staffsize#;
        width#=height#;
        thickness#=blot_diameter#;
        define_pixels(height,width,thickness);
-       set_char_box(0,width#,0,height#);
+       set_char_box(width#/2,width#/2,height#/2,height#/2);
        
        pickup pencircle scaled thickness;
-       x1=width/2; top y1=height;
-       lft x2=0; y2 = height/2;
-       x3=x1; bot y3=0;
-       rt x4=width; y4=y2;
+       x1= .5 [x2, x4];
+       x1 = 0;
+       top y1=height/2;
+       rt x4  - lft x2 =width; 
+       y2 = 0;
+       y4=y2;
+       x3=x1;
+       bot y3=-height/2;
+
        penlabels(1,2,3,4);
        draw z1..z2..z3..z4..cycle;
 fet_endchar;