%
% source file of LilyPond's pretty-but-neat music font
%
-% (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
-% & 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;
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;
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);