From 041e6a3c769c55389bfc1534fe23cd4379efcd6c Mon Sep 17 00:00:00 2001
From: be5invis <belleve@typeof.net>
Date: Fri, 22 Jul 2022 02:31:18 -0700
Subject: [PATCH]  * Add characters:   - BLANK SYMBOL (`U+2422`);   - SYMBOL
 FOR DELETE FORM TWO (`U+2425`);   - SYMBOL FOR SUBSTITUTE FORM TWO
 (`U+2426`);

---
 changes/15.6.1.md                              |  4 ++++
 font-src/glyphs/symbol/geometric/shaded.ptl    | 10 ++++++++++
 font-src/glyphs/symbol/punctuation/emotion.ptl |  1 +
 font-src/meta/unicode-knowledge.ptl            |  2 ++
 4 files changed, 17 insertions(+)
 create mode 100644 changes/15.6.1.md

diff --git a/changes/15.6.1.md b/changes/15.6.1.md
new file mode 100644
index 000000000..21186bd01
--- /dev/null
+++ b/changes/15.6.1.md
@@ -0,0 +1,4 @@
+ * Add characters:
+  - BLANK SYMBOL (`U+2422`);
+  - SYMBOL FOR DELETE FORM TWO (`U+2425`);
+  - SYMBOL FOR SUBSTITUTE FORM TWO (`U+2426`);
diff --git a/font-src/glyphs/symbol/geometric/shaded.ptl b/font-src/glyphs/symbol/geometric/shaded.ptl
index 2fed893a2..1aac28cee 100644
--- a/font-src/glyphs/symbol/geometric/shaded.ptl
+++ b/font-src/glyphs/symbol/geometric/shaded.ptl
@@ -137,3 +137,13 @@ glyph-block Symbol-Geometric-Shaded : for-width-kinds WideWidth1
 			refer-glyph : MangleName 'whiteCircle'
 			intersection [refer-glyph : MangleName 'blackCircleO'] [VShadeShape]
 
+	create-glyph [MangleName 'symbolForDeleteFormTwo'] [MangleUnicode 0x2425] : glyph-proc
+		local sw : UnicodeWeightGrade 3 Geom.Scalar
+		local gap : 0.75 * sw + [Math.max (Geom.Size * 0.125) (sw / 2)]
+		set-width Geom.Width
+		include : intersection
+			refer-glyph : MangleName 'blackSquare'
+			union
+				ExtLineCenter 4 sw (Geom.MidX - Geom.Size) (Geom.MidY - Geom.Size) (Geom.MidX + Geom.Size) (Geom.MidY + Geom.Size)
+				ExtLineCenter 4 sw (Geom.MidX - Geom.Size + gap) (Geom.MidY - Geom.Size - gap) (Geom.MidX + Geom.Size + gap) (Geom.MidY + Geom.Size - gap)
+				ExtLineCenter 4 sw (Geom.MidX - Geom.Size - gap) (Geom.MidY - Geom.Size + gap) (Geom.MidX + Geom.Size - gap) (Geom.MidY + Geom.Size + gap)
diff --git a/font-src/glyphs/symbol/punctuation/emotion.ptl b/font-src/glyphs/symbol/punctuation/emotion.ptl
index c7506e44b..68d187889 100644
--- a/font-src/glyphs/symbol/punctuation/emotion.ptl
+++ b/font-src/glyphs/symbol/punctuation/emotion.ptl
@@ -156,6 +156,7 @@ glyph-block Symbol-Punctuation-Emotion : begin
 
 		select-variant 'revQuestion/hookPart' (follow -- 'question')
 		derive-composites 'revQuestion' 0x2E2E 'revQuestion/hookPart' 'question/dotPart'
+		alias 'symbolForSubstituteFormTwo' 0x2426 'revQuestion'
 
 		select-variant 'interrobang/bodyPart' (follow -- 'question')
 		derive-composites 'interrobang' 0x203D 'interrobang/bodyPart' 'question/dotPart'
diff --git a/font-src/meta/unicode-knowledge.ptl b/font-src/meta/unicode-knowledge.ptl
index 75e190aae..63c6c65b7 100644
--- a/font-src/meta/unicode-knowledge.ptl
+++ b/font-src/meta/unicode-knowledge.ptl
@@ -164,3 +164,5 @@ export : define decompositionOverrides : object
 	."\u219A" ""
 	."\u219B" ""
 	."\u21AE" ""
+
+	."\u2422" "b\u0338"