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;