''

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

diff --git a/mf/feta-macros.mf b/mf/feta-macros.mf
index f709ef54139967b5eb403309c78daf7c790f42fd..3b17c95f2e9ea22283fa95502186bf93c97f1c19 100644 (file)
--- a/mf/feta-macros.mf
+++ b/mf/feta-macros.mf
@@ -125,6 +125,10 @@ def distorted_ellipse(expr a,b,err_y,err_x,super) =
 
 
 
+%
+% draw an axis aligned block making sure that edges are on pixels.
+%
+
 def draw_rounded_block (expr bottom_left, top_right, roundness) =
        save round;
        round = floor min(roundness,xpart (top_right-bottom_left),
@@ -188,6 +192,8 @@ def super_curvelet(expr from, to, superness, dir) =
 enddef;
 
 
+%
+% Bulb with smooth inside curve.
 %
 % alpha = start direction.
 % beta = which side to turn to.
@@ -203,7 +209,7 @@ def flare_path(expr pos,alpha,beta,line,flare, direction) =
        penpos2(flare,180+beta+alpha);
        z2=z3;
        penpos3(flare,0+alpha);
-       z3l=z1r+(1/2+0.43)*flare*dir(alpha+beta);
+       z3l=z1r+(1/2+0.43)*flare*dir(alpha+beta) ;
        save taille;
        taille = 0.0;
        z4=z2r-  line * dir(alpha);