Merge branch 'prerelease'

CHANGELOG.md

@@ -1,5 +1,36 @@
 ## Modifications since version 2.x
 
+### 24.1.4
+
+* Add Characters:
+  - COMBINING DIAERESIS-RING (`U+1AB1`).
+  - COMBINING X-X BELOW (`U+1AB5`).
+  - CYRILLIC SMALL LETTER LONG-LEGGED DE (`U+1C81`).
+  - CYRILLIC SMALL LETTER WIDE ES (`U+1C83`).
+  - CYRILLIC SMALL LETTER THREE-LEGGED TE (`U+1C85`).
+  - COMBINING LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE (`U+1DEC`) (#1673).
+  - COMBINING WIDE INVERTED BRIDGE BELOW (`U+1DF9`).
+  - COMBINING THREE DOTS ABOVE (`U+20DB`) .. COMBINING FOUR DOTS ABOVE (`U+20DC).
+  - COMBINING TRIPLE UNDERDOT (`U+20E8`) .. COMBINING WIDE BRIDGE ABOVE (`U+20E9`).
+  - LESS-THAN OR SLANTED EQUAL TO WITH DOT INSIDE (`U+2A7F`) .. GREATER-THAN OR SLANTED EQUAL TO WITH DOT INSIDE (`U+2A80`).
+  - SLANTED EQUAL TO OR LESS-THAN (`U+2A95`) .. DOUBLE-LINE EQUAL TO OR GREATER-THAN (`U+2A9A`).
+  - SIMILAR OR LESS-THAN (`U+2A9D`) .. SIMILAR OR GREATER-THAN (`U+2A9E`).
+  - EQUALS SIGN WITH BUMPY ABOVE (`U+2AAE`).
+  - LATIN EPIGRAPHIC LETTER I LONGA (`U+A7FE`).
+  - LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE (`U+AB38`) (#1673).
+  - COMBINING LATIN SMALL LETTER INSULAR R (`U+1ACD`) (#1808).
+  - LATIN CAPITAL LETTER INSULAR R (`U+A782`) (#1808).
+  - LATIN SMALL LETTER INSULAR R (`U+A783`) (#1808).
+* Fix shape of `U+1D95` (#1790).
+* Fix shape of `U+2C6E` (#1794).
+* Fix serifs of `U+A666` .. `U+A667` (#1795).
+* Fix `ss07` for `l` (#1796).
+* Fix combining mark anchors for several characters.
+* Fix upside down shape of `U+1D12`.
+* Fix variant assignment for `U+1D84` and `U+2C6A`.
+* Fix variant selector for CYRILLIC SMALL LETTER KOMI NJE (`U+050B`).
+
+
 ### 24.1.3
 
 * Add Characters:

changes/24.1.4.md

@@ -0,0 +1,27 @@
+* Add Characters:
+  - COMBINING DIAERESIS-RING (`U+1AB1`).
+  - COMBINING X-X BELOW (`U+1AB5`).
+  - CYRILLIC SMALL LETTER LONG-LEGGED DE (`U+1C81`).
+  - CYRILLIC SMALL LETTER WIDE ES (`U+1C83`).
+  - CYRILLIC SMALL LETTER THREE-LEGGED TE (`U+1C85`).
+  - COMBINING LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE (`U+1DEC`) (#1673).
+  - COMBINING WIDE INVERTED BRIDGE BELOW (`U+1DF9`).
+  - COMBINING THREE DOTS ABOVE (`U+20DB`) .. COMBINING FOUR DOTS ABOVE (`U+20DC).
+  - COMBINING TRIPLE UNDERDOT (`U+20E8`) .. COMBINING WIDE BRIDGE ABOVE (`U+20E9`).
+  - LESS-THAN OR SLANTED EQUAL TO WITH DOT INSIDE (`U+2A7F`) .. GREATER-THAN OR SLANTED EQUAL TO WITH DOT INSIDE (`U+2A80`).
+  - SLANTED EQUAL TO OR LESS-THAN (`U+2A95`) .. DOUBLE-LINE EQUAL TO OR GREATER-THAN (`U+2A9A`).
+  - SIMILAR OR LESS-THAN (`U+2A9D`) .. SIMILAR OR GREATER-THAN (`U+2A9E`).
+  - EQUALS SIGN WITH BUMPY ABOVE (`U+2AAE`).
+  - LATIN EPIGRAPHIC LETTER I LONGA (`U+A7FE`).
+  - LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE (`U+AB38`) (#1673).
+  - COMBINING LATIN SMALL LETTER INSULAR R (`U+1ACD`) (#1808).
+  - LATIN CAPITAL LETTER INSULAR R (`U+A782`) (#1808).
+  - LATIN SMALL LETTER INSULAR R (`U+A783`) (#1808).
+* Fix shape of `U+1D95` (#1790).
+* Fix shape of `U+2C6E` (#1794).
+* Fix serifs of `U+A666` .. `U+A667` (#1795).
+* Fix `ss07` for `l` (#1796).
+* Fix combining mark anchors for several characters.
+* Fix upside down shape of `U+1D12`.
+* Fix variant assignment for `U+1D84` and `U+2C6A`.
+* Fix variant selector for CYRILLIC SMALL LETTER KOMI NJE (`U+050B`).

font-src/glyphs/auto-build/composite.ptl

@@ -1342,15 +1342,15 @@ glyph-block Autobuild-Pnonetic-Ligatures : begin
 	createPhoneticLigatures ToLetter 'phonetic' para.diversityM 2 stdShrink 1 : list
 		list 0x02A3 { 'd/phoneticLeft'  'z'                     } 'b'
 		list 0x02A4 { 'd/phoneticLeft'  'ezh'                   } 'if'
-		list 0x02A5 { 'd/phoneticLeft'  'zCurlyTail'            } 'if'
+		list 0x02A5 { 'd/phoneticLeft'  'zCurlyTail'            } 'b'
 		list 0x02A6 { 't/phoneticLeft2' 's/phoneticRight'       } 'b'
 		list 0x02A7 { 't/teshLeft'      'esh'                   } 'if'
 		list 0x02A8 { 't/phoneticLeft1' 'cCurlyTail'            } 'b'
 		list 0x02A9 { 'f/phoneticLeft'  'eng/phoneticRight'     } 'if'
 		list 0x02AA { 'l/phoneticLeft'  's/phoneticRight'       } 'b'
 		list 0x02AB { 'l/phoneticLeft'  'z'                     } 'b'
 		list 0xAB66 { 'd/phoneticLeft'  'zRTailBR'              } 'if'
-		list 0xAB67 { 't/phoneticLeft1' 'sRTail'                } 'p'
+		list 0xAB67 { 't/phoneticLeft1' 'sRTail'                } 'if'
 		list 0xFB00 { 'f'               'f'                     } null
 		list 0xFB01 { 'f/compLigLeft1'  'dotlessi/compLigRight' } null
 		list 0xFB02 { 'f/compLigLeft2'  'l/compLigRight'        } null

font-src/glyphs/auto-build/transformed.ptl

@@ -184,7 +184,7 @@ glyph-block Autobuild-Transformed : begin
 			list 0x1DAA 'lPalatalHook'
 			list 0x1DAC 'mLTail'
 			list 0x1DAD 'turnmLeg'
-			list 0x1DAE 'nltail'
+			list 0x1DAE 'nLTail'
 			list 0x1DAF 'nHookBottom'
 			list 0x1DB0 'smcpN'
 			list 0x1DB1 'obar'
@@ -567,6 +567,7 @@ glyph-block Autobuild-Transformed : begin
 			list 0x1DDC 'k'
 			list 0x1DDD 'l'
 			list 0x1DE8 'b'
+			list 0x1DEC 'lDblTildeOver'
 			list 0x1DF2 'aDieresis'
 			list 0x1DF3 'oDieresis'
 			list 0x1DF4 'uDieresis'
@@ -588,10 +589,12 @@ glyph-block Autobuild-Transformed : begin
 			list 0xA677 'cyrl/u'
 
 		createMedievalCombs Descender CAP : list
+			list 0x1ACD 'rInsular'
 			list 0x1DEB 'f'
 			list 0x1DE5 'longs'
 			list 0x1DEF 'esh'
 			list 0xA69E 'cyrl/ef'
+
 	: where : [createMedievalCombs defaultLow defaultHigh _records] : begin
 		local { records relSets targetNameMap } : extendRelatedGlyphs 'medievalAbove' _records
 		local pendingGlyphs : records.map : [record] => record.1
@@ -815,14 +818,23 @@ glyph-block Autobuild-Transformed-Mathematical : begin
 	CreateMathDerivatives 'mathit' tfItalic null 0x2145  ObliqueBlackboardBolds
 
 glyph-block Autobuild-Rhotic : begin
-	glyph-block-import Mark-Shared-Metrics : markFine
+	glyph-block-import Mark-Shared-Metrics : markFine markstroke
 	glyph-block-import CommonShapes
 	glyph-block-import Common-Derivatives
 	glyph-block-import Recursive-Build : Widen
 	glyph-block-import Letter-Latin-Rhotic : ErTail
 	glyph-block-import Autobuild-Transformed-Shared : extendRelatedGlyphs link-relations
+	glyph-block-import Letter-Shared-Shapes : RetroflexHook
+
+	define [ErTailAttachment y] : ErTail (Width * 0.85 - SB - markFine * HVContrast * 1.25) y (XH * 0.2)
+	define [RhoticTailAttachment] : RetroflexHook.r
+		x -- [mix RightSB Width 0.5]
+		y -- 0
+		yAttach -- (XH / 2 - HalfStroke)
+		xLink -- (Width * 0.85 - SB - markFine * HVContrast * 1.25)
+		refSw -- [AdviceStroke 4]
 
-	define [createRhotics groupName y _records] : begin
+	define [createRhotics groupName tail _records] : begin
 		local {records relSets targetNameMap} : extendRelatedGlyphs "rhotic_\(groupName)" _records
 		local pendingGlyphs : records.map : [record] => record.1
 		local thinFont : Widen pendingGlyphs 0.85 1
@@ -833,13 +845,17 @@ glyph-block Autobuild-Rhotic : begin
 						throw : new Error "Cannot find glyph \(glyphid)"
 					include : MarkSet.e
 					include : thinFont.queryByName glyphid
-					include : ErTail (Width * 0.85 - SB - markFine * HVContrast * 1.25) y (XH * 0.15)
+					include   tail
 
 		link-relations relSets
 		return { targetNameMap records }
 
-	createRhotics 'er' (XH / 2) : list { 0x25A 'schwa' }
-	createRhotics 'revLatinEpsilonEr' (XH * [mix 0.65 1 0.5]) : list { 0x25D 'latn/epsilonRev' }
+	createRhotics 'er' [ErTailAttachment (XH / 2)]
+		list { 0x25A 'schwa' }
+	createRhotics 'rhotic' [RhoticTailAttachment]
+		list { 0x1D95 'schwa' }
+	createRhotics 'revLatinEpsilonEr' [ErTailAttachment (XH * [mix 0.65 1 0.5])]
+		list { 0x25D 'latn/epsilonRev' }
 
 glyph-block Autobuild-Rotated : begin
 	glyph-block-import CommonShapes
@@ -849,7 +865,7 @@ glyph-block Autobuild-Rotated : begin
 
 	for-width-kinds WideWidth1 : do
 		local s : (RightSB - SB - O * 4 + (MosaicWidth - Width) * 0.5) / CAP
-		local df : Miniature {'eight.lnum.crossing' 'rotetedPropto' 'revS'}
+		local df : Miniature {'eight.lnum.crossing' 'rotatedPropto' 'revS'}
 			crowd        -- (4 / [Math.sqrt MosaicWidthScalar])
 			scale        -- s
 			forceUpright -- true
@@ -864,7 +880,7 @@ glyph-block Autobuild-Rotated : begin
 				include : Translate (MosaicWidth / 2) SymbolMid
 				include : Italify
 
-		InftyLikeShape 'propto'   0x221D 'rotetedPropto'
+		InftyLikeShape 'propto'   0x221D 'rotatedPropto'
 		InftyLikeShape 'infty'    0x221E 'eight.lnum.crossing'
 		InftyLikeShape 'invLazyS' 0x223E 'revS.serifless'
 

font-src/glyphs/common/shapes.ptl

@@ -392,17 +392,6 @@ glyph-block CommonShapes : begin
 		local s : fallback _s Stroke
 		return : HCrossBar (xl + 0 * s * TanSlope) (xr + 0 * s * TanSlope) (y + 0.5 * s) s
 
-	glyph-block-export LeftHook
-	define [LeftHook x y xextend] : glyph-proc
-		local fine : AdviceStroke 4.25
-		include : dispiro
-			widths.lhs fine
-			flat [fallback xextend : x + 1] y
-			curl x y
-			archv 8
-			g4.down.end (x - LeftHook.extension) (y - HookX) [heading Downward]
-	set LeftHook.extension [Math.max (Width * 0.2) ([AdviceStroke 4.25] * 1.5)]
-
 	glyph-block-export FlatSlashShape
 	define [FlatSlashShape middlex middle fine kx ky] : glyph-proc
 		include : dispiro

font-src/glyphs/letter/cyrillic/de.ptl

@@ -10,14 +10,15 @@ glyph-block Letter-Cyrillic-De : begin
 	glyph-block-import Mark-Adjustment : ExtendBelowBaseAnchors
 
 	glyph-block-export CyrDeShape CyrDeItalicShapeT
-	define [CyrDeShape top left right _sw] : glyph-proc
+	define [CyrDeShape top left right _sw _desc] : glyph-proc
 		local descenderOverflow : if SLAB SideJut ((right - left) * 0.075)
 		local xCutLeft left
 		local xCutRight right
 		local xTopLeft : mix xCutLeft xCutRight : StrokeWidthBlend 0.15 0.1
 		local xTopRight : mix xCutLeft xCutRight : StrokeWidthBlend 0.95 0.96
 		local swOuter : fallback _sw Stroke
 		local swInner : swOuter * [AdviceStroke 2.75] / Stroke
+		local desc : fallback _desc : -LongJut + 0.5 * Stroke
 
 		include : HBar.b (xCutLeft - descenderOverflow) (xCutRight + descenderOverflow) 0 swOuter
 		include : VBar.r xTopRight 0 top swInner
@@ -26,13 +27,13 @@ glyph-block Letter-Cyrillic-De : begin
 			flat xTopLeft top
 			curl xTopLeft [mix 0 top 0.625]
 			g4   xCutLeft  swOuter
-		include : VBar.l (xCutLeft  - descenderOverflow) (-LongJut + 0.5 * swOuter) 0.1 swOuter
-		include : VBar.r (xCutRight + descenderOverflow) (-LongJut + 0.5 * swOuter) 0.1 swOuter
+		include : VBar.l (xCutLeft  - descenderOverflow) desc 0.1 swOuter
+		include : VBar.r (xCutRight + descenderOverflow) desc 0.1 swOuter
 
 		include : if SLAB
 			then : dispiro
 				widths.rhs swOuter
-				flat (xTopLeft - descenderOverflow) top
+				flat (xTopLeft  - descenderOverflow) top
 				curl (xTopRight + descenderOverflow) top
 			else : HBar.t xTopLeft xTopRight top swOuter
 
@@ -73,26 +74,30 @@ glyph-block Letter-Cyrillic-De : begin
 
 	create-glyph 'cyrl/De' 0x414 : glyph-proc
 		include : MarkSet.capital
-		include : ExtendBelowBaseAnchors (-LongJut)
+		include : ExtendBelowBaseAnchors (-LongJut + 0.5 * Stroke)
 		include : CyrDeShape CAP SB RightSB
 
 	create-glyph 'cyrl/de.upright' : glyph-proc
 		include : MarkSet.e
-		include : ExtendBelowBaseAnchors (-LongJut)
+		include : ExtendBelowBaseAnchors (-LongJut + 0.5 * Stroke)
 		include : CyrDeShape XH SB RightSB
 
+	create-glyph 'cyrl/deLongLeg' 0x1C81 : glyph-proc
+		include : MarkSet.p
+		include : CyrDeShape XH SB RightSB Stroke Descender
+
 	create-glyph 'cyrl/DeSoft' 0xA662 : glyph-proc
 		local df : DivFrame para.diversityM 3
 		set-width df.width
 		include : df.markSet.capital
-		include : ExtendBelowBaseAnchors (-LongJut)
+		include : ExtendBelowBaseAnchors (-LongJut + 0.5 * Stroke)
 		include : CyrSoftDeShape CAP df.leftSB df.rightSB df.mvs
 
 	create-glyph 'cyrl/deSoft' 0xA663 : glyph-proc
 		local df : DivFrame para.diversityM 3
 		set-width df.width
 		include : df.markSet.e
-		include : ExtendBelowBaseAnchors (-LongJut)
+		include : ExtendBelowBaseAnchors (-LongJut + 0.5 * Stroke)
 		include : CyrSoftDeShape XH df.leftSB df.rightSB df.mvs
 
 	create-glyph 'cyrl/de.italic' : glyph-proc

font-src/glyphs/letter/cyrillic/dzzhe-zhwe.ptl

@@ -34,15 +34,15 @@ glyph-block Letter-Cyrillic-Dzzhe-Zhwe : begin
 			define df : DivFrame para.diversityM 3.5
 			set-width df.width
 			include : df.markSet.capital
-			include : ExtendBelowBaseAnchors (-LongJut)
+			include : ExtendBelowBaseAnchors (-LongJut + 0.5 * Stroke)
 			set-base-anchor 'cvDecompose' 0 0
 			include : CyrDzzheDeShape df CAP
 
 		create-glyph "cyrl/dzzhe.upright/left" : glyph-proc
 			define df : DivFrame para.diversityM 3.5
 			set-width df.width
 			include : df.markSet.e
-			include : ExtendBelowBaseAnchors (-LongJut)
+			include : ExtendBelowBaseAnchors (-LongJut + 0.5 * Stroke)
 			set-base-anchor 'cvDecompose' 0 0
 			include : CyrDzzheDeShape df XH
 

font-src/glyphs/letter/cyrillic/sha.ptl

@@ -7,42 +7,46 @@ glyph-module
 glyph-block Letter-Cyrillic-Sha : begin
 	glyph-block-import CommonShapes
 	glyph-block-import Common-Derivatives
-	glyph-block-import Letter-Shared-Shapes : RightwardTailedBar CyrDescender
+	glyph-block-import Letter-Shared-Shapes : RightwardTailedBar CyrDescender SerifFrame
 
-	define [CyrShaShape top df] : glyph-proc
+	define [CyrShaShape top df fInv] : glyph-proc
 		include : union
-			HBar.b df.leftSB df.rightSB 0
+			[if fInv HBar.t HBar.b] df.leftSB df.rightSB [if fInv top 0]
 			VBar.l df.leftSB 0 top df.mvs
 			VBar.r df.rightSB 0 top df.mvs
 			VBar.m df.middle 0 top df.mvs
 
 		if SLAB : begin
-			include : tagged 'serifLB' : HSerif.lb df.leftSB 0 SideJut
-			include : tagged 'serifRB' : HSerif.rb df.rightSB 0 SideJut
-
-			local jut : Jut * df.mvs / Stroke + O
-			if (df.width > 7 * para.refJut) : begin
-				include : tagged 'serifLT'
-					HSerif.mt (df.leftSB + 0.5 * df.mvs * HVContrast) top jut df.mvs
-				include : tagged 'serifMT'
-					HSerif.mt df.middle top jut df.mvs
-				include : tagged 'serifRT'
-					HSerif.mt (df.rightSB - 0.5 * df.mvs * HVContrast) top jut df.mvs
+			local sf : SerifFrame.fromDf df top 0 (swSerif -- df.mvs)
+
+			if fInv : then : begin
+				include : composite-proc sf.lt.outer sf.rt.outer
+				if sf.enoughSpaceForFullSerifs
+					include : composite-proc sf.lb.full sf.mb.full sf.rb.full
+					include : composite-proc sf.lb.outer sf.rb.outer
 			: else : begin
-				include : tagged 'serifLT' : HSerif.lt df.leftSB top SideJut
-				include : tagged 'serifRT' : HSerif.rt df.rightSB top SideJut
+				include : composite-proc sf.lb.outer sf.rb.outer
+				if sf.enoughSpaceForFullSerifs
+					include : composite-proc sf.lt.full sf.mt.full sf.rt.full
+					include : composite-proc sf.lt.outer sf.rt.outer
 
 	create-glyph 'cyrl/Sha' 0x428 : glyph-proc
 		local df : DivFrame para.diversityM 3
 		set-width df.width
 		include : df.markSet.capital
-		include : CyrShaShape CAP df
+		include : CyrShaShape CAP df false
 
 	create-glyph 'cyrl/sha.upright' : glyph-proc
 		local df : DivFrame para.diversityM 3
 		set-width df.width
 		include : df.markSet.e
-		include : CyrShaShape XH df
+		include : CyrShaShape XH df false
+
+	create-glyph 'cyrl/teThreeLeg' 0x1C85 : glyph-proc
+		local df : DivFrame para.diversityM 3
+		set-width df.width
+		include : df.markSet.e
+		include : CyrShaShape XH df true
 
 	alias 'smcpMTurned' 0xA7FA 'cyrl/sha.upright'
 

font-src/glyphs/letter/cyrillic/yeri.ptl

@@ -163,7 +163,7 @@ glyph-block Letter-Cyrillic-Yeri : begin
 			jut    -- jut
 			yStart -- (top - Hook - 0.5 * stroke)
 		eject-contour 'serifYeriLT'
-		include : VerticalHook.l xLeftBarLeftEdge (top - Hook - 0.5 * stroke) (xTopBarLeftEnd - xLeftBarLeftEdge - 0.5 * stroke) (-Hook) stroke
+		include : VerticalHook.l xLeftBarLeftEdge (top - TailY - 0.5 * stroke) (xTopBarLeftEnd - xLeftBarLeftEdge - 0.5 * stroke) (-TailY) stroke
 
 	define [CyrYeryShape Yeri df top fBackYer fTail] : glyph-proc
 		local sw : if fBackYer [AdviceStroke 3.25 df.div] df.mvs

font-src/glyphs/letter/greek/lower-epsilon.ptl

@@ -209,7 +209,7 @@ glyph-block Letter-Greek-Lower-Epsilon : begin
 				union [ze.Shape] [ze.AutoStartSerifL] [ze.AutoEndSerifL]
 
 		create-glyph "cyrl/DzjeKomi.\(suffix)" : glyph-proc
-			include : MarkSet.capDesc
+			include : MarkSet.capital
 			local ze : CyrZe slabTop slabBot CAP 0 SB RightSB StdBlend Hook
 			define [object stroke midy] : ze.Dim
 			include : ze.ShapeHalf
@@ -218,7 +218,7 @@ glyph-block Letter-Greek-Lower-Epsilon : begin
 			include : CyrDescender.rSideJut (RightSB - OX * 2) 0
 
 		create-glyph "cyrl/dzjeKomi.\(suffix)" : glyph-proc
-			include : MarkSet.p
+			include : MarkSet.e
 			local ze : CyrZe slabTop slabBot XH 0 SB RightSB StdBlend SHook
 			define [object stroke midy] : ze.Dim
 			include : ze.ShapeHalf
@@ -269,12 +269,12 @@ glyph-block Letter-Greek-Lower-Epsilon : begin
 			if SLAB : include sf2.rt.full
 
 		create-glyph "cyrl/KsiBase.\(suffix)" : glyph-proc
-			include : MarkSet.capital
+			include : MarkSet.capDesc
 			include : let [ze : CyrZe slabTop SLAB-NONE CAP 0 SB RightSB StdBlend Hook]
 				union [ze.KsiBaseShape] [ze.AutoStartSerifL]
 
 		create-glyph "cyrl/ksiBase.\(suffix)" : glyph-proc
-			include : MarkSet.e
+			include : MarkSet.p
 			include : let [ze : CyrZe slabTop SLAB-NONE XH 0 SB RightSB StdBlend SHook]
 				union [ze.KsiBaseShape] [ze.AutoStartSerifL]
 
@@ -308,7 +308,7 @@ glyph-block Letter-Greek-Lower-Epsilon : begin
 		RetroflexHook.r RightSB 0 (refSw -- [AdviceStroke2 2 3 XH])
 	derive-composites 'latn/epsilonRevRetroflexHook' 0x1D94 'latn/epsilonRev/descBase'
 		RetroflexHook.l SB      0 (refSw -- [AdviceStroke2 2 3 XH])
-		ExtendBelowBaseAnchors (-Hook)
+		ExtendBelowBaseAnchors Descender
 
 	CreateAccentedComposition 'cyrl/Ksi' 0x46E 'cyrl/KsiBase' 'caronAbove'
 	CreateAccentedComposition 'cyrl/ksi' 0x46F 'cyrl/ksiBase' 'caronAbove'