From ba5a8ed11567883a65add372794e2ae932f4c088 Mon Sep 17 00:00:00 2001 From: John McWilliams Date: Sat, 22 Mar 2025 07:26:02 -0400 Subject: [PATCH] Optimize top-left serif of Yr. --- packages/font-glyphs/src/letter/latin/upper-p.ptl | 4 +++- packages/font-glyphs/src/letter/latin/upper-r.ptl | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/packages/font-glyphs/src/letter/latin/upper-p.ptl b/packages/font-glyphs/src/letter/latin/upper-p.ptl index 8f748bfd8..a16fc11dd 100644 --- a/packages/font-glyphs/src/letter/latin/upper-p.ptl +++ b/packages/font-glyphs/src/letter/latin/upper-p.ptl @@ -116,7 +116,9 @@ glyph-block Letter-Latin-Upper-P : begin set PShape.SlabMotion : function [top df sw mul] : glyph-proc include : tagged 'serifLT' : HSerif.lt (df.leftSB * mul) top SideJut sw set PShape.SlabFullSymmetric : function [top df sw mul] : glyph-proc - include : tagged 'serifLT' : HSerif.mt (df.leftSB * mul + [HSwToV : 0.5 * sw]) top Jut sw + include : tagged 'serifLT' : union + HSerif.lt (df.leftSB * mul) top SideJut sw + HSerif.rt (df.leftSB * mul + [HSwToV : 0.5 * sw]) top MidJutSide sw include : tagged 'serifLB' : HSerif.mb (df.leftSB * mul + [HSwToV : 0.5 * sw]) 0 Jut sw set PShape.SlabSymmetric : function [top df sw mul] : glyph-proc include : PShape.SlabMotion top df sw mul diff --git a/packages/font-glyphs/src/letter/latin/upper-r.ptl b/packages/font-glyphs/src/letter/latin/upper-r.ptl index 26e5a6096..0ea2771fb 100644 --- a/packages/font-glyphs/src/letter/latin/upper-r.ptl +++ b/packages/font-glyphs/src/letter/latin/upper-r.ptl @@ -150,7 +150,7 @@ glyph-block Letter-Latin-Upper-R : begin if open [RevPShape.OpenGap (df -- df) (mul -- mul) (bp -- bp) (top -- top) (bot -- [if fSlabBot sw 0])] [glyph-proc] include : difference RevRLegShapes.(legShape) [RLegTop top sw bp] 0 left df.middle top legSlab sw 0 - if open [RevPShape.OpenGap (df -- df) (mul -- mul) (bp -- bp) (top -- top) (bot -- 0) ] [glyph-proc] + if open [RevPShape.OpenGap (df -- df) (mul -- mul) (bp -- bp) (top -- top) (bot -- 0)] [glyph-proc] if tailedShape : begin eject-contour 'strokeR' eject-contour 'serifRB' @@ -245,7 +245,7 @@ glyph-block Letter-Latin-Upper-R : begin define bp : RBarPos CAP 0 include : intersection Rect CAP 0 SB Width - with-transform [Translate (-Width / 8) 0] + with-transform [Translate ((-Width) / 8) 0] PShape CAP (bp -- bp) (withBar -- false) local right : RightSB - O - [if legShape 0 (Width / 16)] include : RLegShapes.(legShape) [RLegTop CAP Stroke bp] 0 (Width * 0.375) right CAP doLegSlab Stroke 0