Add Fraktur J (#2440)

Author: be5invis

changes/31.0.1.md

@@ -5,3 +5,4 @@
   - BLACK-LETTER CAPITAL R (`U+211C`) (#714).
   - BLACK-LETTER CAPITAL Z (`U+2128`) (#714).
   - BLACK-LETTER CAPITAL C (`U+212D`) (#714).
+  - MATHEMATICAL FRAKTUR CAPITAL J (`U+1D50D`) (#444).

packages/font-glyphs/src/common/shapes.ptl

@@ -55,30 +55,42 @@ glyph-block CommonShapes : begin
 	define [MaskLeft  x] : Rect VERY-FAR (-VERY-FAR) (-VERY-FAR) x
 	glyph-block-export MaskRight
 	define [MaskRight x] : Rect VERY-FAR (-VERY-FAR) x VERY-FAR
+
 	glyph-block-export MaskAboveLine
-	define [MaskAboveLine x1 y1 x2 y2] : spiro-outline
-		corner x1 (+VERY-FAR)
-		corner x1 y1
-		corner x2 y2
-		corner x2 (+VERY-FAR)
+	define [MaskAboveLine x1 y1 x2 y2 _ext] : begin
+		local ext : fallback _ext 0
+		return : spiro-outline
+			corner [mix x1 x2 (-ext)]    (+VERY-FAR)
+			corner [mix x1 x2 (-ext)]    [mix y1 y2 (-ext)]
+			corner [mix x1 x2 (1 + ext)] [mix y1 y2 (1 + ext)]
+			corner [mix x1 x2 (1 + ext)] (+VERY-FAR)
+
 	glyph-block-export MaskBelowLine
-	define [MaskBelowLine x1 y1 x2 y2] : spiro-outline
-		corner x1 (-VERY-FAR)
-		corner x1 y1
-		corner x2 y2
-		corner x2 (-VERY-FAR)
+	define [MaskBelowLine x1 y1 x2 y2 _ext] : begin
+		local ext : fallback _ext 0
+		return : spiro-outline
+			corner [mix x1 x2 (-ext)]    (-VERY-FAR)
+			corner [mix x1 x2 (-ext)]    [mix y1 y2 (-ext)]
+			corner [mix x1 x2 (1 + ext)] [mix y1 y2 (1 + ext)]
+			corner [mix x1 x2 (1 + ext)] (-VERY-FAR)
+
 	glyph-block-export MaskLeftLine
-	define [MaskLeftLine  x1 y1 x2 y2] : spiro-outline
-		corner (-VERY-FAR) y1
-		corner x1 y1
-		corner x2 y2
-		corner (-VERY-FAR) y2
+	define [MaskLeftLine  x1 y1 x2 y2 _ext] : begin
+		local ext : fallback _ext 0
+		spiro-outline
+			corner (-VERY-FAR)           [mix y1 y2 (-ext)]
+			corner [mix x1 x2 (-ext)]    [mix y1 y2 (-ext)]
+			corner [mix x2 x2 (1 + ext)] [mix y1 y2 (1 + ext)]
+			corner (-VERY-FAR)           [mix y1 y2 (1 + ext)]
+
 	glyph-block-export MaskRightLine
-	define [MaskRightLine x1 y1 x2 y2] : spiro-outline
-		corner (+VERY-FAR) y1
-		corner x1 y1
-		corner x2 y2
-		corner (+VERY-FAR) y2
+	define [MaskRightLine x1 y1 x2 y2 _ext] : begin
+		local ext : fallback _ext 0
+		spiro-outline
+			corner (+VERY-FAR)           [mix y1 y2 (-ext)]
+			corner [mix x1 x2 (-ext)]    [mix y1 y2 (-ext)]
+			corner [mix x2 x2 (1 + ext)] [mix y1 y2 (1 + ext)]
+			corner (+VERY-FAR)           [mix y1 y2 (1 + ext)]
 
 	glyph-block-export HalfRectTriangle
 	define [HalfRectTriangle x1 y1 x2 y2] : spiro-outline