synchronize => ligatures' bar wideess with equal sign

glyphs/autobuilds.ptl

@@ -3,6 +3,7 @@ $$include '../meta/macros.ptl'
 
 import 'unorm' as unorm
 import [mix linreg clamp fallback suggestGC] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 define customDecompositions : object
 	# Latvians use comma instead of cedillas in several letters.

glyphs/common-shapes.ptl

@@ -4,6 +4,7 @@ import '../support/transform' as : Transform && [object [transformPoint tp] [unt
 import '../support/fairify' as fairify
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry

glyphs/letters-unified-basic.ptl

@@ -6,6 +6,7 @@ $$include '../meta/macros.ptl'
 
 import '../support/transform' as : Transform && [object [transformPoint tp] [untransform utp] inverse]
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks

glyphs/letters-unified-extended.ptl

@@ -1,6 +1,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks letterBasic

glyphs/numbers.ptl

@@ -1,6 +1,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 ###### NUMBERS
 export : define [apply] : begin

glyphs/overmarks.ptl

@@ -1,6 +1,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes

glyphs/symbol-braille.ptl

@@ -2,6 +2,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks

glyphs/symbol-geometric.ptl

@@ -3,6 +3,7 @@ $$include '../meta/macros.ptl'
 
 import '../support/transform' as : Transform && [object [transformPoint tp] [untransform utp] inverse]
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks

glyphs/symbol-letter.ptl

@@ -3,6 +3,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks letterBasic

glyphs/symbol-math.ptl

@@ -2,6 +2,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks letterBasic letterExt
@@ -102,8 +103,8 @@ export : define [apply] : begin
 		include glyphs.plus
 		save 'plusminus' 0xB1
 	turned 'minusplus' 0x2213 'plusminus' MIDDLE parenMid
-	local equalHalfSpace : (parenTop - parenBot) * 0.11
 
+	local equalHalfSpace : (parenTop - parenBot) * designParameters.equal_wideness
 	sketch # equal
 		include : HBar SB RIGHTSB (parenMid + equalHalfSpace) OPERATORSTROKE
 		include : HBar SB RIGHTSB (parenMid - equalHalfSpace) OPERATORSTROKE

glyphs/symbol-other.ptl

@@ -2,6 +2,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks geometricSymbols
@@ -322,9 +323,11 @@ export : define [apply] : begin
 		save ('lighyphen.' + subclass)
 	 
 	# =>
-	local dblarrowd : XH * [linreg 18 0.15 126 0.275 STROKE]
+	# local dblarrowd : XH * [linreg 18 0.15 126 0.275 STROKE]
-	local sw : Math.min OPERATORSTROKE (dblarrowd * [clamp 0.45 0.75 ((1 - WHITENESS) * 1)])
+	# local sw : Math.min OPERATORSTROKE (dblarrowd * [clamp 0.45 0.75 ((1 - WHITENESS) * 1)])
-	local dblextend [clamp 0 WIDTH (RIGHTSB - (dblarrowd - sw / 2) * arrowheadSlope)]
+	local sw OPERATORSTROKE
+	local dblarrowd ((parenTop - parenBot) * designParameters.equal_wideness + sw / 2)
+	local dblextend : clamp 0 WIDTH (RIGHTSB - (dblarrowd - sw / 2) * arrowheadSlope)
 	local dblarrowj : clamp 0 WIDTH (SB + (dblarrowd - sw / 2) * arrowheadSlope)
 	foreach [{subclass left right} : items-of [ArrowBarConfig dblextend arrowheadsKern dblarrowj]] : sketch
 		include : HBarTop left right (parenMid + dblarrowd) sw

glyphs/symbol-punctuation.ptl

@@ -2,6 +2,7 @@
 $$include '../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../support/utils'
+import [designParameters] from '../meta/aesthetics'
 
 export : define [apply] : begin
 	glyph-module-entry commonShapes overmarks letterBasic

meta/aesthetics.ptl

@@ -174,3 +174,6 @@ export : define [setFontMetrics para metrics font] : begin
 	set font.OS_2.sxHeight          XH
 	set font.OS_2.sCapHeight        CAP
 	set font.post.italicAngle       (0 - para.slantAngle)
+
+export : define designParameters : object
+	equal_wideness 0.1