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 max_slope:=0.6;
  15 slopes:=20;
  16 elem_tan:=max_slope/slopes;
  17 lengths:=6;
  18 elem_factor := 2;
  19 elem_initial_len:=2;
  20
  21 for i := -slopes upto slopes:
  22         width:= elem_initial_len;
  23         for j:=1 upto lengths:
  24                 beginchar(128 + i * lengths + j -1 ,width,0,0);
  25                         pickup beam_pen;
  26                         draw origin--(lft w,w*i*elem_tan);
  27                         endchar;
  28                 width:=elem_factor *width;
  29                 endfor;
  30         endfor;