Add flat-arc parenthesis (#941).

This commit is contained in:
be5invis 2021-04-08 22:37:12 -07:00
parent 022f1001b6
commit 242ae4ea24
3 changed files with 26 additions and 2 deletions

View file

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