release: 1.3.24

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

diff --git a/mf/feta-sleur.mf b/mf/feta-sleur.mf
index 24637e273dd1b632c11c88286dfe0b4ccf9ff167..40a4e84885850a8657ad7b7d2978e0200688bec0 100644 (file)
--- a/mf/feta-sleur.mf
+++ b/mf/feta-sleur.mf
@@ -3,7 +3,7 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
+% (c) 1997, 1998 Jan Nieuwenhuizen <janneke@gnu.org>
 % & Han-Wen Nienhuys <hanwen@stack.nl>
 % 
 % see Documentation/fonts.tex
@@ -11,8 +11,8 @@
 % 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);