]> git.donarmstrong.com Git - lilypond.git/blob - mf/feta-beum.mf
*** empty log message ***
[lilypond.git] / 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--2003 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