feta accidentals: split into several files

[lilypond.git] / mf / feta-parenthesis.mf

diff --git a/mf/feta-parenthesis.mf b/mf/feta-parenthesis.mf
new file mode 100644 (file)
index 0000000..8f019d5
--- /dev/null
+++ b/mf/feta-parenthesis.mf
@@ -0,0 +1,49 @@
+
+
+def draw_paren =
+       save leftindent;
+
+       leftindent := .2 staff_space;
+
+       set_char_box (0, .5 staff_space# + stafflinethickness#,
+                     staff_space#, staff_space#);
+
+       d := d - feta_shift;
+
+       z1 = (leftindent, h);
+       z2 = (w - stafflinethickness, .5 (h - d));
+       z3 = (leftindent, -d);
+
+       penpos1 (stafflinethickness, 35);
+       penpos2 (.1 staff_space + stafflinethickness, 0);
+       penpos3 (stafflinethickness, -35);
+
+       fill z2l{down}
+            .. simple_serif (z3l, z3r, 90)
+            .. z2r{up}
+            .. simple_serif (z1r, z1l, 90)
+            .. z2l{down}
+            -- cycle;
+enddef;
+
+
+fet_beginchar ("Right Parenthesis", "rightparen");
+       draw_paren;
+       penlabels (1, 2, 3);
+
+       remember_pic := currentpicture;
+
+       draw_staff (-2, 2, 0);
+fet_endchar;
+
+
+draw_shifted_too;
+
+
+fet_beginchar ("Left Parenthesis", "leftparen");
+       draw_paren;
+
+       currentpicture := currentpicture xscaled -1;
+
+       set_char_box (charwd, charbp, chardp, charht);
+fet_endchar;