Completed all simple consonants and vowels in IPA. Start working on other extended latin letters.
This commit is contained in:
parent
69537672a7
commit
ad95d2e327
|
@ -184,6 +184,92 @@ create-glyph 'smcpGhooktop' : glyph-construction {
|
|||
include : VBarRight RIGHTSB [XH - HOOK] XH
|
||||
include : VerticalHook [RIGHTSB - HALFSTROKE * ITALICCOR] XH HOOKX [-HOOK]
|
||||
}
|
||||
create-glyph 'vhooktop' : glyph-construction {
|
||||
assign-unicode 0x2C71
|
||||
include eMarks
|
||||
|
||||
local TURN [XH * 0.9]
|
||||
local m : MIDDLE - HOOKX / 10
|
||||
include : create-stroke
|
||||
:.start-from SB XH
|
||||
:.heads-to DOWNWARD
|
||||
:.set-width STROKE 0
|
||||
:.line-to SB TURN
|
||||
:.heads-to DOWNWARD
|
||||
:.curve-to SB [[1 - 0.27] * TURN] [m - STROKE / 2] 0
|
||||
:.set-width [STROKE * 0.8] 0
|
||||
|
||||
local x1 : RIGHTSB - HOOKX / 3
|
||||
local x2 : mix m RIGHTSB 0.52
|
||||
local y1 : TURN - HOOK
|
||||
local y2 : mix 0 XH 0.3
|
||||
include : create-stroke
|
||||
:.start-from [RIGHTSB + HOOKX / 4] [XH - STROKE]
|
||||
:.set-width 0 STROKE
|
||||
:.curve-to [linreg y1 x1 y2 x2 [XH - STROKE]] [XH - STROKE] x1 y1
|
||||
:.curve-to x2 y2 [m + STROKE / 2] 0
|
||||
:.set-width 0 [STROKE * 0.8]
|
||||
|
||||
#bottom cap
|
||||
start-from [m + STROKE / 2] 0
|
||||
line-to [m - STROKE / 2] 0
|
||||
line-to m [STROKE * 0.8]
|
||||
}
|
||||
create-glyph 'whooktop' : glyph-construction {
|
||||
assign-unicode 0x2C73
|
||||
include eMarks
|
||||
|
||||
local TURN [XH * 0.75]
|
||||
local turn2 [XH * 0.59]
|
||||
local wheight [XH * 0.6]
|
||||
local bottomStroke : adviceBlackness 5.2
|
||||
local m1 : WIDTH * 0.325
|
||||
local m2 : WIDTH * 0.675
|
||||
|
||||
include : create-stroke
|
||||
:.start-from SB XH
|
||||
:.heads-to DOWNWARD
|
||||
:.set-width STROKE 0
|
||||
:.line-to SB TURN
|
||||
:.heads-to DOWNWARD
|
||||
:.curve-to SB [[1 - 0.27] * TURN] [m1 - bottomStroke / 2] 0
|
||||
:.set-width bottomStroke 0
|
||||
|
||||
include : create-stroke
|
||||
:.start-from RIGHTSB [XH - HOOK]
|
||||
:.heads-to DOWNWARD
|
||||
:.set-width 0 STROKE
|
||||
:.curve-to RIGHTSB [[1 - 0.27] * TURN] [m2 + bottomStroke / 2] 0
|
||||
:.set-width 0 bottomStroke
|
||||
|
||||
include : create-stroke
|
||||
:.start-from [MIDDLE + bottomStroke / 2] wheight
|
||||
:.heads-to DOWNWARD
|
||||
:.set-width 0 bottomStroke
|
||||
:.line-to [MIDDLE + bottomStroke / 2] turn2
|
||||
:.heads-to DOWNWARD
|
||||
:.curve-to [MIDDLE + bottomStroke / 2] [[1 - 0.1] * turn2] [m1 + bottomStroke / 2] 0
|
||||
:.set-width 0 bottomStroke
|
||||
|
||||
include : create-stroke
|
||||
:.start-from [MIDDLE - bottomStroke / 2] wheight
|
||||
:.heads-to DOWNWARD
|
||||
:.set-width bottomStroke 0
|
||||
:.line-to [MIDDLE - bottomStroke / 2] turn2
|
||||
:.heads-to DOWNWARD
|
||||
:.curve-to [MIDDLE - bottomStroke / 2] [[1 - 0.1] * turn2] [m2 - bottomStroke / 2] 0
|
||||
:.set-width bottomStroke 0
|
||||
|
||||
#bottom cap
|
||||
start-from [m1 + bottomStroke / 2] 0
|
||||
line-to [m1 - bottomStroke / 2] 0
|
||||
line-to m1 bottomStroke
|
||||
|
||||
start-from [m2 + bottomStroke / 2] 0
|
||||
line-to [m2 - bottomStroke / 2] 0
|
||||
line-to m2 bottomStroke
|
||||
include : VerticalHook [RIGHTSB - HALFSTROKE * ITALICCOR] [XH - HOOK] [HOOKX * 0.65] [-HOOK + HALFSTROKE]
|
||||
}
|
||||
# Left-tail
|
||||
create-glyph 'fltail' : glyph-construction {
|
||||
assign-unicode 0x192
|
||||
|
|
Loading…
Reference in New Issue
Block a user