release: 1.5.29

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

diff --git a/mf/feta-sleur.mf b/mf/feta-sleur.mf
index 01c1e1406b9161d53e606bb5446169049e1a8b32..aead9a66c1cfc874b6f0ea885765b4546b13fcb0 100644 (file)
--- a/mf/feta-sleur.mf
+++ b/mf/feta-sleur.mf
@@ -3,16 +3,16 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 1997 Jan Nieuwenhuizen <janneke@gnu.org>
-% & Han-Wen Nienhuys <hanwen@stack.nl>
+% (c) 1997--2002 Jan Nieuwenhuizen <janneke@gnu.org>
+% & Han-Wen Nienhuys <hanwen@cs.uu.nl>
 % 
 % see Documentation/fonts.tex
 
 % mode_setup;
 
 %% staffsize#=16pt#;
-% interline#:=staffsize#/4;
-% stafflinethickness#:=0.1interline#;
+% staff_space#:=staffsize#/4;
+% stafflinethickness#:=0.1staff_space#;
 
 pi:=3.14159;
 
@@ -25,7 +25,7 @@ sleur_pen#:=stafflinethickness#;
 slurheightlimit#:=staffsize#/2;
 slurthick#:=1.8stafflinethickness#;
 
-define_pixels(staffsize,interline,stafflinethickness);
+define_pixels(staffsize,staff_space,stafflinethickness);
 define_pixels(sleur_pen,slurheightlimit,slurthick);
 
 sluralpha:=2slurheightlimit#/pi;
@@ -54,19 +54,6 @@ def draw_slur(expr dxs,dys,hs,d) =
        boogje:=boogje rotated angle(dxs,dys);
        pickup pencircle scaled sleur_pen;
        filldraw boogje;
-       show z1;
-       show z2;
-       show z3;
-       show z4;
-       show z5;
-       show z6;
 enddef;
 
-def slurchar(expr dxs,dys,hs,d) =
-       beginchar(0,0,0,0) "Embedded mf";
-       draw_slur(dxs,dys,hs,d);
-       endchar;
-enddef;
-
-% drawslur(10,10,0,1);