Force all variants of mathematical sans-serif characters to remove al…

…l serifs, including motion serifs (#1030).

changes/7.0.0-preview.4.md

@@ -0,0 +1 @@
+ - Force all variants of mathematical sans-serif characters to remove all serifs, including motion serifs (#1030).

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

@@ -1193,15 +1193,15 @@ glyph-block Autobuild-Pnonetic-Ligatures : begin
 
 	define stdShrink : clamp 0.75 0.9 : StrokeWidthBlend 0.78 0.9
 	createPhoneticLigatures 'phonetic' para.diversityM stdShrink stdShrink 1 1 : list
-		list 0x02A3 { 'd/phoneticLeft'          'zReduced'              } 'b'
+		list 0x02A3 { 'd/phoneticLeft'          'z/reduced'              } 'b'
 		list 0x02A4 { 'd/phoneticLeft'          'ezh'                   } 'if'
 		list 0x02A5 { 'd/phoneticLeft'          'zCurlyTail'            } 'if'
 		list 0x02A6 { 't.phoneticLeft'          's/phoneticRight'       } 'b'
 		list 0x02A7 { 't.phoneticLeft.extended' 'esh'                   } 'if'
 		list 0x02A8 { 't.phoneticLeft'          'cCurlyTail'            } 'b'
 		list 0x02A9 { 'f.phoneticLeft'          'eng'                   } 'if'
 		list 0x02AA { 'l/phoneticLeft'          's/phoneticRight'       } 'b'
-		list 0x02AB { 'l/phoneticLeft'          'zReduced'              } 'b'
+		list 0x02AB { 'l/phoneticLeft'          'z/reduced'              } 'b'
 		list 0xAB66 { 'd/phoneticLeft'          'zRTailBR'              } 'if'
 		list 0xAB67 { 't.phoneticLeft'          'sRTail'                } null
 

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

@@ -2,7 +2,7 @@
 $$include '../../meta/macros.ptl'
 
 import [linreg clamp mix fallback] from '../../support/utils'
-import [AnyCv DotlessOrNot getGrTree getGrMesh CvDecompose] from "../../support/gr"
+import [AnyCv DotlessOrNot getGrTree getGrMesh CvDecompose MathSansSerif] from "../../support/gr"
 extern Map
 extern Set
 
@@ -508,20 +508,20 @@ glyph-block Autobuild-Transformed-Mathematical : begin
 	define LowerGreek  : Array.from 'αβγδεζηθικλμνξοπρςστυφχψω∂ϵϑϰϕϱϖ' # Some are missing though
 	define ObliqueBlackboardBolds : Array.from '𝔻𝕕𝕖𝕚𝕛'
 
-	define [CreateMathDerivatives groupName tfm base letters overrides] : begin
+	define [CreateMathDerivatives groupName tfm gr base letters overrides] : begin
 		if recursive : return nothing
 		local jobs {}
 		local overrideMap : new Map (overrides || {})
 		foreach j [range 0 letters.length] : begin
 			local letter letters.(j)
 			local source : glyphStore.queryNameOfUnicode : letter.codePointAt 0
+			if (gr && [gr.get : query-glyph source]) : set source : gr.get : query-glyph source
 			local dst : base + j
 			if [overrideMap.has letter] : set dst [overrideMap.get letter]
 			if source : jobs.push { dst source }
-
 		createMathDerivedSeriesImpl groupName tfm jobs
 
-	define [CreateMathAliasableImpl groupName altGroupName tfm base letters overrides] : begin
+	define [CreateMathAliasableImpl groupName altGroupName tfm gr base letters overrides] : begin
 		if recursive : return nothing
 		local overrideMap : new Map (overrides || {})
 		foreach j [range 0 letters.length] : begin
@@ -532,61 +532,61 @@ glyph-block Autobuild-Transformed-Mathematical : begin
 			if [overrideMap.has letter] : set uDst [overrideMap.get letter]
 			if source : alias [wrapName groupName source] uDst source
 
-	define [CreateMathAliasable cond groupName altGroupName tfm base letters overrides] : begin
+	define [CreateMathAliasable cond groupName altGroupName tfm gr base letters overrides] : begin
 		if cond
-			CreateMathDerivatives   groupName              tfm base letters overrides
-			CreateMathAliasableImpl groupName altGroupName tfm base letters overrides
+			CreateMathDerivatives   groupName              tfm gr base letters overrides
+			CreateMathAliasableImpl groupName altGroupName tfm gr base letters overrides
 
 	# Math bold
-	CreateMathDerivatives 'mathbf' tfBold 0x1D400 UpperLatin
-	CreateMathDerivatives 'mathbf' tfBold 0x1D41A LowerLatin
-	CreateMathDerivatives 'mathbf' tfBold 0x1D6A8 UpperGreek
-	CreateMathDerivatives 'mathbf' tfBold 0x1D6C2 LowerGreek
-	CreateMathDerivatives 'mathbf' tfBold 0x1D7CE Digits
+	CreateMathDerivatives 'mathbf' tfBold null 0x1D400 UpperLatin
+	CreateMathDerivatives 'mathbf' tfBold null 0x1D41A LowerLatin
+	CreateMathDerivatives 'mathbf' tfBold null 0x1D6A8 UpperGreek
+	CreateMathDerivatives 'mathbf' tfBold null 0x1D6C2 LowerGreek
+	CreateMathDerivatives 'mathbf' tfBold null 0x1D7CE Digits
 
 	# Math Italic
-	CreateMathDerivatives 'mathit' tfItalic 0x1D434 UpperLatin
-	CreateMathDerivatives 'mathit' tfItalic 0x1D44E LowerLatin2 : list
+	CreateMathDerivatives 'mathit' tfItalic null 0x1D434 UpperLatin
+	CreateMathDerivatives 'mathit' tfItalic null 0x1D44E LowerLatin2 : list
 		list 'h' 0x210E
 		list 'ı' 0x1D6A4
 		list 'ȷ' 0x1D6A5
-	CreateMathDerivatives 'mathit' tfItalic 0x1D6E2 UpperGreek
-	CreateMathDerivatives 'mathit' tfItalic 0x1D6FC LowerGreek
+	CreateMathDerivatives 'mathit' tfItalic null 0x1D6E2 UpperGreek
+	CreateMathDerivatives 'mathit' tfItalic null 0x1D6FC LowerGreek
 
 
 	# Math Bold Italic
-	CreateMathDerivatives 'mathbi' tfBoldItalic 0x1D468 UpperLatin
-	CreateMathDerivatives 'mathbi' tfBoldItalic 0x1D482 LowerLatin
-	CreateMathDerivatives 'mathbi' tfBoldItalic 0x1D71C UpperGreek
-	CreateMathDerivatives 'mathbi' tfBoldItalic 0x1D736 LowerGreek
+	CreateMathDerivatives 'mathbi' tfBoldItalic null 0x1D468 UpperLatin
+	CreateMathDerivatives 'mathbi' tfBoldItalic null 0x1D482 LowerLatin
+	CreateMathDerivatives 'mathbi' tfBoldItalic null 0x1D71C UpperGreek
+	CreateMathDerivatives 'mathbi' tfBoldItalic null 0x1D736 LowerGreek
 
 	# Math Sans-serif
-	CreateMathAliasable SLAB 'mathss' null     tfSans 0x1D5A0 UpperLatin
-	CreateMathAliasable SLAB 'mathss' null     tfSans 0x1D5BA LowerLatin
-	CreateMathAliasable SLAB 'mathss' null     tfSans 0x1D7E2 Digits
+	CreateMathDerivatives 'mathss' tfSans MathSansSerif 0x1D5A0 UpperLatin
+	CreateMathDerivatives 'mathss' tfSans MathSansSerif 0x1D5BA LowerLatin
+	CreateMathDerivatives 'mathss' tfSans MathSansSerif 0x1D7E2 Digits
 
-	CreateMathAliasable SLAB 'mathsi' 'mathit' tfSansItalic 0x1D608 UpperLatin
-	CreateMathAliasable SLAB 'mathsi' 'mathit' tfSansItalic 0x1D622 LowerLatin
+	CreateMathDerivatives 'mathsi' tfSansItalic MathSansSerif 0x1D608 UpperLatin
+	CreateMathDerivatives 'mathsi' tfSansItalic MathSansSerif 0x1D622 LowerLatin
 
-	CreateMathAliasable SLAB 'mathsb' 'mathbf' tfSansBold 0x1D5D4 UpperLatin
-	CreateMathAliasable SLAB 'mathsb' 'mathbf' tfSansBold 0x1D5EE LowerLatin
-	CreateMathAliasable SLAB 'mathsb' 'mathbf' tfSansBold 0x1D756 UpperGreek
-	CreateMathAliasable SLAB 'mathsb' 'mathbf' tfSansBold 0x1D770 LowerGreek
-	CreateMathAliasable SLAB 'mathsb' 'mathbf' tfSansBold 0x1D7EC Digits
+	CreateMathDerivatives 'mathsb' tfSansBold MathSansSerif 0x1D5D4 UpperLatin
+	CreateMathDerivatives 'mathsb' tfSansBold MathSansSerif 0x1D5EE LowerLatin
+	CreateMathDerivatives 'mathsb' tfSansBold MathSansSerif 0x1D756 UpperGreek
+	CreateMathDerivatives 'mathsb' tfSansBold MathSansSerif 0x1D770 LowerGreek
+	CreateMathDerivatives 'mathsb' tfSansBold MathSansSerif 0x1D7EC Digits
 
-	CreateMathAliasable SLAB 'mathsz' 'mathbi' tfSansBoldItalic 0x1D63C UpperLatin
-	CreateMathAliasable SLAB 'mathsz' 'mathbi' tfSansBoldItalic 0x1D656 LowerLatin
-	CreateMathAliasable SLAB 'mathsz' 'mathbi' tfSansBoldItalic 0x1D790 UpperGreek
-	CreateMathAliasable SLAB 'mathsz' 'mathbi' tfSansBoldItalic 0x1D7AA LowerGreek
+	CreateMathDerivatives 'mathsz' tfSansBoldItalic MathSansSerif 0x1D63C UpperLatin
+	CreateMathDerivatives 'mathsz' tfSansBoldItalic MathSansSerif 0x1D656 LowerLatin
+	CreateMathDerivatives 'mathsz' tfSansBoldItalic MathSansSerif 0x1D790 UpperGreek
+	CreateMathDerivatives 'mathsz' tfSansBoldItalic MathSansSerif 0x1D7AA LowerGreek
 
 	# Math Typewriter
 	local doTypewriter para.isQuasiProportional
-	CreateMathAliasable doTypewriter 'mathtt' null tfTypeWriter 0x1D670 UpperLatin
-	CreateMathAliasable doTypewriter 'mathtt' null tfTypeWriter 0x1D68A LowerLatin
-	CreateMathAliasable doTypewriter 'mathtt' null tfTypeWriter 0x1D7F6 Digits
+	CreateMathAliasable doTypewriter 'mathtt' null tfTypeWriter null 0x1D670 UpperLatin
+	CreateMathAliasable doTypewriter 'mathtt' null tfTypeWriter null 0x1D68A LowerLatin
+	CreateMathAliasable doTypewriter 'mathtt' null tfTypeWriter null 0x1D7F6 Digits
 
 	# Italic blackboard bold
-	CreateMathDerivatives 'mathit' tfItalic 0x2145  ObliqueBlackboardBolds
+	CreateMathDerivatives 'mathit' tfItalic null 0x2145  ObliqueBlackboardBolds
 
 glyph-block Autobuild-Rhotic : begin
 	glyph-block-import Marks : markFine

font-src/glyphs/common/derivatives.ptl

@@ -104,6 +104,14 @@ glyph-block Common-Derivatives : begin
 				include : FlipAround x y
 				set currentGlyph.autoRefPriority [query-glyph src].autoRefPriority
 
+	define [link-reduced-variant dstGid srcGid gr] : begin
+		if [not : query-glyph dstGid] : select-variant dstGid (shapeFrom -- srcGid)
+		if (gr && [query-glyph srcGid]) : gr.set [query-glyph srcGid] dstGid
+
+	define [alias-reduced-variant dstGid srcGid shapeGid gr] : begin
+		alias dstGid null shapeGid
+		if (gr && [query-glyph srcGid]) : gr.set [query-glyph srcGid] dstGid
+
 	define [HalfAdvance] : this.advanceWidth / 2
 
 	define [TurnMarks k fnOverride] : glyph-proc
@@ -137,7 +145,7 @@ glyph-block Common-Derivatives : begin
 		return : VCombine newid unicode id id spacing
 
 	glyph-block-export select-variant orthographic-italic refer-glyph query-glyph
-	glyph-block-export derive-glyphs derive-composites
+	glyph-block-export derive-glyphs derive-composites link-reduced-variant alias-reduced-variant
 	glyph-block-export alias turned HDual HCombine VDual VCombine glyph-is-needed
 	glyph-block-export HalfAdvance TurnMarks
 

font-src/glyphs/letter/greek/upper-gamma.ptl

@@ -1,6 +1,7 @@
 $$include '../../../meta/macros.ptl'
 
 import [mix barmixL linreg clamp fallback] from '../../../support/utils'
+import [MathSansSerif] from '../../../support/gr'
 import [DesignParameters] from '../../../meta/aesthetics'
 
 glyph-module
@@ -71,6 +72,7 @@ glyph-block Letter-Greek-Upper-Gamma: begin
 			include : VBarRight (RightSB - OX) XH (XH + Accent)
 
 	select-variant 'grek/Gamma' 0x393
+	link-reduced-variant 'grek/Gamma/sansSerif' 'grek/Gamma' MathSansSerif
 	select-variant 'cyrl/Ghe' 0x413 (shapeFrom -- 'grek/Gamma')
 	select-variant 'cyrl/GheDescender' 0x4F6 (follow -- 'cyrl/Ghe')
 	select-variant 'cyrl/GheDHook' (follow -- 'cyrl/Ghe')

font-src/glyphs/letter/latin/c.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -240,6 +240,7 @@ glyph-block Letter-Latin-C : begin
 			include : IotifiedEsShape df XH SmallSmoothA SmallSmoothB
 
 	select-variant 'C' 'C'
+	link-reduced-variant 'C/sansSerif' 'C' MathSansSerif
 	select-variant 'revC' 0x2183 (follow -- 'C')
 	alias 'cyrl/Es' 0x421 'C'
 	alias 'grek/lunateSigma' 0x3F9 'C.serifless'
@@ -249,6 +250,7 @@ glyph-block Letter-Latin-C : begin
 	select-variant 'smcpC' 0x1D04 (follow -- 'C')
 
 	select-variant 'c' 'c'
+	link-reduced-variant 'c/sansSerif' 'c' MathSansSerif
 	select-variant 'revSmallC' 0x2184 (follow -- 'c')
 	alias 'cyrl/es' 0x441 'c'
 	alias 'grek/lunateSmallSigma' 0x3F2 'c.serifless'

font-src/glyphs/letter/latin/k.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 import [maskBit maskBits popCountByte] from '../../../support/mask-bit'
 
 glyph-module
@@ -395,7 +395,9 @@ glyph-block Letter-Latin-K : begin
 				CenterBottomSerif (SB + [KBalance slabTop straightBar] + HalfStroke * HVContrast) 0 Jut
 
 	select-variant 'K' 'K'
+	link-reduced-variant 'K/sansSerif' 'K' MathSansSerif
 	alias 'grek/Kappa' 0x39A 'K'
+	alias-reduced-variant 'grek/Kappa/sansSerif' 'grek/Kappa' 'K/sansSerif' MathSansSerif
 	select-variant 'cyrl/KaStroke' 0x49E (shapeFrom -- 'KBar') (follow -- 'cyrl/Ka')
 	alias 'letterLike/kelvinSign' 0x212A 'K'
 	select-variant 'KDescender' 0x2C69 (follow -- 'K')
@@ -405,6 +407,7 @@ glyph-block Letter-Latin-K : begin
 	select-variant 'cyrl/KaHook' 0x4C3 (shapeFrom -- 'K') (follow -- 'cyrl/KaHook')
 
 	select-variant 'k' 'k'
+	link-reduced-variant 'k/sansSerif' 'k' MathSansSerif
 	select-variant 'kDescender' 0x2C6A
 	select-variant 'cyrl/kaStroke' 0x49F (shapeFrom -- 'kBar') (follow -- 'cyrl/Ka')
 

font-src/glyphs/letter/latin/lower-a.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -184,6 +184,7 @@ glyph-block Letter-Latin-Lower-A : begin
 		include : RightwardTailedBar RightSB 0 (XH - SmallSmoothB)
 
 	select-variant 'a' 'a'
+	link-reduced-variant 'a/sansSerif' 'a' MathSansSerif
 	alias 'cyrl/a' 0x430 'a'
 
 	create-glyph 'largescripta' 0x2C6D : glyph-proc

font-src/glyphs/letter/latin/lower-b.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -56,6 +56,7 @@ glyph-block Letter-Latin-Lower-B : begin
 		include : tagged 'serifLT' : LeftwardTopSerif SB CAP SideJut
 
 	select-variant 'b' 'b'
+	link-reduced-variant 'b/sansSerif' 'b' MathSansSerif
 
 	create-glyph 'bhooktop.toothed' : glyph-proc
 		include : MarkSet.b

font-src/glyphs/letter/latin/lower-d.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -61,7 +61,8 @@ glyph-block Letter-Latin-Lower-D : begin
 		include : tagged 'serifRT' : LeftwardTopSerif (RightSB - Stroke * HVContrast) CAP SideJut
 
 	select-variant 'd' 'd'
-	select-variant 'd/phoneticLeft' (shapeFrom -- 'd')
+	link-reduced-variant 'd/sansSerif' 'd' MathSansSerif
+	link-reduced-variant 'd/phoneticLeft' 'd'
 
 	derive-glyphs 'dcroat' 0x111 'd' : lambda [src sel] : glyph-proc
 		include [refer-glyph src] AS_BASE

font-src/glyphs/letter/latin/lower-f.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -160,6 +160,7 @@ glyph-block Letter-Latin-Lower-F : begin
 		turned "turnf.\(suffix)" nothing "f.\(suffix)" df.middle (XH / 2) [df.markSet.(mkTurn)]
 
 	select-variant 'f' 'f'
+	link-reduced-variant 'f/sansSerif' 'f' MathSansSerif
 	select-variant 'turnf' 0x25F (follow -- 'f')
 	select-variant 'lenisf' 0xAB35 (shapeFrom -- 'f')
 	select-variant 'fltail' 0x192  (shapeFrom -- 'f')

font-src/glyphs/letter/latin/lower-g.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -153,6 +153,7 @@ glyph-block Letter-Latin-Lower-G : begin
 		include : SmallGSingleStoreyFlatHookShape [DivFrame 1] (XH - SmallSmoothB)
 
 	select-variant 'g' 'g'
+	link-reduced-variant 'g/sansSerif' 'g' MathSansSerif
 	turned 'turng' 0x1D77 'g' Middle [mix Descender XH 0.5]
 
 	alias 'scriptg' 0x261 : if SLAB 'g.singleStoreySerifed' 'g.singleStoreySerifless'

font-src/glyphs/letter/latin/lower-h.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -72,6 +72,7 @@ glyph-block Letter-Latin-Lower-H : begin
 		include : LeftwardTopSerif SB CAP SideJut
 
 	select-variant 'h' 'h'
+	link-reduced-variant 'h/sansSerif' 'h' MathSansSerif
 	select-variant 'cyrl/shha' 0x4BB (shapeFrom -- 'h')
 	derive-composites 'cyrl/shhaDescender' 0x527 'cyrl/shha' [CyrDescender RightSB]
 

font-src/glyphs/letter/latin/lower-i.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -264,14 +264,17 @@ glyph-block Letter-Latin-Lower-I : begin
 		include : DTailDotlessIShape df XH (addTopSerif -- true)
 
 	select-variant 'dotlessi' 0x131
+	link-reduced-variant 'dotlessi/sansSerif' 'dotlessi' MathSansSerif
 	select-variant 'dotlessi/compLigRight' (shapeFrom -- 'dotlessi')
 	create-glyph 'iogonek.dotless' : glyph-proc
 		include [refer-glyph 'dotlessi'] AS_BASE
 		include : refer-glyph "ogonekBelow"
 
 	CreateDottedComposition 'dotlessi' 'i' 'i'
+	CreateDottedComposition 'dotlessi/sansSerif' 'i/sansSerif' null
 	CreateDottedComposition 'dotlessi' 'cyrl/Ukrainiani' 0x456
 	CreateDottedComposition 'dotlessi/compLigRight' 'i/compLigRight' null
+	link-reduced-variant 'i/sansSerif' 'i' MathSansSerif
 
 	alias 'grek/iota.flatTailed' null 'dotlessi.flatTailed'
 	alias 'grek/iota.serifedFlatTailed' null 'dotlessi.serifedFlatTailed'

font-src/glyphs/letter/latin/lower-j.ptl

@@ -2,7 +2,7 @@ $$include '../../../meta/macros.ptl'
 
 import [mix linreg clamp fallback] from '../../../support/utils'
 import [DesignParameters] from '../../../meta/aesthetics'
-import [Dotless CvDecompose] from "../../../support/gr"
+import [Dotless CvDecompose MathSansSerif] from "../../../support/gr"
 
 glyph-module
 
@@ -146,9 +146,12 @@ glyph-block Letter-Latin-Lower-J : begin
 		include : OverrideJMarks df (JBalance * df.div)
 
 	select-variant 'dotlessj' 0x237
+	link-reduced-variant 'dotlessj/sansSerif' 'dotlessj' MathSansSerif
 	CreateDottedComposition 'dotlessj' 'j' 'j'
 	CreateDottedComposition 'dotlessj' 'grek/yot' 0x3F3
 	CreateDottedComposition 'dotlessj' 'cyrl/je' 0x458
+	CreateDottedComposition 'dotlessj/sansSerif' 'j/sansSerif' null
+	link-reduced-variant 'j/sansSerif' 'j' MathSansSerif
 
 	create-glyph 'dotlessjCurlyTail' : glyph-proc
 		include : MarkSet.p