Add LATIN CAPITAL LETTER G WITH OBLIQUE STROKE (U+A7A0) ... LATIN SMALL LETTER S WITH OBLIQUE STROKE (U+A7A9) (#1818)

changes/25.0.0.md

@@ -6,6 +6,7 @@
   - CYRILLIC CAPITAL LETTER DZZE (`U+A688`) (#1799).
   - CYRILLIC SMALL LETTER DZZE (`U+A689`) (#1799).
   - MODIFIER LETTER CYRILLIC SMALL DZZE (`U+1E04A`) (#1799).
+  - LATIN CAPITAL LETTER G WITH OBLIQUE STROKE (`U+A7A0`) ... LATIN SMALL LETTER S WITH OBLIQUE STROKE (`U+A7A9`) (#1818).
 * Fix reversed shape of `U+1D12` (#1814).
 * Fix effect of `cv23` on LATIN CAPITAL LETTER CHI (`A7B3`).
 * Make `cv36` affect LATIN SMALL LETTER KRA (`U+0138`) and GREEK SMALL LETTER KAPPA (`U+03BA`).

font-src/glyphs/letter/latin/lower-g.ptl

@@ -50,6 +50,7 @@ glyph-block Letter-Latin-Lower-G : begin
 			corner gm  XH
 
 		set-base-anchor 'overlay' Middle [mix (Descender + O) groundy 0.5]
+		set-base-anchor 'strikeOnBowl' Middle (XH / 2)
 
 		create-forked-glyph 'gBar.doubleStorey' : OverlayW obwDoubleStorey
 
@@ -79,6 +80,7 @@ glyph-block Letter-Latin-Lower-G : begin
 			corner gm  XH
 
 		set-base-anchor 'overlay' Middle [mix (Descender + O) groundy 0.5]
+		set-base-anchor 'strikeOnBowl' Middle (XH / 2)
 
 		create-forked-glyph 'gBar.openDoubleStorey' : OverlayW obwDoubleStorey
 
@@ -156,6 +158,7 @@ glyph-block Letter-Latin-Lower-G : begin
 		create-glyph "g.\(suffix)" : glyph-proc
 			include : MarkSet.p
 			set-base-anchor 'overlay' Middle (XH / 2)
+			set-base-anchor 'strikeOnBowl' Middle (XH / 2)
 			define df : DivFrame 1
 			include : bodyShape df XH
 			include : hookShape df (XH - hookStart)

font-src/glyphs/letter/latin/upper-r.ptl

@@ -153,10 +153,8 @@ glyph-block Letter-Latin-Upper-R : begin
 			eject-contour 'serifRB'
 			include : tagged 'strokeR' : RightwardTailedBar (Width - SB * mul) 0 top
 
-	define [ROverlayAnchor] : glyph-proc
+	define [StrikeAnchor] : glyph-proc
-		set-base-anchor 'overlay'
+		set-base-anchor 'strikeOnBowl' Middle [mix [PBarPosY CAP Stroke : RBarPos CAP SLAB] CAP 0.5]
-			SB + Stroke * HVContrast
-			PBarPosY CAP Stroke : RBarPos CAP SLAB
 
 	define RConfig : SuffixCfg.weave
 		object # Leg shape
@@ -183,12 +181,12 @@ glyph-block Letter-Latin-Upper-R : begin
 
 		create-glyph "R.\(suffix)" : glyph-proc
 			include : MarkSet.capital
-			include : ROverlayAnchor
+			include : StrikeAnchor
 			include : RShape legShape CAP (slab -- slabs) (bp -- bpCap) (open -- fOpen)
 
 		create-glyph "smcpR.\(suffix)" : glyph-proc
 			include : MarkSet.e
-			include : ROverlayAnchor
+			include : StrikeAnchor
 			include : RShape legShape XH (slab -- slabs) (bp -- bpXH) (open -- fOpen)
 
 		if (!fMotion && !fOpen) : create-glyph "RRotunda.\(suffix)" : glyph-proc
@@ -201,12 +199,12 @@ glyph-block Letter-Latin-Upper-R : begin
 
 		create-glyph "cyrl/Ya.\(suffix)" : glyph-proc
 			include : MarkSet.capital
-			include : ROverlayAnchor
+			include : StrikeAnchor
 			include : RevRShape legShape CAP (slab -- revSlabs) (bp -- bpCap) (open -- fOpen)
 
 		create-glyph "cyrl/ya.\(suffix)" : glyph-proc
 			include : MarkSet.e
-			include : ROverlayAnchor
+			include : StrikeAnchor
 			include : RevRShape legShape XH (slab -- revSlabs) (bp -- bpXH) (tailedShape -- fTailed) (open -- fOpen)
 
 		create-glyph "Yr.\(suffix)" : glyph-proc

font-src/glyphs/marks/overlay.ptl

@@ -115,11 +115,28 @@ glyph-block Mark-Overlay : begin
 		set-mark-anchor 'overlay' markMiddle (XH / 2) markMiddle (XH / 2)
 		include : HOverlayBar ([mix 0 SB 0.5] - Width) ([mix Width RightSB 0.5] - Width) (XH / 2)
 
+
 	create-glyph 'strikeThrough' 0x0336 : glyph-proc
 		set-width 0
-		set-mark-anchor 'strike' markMiddle (XH / 2) markMiddle (XH / 2)
+		set-mark-anchor 'slash' markMiddle (XH / 2) markMiddle (XH / 2)
 		include : HOverlayBar (0 - Width) (0) (XH / 2)
 
+	create-glyph 'longObliqueStrike' : glyph-proc
+		set-width 0
+		set-mark-anchor 'slash' markMiddle (XH / 2) markMiddle (XH / 2)
+		include : dispiro
+			widths.center OverlayStroke
+			flat ([mix 0 SB 0.5] - Width)          (0.4 * XH)
+			curl ([mix Width RightSB 0.5] - Width) (0.6 * XH)
+
+	create-glyph 'longObliqueStrikeOnBowl' : glyph-proc
+		set-width 0
+		set-mark-anchor 'strikeOnBowl' markMiddle (XH / 2) markMiddle (XH / 2)
+		include : dispiro
+			widths.center OverlayStroke
+			flat ([mix 0 SB 0.5] - Width)          (0.4 * XH)
+			curl ([mix Width RightSB 0.5] - Width) (0.6 * XH)
+
 	create-glyph 'shortSlashOver' 0xE000 : glyph-proc
 		set-width 0
 		set-mark-anchor 'overlay' markMiddle (XH / 2) markMiddle (XH / 2)

font-src/meta/unicode-knowledge.ptl

@@ -180,5 +180,16 @@ export : define decompOverrides : object
 	0xA7BD { 'i' 'EgyptologicalYodAbove' }
 	0xA7BF { 'u' 'EgyptologicalYodAbove' }
 
+	0xA7A0 { 'G' 'longObliqueStrike' }
+	0xA7A1 { 'g' 'longObliqueStrikeOnBowl' }
+	0xA7A2 { 'K' 'longObliqueStrike' }
+	0xA7A3 { 'k' 'longObliqueStrike' }
+	0xA7A4 { 'N' 'longObliqueStrike' }
+	0xA7A5 { 'n' 'longObliqueStrike' }
+	0xA7A6 { 'R' 'longObliqueStrikeOnBowl' }
+	0xA7A7 { 'r' 'longObliqueStrike' }
+	0xA7A8 { 'S' 'longObliqueStrike' }
+	0xA7A9 { 's' 'longObliqueStrike' }
+
 	0xAB30 { 'scripta' 'longBarOver' }
 	0xAB3F { 'turnc'   'slashOver' }

font-src/otl/gpos-mark-mkmk.ptl

@@ -7,7 +7,7 @@ define MarkClasses {
 	'above' 'tieAbove' 'topLeft' 'topRight' 'grekUpperTonos' 'aboveBraceL' 'aboveBraceR'
 	'below' 'tieBelow' 'bottomLeft' 'bottomRight' 'trailing' 'lf' 'belowBraceL' 'belowBraceR'
 
-	'overlay' 'slash'
+	'overlay' 'slash' 'strikeOnBowl'
 	'cvDecompose' 'enclosureInner' 'enclosureInnerFirstHalf' 'enclosureInnerSecondHalf'
 	'fracBuildUp'
 }