Add Musical Symbol Fermata.

changes/33.2.2.md

@@ -11,3 +11,6 @@
   - LATIN SMALL LETTER VOLAPUK UE (`U+A79F`).
   - MODIFIER LETTER SMALL CAPITAL G WITH HOOK (`U+10794`).
   - MUSICAL SYMBOL DOUBLE SHARP (`U+1D12A`).
+* Add Characters:
+  - MUSICAL SYMBOL FERMATA (`U+1D110`).
+  - MUSICAL SYMBOL FERMATA BELOW (`U+1D111`).

packages/font-glyphs/src/marks/above.ptl

@@ -397,7 +397,7 @@ glyph-block Mark-Above : begin
 		include : OverlayTildeT TildeShape
 
 	create-glyph 'overlayTildeOperatorAboveMask' : glyph-proc
-		define FarRight :   Width  * 4
+		define FarRight : (+Width) * 4
 		define FarLeft  : (-Width) * 3
 		define FarAbove :   CAP    * 4
 
@@ -810,6 +810,22 @@ glyph-block Mark-Above : begin
 			include : DrawAt markMiddle yDot (fine * kdr)
 			include : ApparentTranslate 0 (fine * 0.5)
 			include : StdAnchors.mediumWide
+		create-glyph "largeFermataAbove.\(suffix)" : glyph-proc
+			set-width 0
+			local fine : AdviceStroke 6.5 asciiMarkZoomX
+			local arcSw : Math.min markStroke (fine * 1.25)
+			local radius : Math.max (asciiMarkZoomX * markExtend - DotRadius) (fine * 1.35)
+			local yDot : mix [mix aboveMarkMid aboveMarkBot asciiMarkZoomY] [mix aboveMarkMid aboveMarkTop asciiMarkZoomY] 0.375
+			include : dispiro
+				widths.lhs arcSw
+				g4.up.start (markMiddle - radius) yDot [heading Upward]
+				arcvh
+				g4.right.mid markMiddle (yDot + radius)
+				archv
+				g4.down.end (markMiddle + radius) yDot [heading Downward]
+			include : DrawAt markMiddle yDot (fine * kdr)
+			include : ApparentTranslate 0 (fine * (-0.5))
+			include : StdAnchors.extraWide
 		create-glyph "cyrlKavykaWithDotAbove.\(suffix)" : glyph-proc
 			set-width 0
 			local radius : markExtend * 1.5
@@ -829,6 +845,7 @@ glyph-block Mark-Above : begin
 
 	select-variant 'candrabinduAbove' 0x310 (follow -- 'diacriticDot')
 	turned 'fermataAbove' 0x352 'candrabinduAbove' markMiddle aboveMarkMid
+	select-variant 'largeFermataAbove' (follow -- 'diacriticDot')
 	select-variant 'cyrlKavykaWithDotAbove' null (follow -- 'diacriticDot')
 
 	alias 'graveToneAbove' 0x340 'graveAbove'

packages/font-glyphs/src/marks/below.ptl

@@ -217,6 +217,7 @@ glyph-block Mark-Below : begin
 	TurnAboveMarkToBelow 'downArrowHeadBelow'      null   'upArrowHeadAbove'
 	TurnAboveMarkToBelow 'descenderBarBelow'       null   'ascenderBarAbove'
 	TurnAboveMarkToBelow 'sbRsbUnderlineBelow'     null   'sbRsbOverlineAbove'
+	TurnAboveMarkToBelow 'largeCandrabinduBelow'   null   'largeFermataAbove'
 
 	create-glyph 'greaterAndUpArrowheadBelow' 0x0356 : glyph-proc
 		set-width 0

packages/font-glyphs/src/symbol/math/apl.ptl

@@ -280,6 +280,7 @@ glyph-block Symbol-Math-APL : begin
 	LinkAplFormForNwidWwid 'barArrowDown'
 	LinkAplFormForNwidWwid 'counterArrowLeft'
 	LinkAplFormForNwidWwid 'counterArrowRight'
+	LinkAplFormForNwidWwid 'countersink'
 	LinkAplFormForNwidWwid 'cwOpenCircleArrow'
 	LinkAplFormForNwidWwid 'dashArrowUp'
 	LinkAplFormForNwidWwid 'dottedCircle'
@@ -292,7 +293,7 @@ glyph-block Symbol-Math-APL : begin
 	LinkAplFormForNwidWwid 'vBarSquare'
 	LinkAplFormForNwidWwid 'zigZagArrow'
 	LinkAplFormForNwidWwid 'uni21CC'
-	LinkAplFormForNwidWwid 'uni2335'
+	LinkAplFormForNwidWwid 'uni231D'
 	LinkAplFormForNwidWwid 'uni238B'
 	LinkAplFormForNwidWwid 'uni25E0'
 	LinkAplFormForNwidWwid 'uni25E1'

packages/font-glyphs/src/symbol/punctuation/ascii-marks.ptl

@@ -14,9 +14,9 @@ glyph-block Symbol-Punctuation-Ascii-Marks : begin
 
 	define [MarkZoom w] : glyph-proc
 		include : Ungizmo
-		include : Translate (-w / 2) (-XH - AccentStackOffset)
+		include : Translate (w * (-0.5)) ((-XH) - AccentStackOffset)
 		include : Scale ((RightSB - SB) / (markExtend * 3))
-		include : Translate (w / 2) (XH + AccentStackOffset)
+		include : Translate (w * (+0.5)) ((+XH) + AccentStackOffset)
 		include : Regizmo
 
 	create-glyph 'asciiTilde.low' : composite-proc
@@ -67,3 +67,6 @@ glyph-block Symbol-Punctuation-Ascii-Marks : begin
 
 		derive-composites 'mdfShelf'     0x2FD 'markBaseSpace' 'shelfBelow'
 		derive-composites 'mdfOpenShelf' 0x2FE 'markBaseSpace' 'openShelfBelow'
+
+		derive-composites 'fermata'    0x1D110 'markDemoBaseSpace' 'largeFermataAbove'
+		derive-composites 'lowFermata' 0x1D111 'markDemoBaseSpace' 'largeCandrabinduBelow'