+% A tick character to use instead of a comma or caesura as a breath mark,
+% Very common in vocal notation
+
+fet_beginchar ("Tick mark", "tickmark");
+ save end_rad, bot_rad, pat, x_centre, x_extent;
+ end_rad = linethickness / 2;
+ bot_rad = linethickness;
+ path pat;
+
+ x_centre# = 0.6 staff_space#;
+ x_extent# = 1.7 staff_space#;
+
+ define_pixels (x_centre, x_extent);
+
+ pickup pencircle scaled end_rad;
+
+ lft x1 = -x_centre;
+ y1 = 0.8 staff_space;
+
+ x2 = 0;
+ y2l = 0;
+
+ top rt z3 = (x_extent - x_centre, x_extent);
+ x4 = lft x1;
+ y4 = staff_space;
+
+ penpos2 (0.4 staff_space, 90);
+ penpos3 (end_rad, angle(z4 - z3) + 90);
+ penpos1 (end_rad, angle(z2 - z1) + 90);
+
+ pat = z1r
+ ..top z1..z1l{z2-z1}
+ ..{z2 - (z1 + (0.3 staff_space,0))}z2l + (-bot_rad, bot_rad)
+ ..z2l
+ ..z2l + (bot_rad, bot_rad){z3 - (0.6 staff_space, 0) - z2}
+ ..{z3 - z4}z3r
+ ..rt z3..{z4 - z3}z3l
+ ..{z2 - (z3 - (0.6 staff_space, 0))}rt z2r
+ ..{z1 - z2}lft z2r{z1 - z2}
+ ..cycle;
+ fill pat;
+
+ set_char_box (x_centre#, x_extent# - x_centre#, 0, x_extent#);
+
+ penlabels (1, 2, 3, 4);
+fet_endchar;