From f63af7c302deb37d0ebb53bbf8fb27d289d4d2b4 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 8 Apr 1998 06:43:30 +0000
Subject: [PATCH] lilypond-0.1.55

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

diff --git a/mf/feta-haak.mf b/mf/feta-haak.mf
new file mode 100644
index 0000000000..186a9ddeac
--- /dev/null
+++ b/mf/feta-haak.mf
@@ -0,0 +1,52 @@
+input feta-macros;
+input feta-params;
+
+save code;
+code :=0;
+
+
+def draw_bracket( expr height_sharp, width_sharp) = 
+	save alpha, height, p, width, thin, thick;
+	height# := height_sharp;
+	width#  := width_sharp;
+
+	beginchar(incr code, width#, height#/2, height#/2);
+ 
+	define_pixels (height, width);
+	thin = 2 stafflinethickness;
+	thick = .5 interline;
+	
+	pickup pencircle scaled thin;
+	lft x1 = 0;
+	top y1 = height/2 + thick + thin;
+
+	x2 = x1;
+	z2 = (x1, 0);
+	rt x3 = thick;
+	y3 = y2;
+
+	x4 = x3;
+	bot y4 = y1 - thick + thin/2;
+
+	alpha = 50;
+	z5 = z1 + (width, 3/4interline);
+
+	% need silly z6?
+	% strange turning path when invoked via MakeTeXTFM...?
+	% mf "\\mode:=ljfour; mag:=1; scrollmode; input feta-brackets16"
+	z6 = z5 - (0, thin/16);
+
+	filldraw z5{dir(180+alpha)}..{left}z1--z2--z3..{up}z4{right}
+		..{dir(alpha)}z6..cycle;
+
+	labels(1,2,3,4,5,6);
+	addto currentpicture also currentpicture yscaled -1;
+endchar;
+enddef;
+
+
+% for h :=  staffsize# step 1 pt# until (2 * staffsize#):
+for h :=  staffsize# step 1 pt# until (7 * staffsize#):
+	draw_bracket(h, 2interline# );
+endfor
+
-- 
2.39.5