Add flat-arc parenthesis (#941).

changes/6.0.0-preview.1.md

@@ -4,3 +4,4 @@
  * Update SS02 and SS16 to better reflect their source fonts (#939).
  * Remove unnecessary serifs of Slab Italic Small Cyrillic KA (#938).
  * Add flat-hook variants of `J` (#940).
+ * Add flat-arc parenthesis (#941).

font-src/glyphs/symbol/punctuation.ptl

@@ -64,8 +64,25 @@ glyph-block Symbol-Punctuation-Brackets : begin
 			parenOvershoot      DesignParameters.parenOvershoot
 		include : ParenShape Stroke dp
 
+	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' ')'

params/variants.toml

@@ -3810,6 +3810,12 @@ description = "Parenthesis with larger contour, like that in Monaco"
 selector.parenLeft = "largeContour"
 selector.parenRight = "largeContour"
 
+[prime.paren.variants.flat-arc]
+rank = 3
+description = "Parenthesis with flat arc, like that in JetBrains Mono"
+selector.parenLeft = "flatArc"
+selector.parenRight = "flatArc"
+
 
 
 [prime.brace]