From 2d0f3458ff34d5ec9496cca0073103f580e80395 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 19 Jan 1998 23:56:08 +0100
Subject: [PATCH] partial: 0.1.41.jcn

---
 mf/feta-beum.mf | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 mf/feta-beum.mf

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;
+
-- 
2.39.5