This commit is contained in:
Logo121 2025-03-14 21:50:40 +08:00
parent f94c81f584
commit 8dde5e7472
3 changed files with 61 additions and 12 deletions

View file

@ -10,7 +10,7 @@ glyph-block Letter-Latin-Glottal-Stop : begin
glyph-block-import Common-Derivatives
glyph-block-import Mark-Shared-Metrics : markHalfStroke
glyph-block-import Letter-Shared : CreateTurnedLetter
glyph-block-import Letter-Shared-Shapes : LetterBarOverlay
glyph-block-import Letter-Shared-Shapes : LetterBarOverlay CurlyTail
create-glyph 'glottalStop' 0x294 : glyph-proc
include : MarkSet.b
@ -66,7 +66,25 @@ glyph-block Letter-Latin-Glottal-Stop : begin
if SLAB : begin
include : HSerif.mb Middle 0 Jut
CreateTurnedLetter 'invGlottalStop' 0x296 'revGlottalStop' HalfAdvance (Ascender / 2)
CreateTurnedLetter 'glottalStopTurned' 0x296 'revGlottalStop' HalfAdvance (Ascender / 2)
create-glyph 'glottalStopTurnedCurlyTail' 0x1DF0E : glyph-proc
include : MarkSet.b
local yMid : AdviceGlottalStopArchDepth Ascender 1
local fine : AdviceStroke 3.5
include : dispiro
widths.rhs
flat (Middle + [HSwToV HalfStroke]) Ascender [heading Downward]
curl (Middle + [HSwToV HalfStroke]) (Ascender - XH * 0.3)
alsoThru.g2 0.5 0.5 important
g4 RightSB yMid
CurlyTail.n fine 0 SB RightSB 0 yMid
if SLAB : begin
include : HSerif.mt Middle Ascender Jut
create-glyph 'glottalStopBar' 0x2A1 : glyph-proc
include [refer-glyph 'glottalStop'] AS_BASE

View file

@ -95,17 +95,18 @@ glyph-block Letter-Latin-C : begin
[Just SLAB-INWARD] : ArcEndSerif.InwardL df.leftSB bot [fallback sw Stroke] [fallback hook Hook]
__ : glyph-proc
define [CCurlyTailShape slabType] : glyph-proc
local sw : AdviceStroke2 2 3 XH
local fine : AdviceStroke2 3 3 XH
define [CCurlyTailShape df slabType top bot] : glyph-proc
local sw : df.adviceStroke2 2 3 (top - bot)
local fine : df.adviceStroke2 3 3 (top - bot)
local loopTop : bot + 0.45 * XH
include : dispiro
match slabType
[Just SLAB-CLASSICAL] : SerifedArcStart.RtlLhs RightSB XH sw Hook
[Just SLAB-INWARD] : InwardSlabArcStart.RtlLhs RightSB XH sw Hook
__ : list [g4 RightSB (XH - Hook) [widths.lhs sw]] [hookstart XH (sw -- sw)]
flatside.ld SB 0 XH SmallArchDepthA SmallArchDepthB
CurlyTail.n fine 0 RightSB 0 0 (yLoopTop -- (XH * 0.45))
[Just SLAB-CLASSICAL] : SerifedArcStart.RtlLhs df.rightSB top sw Hook
[Just SLAB-INWARD] : InwardSlabArcStart.RtlLhs df.rightSB top sw Hook
__ : list [g4 df.rightSB (top - Hook) [widths.lhs sw]] [hookstart top (sw -- sw)]
flatside.ld df.leftSB bot top SmallArchDepthA SmallArchDepthB
CurlyTail.n fine bot df.rightSB 0 bot (yLoopTop -- loopTop)
glyph-block-export CLetterForm
define [CLetterForm] : with-params [df sty styBot top bot [ada ArchDepthA] [adb ArchDepthB] [hook Hook] [sw Stroke] [ob nothing]] : namespace
@ -230,7 +231,7 @@ glyph-block Letter-Latin-C : begin
create-glyph "cCurlyTail.\(suffix)" : glyph-proc
include : MarkSet.e
include : CCurlyTailShape sty
include : CCurlyTailShape [DivFrame 1] sty XH 0
include : AutoStartSerifR [DivFrame 1] sty XH
create-glyph "stretchedC.\(suffix)" : glyph-proc
@ -240,6 +241,11 @@ glyph-block Letter-Latin-C : begin
adb -- SmallArchDepthB
include : lf.full
create-glyph "stretchedCCurlyTail.\(suffix)" : glyph-proc
include : MarkSet.p
include : CCurlyTailShape [DivFrame 1] sty XH Descender
include : AutoStartSerifR [DivFrame 1] sty XH
define [KoppaShapeT styTop styBot top base] : union
VBar.r (Middle + [HSwToV Stroke]) Descender HalfStroke
difference base
@ -314,6 +320,7 @@ glyph-block Letter-Latin-C : begin
select-variant 'cCurlyTail' 0x255
select-variant 'cHookTop' 0x188
select-variant 'stretchedC' 0x297 (follow -- 'c')
select-variant 'stretchedCCurlyTail' 0x1DF0F (follow -- 'cHookTop')
select-variant 'cyrl/Koppa' 0x480 (follow -- 'CTopSerifOnly')
select-variant 'cyrl/koppa' 0x481 (follow -- 'cTopSerifOnly')

View file

@ -293,6 +293,29 @@ glyph-block Letter-Latin-Lower-T : begin
curl xLeft LongJut
CurlyTail.n fine 0 (xLeft + [HSwToV Stroke] + LongJut) 0 0
if (top == Ascender) : begin
create-glyph "tTurnedCurlyTail.\(suffix)" : glyph-proc
# local df : DivFrame 1
set-width df.width
include : df.markSet.b
local fine : AdviceStroke2 3.5 2.5 (-Descender)
# local rinner : LongJut / 2 - fine / 2
local xLeft : Style.BarLeftPos df sym
include : Style.Body df sym XH 0
include : FlipAround df.middle (XH / 2)
local xRight : df.width - xLeft
include : dispiro
widths.rhs
flat xRight TINY [heading Downward]
curl xRight 0 [heading Downward]
CurlyTail.n fine Descender (xRight - [HSwToV Stroke] - LongJut) df.rightSB Descender (Descender / 2 + fine)
select-variant 't' 't'
select-variant 't/teshLeft' (follow -- 't')
select-variant 't/phoneticLeft1' (shapeFrom -- 't')
@ -302,10 +325,11 @@ glyph-block Letter-Latin-Lower-T : begin
derive-glyphs 'tCedilla' 0x163 't' ConnectedCedilla
CreateAccentedComposition 'tComma' 0x21B 't' 'commaBelow'
select-variant "tHookTop" 0x1AD
select-variant 'tHookTop' 0x1AD
select-variant 'tPalatalHook' 0x1AB (follow -- 't')
select-variant 'tRTail' 0x288
select-variant 'tCurlyTail' 0x236
select-variant 'tTurnedCurlyTail' 0x1DF0D (follow -- 'tHookTop')
select-variant "tHookTopRTail" 0x1DF09