mf/feta-beum.mf

   1 %
   2 % feta-beum.mf --  implement runtime MF beams
   3 %
   4 % source file of LilyPond's pretty-but-neat music font
   5 %
   6 % (c) 1997, 1998 Jan Nieuwenhuizen <janneke@gnu.org>
   7 %
   8 mode_setup;
   9
  10 def drawbeam(expr widths,slope,thicks) =
  11         beginchar(0,0,0,0) "Embedded mf";
  12                 width#:=widths*1pt#;
  13                 thick#:=thicks*1pt#;
  14                 height#:=slope*width#;
  15                 % do separately, to identify "value too large"
  16                 define_pixels(height);
  17                 define_pixels(thick);
  18                 define_pixels(width);
  19                 fill (0, - thick/2)--(width,height - thick/2)--(width,height+thick/2)--(0,thick/2)
  20                         -- cycle;
  21                 endchar;
  22         enddef;
  23