From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 29 Jan 2007 23:59:38 +0000 (+0100)
Subject: new glyph mirroredflat.backslash.
X-Git-Tag: release/2.11.15-1~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=837300ec80786edfa0767b95f2a5ded7a4f9dec1;p=lilypond.git

new glyph mirroredflat.backslash.
---

diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index 9b69c5f0a0..217d854830 100644
--- a/mf/feta-toevallig.mf
+++ b/mf/feta-toevallig.mf
@@ -609,6 +609,8 @@ draw_shifted_too;
 
 
 
+
+
 fet_beginchar ("Semi flat", "mirroredflat");
 	set_char_box (1.2 stafflinethickness#, .8 staff_space#,
 		      0.6 staff_space#, 1.9 staff_space#);
@@ -617,6 +619,28 @@ fet_beginchar ("Semi flat", "mirroredflat");
 	currentpicture := currentpicture xscaled -1 shifted (w - b, 0);
 fet_endchar;
 
+fet_beginchar ("Semi flat", "mirroredflat.backslash");
+	set_char_box (1.2 stafflinethickness#, .8 staff_space#,
+		      0.6 staff_space#, 1.9 staff_space#);
+
+	draw_meta_flat (0, w, 0.31 staff_space);
+	clearxy;
+
+	save slope, slash_width;
+	slope = 0.5;
+	slash_width = w;
+	z1 = (0, h / 2);
+	z2 = z1 - (slash_width, slash_width * slope)/2;
+	z3 = z1 + (slash_width, slash_width * slope)/2;
+	pickup pencircle scaled 1.5 stafflinethickness;
+	draw  z2 .. z3;
+
+	currentpicture := currentpicture xscaled -1 shifted (w - b, 0);
+
+	labels (1, 2, 3);
+
+fet_endchar;
+
 
 fet_beginchar ("Double Flat", "flatflat");
 	save left_wid, overlap, right_wid;