new glyph mirroredflat.backslash.

diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index 9b69c5f0a0902e2e2479f2a35d1f8a1283d98577..217d8548309a2b4281c9f7216fbd2584ee911b88 100644 (file)
--- 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;