Optimize round-top variants for A part of AE. (#2547)

Author: jmcwilliams403

changes/31.9.1.md

@@ -0,0 +1 @@
+* Optimize glyphs for `round-top-serifless` and `round-top-base-serifed` variants for `A` part (`cv11`) of Capital AE (`U+00C6`) under Quasi-Proportional.

packages/font-glyphs/src/letter/latin-ext/upper-ae-oe.ptl

@@ -73,11 +73,16 @@ glyph-block Letter-Latin-Upper-AE-OE : begin
 				corner eleft 0
 
 	define [AEAHalfRoundTop df top eleft sw] : glyph-proc
+		define ada : df.archDepthA ArchDepth sw
+		define adb : df.archDepthB ArchDepth sw
+
+		local yMidDepth : if (top > ada + adb) ada (top * (ada / (ada + adb)))
+
 		include : HBar.t df.leftSB eleft (XH * 0.75 / CAP * top) sw
 		include : dispiro
 			widths.rhs sw
 			flat df.leftSB 0 [heading Upward]
-			curl pre@ (post@ <-> ArchDepthA)
+			curl pre@ (post@ <-> yMidDepth)
 			arcvh
 			straight.right.end eleft top [heading Rightward]
 
@@ -206,13 +211,13 @@ glyph-block Letter-Latin-Upper-AE-OE : begin
 		define eleft : df.middle - [HSwToV : sw * [if SLAB (1 / 3) (1 / 4)]]
 		define swVJut : Math.min sw ((df.rightSB - eleft - [HSwToV sw]) * (4 / 5))
 
+		define ada : df.archDepthA ArchDepth sw
+		define adb : df.archDepthB ArchDepth sw
+
 		local xMidRight : df.rightSB - sw / 4
 		local yBar : top * eBarPos
 		local { jutTop jutBot jutMid } : EFVJutLength top eBarPos sw
 
-		local ada : df.archDepthA ArchDepth sw
-		local adb : df.archDepthB ArchDepth sw
-
 		# O half
 		if (top > ada + adb) : then : begin
 			include : dispiro