release: 1.5.29

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

diff --git a/mf/feta-macros.mf b/mf/feta-macros.mf
index 814c82a16dbc77649a3197b3903c33285a72fc17..6fa8d3a3e6b13341627dd77fe47895e257853a70 100644 (file)
--- a/mf/feta-macros.mf
+++ b/mf/feta-macros.mf
@@ -95,6 +95,15 @@ enddef;
 % drawing
 %
 
+def soft_penstroke text t =
+       forsuffixes e = l,r: path_.e:=t; endfor
+       if cycle path_.l:
+         cyclestroke_
+       else:
+         fill path_.l .. tension1.5 .. reverse path_.r .. tension1.5 .. cycle
+       fi
+enddef;
+
 def simple_serif(expr p,q, a)= 
        p{dir(angle(q-p) -a)} .. q{ - dir(angle(p -q) + a)}
 enddef;
@@ -192,6 +201,7 @@ begingroup;
 endgroup;
 enddef;
 
+
 def y_mirror_char =
        currentpicture := currentpicture yscaled -1;
        set_char_box(charbp, charwd, charht, chardp);