More cleanup
This commit is contained in:
parent
edf5860f2f
commit
308785cf4d
2 changed files with 14 additions and 6 deletions
|
@ -187,14 +187,16 @@ glyph-block Letter-Latin-C : begin
|
|||
include : lf.full
|
||||
|
||||
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
|
||||
ada -- SmallArchDepthA
|
||||
adb -- SmallArchDepthB
|
||||
include : lf.full
|
||||
|
||||
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 b : CAP / 2 - XH / 2
|
||||
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 fillTop : yMid + XH / 2 - HalfStroke
|
||||
|
||||
set-base-anchor 'cvDecompose' Middle yMid
|
||||
|
||||
# Draw the outside subbars
|
||||
include : dispiro
|
||||
flat Middle fillTop [widths.center w]
|
||||
|
|
|
@ -249,21 +249,23 @@ glyph-block Letter-Latin-S : begin
|
|||
include : SAutoSlabEnd doBS 0 sw Hook
|
||||
|
||||
create-glyph "S/dollarKernelStd.\(suffix)" : glyph-proc
|
||||
set-width 0
|
||||
set-mark-anchor 'cvDecompose' Middle (CAP / 2)
|
||||
|
||||
define top : CAP * 0.95
|
||||
define bot : CAP * 0.05
|
||||
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 : SAutoSlabStart doTS top sw Hook
|
||||
include : SAutoSlabEnd doBS bot sw Hook
|
||||
|
||||
create-glyph "S/dollarKernelCap.\(suffix)" : glyph-proc
|
||||
set-width 0
|
||||
set-mark-anchor 'cvDecompose' Middle (CAP / 2)
|
||||
|
||||
define top : CAP * 0.88
|
||||
define bot : CAP * 0.12
|
||||
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 : SAutoSlabStart doTS top sw Hook
|
||||
include : SAutoSlabEnd doBS bot sw Hook
|
||||
|
@ -469,6 +471,8 @@ glyph-block Letter-Latin-S : begin
|
|||
define w : AdviceStroke 3
|
||||
define fine : AdviceStroke [StrokeWidthBlend 3 5.5]
|
||||
|
||||
set-base-anchor 'cvDecompose' Middle (CAP / 2)
|
||||
|
||||
include : dispiro
|
||||
widths.center w
|
||||
flat Middle (top - HalfStroke)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue