Add Black Rightwards Arrowhead (U+27A4) (#1090).

be5invis · May 29, 2021 · 8f4c5e7 · 8f4c5e7
1 parent d22e4a4
commit 8f4c5e7
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/changes/7.0.1.md b/changes/7.0.1.md
@@ -5,4 +5,5 @@
  * Fix missing serif and `cv39` variants of Latin Small Letter Feng Digraph (`U+02A9`) (#1085).
  * Fix missing variant of Latin Small Letter Ue (`U+1D6B`) (#1086).
  * Fix missing serif of Italic Latin Phi (#1087).
- * Remove `U+1FB93` ("Left Half Block and Right Half Inverse Medium Shade") since it is a reserved code point for now (#1088).
+ * Remove `U+1FB93` ("Left Half Block and Right Half Inverse Medium Shade") since it is a reserved code point for now (#1088).
+ * Add Black Rightwards Arrowhead (`U+27A4`) (#1090).
diff --git a/font-src/glyphs/symbol/geometric/plain.ptl b/font-src/glyphs/symbol/geometric/plain.ptl
@@ -516,3 +516,12 @@ glyph-block Symbol-Geometric-Plain : for-width-kinds WideWidth1
 		StdWhiteShape [RegularPolygonFill 5  2  1.1  0] 'whiteMediumStar' 0x2B50 [Object.assign [PentagramSw 7] Size.Medium]
 		StdBlackShape [RegularPolygonFill 5  2  1.1  0] 'blackSmallStar' 0x2B51 Size.Small
 		StdWhiteShape [RegularPolygonFill 5  2  1.1  0] 'whiteSmallStar' 0x2B52 [Object.assign [PentagramSw 3] Size.Small]
+
+	do "Arrow head"
+		define [RightArrowHeadShape cx cy size] : spiro-outline
+			corner (cx - size)       (cy + size)
+			corner (cx + size)        cy
+			corner (cx - size)       (cy - size)
+			corner (cx - 0.5 * size)  cy
+
+		StdBlackShape RightArrowHeadShape 'blackArrowHeadRight' 0x27A4 Size.Oblique