From: Carl Sorensen <c_sorensen@byu.edu>
Date: Sat, 11 Jun 2011 14:14:54 +0000 (-0600)
Subject: Add alternate halfopen glyph to font
X-Git-Tag: release/2.15.9-1~5^2~8^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c38406ea099b2c35f82d2c28e4843a1535f9201;p=lilypond.git

Add alternate halfopen glyph to font
---

diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index d04ed18b7b..e252d335e5 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -620,6 +620,44 @@ fet_beginchar ("halfopen (unstopped)", "halfopen");
 fet_endchar;
 
 
+fet_beginchar ("halfopen vertical", "halfopenvertical");
+	save thin, height, width, thick, factor, slash;
+
+	factor := 3/2;
+	height# = 5/4 width#;
+	height# = staff_space#;
+	thin = 0.6 linethickness + 0.06 staff_space;
+	slash# = 1.05 linethickness#;
+
+	set_char_box (width# / 2, width# / 2,
+		      height# / 2, height# / 2);
+
+	define_pixels (width, height, slash);
+
+	2 thick + 0.6 (height - 2 thin) = width;
+
+	penpos1 (thick, 0);
+	penpos2 (thin, 90);
+	penpos3 (thick, 180);
+	penpos4 (thin, 270);
+	z1r = (w, 0);
+	z2r = (0, h);
+	z3r = (-w, 0);
+	z4r = (0, -h);
+
+	penlabels (1, 2, 3, 4);
+
+	penstroke z1e{up}
+		  .. z2e{left}
+		  .. z3e{down}
+		  .. z4e{right}
+		  .. cycle;
+
+	draw_brush ((0, -h * factor), slash,
+		    (0, h * factor), slash);
+fet_endchar;
+
+
 fet_beginchar ("plus (stopped)", "stopped");
 	save hthick, vthick, size, outer_hsize, outer_vsize;