mf/feta-sleur.mf

   1 %
   2 % feta-sleur.mf --  implement runtime MF slurs
   3 %
   4 % source file of LilyPond's pretty-but-neat music font
   5 %
   6 % (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
   7 % & Han-Wen Nienhuys <hanwen@stack.nl>
   8 %
   9
  10 % mode_setup;
  11
  12 %% staffsize#=16pt#;
  13 % interline#:=staffsize#/4;
  14 % stafflinethickness#:=0.1interline#;
  15
  16 pi:=3.14159;
  17
  18 def atan(expr x) =
  19         (angle(1,x)*pi/180)
  20         enddef;
  21
  22 %breapth, width, depth, height
  23
  24 % urgh
  25 % having mf would be nice if only from a "use the source" point of view.
  26 %
  27 % getslurcontrol:
  28 %        slurhtlimit 90 div /slur_alpha exch def
  29 %        slurratio 60 div slur_alpha div  /slur_beta  exch def
  30 %        slur_beta mul 1 atan slur_alpha mul
  31 %
  32 % draw_slur:
  33 %        slur_b getslurcontrol
  34 %        slur_dir mul /slur_ht exch def
  35 %        slur_b getslurcontrol /slur_indent exch def
  36 %
  37
  38 sleur_pen#:=stafflinethickness#;
  39 slurheightlimit#:=staffsize#/2;
  40 % staffrulethickness 1.5 mul  /slur_thick exch def
  41 slurthick#:=3/2stafflinethickness#;
  42
  43 define_pixels(staffsize,interline,stafflinethickness);
  44 define_pixels(sleur_pen,slurheightlimit,slurthick);
  45
  46 sluralpha:=slurheightlimit#*pi/2;
  47 % slurratio:=1/3;
  48 slurratio:=0.3333;
  49 slurbeta:=3/4*pi*slurratio/sluralpha;
  50
  51 def draw_slur(expr dxs,dys,d) =
  52         save x, y;
  53         save b, dx, dy, indent;
  54         dx#:=dxs*1pt#;
  55         dy#:=dys*1pt#;
  56         define_pixels(dx,dy);
  57         b#:=length(dx#,dy#);
  58         % ugh: huh? 2/5
  59         indent#:=2/5*sluralpha*atan(slurbeta*b#);
  60         define_pixels(b,indent);
  61         height:=indent*d;
  62         z1=(0,0);
  63         z2=(b,0);
  64         z3=(indent,height);
  65         z4=(b-indent,height);
  66         z5=z4-(0,d*slurthick);
  67         z6=z3-(0,d*slurthick);
  68         path boogje;
  69         boogje=z1..controls z3 and z4..z2..controls z5 and z6..cycle;
  70         boogje:=boogje rotated angle(dxs,dys);
  71         pickup pencircle scaled sleur_pen;
  72         filldraw boogje;
  73         show z1;
  74         show z2;
  75         show z3;
  76         show z4;
  77         show z5;
  78         show z6;
  79 enddef;
  80
  81 def slurchar(expr dxs,dys,d) =
  82         beginchar(0,0,0,0) "Embedded mf";
  83         draw_slur(dxs,dys,d);
  84         endchar;
  85 enddef;
  86
  87 % drawslur(10,10,1);
  88