From b9987e955046aff8797604f0f973098b0215a84c Mon Sep 17 00:00:00 2001
From: John McWilliams <37010132+jmcwilliams403@users.noreply.github.com>
Date: Thu, 18 Jul 2024 15:54:06 -0400
Subject: [PATCH] =?UTF-8?q?Add=20tally=20marks=20(`U+1D377`=E2=80=A5`U+1D3?=
 =?UTF-8?q?78`)=20(#1784).=20(#2422)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* Add tally marks (`U+1D377`‥`U+1D378`) (#1784).

* Optimize tallyMarkOne width under QP.
---
 changes/30.3.3.md                          |  2 ++
 packages/font-glyphs/src/symbol/letter.ptl | 22 ++++++++++++++++++++++
 2 files changed, 24 insertions(+)

diff --git a/changes/30.3.3.md b/changes/30.3.3.md
index 169d963d5..0d95d789a 100644
--- a/changes/30.3.3.md
+++ b/changes/30.3.3.md
@@ -3,6 +3,8 @@
   - FRACTION NUMERATOR ONE (`U+215F`) (#1539).
   - BIG SOLIDUS (`U+29F8`) (#2414).
   - BIG REVERSE SOLIDUS (`U+29F9`) (#2414).
+  - TALLY MARK ONE (`U+1D377`) (#1784).
+  - TALLY MARK FIVE (`U+1D378`) (#1784).
   - PLAYING CARD BACK (`U+1F0A0`) ... PLAYING CARD KING OF SPADES (`U+1F0AE`) (#1835).
   - PLAYING CARD ACE OF HEARTS (`U+1F0B1`) ... PLAYING CARD RED JOKER (`U+1F0BF`) (#1835).
   - PLAYING CARD ACE OF DIAMONDS (`U+1F0C1`) ... PLAYING CARD BLACK JOKER (`U+1F0CF`) (#1835).
diff --git a/packages/font-glyphs/src/symbol/letter.ptl b/packages/font-glyphs/src/symbol/letter.ptl
index 7bd6bcb23..09e96608a 100644
--- a/packages/font-glyphs/src/symbol/letter.ptl
+++ b/packages/font-glyphs/src/symbol/letter.ptl
@@ -343,6 +343,28 @@ glyph-block Symbol-Letter : begin
 				flat (Middle + [HSwToV HalfStroke]) 0 [widths.lhs : AdviceStroke 3]
 				curl (RightSB - O) [mix 0 CAP 0.375]
 
+	do "Tally Marks"
+		create-glyph 'tallyMarkOne' 0x1D377 : glyph-proc
+			local df : include : DivFrame : if (para.diversityII < 1) ([mix 1 para.diversityM 2] / 4) 1
+			include : df.markSet.capital
+			include : VBar.m df.middle 0 CAP df.mvs
+
+		create-glyph 'tallyMarkFive' 0x1D378 : glyph-proc
+			local df : include : DivFrame [mix 1 para.diversityM 2] 4
+			include : df.markSet.capital
+
+			local left  : df.leftSB  + [HSwToV : 0.5 * df.mvs]
+			local right : df.rightSB - [HSwToV : 0.5 * df.mvs]
+
+			include : VBar.m      left              0 CAP df.mvs
+			include : VBar.m [mix left right (1/3)] 0 CAP df.mvs
+			include : VBar.m [mix left right (2/3)] 0 CAP df.mvs
+			include : VBar.m           right        0 CAP df.mvs
+
+			include : dispiro
+				flat (left  - LongJut / 2 + OX) (CAP * (1/3)) [widths.center df.mvs]
+				curl (right + LongJut / 2 - OX) (CAP * (2/3))
+
 glyph-block Symbol-Cyrl-Thousands : begin
 	glyph-block-import CommonShapes
 	create-glyph 'cyrlThousandsSign' 0x482 : glyph-proc