release: 0.1.50

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

diff --git a/mf/feta-sleur.mf b/mf/feta-sleur.mf
index 1eba2a6ce441e32a265cd1739bd49c0baa641c2b..02f984975c2133a48ea5e0960dfbcb99994882bc 100644 (file)
--- a/mf/feta-sleur.mf
+++ b/mf/feta-sleur.mf
@@ -1,33 +1,88 @@
-% feta-sleur.mf
+% 
+% feta-sleur.mf --  implement runtime MF slurs
+% 
+% source file of LilyPond's pretty-but-neat music font
+% 
+% (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
+% & Han-Wen Nienhuys <hanwen@stack.nl>
+% 
 
-mode_setup;
-thin:=.2pt;
-thick:=5thin;
-bow:=.2;
+% mode_setup;
 
-def sign(expr a) =
-       ((abs(a))/(a))
+%% staffsize#=16pt#;
+% interline#:=staffsize#/4;
+% stafflinethickness#:=0.1interline#;
+
+pi:=3.14159;
+
+def atan(expr x) = 
+       (angle(1,x)*pi/180)
        enddef;
 
-def draw_slur(expr a,b,d) =
+%breapth, width, depth, height
+
+% urgh
+% having mf would be nice if only from a "use the source" point of view.
+%
+% getslurcontrol:
+%        slurhtlimit 90 div /slur_alpha exch def
+%        slurratio 60 div slur_alpha div  /slur_beta  exch def
+%        slur_beta mul 1 atan slur_alpha mul
+%
+% draw_slur:
+%        slur_b getslurcontrol 
+%        slur_dir mul /slur_ht exch def
+%        slur_b getslurcontrol /slur_indent exch def       
+%
+
+sleur_pen#:=stafflinethickness#;
+slurheightlimit#:=staffsize#/2;
+% staffrulethickness 1.5 mul  /slur_thick exch def
+slurthick#:=3/2stafflinethickness#;
+
+define_pixels(staffsize,interline,stafflinethickness);
+define_pixels(sleur_pen,slurheightlimit,slurthick);
+
+sluralpha:=slurheightlimit#*pi/2;
+% slurratio:=1/3;
+slurratio:=0.3333;
+slurbeta:=3/4*pi*slurratio/sluralpha;
+
+def draw_slur(expr dxs,dys,d) =
+       save x, y;
+       save b, dx, dy, indent;
+       dx#:=dxs*1pt#;
+       dy#:=dys*1pt#;
+       define_pixels(dx,dy);
+       b#:=length(dx#,dy#);
+       % ugh: huh? 2/5
+       indent#:=2/5*sluralpha*atan(slurbeta*b#);
+       define_pixels(b,indent);
+       height:=indent*d;
+       z1=(0,0);
+       z2=(b,0);
+       z3=(indent,height);
+       z4=(b-indent,height);
+       z5=z4-(0,d*slurthick);
+       z6=z3-(0,d*slurthick);
+       path boogje;
+       boogje=z1..controls z3 and z4..z2..controls z5 and z6..cycle;
+       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,d) =
        beginchar(0,0,0,0) "Embedded mf";
-               % huh, factor 8?
-               z1=8a;
-               z3=8b;
-               save alpha; alpha=angle(z3-z1);
-               z2=(1/2[x1,x3],1/2[y1,y3])+d*bow*(x3-x1)*dir(alpha+90);
-               save beta; beta=d*sign(y3-y1)*1.5angle(z2-z1)-alpha;
-%              message "d: "&decimal d;
-%              message "dy: "& decimal sign(y3-y1);
-%              message "alpha: "&decimal alpha;
-%              message "beta: "&decimal beta;
-               penpos1(thin,alpha+beta+90);
-               penpos2(thick,alpha+90);
-               penpos3(thin,alpha-beta+90);
-               pickup pencircle;
-               fill z1l{dir(alpha+beta)}..z2l{dir(alpha)}..z3l{dir(alpha-beta)}
-                       ..z3r{dir(180+alpha-beta)}..z2r{dir(180+alpha)}..z1r{dir(180+alpha+beta)}
-                       ..cycle;
-               penlabels(1,2,3);
-               endchar;
-       enddef;
+       draw_slur(dxs,dys,d);
+       endchar;
+enddef;
+
+% drawslur(10,10,1);
+