From 75ef3811c47302559fe275145212715ce109cbe3 Mon Sep 17 00:00:00 2001
From: Phil Holmes <mail@philholmes.net>
Date: Wed, 26 Sep 2012 18:03:59 +0100
Subject: [PATCH] Adds tick mark to scripts

---
 mf/feta-scripts.mf | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index 83859dbe66..39d751ab59 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -1736,6 +1736,52 @@ fet_beginchar ("Straight caesura", "caesura.straight");
 	labels(1a, 1b, 2a, 2b, 3a, 3b, 4a, 4b);
 fet_endchar;
 
+% 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;
 
 fet_beginchar ("snap pizzicato (Bartok pizzicato)", "snappizzicato");
 	save height, width, thickness, superness;
-- 
2.39.2