diff --git a/changes/7.1.0.md b/changes/7.1.0.md index 0a6309b27..e33022bc8 100644 --- a/changes/7.1.0.md +++ b/changes/7.1.0.md @@ -1,5 +1,5 @@ * Add single-spacing TTC and Super TTC (#1112). - * Add Greek Kappa Symbol (`U+03F0`) and Greek Rho Symbol (`U+03F1`). + * Add Greek Kappa Symbol (`U+03F0`), Greek Rho Symbol (`U+03F1`), Greek Lunate Epsilon Symbol (`U+03F5`) and Greek Reversed Lunate Epsilon Symbol (`U+03F6`). * Add Hryvnia sign (`U+20B4`) (#1117). * Fix placement of diacritics over uppercase Greek (#1115). * Adjust metrics of punctuations in Aile and Etoile (#1115). diff --git a/font-src/glyphs/letter/greek.ptl b/font-src/glyphs/letter/greek.ptl index 7beacbafb..2d9a241c2 100644 --- a/font-src/glyphs/letter/greek.ptl +++ b/font-src/glyphs/letter/greek.ptl @@ -14,6 +14,7 @@ export : define [apply] : begin run-glyph-module './greek/lower-alpha.js' run-glyph-module './greek/lower-delta.js' run-glyph-module './greek/lower-epsilon.js' + run-glyph-module './greek/lower-lunate-epsilon.js' run-glyph-module './greek/lower-gamma.js' run-glyph-module './greek/lower-zeta.js' run-glyph-module './greek/lower-theta.js' diff --git a/font-src/glyphs/letter/greek/lower-lunate-epsilon.ptl b/font-src/glyphs/letter/greek/lower-lunate-epsilon.ptl new file mode 100644 index 000000000..070754af2 --- /dev/null +++ b/font-src/glyphs/letter/greek/lower-lunate-epsilon.ptl @@ -0,0 +1,35 @@ +$$include '../../../meta/macros.ptl' + +import [mix barmixL linreg clamp fallback] from '../../../support/utils' +import [DesignParameters] from '../../../meta/aesthetics' + +glyph-module + +glyph-block Letter-Greek-Lower-Rho : begin + glyph-block-import CommonShapes + glyph-block-import Common-Derivatives + + + create-glyph 'grek/lowerLunateEpsilon' 0x3F5 : glyph-proc + include : MarkSet.e + include : dispiro [widths.lhs] + flat RightSB XH [heading Leftward] + curl [mix SB RightSB 0.625] XH [heading Leftward] + archv + g4 (SB + O) [YSmoothMidL XH 0 SmallSmoothA SmallSmoothB] + arcvh + flat [mix SB RightSB 0.625] 0 [heading Rightward] + curl RightSB 0 [heading Rightward] + include : HBar (SB + HalfStroke * HVContrast) ([mix SB RightSB 0.75] + 0.25 * Stroke) (XH / 2) [AdviceStroke2 2 3 XH] + + create-glyph 'grek/lowerLunateEpsilonRev' 0x3F6 : glyph-proc + include : MarkSet.e + include : dispiro [widths.rhs] + flat SB XH [heading Rightward] + curl [mix RightSB SB 0.625] XH [heading Rightward] + archv + g4 (RightSB - O) [YSmoothMidR XH 0 SmallSmoothA SmallSmoothB] + arcvh + flat [mix RightSB SB 0.625] 0 [heading Leftward] + curl SB 0 [heading Leftward] + include : HBar ([mix RightSB SB 0.75] - 0.25 * Stroke) (RightSB - HalfStroke * HVContrast) (XH / 2) [AdviceStroke2 2 3 XH]