Disunify Greek Tonos and Greek Oxia (#1677)

also improve shapes for dialytica mark compositions for aesthetics.

changes/22.1.0.md

@@ -2,7 +2,7 @@
   - COMBINING DOWNWARDS ARROW (`U+1AB3`).
   - COMBINING ZIGZAG BELOW (`U+1DCF`).
   - COMBINING DOUBLE INVERTED BREVE BELOW (`U+1DFC`).
-  - COMBINING DOUBLE TILDE BELOW (`U+1DFD`).
+  - COMBINING ALMOST EQUAL TO BELOW (`U+1DFD`).
   - COLON SIGN (`U+20A1`) (#1674).
   - PESO SIGN (`U+20B1`) (#1674).
   - GUARANI SIGN (`U+20B2`) (#1674).
@@ -13,5 +13,7 @@
   - LATIN SMALL LETTER L WITH DOUBLE BAR (`U+2C61`) (#1659).
   - LATIN SMALL LETTER O WITH LOW RING INSIDE (`U+2C7A`).
 * Fix shape of LATIN CAPITAL LETTER SMALL CAPITAL I (`U+A7AE`).
+* Disunify glyphs for Greek Tonos and Greek Oxia for disambiguation (#1527).
+* Improve aesthetics of Greek Dialytika Tonos, Dialytica Oxia, and Dialytika Varia.
 * Remove ASCII caret (`^`) from operator centering, as it is usually considered asymmetric (#1507).
 * Make dotted circle narrow by default, as it is more frequently used as a mark carrier (#1672).

font-src/glyphs/marks/above.ptl

@@ -65,9 +65,15 @@ glyph-block Mark-Above : begin
 			include : DrawAt (markMiddle - markExtend) aboveMarkMid (markDotsRadius * kdr)
 			include : DrawAt (markMiddle + markExtend) aboveMarkMid (markDotsRadius * kdr)
 
+		create-glyph "dialytikaAbove.\(suffix)" : glyph-proc
+			set-width 0
+			include : DrawAt (markMiddle - markExtend * 1.25) aboveMarkMid (markDotsRadius * kdr)
+			include : DrawAt (markMiddle + markExtend * 1.25) aboveMarkMid (markDotsRadius * kdr)
+
 	select-variant 'dotAbove'             0x307 (follow -- 'diacriticDot')
 	select-variant 'dieresisAbove'        0x308 (follow -- 'diacriticDot')
 	select-variant 'dieresisAboveAlwaysUpright' (follow -- 'diacriticDot')
+	select-variant 'dialytikaAbove'             (follow -- 'diacriticDot')
 
 	glyph-block-export RingDims RingShape
 	define [RingDims _radiusOut] : begin
@@ -651,6 +657,11 @@ glyph-block Mark-Above : begin
 	select-variant 'candrabinduAbove' 0x310 (follow -- 'diacriticDot')
 	turned 'turncandrabinduAbove' 0x352 'candrabinduAbove' markMiddle aboveMarkMid
 
+	create-glyph 'tonosGrekUpperTonos' : glyph-proc
+		set-width 0
+		include : refer-glyph 'barAbove'
+		include : StdAnchors.impl 'grekUpperTonos' 0 0
+
 	create-glyph 'variaAbove' 0x340 : glyph-proc
 		set-width 0
 		include : StdAnchors.medium
@@ -684,6 +695,24 @@ glyph-block Mark-Above : begin
 
 	alias 'koronisAbove' 0x343 'commaAbove'
 
+	create-glyph 'dialytikaTonosAbove' 0x0344 : glyph-proc
+		set-width 0
+		include : refer-glyph 'dialytikaAbove'
+		include : refer-glyph 'barAbove'
+		include : StdAnchors.wide
+
+	create-glyph 'dialytikaVariaAbove' : glyph-proc
+		set-width 0
+		include : refer-glyph 'dialytikaAbove'
+		include : refer-glyph 'variaAbove'
+		include : StdAnchors.wide
+
+	create-glyph 'dialytikaOxiaAbove' : glyph-proc
+		set-width 0
+		include : refer-glyph 'dialytikaAbove'
+		include : refer-glyph 'oxiaAbove'
+		include : StdAnchors.wide
+
 	create-glyph 'crossAbove' 0x33D : glyph-proc
 		set-width 0
 		include : StdAnchors.mediumWide

font-src/meta/unicode-knowledge.ptl

@@ -8,6 +8,7 @@ export : define ogonekBelowToTRTf_Y : object
 	'ogonekBelow' 'ogonekTR_Y'
 
 export : define upperGrekMarkToTonosTf : object
+	'barAbove'         'tonosGrekUpperTonos'
 	'variaAbove'       'variaGrekUpperTonos'
 	'oxiaAbove'        'oxiaGrekUpperTonos'
 	'graveAbove'       'variaGrekUpperTonos'
@@ -87,20 +88,21 @@ export : define decompOverrides : object
 	0x2F7  { 'markBaseSpace' 'tildeBelow' }
 	0x2FF  { 'markBaseSpace' 'leftArrowBelow' }
 	0x37A  { 'markBaseSpace' 'iotaBelow' }
-	0x384  { 'markBaseSpace' 'acuteAbove' }
+	0x384  { 'markBaseSpace' 'barAbove' }
-	0x385  { 'markBaseSpace' 'dieresisAbove' 'acuteAbove' }
+	0x385  { 'markBaseSpace' 'dialytikaTonosAbove' }
 	0x1FBD { 'markBaseSpace' 'commaAbove' }
 	0x1FBE { 'markBaseSpace' 'iotaBelow' }
 	0x1FBF { 'markBaseSpace' 'commaAbove' }
 	0x1FC0 { 'markBaseSpace' 'perispomeniAbove' }
 	0x1FC1 { 'markBaseSpace' 'dieresisAbove' 'perispomeniAbove' }
-	0x1FED { 'markBaseSpace' 'dieresisAbove' 'graveAbove' }
+	0x1FED { 'markBaseSpace' 'dialytikaVariaAbove' }
-	0x1FEE { 'markBaseSpace' 'dieresisAbove' 'acuteAbove' }
+	0x1FEE { 'markBaseSpace' 'dialytikaOxiaAbove' }
 	0x1FEF { 'markBaseSpace' 'graveAbove' }
 	0x1FFD { 'markBaseSpace' 'acuteAbove' }
 	0x1FFE { 'markBaseSpace' 'revCommaAbove' }
 	0x2E2F { 'markBaseSpace' 'yerikAbove' }
 	0xA788 { 'markBaseSpace' 'circumflexBelow' }
+	0xA78A { 'markBaseSpace' 'equalOver' }
 	0xAB6A { 'markBaseSpace' 'leftTackOver' }
 	0xAB6B { 'markBaseSpace' 'rightTackOver' }
 
@@ -120,6 +122,28 @@ export : define decompOverrides : object
 	0x24D  { 'r' 'barOver' }
 	0x24F  { 'y' 'longBarOver' }
 
+	0x386 { 'grek/Alpha' 'tonosGrekUpperTonos' }
+	0x388 { 'grek/Epsilon' 'tonosGrekUpperTonos' }
+	0x389 { 'grek/Eta' 'tonosGrekUpperTonos' }
+	0x38A { 'grek/Iota' 'tonosGrekUpperTonos' }
+	0x38C { 'grek/Omicron' 'tonosGrekUpperTonos' }
+	0x38E { 'grek/Upsilon' 'tonosGrekUpperTonos' }
+	0x38F { 'grek/Omega' 'tonosGrekUpperTonos' }
+	0x390 { 'grek/iota' 'dialytikaTonosAbove' }
+	0x3AC { 'grek/alpha' 'barAbove' }
+	0x3AD { 'grek/epsilon' 'barAbove' }
+	0x3AE { 'grek/eta' 'barAbove' }
+	0x3AF { 'grek/iota' 'barAbove' }
+	0x3B0 { 'grek/upsilon' 'dialytikaTonosAbove' }
+	0x3CC { 'grek/omicron' 'barAbove' }
+	0x3CD { 'grek/upsilon' 'barAbove' }
+	0x3CE { 'grek/omega' 'barAbove' }
+
+	0x1FD2 { 'grek/iota' 'dialytikaVariaAbove' }
+	0x1FD3 { 'grek/iota' 'dialytikaOxiaAbove' }
+	0x1FE2 { 'grek/upsilon' 'dialytikaVariaAbove' }
+	0x1FE3 { 'grek/upsilon' 'dialytikaOxiaAbove' }
+
 	0x47C  { 'cyrl/BroadOmega' 'cyrlPsiliAbove' 'cyrlPokrytieAbove' }
 	0x47D  { 'cyrl/broadOmega' 'cyrlPsiliAbove' 'cyrlPokrytieAbove' }
 
@@ -146,7 +170,6 @@ export : define decompOverrides : object
 
 	0xA74A { 'O' 'longBarOver' }
 	0xA74B { 'o' 'longBarOver' }
-	0xA78A { 'markBaseSpace' 'equalOver' }
 	0xA7B8 { 'U' 'longSlashOver' }
 	0xA7B9 { 'u' 'slashOver' }
 	0xA7BB { 'a' 'EgyptologicalYodAbove' }