@@ -99,9 +99,9 @@ glyph-block Letter-Latin-Lower-R : begin
9999 widths.lhs
100100 g4.up.start rHookX (XH - rHookY) [heading Upward]
101101 arcvh 32 hookSuperness
102- g4.left.mid (xArchMiddle - CorrectionOMidS * [linreg 72 0.75 108 1 Stroke]) (XH - O) [widths.heading Stroke 0 {.y (-1) .x (-skew)}]
102+ g4.left.mid (xArchMiddle - CorrectionOMidS * [linreg 72 0.75 108 1 Stroke]) (XH - O) [widths.lhs. heading Stroke {.y (-1) .x (-skew)}]
103103 archv 32
104- straight.down.end (xBar - [HSwToV fine]) (XH * 0.53 + TanSlope * SmoothAdjust) [widths.heading fine 0 Downward]
104+ straight.down.end (xBar - [HSwToV fine]) (XH * 0.53 + TanSlope * SmoothAdjust) [widths.lhs. heading fine Downward]
105105 include : VBar.r xBar 0 XH
106106 if doBottomSerif : include : rBottomSerif 0
107107 if doTopSerif : include : rTopSerif XH
@@ -123,16 +123,16 @@ glyph-block Letter-Latin-Lower-R : begin
123123 flat (rHookXN - xCor) (XH - arcTopShift) [if doHookSerif [heading Leftward] null]
124124 curl (xArchMiddle - xCor) (XH - arcTopShift) [if doHookSerif [heading Leftward] null]
125125 archv
126- straight.down.end (xBar - [HSwToV fine]) (XH * 0.53 + TanSlope * SmoothAdjust) [widths.heading fine 0 Downward]
126+ straight.down.end (xBar - [HSwToV fine]) (XH * 0.53 + TanSlope * SmoothAdjust) [widths.lhs. heading fine Downward]
127127 include : dispiro [widths.lhs arcTopWidth] [ArcKnots]
128128 include : VBar.r xBar 0 XH
129129 if doHookSerif : include : intersection
130130 VSerif.dr (rHookXN - xCor) XH VJut
131131 spiro-outline
132132 ArcKnots
133133 corner (xBar - [HSwToV fine]) 0
134- corner (Width * 16) 0
135- corner (Width * 16) XH
134+ corner VERY-FAR 0
135+ corner VERY-FAR XH
136136 if doBottomSerif : include : rBottomSerif 0
137137 if doTopSerif : include : rTopSerif XH
138138
@@ -149,10 +149,9 @@ glyph-block Letter-Latin-Lower-R : begin
149149
150150 define [EarlessRoundedShape df md doTopSerif doBottomSerif] : glyph-proc
151151 define [object xBar xArchMiddle rHookX rHookY hookSuperness rBottomSerif] : RDim df md
152- local hx : Math.max rHookX (xBar + 1.25 * Stroke)
153152 include : dispiro
154153 widths.lhs
155- g4 hx (XH - rHookY)
154+ g4 [Math.max rHookX : xBar + 1.25 * Stroke] (XH - rHookY)
156155 hookstart XH
157156 flat (xBar - [HSwToV Stroke]) [Math.max TINY : XH - SmallArchDepthA]
158157 curl (xBar - [HSwToV Stroke]) 0 [heading Downward]
@@ -331,7 +330,7 @@ glyph-block Letter-Latin-Lower-R : begin
331330 arcvh nothing hookSuperness
332331 g4.left.mid (xArchMiddle - CorrectionOMidS * [linreg 72 0.75 108 1 BBS]) (XH - O) [widths.heading BBS 0 {.y (-1) .x (-skew)}]
333332 archv
334- straight.down.end (xBar - [HSwToV fine]) (XH * 0.53 + TanSlope * SmoothAdjust) [widths.heading fine 0 Downward]
333+ straight.down.end (xBar - [HSwToV fine]) (XH * 0.53 + TanSlope * SmoothAdjust) [widths.lhs. heading fine Downward]
335334 include : BBBarRight xBar 0 XH
336335 set-base-anchor 'overlay' (xBar - [HSwToV : BBD * 0.25 + BBS * 0.5]) (XH * 0.5)
337336
0 commit comments