balanced /i.

This commit is contained in:
be5invis 2015-10-23 04:36:38 +08:00
parent 38a4b28026
commit aebe29b3ee
3 changed files with 10 additions and 9 deletions

View File

@ -117,8 +117,9 @@ define [buildFont para recursive] : begin
define KAPPA_RHOOK : fallback para.kappa_rhook KAPPA_HOOK
define TAILADJX : WIDTH * 0.2
define TAILADJY : XH * 0.25
define ILBALANCE : LONGJUT * 0.04
define JBALANCE : fallback para.jbalance (STROKE / 2 + ILBALANCE)
define LBALANCE : LONGJUT * 0.04
define IBALANCE : fallback para.ibalance (-LONGJUT * 0.04)
define JBALANCE : fallback para.jbalance (STROKE / 2 + LBALANCE)
define TBALANCE : fallback para.tbalance JBALANCE
define TBALANCE2 : fallback para.tbalance2 TBALANCE
define RBALANCE : fallback para.rbalance (JBALANCE * 0.3)

View File

@ -313,7 +313,7 @@ create-glyph 'dotlessi.serifed' : glyph-construction
dont-export
include eMarks
local balance ILBALANCE
local balance IBALANCE
include : create-stroke
:.start-from (MIDDLE + balance) 0
:.heads-to UPWARD
@ -325,7 +325,7 @@ create-glyph 'dotlessi.serifed' : glyph-construction
include : leftwardBottomSerif MIDDLE 0 LONGJUT
create-glyph 'dotlessi.italic' : glyph-construction
local left : MIDDLE - HALFSTROKE
local left : [mix SB RIGHTSB 0.48] - HALFSTROKE * CORRECTION_HX
local right : mix SB RIGHTSB 1.1
local middle : mix left right 0.55
include : spiro
@ -335,11 +335,11 @@ create-glyph 'dotlessi.italic' : glyph-construction
hookend O
g4 right (SHOOK * 0.8)
include : create-stroke
:.start-from (left - LONGJUT + ILBALANCE + HALFSTROKE) XH
:.start-from (left - LONGJUT + HALFSTROKE * CORRECTION_HX) XH
:.set-width 0 STROKE
:.line-to left XH
include eMarks
set-anchor 'above' BASE (left + HALFSTROKE) XH
set-anchor 'above' BASE (left + HALFSTROKE * CORRECTION_HX) XH
set-anchor 'below' BASE middle 0
select-variant 'dotlessi' 0x131 [if para.italicangle 'italic' 'serifed']
@ -399,7 +399,7 @@ create-glyph 'l.zshaped' : glyph-construction
create-glyph 'l.serifed' : glyph-construction
include bMarks
dont-export
local balance ILBALANCE
local balance LBALANCE
include : create-stroke
:.start-from (MIDDLE + balance) 0
:.heads-to UPWARD

View File

@ -880,8 +880,8 @@ create-glyph 'ifishhook' : glyph-construction
assign-unicode 0x27F
include pMarks
include : VBar MIDDLE DESCENDER (XH - HOOK)
include : VerticalHook MIDDLE (XH - HOOK) (-LONGJUT + ILBALANCE) (-HOOK + HALFSTROKE)
apply-transform : Translate ILBALANCE 0
include : VerticalHook MIDDLE (XH - HOOK) (-LONGJUT + LBALANCE) (-HOOK + HALFSTROKE)
apply-transform : Translate LBALANCE 0
create-glyph 'iviby' : glyph-construction
assign-unicode 0x285