+
+
fet_beginchar ("Semi flat", "mirroredflat");
set_char_box (1.2 stafflinethickness#, .8 staff_space#,
0.6 staff_space#, 1.9 staff_space#);
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;