release: 0.1.37

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

diff --git a/mf/feta-schrift.mf b/mf/feta-schrift.mf
index 16987fa6814a57004d28308363a752898930c59f..f97a635d11de5d445081f83e4b120fe14037baff 100644 (file)
--- a/mf/feta-schrift.mf
+++ b/mf/feta-schrift.mf
@@ -1,6 +1,10 @@
-%
-% scripts
-%
+% 
+% feta-schrift.mf --  implement scripts
+% 
+% source file of the Feta (Font-En-Tja) music font
+% 
+% (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+% 
 
 
 fet_begingroup("scripts")
@@ -167,9 +171,7 @@ fet_endchar;
 %
 % The down marcato char (not very much used). 
 % Contrary to what some MF/TeX `gurus' believe
-% it is *point*-symmetric with the "up" version; (at least [Chlapik] and 
-% and [Wanske] agree with us)
-%
+% it is *point*-symmetric with the "up" version
 fet_beginchar("marcato down", "dmarcato", "dmarcato")
        draw_marcato;
        xy_mirror_char;
@@ -356,7 +358,7 @@ fet_beginchar("Trill (`tr')","trill","trill")
        ex# = 1.5 interline#;
        kerning# = .75 ex#;
        start_nib_angle = 20;
-
+       bulb_size = 0.47;
        define_pixels(ex, ascender_extra, ascender, kerning);
 
        t_overshoot = 0.03 ex;
@@ -365,7 +367,7 @@ fet_beginchar("Trill (`tr')","trill","trill")
        r_fatness = .75 fatness;
        uitschieter = 21/40 ex;
        hair_thick =  blot_diameter;
-       bulb_size = 0.47;
+
        slant = .2;
 
        local_copy(transform)(currenttransform);
@@ -446,7 +448,8 @@ fet_beginchar("Trill (`tr')","trill","trill")
        fill z11r{dir 70} .. z13r{down} -- z13l{up} .. z11l{dir 250} -- cycle;
        penlabels(range 1 thru 15);
 
-       draw_bulb(-1, z13r, z13l, bulb_size, 1.5);
+
+       draw_bulb(-1, z13r, z13l, bulb_size * r_fatness, 1.5);
 fet_endchar;
 
 fet_beginchar("organ-heel", "pedalheel", "pedalheel")