diff --git a/changes/33.2.2.md b/changes/33.2.2.md new file mode 100644 index 000000000..f7b4a3a43 --- /dev/null +++ b/changes/33.2.2.md @@ -0,0 +1,2 @@ +* Refine shape of the following characters: + - THERE DOES NOT EXIST (`U+2204`). diff --git a/packages/font-glyphs/src/letter/latin/upper-e.ptl b/packages/font-glyphs/src/letter/latin/upper-e.ptl index 4612ed635..e3b4f496a 100644 --- a/packages/font-glyphs/src/letter/latin/upper-e.ptl +++ b/packages/font-glyphs/src/letter/latin/upper-e.ptl @@ -89,6 +89,7 @@ glyph-block Letter-Latin-Upper-E : begin select-variant 'revE' 0x18E (follow -- 'E') select-variant 'exists' 0x2203 (follow -- 'E/sansSerif') (shapeFrom -- 'revE') + CreateAccentedComposition 'notExists' 0x2204 'exists' 'longSlash' select-variant 'smcpE' 0x1D07 (follow -- 'E') CreateTurnedLetter 'turnSmcpE' 0x2C7B 'smcpE' HalfAdvance (XH / 2) diff --git a/packages/font-glyphs/src/marks/overlay.ptl b/packages/font-glyphs/src/marks/overlay.ptl index 5d8f758d4..e3e80f9bd 100644 --- a/packages/font-glyphs/src/marks/overlay.ptl +++ b/packages/font-glyphs/src/marks/overlay.ptl @@ -22,11 +22,11 @@ glyph-block Mark-Overlay : begin set-width 0 set-mark-anchor 'overlay' markMiddle (XH / 2) markMiddle (XH / 2) include : TildeShape - ttop -- XH / 2 + tildeHeight / 2 - tbot -- XH / 2 - tildeHeight / 2 - leftEnd -- markMiddle - tildeHalfWidth - rightEnd -- markMiddle + tildeHalfWidth - hs -- [AdviceStroke 4] / 2 + ttop -- (XH / 2 + tildeHeight / 2) + tbot -- (XH / 2 - tildeHeight / 2) + leftEnd -- (markMiddle - tildeHalfWidth) + rightEnd -- (markMiddle + tildeHalfWidth) + hs -- ([AdviceStroke 4] / 2) create-glyph 'dblTildeOver' : glyph-proc set-width 0 @@ -37,55 +37,55 @@ glyph-block Mark-Overlay : begin define [addTilde] : TildeShape ttop -- ttop tbot -- tbot - leftEnd -- markMiddle - tildeHalfWidth - rightEnd -- markMiddle + tildeHalfWidth - hs -- [AdviceStroke 4.5] / 2 + leftEnd -- (markMiddle - tildeHalfWidth) + rightEnd -- (markMiddle + tildeHalfWidth) + hs -- ([AdviceStroke 4.5] / 2) local shift : (ttop - tbot) * 1.2 include : addTilde include : ApparentTranslate 0 shift include : addTilde - include : ApparentTranslate 0 (-0.5 * shift) + include : ApparentTranslate 0 (shift * (-0.5)) create-glyph 'asciiTilde.symbolMid' : glyph-proc include : TildeShape - ttop -- SymbolMid + tildeHeight * 0.5 * asciiMarkZoomY - tbot -- SymbolMid - tildeHeight * 0.5 * asciiMarkZoomY + ttop -- (SymbolMid + tildeHeight * 0.5 * asciiMarkZoomY) + tbot -- (SymbolMid - tildeHeight * 0.5 * asciiMarkZoomY) leftEnd -- SB rightEnd -- RightSB - hs -- OperatorStroke / 2 + hs -- (OperatorStroke / 2) create-glyph 'tildeOverOnExension' : glyph-proc set-width 0 set-mark-anchor 'overlayOnExtension' markMiddle (XH / 2) markMiddle (XH / 2) include : TildeShape - ttop -- XH / 2 + tildeHeight / 3 - tbot -- XH / 2 - tildeHeight / 3 - leftEnd -- markMiddle - tildeHalfWidth - rightEnd -- markMiddle + tildeHalfWidth - hs -- [AdviceStroke 4] / 2 + ttop -- (XH / 2 + tildeHeight / 3) + tbot -- (XH / 2 - tildeHeight / 3) + leftEnd -- (markMiddle - tildeHalfWidth) + rightEnd -- (markMiddle + tildeHalfWidth) + hs -- ([AdviceStroke 4] / 2) create-glyph 'invLazySOver' : glyph-proc set-width 0 set-mark-anchor 'overlay' 0 0 0 0 local sw : AdviceStroke 4 - local gap : Math.max [AdviceStroke 6] (Width * 0.1) + local gap : Math.max (Width * 0.1) : AdviceStroke 6 local xStart : [HSwToV HalfStroke] + gap - local r : Math.max (0.75 * markExtend) sw + local r : Math.max (0.75 * markExtend) sw include : dispiro widths.center sw - straight.right.start xStart (2 * r) [heading Rightward] + straight.right.start (+xStart) (2 * (+r)) [heading Rightward] archv - g2.down.mid (xStart + r) r [heading Downward] + g2.down.mid ((+xStart) + (+r)) (+r) [heading Downward] arcvh - flat xStart 0 [heading Leftward] + flat (+xStart) 0 [heading Leftward] curl (-xStart) 0 [heading Leftward] archv - g2.down.mid (-xStart - r) (-r) [heading Downward] + g2.down.mid ((-xStart) + (-r)) (-r) [heading Downward] arcvh - straight.right.end (-xStart) (-2 * r) [heading Rightward] + straight.right.end (-xStart) (2 * (-r)) [heading Rightward] create-glyph 'barOver' 0x335 : glyph-proc set-width 0 @@ -107,7 +107,7 @@ glyph-block Mark-Overlay : begin create-glyph 'antiSlashOver' : glyph-proc set-width 0 set-mark-anchor 'overlay' markMiddle (XH / 2) markMiddle (XH / 2) - include : FlatSlashShape markMiddle (XH / 2) (0.5 * OverlayStroke) (0.75) (-0.3) + include : FlatSlashShape markMiddle (XH / 2) (0.5 * OverlayStroke) (+0.75) (-0.3) create-glyph 'ringOver' 0x20D8 : glyph-proc set-width 0 @@ -119,8 +119,8 @@ glyph-block Mark-Overlay : begin set-mark-anchor 'armOverlay' 0 0 0 0 include : dispiro widths.center OverlayStroke - flat (-markExtend) markExtend - curl markExtend (-markExtend) + flat (-markExtend) (+markExtend) + curl (+markExtend) (-markExtend) create-glyph 'legSlashOver' : glyph-proc set-width 0 @@ -128,7 +128,7 @@ glyph-block Mark-Overlay : begin include : dispiro widths.center OverlayStroke flat (-markExtend) (-markExtend) - curl markExtend markExtend + curl (+markExtend) (+markExtend) do "Strikes on entire letter on blank (bowl)" create-glyph 'hStrike' : glyph-proc @@ -150,31 +150,31 @@ glyph-block Mark-Overlay : begin set-width 0 set-mark-anchor 'strike' markMiddle (XH / 2) markMiddle (XH / 2) include : TildeShape - ttop -- XH / 2 + tildeHeight / 2 - tbot -- XH / 2 - tildeHeight / 2 - leftEnd -- markMiddle - Width / 2 - rightEnd -- markMiddle + Width / 2 - hs -- OverlayStroke / 2 + ttop -- (XH / 2 + tildeHeight / 2) + tbot -- (XH / 2 - tildeHeight / 2) + leftEnd -- (markMiddle - Width / 2) + rightEnd -- (markMiddle + Width / 2) + hs -- (OverlayStroke / 2) create-glyph 'tildeStrike2' : glyph-proc set-width 0 set-mark-anchor 'strike' markMiddle (XH / 2) markMiddle (XH / 2) include : TildeShape - ttop -- XH / 2 + tildeHeight / 2 - tbot -- XH / 2 - tildeHeight / 2 - leftEnd -- markMiddle - Width / 2 + SB - rightEnd -- markMiddle + Width / 2 - SB - hs -- OverlayStroke / 2 + ttop -- (XH / 2 + tildeHeight / 2) + tbot -- (XH / 2 - tildeHeight / 2) + leftEnd -- (markMiddle - Width / 2 + SB) + rightEnd -- (markMiddle + Width / 2 - SB) + hs -- (OverlayStroke / 2) create-glyph 'tildeStrikeDivMM' : glyph-proc set-width 0 set-mark-anchor 'strike' markMiddle (XH / 2) markMiddle (XH / 2) include : TildeShape - ttop -- XH / 2 + tildeHeight / 2 - tbot -- XH / 2 - tildeHeight / 2 - leftEnd -- markMiddle - Width / 2 * para.advanceScaleMM - rightEnd -- markMiddle + Width / 2 * para.advanceScaleMM - hs -- OverlayStroke / 2 + ttop -- (XH / 2 + tildeHeight / 2) + tbot -- (XH / 2 - tildeHeight / 2) + leftEnd -- (markMiddle - Width / 2 * para.advanceScaleMM) + rightEnd -- (markMiddle + Width / 2 * para.advanceScaleMM) + hs -- (OverlayStroke / 2) do "Slashes" local fine : AdviceStroke 6 @@ -283,7 +283,7 @@ glyph-block Mark-Overlay : begin set-width 0 local dx : Width * 0 local dy : Width * 0.3 - local gap : Math.max fine (Width / 10) + local gap : Math.max fine (Width * 0.1) set-mark-anchor 'slash' markMiddle (XH / 2) markMiddle (XH / 2) include : dispiro flat (Middle - dx - Width - gap) (XH / 2 - dy) [widths.center fine] @@ -303,7 +303,7 @@ glyph-block Mark-Overlay : begin create-glyph 'arrDblHStrokeOver' : glyph-proc set-width 0 local dx : Width * 0.3 - local gap : Math.max fine (Width / 10) + local gap : Math.max fine (Width * 0.1) set-mark-anchor 'slash' markMiddle (XH / 2) markMiddle (XH / 2) include : dispiro flat (Middle - Width - dx) (XH / 2 - gap) [widths.center fine] diff --git a/packages/font-glyphs/src/meta/unicode-knowledge.ptl b/packages/font-glyphs/src/meta/unicode-knowledge.ptl index d9682d48a..0ed6f82a7 100644 --- a/packages/font-glyphs/src/meta/unicode-knowledge.ptl +++ b/packages/font-glyphs/src/meta/unicode-knowledge.ptl @@ -384,16 +384,6 @@ export : define ccmpCombinations : list list {0x02E2 0x0322} 0x1DB3 # ˢ list {0xA71D 0x0322} 0x107B9 # ꜝ - # Short stroke overlays - list {0x0044 0x0335} 0xA7C7 # D - list {0x0053 0x0335} 0xA7C9 # S - list {0x0064 0x0335} 0xA7C8 # d - list {0x0073 0x0335} 0xA7CA # s - - # Long stroke overlays - list {0x004F 0x0336} 0xA74A # O - list {0x006F 0x0336} 0xA74B # o - # Smooth breathings list {0x0041 0x0486} 0xA7BA # A list {0x0049 0x0486} 0xA7BC # I diff --git a/packages/font-glyphs/src/symbol/math/negation.ptl b/packages/font-glyphs/src/symbol/math/negation.ptl index 270d2fd0e..2d2c7e9e9 100644 --- a/packages/font-glyphs/src/symbol/math/negation.ptl +++ b/packages/font-glyphs/src/symbol/math/negation.ptl @@ -41,4 +41,3 @@ glyph-block Symbol-Math-Negation : begin notGlyph.right null 0x22E1 'succeedsEqSlant' notGlyph null 0x2278 'lessGreater' notGlyph null 0x2279 'greaterLess' - notGlyph.right2 null 0x2204 'exists' (CAP - Descender / 2) (Descender / 2) 0.4 diff --git a/packages/font-glyphs/src/symbol/math/not-glyph-fn.ptl b/packages/font-glyphs/src/symbol/math/not-glyph-fn.ptl index 84005f963..2a41bc4cd 100644 --- a/packages/font-glyphs/src/symbol/math/not-glyph-fn.ptl +++ b/packages/font-glyphs/src/symbol/math/not-glyph-fn.ptl @@ -35,8 +35,6 @@ glyph-block NotGlyphFn : begin return : glyph-proc include : with-transform [Translate sh 0] [refer-glyph slashBarName] - define [notGlyph.right2] : with-params [newid unicode oldid top bot prop shift] : begin - notGlyph newid unicode oldid top bot prop (-NotGlyphSw) define [notGlyph.right] : with-params [newid unicode oldid top bot prop shift] : begin notGlyph newid unicode oldid top bot prop (-NotGlyphSw * 0.5) define [notGlyph.left] : with-params [newid unicode oldid top bot prop shift] : begin