From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 19 Jan 1998 22:56:08 +0000 (+0100)
Subject: partial: 0.1.41.jcn
X-Git-Tag: release/0.1.41~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2d0f3458ff34d5ec9496cca0073103f580e80395;p=lilypond.git

partial: 0.1.41.jcn
---

diff --git a/mf/feta-beum.mf b/mf/feta-beum.mf
new file mode 100644
index 0000000000..53c8cc4f24
--- /dev/null
+++ b/mf/feta-beum.mf
@@ -0,0 +1,23 @@
+% 
+% feta-beum.mf --  implement runtime MF beams
+% 
+% source file of LilyPond's pretty-but-neat music font
+% 
+% (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
+% 
+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;
+