Fix above mark placement of t (#1063)

be5invis · May 25, 2021 · 924878f · 924878f
1 parent e71a158
commit 924878f
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/font-src/glyphs/letter/latin/lower-t.ptl b/font-src/glyphs/letter/latin/lower-t.ptl
@@ -39,6 +39,7 @@ glyph-block Letter-Latin-Lower-T : begin
 	define [SmallTShape __ top bot] : glyph-proc
 		local g : include : SmallTHookShapeT dispiro 0 top bot Stroke
 		set-base-anchor 'bottomright' g.knots.(g.knots.length - 1).x g.knots.(g.knots.length - 1).y
+		set-base-anchor 'above' (xSmallTBarLeft + 0.5 * Stroke * HVContrast) top
 		set-base-anchor 'below' [mix xSmallTBarLeft g.knots.(g.knots.length - 1).x : StrokeWidthBlend 0.375 0.5] bot
 		set-base-anchor 'overlay' (g.knots.0.x + 0.625 * Stroke * HVContrast) (XH * 0.58)
 
@@ -55,6 +56,7 @@ glyph-block Letter-Latin-Lower-T : begin
 
 	define [TDiagTailShape df top] : glyph-proc
 		local g : include : DiagTailedSmallTHookShape df top 0 Stroke
+		set-base-anchor 'above' ([xSmallTBarLeftT df] + 0.5 * Stroke * HVContrast) top
 		set-base-anchor 'overlay' (g.knots.0.x + 0.125 * Stroke * HVContrast) (XH * 0.58)
 
 		include : HCrossBar.top
@@ -77,6 +79,7 @@ glyph-block Letter-Latin-Lower-T : begin
 				archv.superness DesignParameters.tightHookSuperness
 				flat xBarLeft hd.y
 				curl xBarLeft top [heading Upward]
+		set-base-anchor 'above' (xBarLeft + 0.5 * Stroke * HVContrast) top
 		set-base-anchor 'topright' xCrossRight  CAP
 		set-base-anchor 'overlay' (xBarLeft + 0.625 * Stroke * HVContrast) (XH * 0.58)
 		set-base-anchor 'below' (HalfStroke * HVContrast + [Math.min (xBarLeft + hd.x / 2) (xCrossRight - 1)]) 0
@@ -87,13 +90,14 @@ glyph-block Letter-Latin-Lower-T : begin
 		set-base-anchor 'overlay' df.middle (XH * 0.58)
 
 	define [SmallTHooklessAsymmetricBody df top bot] : glyph-proc
-		define xBar : xSmallTBarLeftT df
-		include : VBarLeft xBar 0 top
+		define xBarLeft : xSmallTBarLeftT df
+		include : VBarLeft xBarLeft 0 top
 		include : difference
-			HCrossBar.top xBar (df.middle + df.div * LongJut) yCrossBar
-			MaskLeft (xBar - O)
-		set-base-anchor 'overlay' (xBar + 0.625 * Stroke * HVContrast) (XH * 0.58)
-		set-base-anchor 'below' (xBar + HalfStroke * HVContrast) 0
+			HCrossBar.top xBarLeft (df.middle + df.div * LongJut) yCrossBar
+			MaskLeft (xBarLeft - O)
+		set-base-anchor 'above' (xBarLeft + 0.5 * Stroke * HVContrast) top
+		set-base-anchor 'overlay' (xBarLeft + 0.625 * Stroke * HVContrast) (XH * 0.58)
+		set-base-anchor 'below' (xBarLeft + HalfStroke * HVContrast) 0
 
 	define SmallTConfig : object
 		standard                     { [DivFrame  1] SmallTShape                  CAP         }