]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-0.1.24
authorfred <fred>
Sun, 24 Mar 2002 20:00:45 +0000 (20:00 +0000)
committerfred <fred>
Sun, 24 Mar 2002 20:00:45 +0000 (20:00 +0000)
mf/feta-schrift.mf

index 8c9d7d795dc3d95f3753295fb43435fccf8a0fb6..d6127a7678a3106909389b44d315a4be81e9bc34 100644 (file)
@@ -359,7 +359,7 @@ enddef;
 
 fet_beginchar("Trill (`tr')","trill","trill")
        
-       save start_angle,  ascender_extra, ex, hair_thick, fatness,
+       save start_nib_angle,  ascender_extra, ex, hair_thick, fatness,
          slant_angle, slant, t_fatness, r_fatness, kerning, t_overshoot, 
          uitschieter, bulb_size;
        ;
@@ -369,6 +369,7 @@ fet_beginchar("Trill (`tr')","trill","trill")
        ascender# = ascender_extra# + ex#;
        ex# = 1.5 interline#;
        kerning# = .75 ex#;
+       start_nib_angle = 20;
 
        define_pixels(ex, ascender_extra, ascender, kerning);
 
@@ -387,10 +388,10 @@ fet_beginchar("Trill (`tr')","trill","trill")
        y1 = ascender;
        x1l = 0;
        x1r = t_fatness;
-       penpos1(start_nib_wid, 25);
+       penpos1(start_nib_wid, start_nib_angle);
        
        z2 = (x1, 7/18 ex);
-       penpos2(start_nib_wid, 25);
+       penpos2(start_nib_wid, start_nib_angle);
 
        z3l = (11/10 t_fatness, - t_overshoot);