mf/feta-watzieik.mf

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