More cleanup

This commit is contained in:
be5invis 2023-10-14 14:39:56 -07:00
parent edf5860f2f
commit 308785cf4d
2 changed files with 14 additions and 6 deletions

View file

@ -187,14 +187,16 @@ glyph-block Letter-Latin-C : begin
include : lf.full include : lf.full
create-glyph "c/centKernelStd.\(suffix)" : glyph-proc create-glyph "c/centKernelStd.\(suffix)" : glyph-proc
set-base-anchor 'cvDecompose' 0 0 set-width 0
set-mark-anchor 'cvDecompose' Middle (XH / 2)
local lf : CLetterForm [DivFrame 1] sty styBot XH 0 local lf : CLetterForm [DivFrame 1] sty styBot XH 0
ada -- SmallArchDepthA ada -- SmallArchDepthA
adb -- SmallArchDepthB adb -- SmallArchDepthB
include : lf.full include : lf.full
create-glyph "c/centKernelCap.\(suffix)" : glyph-proc create-glyph "c/centKernelCap.\(suffix)" : glyph-proc
set-base-anchor 'cvDecompose' 0 0 set-width 0
set-mark-anchor 'cvDecompose' Middle (CAP / 2)
local t : CAP / 2 + XH / 2 local t : CAP / 2 + XH / 2
local b : CAP / 2 - XH / 2 local b : CAP / 2 - XH / 2
local lf : CLetterForm [DivFrame 1] sty styBot t b local lf : CLetterForm [DivFrame 1] sty styBot t b
@ -368,6 +370,8 @@ glyph-block Letter-Latin-C : begin
local fillBottom : yMid - XH / 2 + HalfStroke local fillBottom : yMid - XH / 2 + HalfStroke
local fillTop : yMid + XH / 2 - HalfStroke local fillTop : yMid + XH / 2 - HalfStroke
set-base-anchor 'cvDecompose' Middle yMid
# Draw the outside subbars # Draw the outside subbars
include : dispiro include : dispiro
flat Middle fillTop [widths.center w] flat Middle fillTop [widths.center w]

View file

@ -249,21 +249,23 @@ glyph-block Letter-Latin-S : begin
include : SAutoSlabEnd doBS 0 sw Hook include : SAutoSlabEnd doBS 0 sw Hook
create-glyph "S/dollarKernelStd.\(suffix)" : glyph-proc create-glyph "S/dollarKernelStd.\(suffix)" : glyph-proc
set-width 0
set-mark-anchor 'cvDecompose' Middle (CAP / 2)
define top : CAP * 0.95 define top : CAP * 0.95
define bot : CAP * 0.05 define bot : CAP * 0.05
local sw : AdviceStroke2 2 3 (top - bot) local sw : AdviceStroke2 2 3 (top - bot)
include : MarkSet.capital
set-base-anchor 'cvDecompose' 0 0
include : SStrokeImpl top bot doTS doBS sw EssUpper include : SStrokeImpl top bot doTS doBS sw EssUpper
include : SAutoSlabStart doTS top sw Hook include : SAutoSlabStart doTS top sw Hook
include : SAutoSlabEnd doBS bot sw Hook include : SAutoSlabEnd doBS bot sw Hook
create-glyph "S/dollarKernelCap.\(suffix)" : glyph-proc create-glyph "S/dollarKernelCap.\(suffix)" : glyph-proc
set-width 0
set-mark-anchor 'cvDecompose' Middle (CAP / 2)
define top : CAP * 0.88 define top : CAP * 0.88
define bot : CAP * 0.12 define bot : CAP * 0.12
local sw : AdviceStroke2 2 3 (top - bot) local sw : AdviceStroke2 2 3 (top - bot)
include : MarkSet.capital
set-base-anchor 'cvDecompose' 0 0
include : SStrokeImpl top bot doTS doBS sw EssUpper include : SStrokeImpl top bot doTS doBS sw EssUpper
include : SAutoSlabStart doTS top sw Hook include : SAutoSlabStart doTS top sw Hook
include : SAutoSlabEnd doBS bot sw Hook include : SAutoSlabEnd doBS bot sw Hook
@ -469,6 +471,8 @@ glyph-block Letter-Latin-S : begin
define w : AdviceStroke 3 define w : AdviceStroke 3
define fine : AdviceStroke [StrokeWidthBlend 3 5.5] define fine : AdviceStroke [StrokeWidthBlend 3 5.5]
set-base-anchor 'cvDecompose' Middle (CAP / 2)
include : dispiro include : dispiro
widths.center w widths.center w
flat Middle (top - HalfStroke) flat Middle (top - HalfStroke)