From ab2cfd29dd69de889d44e294a2cae082cd71cdaa Mon Sep 17 00:00:00 2001
From: John McWilliams <37010132+jmcwilliams403@users.noreply.github.com>
Date: Thu, 5 Jun 2025 21:11:03 -0400
Subject: [PATCH] =?UTF-8?q?Optimize=20arch=20depth=20of=20Greek=C2=A0Lower?=
 =?UTF-8?q?=C2=A0Psi=20(`=CF=88`).=20(#2797)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 changes/33.2.5.md                             |  2 ++
 packages/font-glyphs/src/letter/greek/psi.ptl | 10 +++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/changes/33.2.5.md b/changes/33.2.5.md
index 3dc73ef1e..5fb9797bd 100644
--- a/changes/33.2.5.md
+++ b/changes/33.2.5.md
@@ -1,5 +1,7 @@
 * Refine shape of the following characters:
   - LATIN SMALL LETTER RAMS HORN (`U+0264`).
+  - GREEK SMALL LETTER PSI (`U+03C8`).
+  - CYRILLIC SMALL LETTER PSI (`U+0471`).
   - LATIN LETTER AIN (`U+1D25`).
   - MODIFIER LETTER SMALL AIN (`U+1D5C`).
   - TURKISH LIRA SIGN (`U+20BA`).
diff --git a/packages/font-glyphs/src/letter/greek/psi.ptl b/packages/font-glyphs/src/letter/greek/psi.ptl
index 78afc0fd6..a7d9d47bb 100644
--- a/packages/font-glyphs/src/letter/greek/psi.ptl
+++ b/packages/font-glyphs/src/letter/greek/psi.ptl
@@ -10,8 +10,8 @@ glyph-block Letter-Greek-Psi : begin
 	glyph-block-import CommonShapes
 	glyph-block-import Common-Derivatives
 
-	define [PsiBaseShape df y1 y2 y3 y4 doBotSerif doTopSerif doSideSerifL doSideSerifR] : glyph-proc
-		include : UShape df y3 y2 df.mvs (ArchDepthA * df.adws) (ArchDepthB * df.adws)
+	define [PsiShape df y1 y2 y3 y4 ada adb doBotSerif doTopSerif doSideSerifL doSideSerifR] : glyph-proc
+		include : UShape df y3 y2 df.mvs ada adb
 		include : VBar.m df.middle y2 y4 df.mvs
 		include : VBar.m df.middle y1 (y2 + HalfStroke)
 
@@ -23,14 +23,14 @@ glyph-block Letter-Greek-Psi : begin
 	create-glyph 'grek/Psi' 0x3A8 : glyph-proc
 		local df : include : DivFrame para.advanceScaleM 3
 		include : df.markSet.capital
-		include : PsiBaseShape df 0 (CAP * 0.3) CAP CAP SLAB (SLAB && (df.width > para.refJut * 7)) SLAB SLAB
+		include : PsiShape df 0 (CAP * 0.3) CAP CAP df.archDepthA df.archDepthB SLAB (SLAB && (df.width > para.refJut * 7)) SLAB SLAB
 
 	alias 'cyrl/Psi' 0x470 'grek/Psi'
 
 	create-glyph 'smcpPsi' 0x1D2A : glyph-proc
 		local df : include : DivFrame para.advanceScaleT 3
 		include : df.markSet.e
-		include : PsiBaseShape df 0 (XH * 0.3) XH XH SLAB false SLAB SLAB
+		include : PsiShape df 0 (XH * 0.3) XH XH df.archDepthA df.archDepthB SLAB false SLAB SLAB
 
 	define GrekLowerPsiConfig : SuffixCfg.weave
 		object # top
@@ -44,7 +44,7 @@ glyph-block Letter-Greek-Psi : begin
 		create-glyph "grek/psi.\(suffix)" : glyph-proc
 			local df : include : DivFrame para.advanceScaleM 3
 			include : df.markSet.[if (top > XH) 'bp' 'p']
-			include : PsiBaseShape df Descender 0 XH top false false slab false
+			include : PsiShape df Descender 0 XH top df.smallArchDepthA df.smallArchDepthB false false slab false
 
 	select-variant 'grek/psi' 0x3C8
 	link-reduced-variant 'grek/psi/sansSerif' 'grek/psi' MathSansSerif