Optimize top-left serif of Yr.

This commit is contained in:
John McWilliams 2025-03-22 07:26:02 -04:00
parent 8f2f859a6f
commit ba5a8ed115
2 changed files with 5 additions and 3 deletions

View file

@ -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

View file

@ -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