Optimize glyphs of three accented tilde punctuations. (#2784)

changes/33.2.4.md

@@ -13,6 +13,9 @@
   - MANAT SIGN (`U+20BC`).
   - NUMERO SIGN (`U+2116`).
   - DOUBLE STRUCK CAPITAL GAMMA (`U+213E`).
+  - TILDE WITH RING ABOVE (`U+2E18`).
+  - TILDE WITH DOT ABOVE (`U+2E1E`).
+  - TILDE WITH DOT BELOW (`U+2E1F`).
   - LATIN CAPITAL LETTER LAMBDA WITH STROKE (`U+A7DC`).
   - LATIN SMALL LETTER SCRIPT R (`U+AB4B`).
   - LATIN SMALL LETTER SCRIPT R WITH RING (`U+AB4C`).

packages/font-glyphs/src/marks/above.ptl

@@ -134,8 +134,8 @@ glyph-block Mark-Above : begin
 		set-width 0
 		local [object radiusIn radiusOut] : RingDims
 		local k : 2 * (radiusOut - (radiusOut - radiusIn) * 0.25)
-		include : with-transform [Translate (+k / 2) 0] : refer-glyph 'ringAbove'
-		include : with-transform [Translate (-k / 2) 0] : refer-glyph 'ringAbove'
+		include : with-transform [Translate (k * (+0.5)) 0] : refer-glyph 'ringAbove'
+		include : with-transform [Translate (k * (-0.5)) 0] : refer-glyph 'ringAbove'
 		include : StdAnchors.wide
 
 	foreach { suffix { DrawAt kdr } } [Object.entries DotVariants] : do
@@ -358,7 +358,7 @@ glyph-block Mark-Above : begin
 		include : StdAnchors.wide
 		include : TildeShape
 			ttop     -- aboveMarkTop
-			tbot     -- aboveMarkBot + markFine / 2
+			tbot     -- (aboveMarkBot + markFine / 2)
 			leftEnd  -- (markMiddle - markExtend * 1.5)
 			rightEnd -- (markMiddle + markExtend * 1.5)
 			hs       -- markHalfStroke
@@ -808,7 +808,7 @@ glyph-block Mark-Above : begin
 				archv
 				g4.up.end (markMiddle + radius) yDot [heading Upward]
 			include : DrawAt markMiddle yDot (fine * kdr)
-			include : ApparentTranslate 0 (fine * 0.5)
+			include : ApparentTranslate 0 (fine * (+0.5))
 			include : StdAnchors.mediumWide
 		create-glyph "largeFermataAbove.\(suffix)" : glyph-proc
 			set-width 0
@@ -846,7 +846,7 @@ glyph-block Mark-Above : begin
 	select-variant 'candrabinduAbove' 0x310 (follow -- 'diacriticDot')
 	turned 'fermataAbove' 0x352 'candrabinduAbove' markMiddle aboveMarkMid
 	select-variant 'largeFermataAbove' (follow -- 'diacriticDot')
-	select-variant 'cyrlKavykaWithDotAbove' null (follow -- 'diacriticDot')
+	select-variant 'cyrlKavykaWithDotAbove' (follow -- 'diacriticDot')
 
 	alias 'graveToneAbove' 0x340 'graveAbove'
 	alias 'acuteToneAbove' 0x341 'acuteAbove'

packages/font-glyphs/src/marks/overlay.ptl

@@ -48,10 +48,10 @@ glyph-block Mark-Overlay : begin
 			include : addTilde
 			include : ApparentTranslate 0 (shift * (-0.5))
 
-		create-glyph 'asciiTilde.symbolMid' : glyph-proc
+		create-glyph 'asciiTilde/sMid' : glyph-proc
 			include : TildeShape
-				ttop      --  (SymbolMid + tildeHeight * 0.5 * asciiMarkZoomY)
-				tbot      --  (SymbolMid - tildeHeight * 0.5 * asciiMarkZoomY)
+				ttop      --  (SymbolMid + (AccentHeight / 2 - markFine / 4) * asciiMarkZoomY)
+				tbot      --  (SymbolMid - (AccentHeight / 2 - markFine / 4) * asciiMarkZoomY)
 				leftEnd   --  SB
 				rightEnd  --  RightSB
 				hs        --  (OperatorStroke / 2)

packages/font-glyphs/src/symbol/punctuation/ascii-marks.ptl

@@ -40,11 +40,11 @@ glyph-block Symbol-Punctuation-Ascii-Marks : begin
 	select-variant 'asciiCaret' '^'
 
 	create-glyph 'ringTilde' 0x2E1B : glyph-proc
-		include : refer-glyph 'asciiTilde.symbolMid'
+		include : refer-glyph 'asciiTilde/sMid'
 		include : RingShape Middle (PlusTop + AccentClearance)
 
 	WithDotVariants 'dotTilde' 0x2E1E : function [DrawAt kr ov] : composite-proc
-		refer-glyph 'asciiTilde.symbolMid'
+		refer-glyph 'asciiTilde/sMid'
 		DrawAt Middle PlusTop (DotRadius * kr * OperatorStroke / Stroke - ov)
 
 	turned 'tildeDot' 0x2E1F 'dotTilde' Middle SymbolMid