mf/wat-zie-ik.mf

   1 % wat-zie-ik.mf
   2 % part of LilyPond's pretty-but-neat music font
   3 % beams: plat en steil
   4
   5 %\tracingequations:= tracingonline := 1;
   6
   7
   8 beamheight#:=0.48interline#;
   9 define_pixels(beamheight);
  10
  11 pen beam_pen;
  12 beam_pen:=penrazor scaled beamheight rotated 90;
  13
  14 % mimic taupin-SLOPES for now -- because lily knows them
  15 ELEM_TAN:=0.05;
  16 SLOPES:=20;
  17 LENGTHS:=6;
  18 ELEM_FACTOR := 2;
  19 ELEM_INITIAL_LEN:=2;
  20
  21
  22 % Beamslopes up
  23 for i := -SLOPES upto SLOPES:
  24         width:= ELEM_INITIAL_LEN;
  25         for j:=1 upto LENGTHS:
  26                 beginchar(128 + i * LENGTHS + j -1 ,width,0,0);
  27                         pickup beam_pen;
  28                         draw origin--(lft w,w*i*ELEM_TAN);
  29                         endchar;
  30                 width:=ELEM_FACTOR *width;
  31                 endfor;
  32         endfor;