* Add Characters:

- LATIN CAPITAL LETTER INSULAR F (`U+A77B`) (#1786). - LATIN SMALL LETTER INSULAR F (`U+A77C`) (#1786). - LATIN CAPITAL LETTER INSULAR S (`U+A784`) (#1786). - LATIN SMALL LETTER INSULAR S (`U+A785`) (#1786).
be5invis · Jun 11, 2023 · 0b18467 · 0b18467
1 parent 17012b7
commit 0b18467
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 6 deletions.
diff --git a/changes/24.1.3.md b/changes/24.1.3.md
@@ -1 +1,6 @@
- * Fix missing U+1D7F mapping (#1787).
+* Fix missing U+1D7F mapping (#1787).
+* Add Characters:
+  - LATIN CAPITAL LETTER INSULAR F (`U+A77B`) (#1786).
+  - LATIN SMALL LETTER INSULAR F (`U+A77C`) (#1786).
+  - LATIN CAPITAL LETTER INSULAR S (`U+A784`) (#1786).
+  - LATIN SMALL LETTER INSULAR S (`U+A785`) (#1786).
diff --git a/font-src/glyphs/auto-build/transformed.ptl b/font-src/glyphs/auto-build/transformed.ptl
@@ -270,7 +270,7 @@ glyph-block Autobuild-Transformed : begin
 			list 0x107A1 'turnyBelt'
 			list 0x1079C 'smcpLBelt'
 			list 0x107A0 'turny'
-			list 0x107A6 'turnrlongleg'
+			list 0x107A6 'turnrLongLeg'
 			list 0x107A7 'rTurnLongLetRTail'
 			list 0x10780 'smcpAA'
 			list 0x10785 'bHookTop'

diff --git a/font-src/glyphs/letter/latin/lower-r.ptl b/font-src/glyphs/letter/latin/lower-r.ptl
@@ -186,7 +186,7 @@ glyph-block Letter-Latin-Lower-R : begin
 			include : df.markSet.e
 			include : F df mode doTS doBS
 
-		create-glyph "rlongleg.\(suffix)" : glyph-proc
+		create-glyph "rLongLeg.\(suffix)" : glyph-proc
 			set-width df.width
 			include : df.markSet.p
 			define [object xBar rBottomSerif] : RDim df mode
@@ -195,6 +195,25 @@ glyph-block Letter-Latin-Lower-R : begin
 			include : VBar.r xBar Descender 0
 			if doBS : include : rBottomSerif Descender
 
+		create-glyph "rCapLongLeg.\(suffix)" : glyph-proc
+			set-width df.width
+			include : df.markSet.capDesc
+			define [object xBar rBottomSerif] : RDim df mode
+			include : WithTransform [ApparentTranslate 0 (CAP - XH)] : F df mode doTS 0
+			eject-contour 'serifLB'
+			include : VBar.r xBar Descender (CAP - XH)
+			if doBS : include : rBottomSerif Descender
+
+		create-glyph "fInsular.\(suffix)" : glyph-proc
+			include [refer-glyph "rLongLeg.\(suffix)"] AS_BASE ALSO_METRICS
+			define [object xBar rHookX] : RDim df mode
+			include : HBar.b xBar (rHookX - [Math.max (0.15 * (df.rightSB - df.leftSB)) (0.25 * HVContrast * Stroke)]) 0
+
+		create-glyph "FInsular.\(suffix)" : glyph-proc
+			include [refer-glyph "rCapLongLeg.\(suffix)"] AS_BASE ALSO_METRICS
+			define [object xBar rHookX] : RDim df mode
+			include : HBar.b xBar (rHookX - [Math.max (0.15 * (df.rightSB - df.leftSB)) (0.25 * HVContrast * Stroke)]) 0
+
 		create-glyph "rPalatalHook.\(suffix)" : glyph-proc
 			include [refer-glyph "r.\(suffix)"] AS_BASE ALSO_METRICS
 			local attach : currentGlyph.gizmo.unapply currentGlyph.baseAnchors.palatalHookAttach
@@ -219,7 +238,7 @@ glyph-block Letter-Latin-Lower-R : begin
 			include : VerticalHook.r (df.rightSB - xBar + df.leftSB + Stroke * HVContrast) 0 HookX Hook
 
 		create-glyph "rTurnLongLetRTail.\(suffix)" : glyph-proc
-			include [refer-glyph "rlongleg.\(suffix)"] AS_BASE ALSO_METRICS
+			include [refer-glyph "rLongLeg.\(suffix)"] AS_BASE ALSO_METRICS
 			eject-contour 'serifLT'
 			include : FlipAround df.middle (XH / 2)
 			include : df.markSet.if
@@ -237,8 +256,12 @@ glyph-block Letter-Latin-Lower-R : begin
 	CreateAccentedComposition 'rTildeOver' 0x1D72 'r' 'tildeOver'
 	turned 'turnrTildeOver' 0xAB68 'rTildeOver' HalfAdvance (XH / 2) [TurnRMarks 'e']
 
-	select-variant 'rlongleg' 0x27C (follow -- 'r')
-	turned 'turnrlongleg' 0x27A 'rlongleg' HalfAdvance (XH / 2) [TurnRMarks 'b']
+	select-variant 'rLongLeg' 0x27C (follow -- 'r')
+	select-variant 'SInsular' 0xA784 (shapeFrom -- 'rCapLongLeg') (follow -- 'rRTail')
+	select-variant 'sInsular' 0xA785 (shapeFrom -- 'rLongLeg') (follow -- 'rRTail')
+	select-variant 'FInsular' 0xA77B (follow -- 'rRTail')
+	select-variant 'fInsular' 0xA77C (follow -- 'rRTail')
+	turned 'turnrLongLeg' 0x27A 'rLongLeg' HalfAdvance (XH / 2) [TurnRMarks 'b']
 
 	select-variant 'rRTail' 0x27D
 	turned 'smallLetterTurnedRWithTail' 0x2C79 'rRTail' HalfAdvance (XH / 2) : glyph-proc