Add flat-arc parenthesis (#941).
This commit is contained in:
parent
022f1001b6
commit
242ae4ea24
3 changed files with 26 additions and 2 deletions
|
@ -64,8 +64,25 @@ glyph-block Symbol-Punctuation-Brackets : begin
|
|||
parenOvershoot DesignParameters.parenOvershoot
|
||||
include : ParenShape Stroke dp
|
||||
|
||||
turned 'parenRight.normal' null 'parenLeft.normal' Middle SymbolMid
|
||||
create-glyph'parenLeft.flatArc' : glyph-proc
|
||||
local dp : object
|
||||
parenOutside (0.5 * DesignParameters.parenOutside)
|
||||
parenInside DesignParameters.parenInside
|
||||
parenCurliness [mix 1 DesignParameters.parenCurliness 0.5]
|
||||
parenOvershoot DesignParameters.parenOvershoot
|
||||
local dim : ParenDim 0 dp
|
||||
include : dispiro
|
||||
widths.lhs
|
||||
g4.left.start dim.inside dim.top
|
||||
archv
|
||||
flat dim.outside [mix dim.bottom dim.top 0.65]
|
||||
curl dim.outside [mix dim.bottom dim.top 0.35]
|
||||
arcvh
|
||||
g4.right.start dim.inside dim.bottom
|
||||
|
||||
turned 'parenRight.normal' null 'parenLeft.normal' Middle SymbolMid
|
||||
turned 'parenRight.largeContour' null 'parenLeft.largeContour' Middle SymbolMid
|
||||
turned 'parenRight.flatArc' null 'parenLeft.flatArc' Middle SymbolMid
|
||||
|
||||
select-variant 'parenLeft' '('
|
||||
select-variant 'parenRight' ')'
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue