Completed all simple consonants and vowels in IPA. Start working on other extended latin letters.

This commit is contained in:
be5invis 2015-08-16 06:26:13 +08:00
parent 69537672a7
commit ad95d2e327

View File

@ -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