Insular F marks
This commit is contained in:
parent
b3fa0ab1cb
commit
4e6a68d45a
1 changed files with 6 additions and 3 deletions
|
@ -46,8 +46,8 @@ glyph-block Letter-Latin-Lower-R : begin
|
|||
HSerif.lb rSerifX y (rSerifLeftJut + (strokeBar / 2) * HVContrast)
|
||||
HSerif.rb rSerifX y (rSerifRightJut + (strokeBar / 2) * HVContrast)
|
||||
local xAtt : rSerifX + rSerifRightJut + (strokeBar / 2) * HVContrast
|
||||
set-base-anchor 'palatalHookAttach' xAtt 0
|
||||
set-base-anchor 'palatalHookPos' xAtt 0
|
||||
set-base-anchor 'palatalHookAttach' xAtt y
|
||||
set-base-anchor 'palatalHookPos' xAtt y
|
||||
|
||||
local [rTopSerif y] : tagged 'serifLT'
|
||||
HSerif.lt rSerifX y (rSerifLeftJut + (strokeBar / 2) * HVContrast)
|
||||
|
@ -202,7 +202,10 @@ glyph-block Letter-Latin-Lower-R : begin
|
|||
create-glyph "rCapLongLeg.\(suffix)" : glyph-proc
|
||||
set-width df.width
|
||||
include : df.markSet.capDesc
|
||||
define [object xBar rBottomSerif] : RDim df mode
|
||||
|
||||
define [object xBar rBottomSerif setMarks] : RDim df mode
|
||||
include : setMarks doTS CAP Descender
|
||||
|
||||
include : with-transform [ApparentTranslate 0 (CAP - XH)] : F df mode doTS 0
|
||||
eject-contour 'serifLB'
|
||||
include : VBar.r xBar Descender (CAP - XH)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue