mf/feta-beum.mf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

% 
% feta-beum.mf --  implement runtime MF beams
% 
% source file of LilyPond's pretty-but-neat music font
% 
% (c) 1997--2006 Jan Nieuwenhuizen <janneke@gnu.org>
% 
mode_setup;

def drawbeam(expr widths,slope,thicks) =
	beginchar(0,0,0,0) "Embedded mf";
		width#:=widths*1pt#;
		thick#:=thicks*1pt#;
		height#:=slope*width#;
		% do separately, to identify "value too large"
		define_pixels(height);
		define_pixels(thick);
		define_pixels(width);
		fill (0, - thick/2)--(width,height - thick/2)--(width,height+thick/2)--(0,thick/2)
			-- cycle;
		endchar;
	enddef;