From: fred <fred>
Date: Wed, 8 Oct 1997 17:37:41 +0000 (+0000)
Subject: lilypond-0.1.32
X-Git-Tag: release/1.5.59~6047
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0736297ab4e80f1fa9cb144274a5c4ebd42ec10f;p=lilypond.git

lilypond-0.1.32
---

diff --git a/mf/feta-watzieik.mf b/mf/feta-watzieik.mf
new file mode 100644
index 0000000000..8bcdf19bc8
--- /dev/null
+++ b/mf/feta-watzieik.mf
@@ -0,0 +1,29 @@
+% wat-zie-ik.mf
+% part of LilyPond's pretty-but-neat music font
+% beams: plat en steil
+
+input feta-params;
+
+beamheight#:=0.48interline#;
+
+define_pixels(beamheight);
+
+pen beam_pen;
+beam_pen:=penrazor scaled beamheight rotated 90;
+
+ELEM_TAN:=0.05;
+SLOPES:=20;
+LENGTHS:=6;
+ELEM_FACTOR := 2;
+ELEM_INITIAL_LEN:=2;
+
+for i := -SLOPES upto SLOPES:
+	width:= ELEM_INITIAL_LEN;
+	for j:=1 upto LENGTHS:
+		beginchar(128 + i * LENGTHS + j -1 ,width,0,0);
+			pickup beam_pen;
+			draw origin--(lft w,w*i*ELEM_TAN);
+			endchar;
+		width:=ELEM_FACTOR *width;
+		endfor;
+	endfor;