Added v-underscore-above-baseline (cv99) and redefined the `v-und…

…erscore-high` to the right-below-baseline variant (#515).

changes/3.1.0.md

@@ -2,4 +2,5 @@
  * Add proper support for IPA tone letters (#508).
  * Moved low caret upward a little to make it more legible (#526).
  * Add support for WHITE SUN WITH RAYS (U+263C, ☼, #521).
- * Add preview image building in release notes.
+ * Add preview image building in release notes.
+ * Added `v-underscore-above-baseline` (`cv99`) and redefined the `v-underscore-high` to the right-below-baseline variant (#515).

glyphs/symbol-math.ptl

@@ -1439,7 +1439,7 @@ glyph-block Symbol-Math-APL : begin
 	composite [refer-glyph 'enquad'] [Overlay [refer-glyph 'overlaytilde'] [refer-glyph 'nabla']] [into-unicode 0x236B]
 	composite [refer-glyph 'enquad'] [Overlay [refer-glyph 'overlaytilde'] [refer-glyph 'zero.lnum.unslashed']] [into-unicode 0x236C]
 	composite [refer-glyph 'enquad'] [Overlay [refer-glyph 'overlaytilde'] [refer-glyph 'bar']] [into-unicode 0x236D]
-	composite [refer-glyph 'enquad'] [Overlay [refer-glyph 'semicolon'] [refer-glyph 'underscore.belowBaseline']] [into-unicode 0x236E]
+	composite [refer-glyph 'enquad'] [Overlay [refer-glyph 'semicolon'] [refer-glyph 'underscore.high']] [into-unicode 0x236E]
 	composite [refer-glyph 'enquad'] [aplBoxed : refer-glyph 'notequal'] [into-unicode 0x236F]
 	composite [refer-glyph 'enquad'] [aplBoxed : refer-glyph 'question'] [into-unicode 0x2370]
 	composite [refer-glyph 'enquad'] [Overlay [refer-glyph 'overlaytilde'] [refer-glyph 'vee']] [into-unicode 0x2371]

glyphs/symbol-punctuation.ptl

@@ -843,36 +843,43 @@ glyph-block Symbol-Punctuation : begin
 
 	do 'Dashes'
 		do 'underscore'
-			define openBoxGap : STROKE + [Math.max STROKE (XH / 6)]
+			define openBoxGap : Math.max (STROKE * 1.25) (XH / 4)
 			define [OpenBoxSide y] : begin
 				return : union
 					VBarLeft  SB      y (y + openBoxGap)
 					VBarRight RIGHTSB y (y + openBoxGap)
-			sketch # underscore.high
+
+			sketch # underscore.aboveBaseline
 				set-width WIDTH
 				include : HBarBottom SB RIGHTSB 0
-				save 'underscore.high'
+				save 'underscore.aboveBaseline'
 				branch
 					include : HBarBottom SB RIGHTSB (-openBoxGap)
-					save 'doubleUnderscore.high'
+					save 'doubleUnderscore.aboveBaseline'
 				branch
-					include : OpenBoxSide 0
-					save 'openBox.high'
+					include : OpenBoxSide (STROKE / 2)
+					save 'openBox.aboveBaseline'
 
 			sketch # underscore.belowBaseline
 				set-width WIDTH
 				include : HBarTop SB RIGHTSB 0
-				save 'underscore.belowBaseline'
+				save 'underscore.high'
+				branch
+					include : HBarTop SB RIGHTSB (-openBoxGap)
+					save 'doubleUnderscore.high'
+				branch
+					include : OpenBoxSide (-STROKE / 2)
+					save 'openBox.high'
 
 			sketch # underscore.low
 				set-width WIDTH
-				include : HBarTop SB RIGHTSB (DESCENDER * 0.9)
+				include : HBarBottom SB RIGHTSB DESCENDER
 				save 'underscore.low'
 				branch
-					include : HBarTop SB RIGHTSB (DESCENDER * 0.9 - openBoxGap)
+					include : HBarBottom SB RIGHTSB (DESCENDER - openBoxGap)
 					save 'doubleUnderscore.low'
 				branch
-					include : OpenBoxSide (DESCENDER * 0.9)
+					include : OpenBoxSide (DESCENDER + STROKE / 2)
 					save 'openBox.low'
 
 			select-variant 'underscore'       '_'

variants.toml

@@ -480,15 +480,21 @@ asterisk = "hexlow"
 [simple.v-underscore-high]
 tag = 'cv20'
 sampler = '_'
-description = 'Higher underscore `_`, at baseline'
+description = 'Higher underscore `_`, placed right below baseline'
 underscore = 'high'
 
 [simple.v-underscore-low]
 tag = 'cv21'
 sampler = '_'
-description = 'Lower underscore `_`, below baseline'
+description = 'Lower underscore `_`, placed right above descender line'
 underscore = 'low'
 
+[simple.v-underscore-above-baseline]
+tag = 'cv99'
+sampler = '_'
+description = 'Extra-high `_`, placed right below baseline'
+underscore = 'aboveBaseline'
+
 [simple.v-paragraph-high]
 tag = 'cv22'
 sampler = '¶'