36 lines
1.2 KiB
Text
36 lines
1.2 KiB
Text
$$include '../../meta/macros.ptl'
|
|
|
|
glyph-module
|
|
|
|
glyph-block LetterLike-Fraktur-Upper-Z : begin
|
|
glyph-block-import Common-Derivatives
|
|
glyph-block-import CommonShapes
|
|
glyph-block-import LetterLike-Fraktur-Common : FrakDf S F T fraktur-stroke change-profile
|
|
glyph-block-import LetterLike-Fraktur-Common : DecoSizeX DecoSizeY SlopeA SlopeB
|
|
glyph-block-import LetterLike-Fraktur-Common : Wave LbFootRise FHook PHexTop PHexBot
|
|
|
|
create-glyph "frak/Z" 0x2128 : glyph-proc
|
|
local df : include : FrakDf 1
|
|
include : df.markSet.capital
|
|
|
|
local zBox : S.box CAP 0 df.leftSB df.rightSB
|
|
|
|
# Top Stroke
|
|
include : fraktur-stroke S
|
|
g2.ld.start zBox.right zBox.top
|
|
~~~ [Wave.h]
|
|
g2.ld.mid zBox.left (pre@ <-> Wave.DepthY)
|
|
|
|
# Bottom Stroke
|
|
local diag : include : fraktur-stroke S
|
|
corner zBox.right zBox.top
|
|
corner [zBox.xp 0.166] [zBox.yp 0.5]
|
|
|
|
include : difference
|
|
fraktur-stroke S
|
|
g2.ru.start [diag.last].x [diag.last].y
|
|
~~~ [arch.rhs [zBox.yp 0.55] 0.375 (sw -- S.thick)]
|
|
g2.down.mid zBox.right (post@ <+> ArchDepthA)
|
|
hookend zBox.bot (sw -- S.thick)
|
|
g2 zBox.left (pre@ <+> SHook)
|
|
MaskAboveLine [diag.first].x [diag.first].y [diag.last].x [diag.last].y 4
|