From 9bc1f33ac0f73a0df3c1f4a04afdb98d0628b62d Mon Sep 17 00:00:00 2001
From: John McWilliams <37010132+jmcwilliams403@users.noreply.github.com>
Date: Thu, 28 Dec 2023 10:56:27 -0500
Subject: [PATCH] Add Plimsoll symbol (`U+29B5`). (#2134)

---
 changes/28.0.3.md                                | 1 +
 packages/font-glyphs/src/symbol/math/circled.ptl | 7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/changes/28.0.3.md b/changes/28.0.3.md
index 49945a84c..af77eda91 100644
--- a/changes/28.0.3.md
+++ b/changes/28.0.3.md
@@ -1,5 +1,6 @@
 * Add characters:
   - COMBINING SUSPENSION MARK (`U+1DC3`).
+  - CIRCLE WITH HORIZONTAL BAR (`U+29B5`).
   - LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER (`U+A750`) (#1797).
   - LATIN SMALL LETTER P WITH STROKE THROUGH DESCENDER (`U+A751`) (#1797).
 * Remove tailless variants for Latin Iota (`U+0196`, `U+0269`) and Cyrillic Iota (`U+A646`, `U+A647`).
diff --git a/packages/font-glyphs/src/symbol/math/circled.ptl b/packages/font-glyphs/src/symbol/math/circled.ptl
index 3103ccf27..727b0bf87 100644
--- a/packages/font-glyphs/src/symbol/math/circled.ptl
+++ b/packages/font-glyphs/src/symbol/math/circled.ptl
@@ -7,6 +7,7 @@ glyph-module
 glyph-block Symbol-Math-Circled : begin
 	glyph-block-import CommonShapes
 	glyph-block-import Common-Derivatives
+	glyph-block-import Symbol-Math-Frame : MathEnclosureSw
 
 	define [MakeMathCircled u inner] : begin
 		derive-glyphs "mathCircled{\(inner)}" u inner : function [src gr]
@@ -69,9 +70,9 @@ glyph-block Symbol-Math-Circled : begin
 
 	create-glyph 0x229D : composite-proc [refer-glyph 'mathO'] : intersection
 		refer-glyph 'mathOOutline'
-		HBar.m (SB + GeometryStroke) (RightSB - GeometryStroke) SymbolMid GeometryStroke
+		HBar.m (SB + MathEnclosureSw) (RightSB - MathEnclosureSw) SymbolMid MathEnclosureSw
 
-	local eqS : Math.min GeometryStroke ((RightSB - SB) / 8)
+	local eqS : Math.min MathEnclosureSw ((RightSB - SB) / 8)
 	local eqD : Math.max eqS ((RightSB - SB) / 6)
 	create-glyph 0x229C : composite-proc [refer-glyph 'mathO'] : intersection
 		refer-glyph 'mathOOutline'
@@ -79,6 +80,8 @@ glyph-block Symbol-Math-Circled : begin
 			HBar.m (SB + eqS) (RightSB - eqS) (SymbolMid + eqD) eqS
 			HBar.m (SB + eqS) (RightSB - eqS) (SymbolMid - eqD) eqS
 
+	create-glyph 0x29B5 : composite-proc [refer-glyph 'mathO'] : HBar.m [mix SB 0 0.9] [mix RightSB Width 0.9] SymbolMid MathEnclosureSw
+
 	create-glyph 0x29B7 : composite-proc [refer-glyph 'mathO'] : intersection
 		refer-glyph 'mathOOutline'
 		union