Add moon phase symbols (U+1F311 ... U+1F319, be5invis#1308).

xinhaoyuan · May 22, 2022 · dc050fb · dc050fb
1 parent f1b485e
commit dc050fb
Show file tree

Hide file tree

Showing 2 changed files with 49 additions and 1 deletion.
diff --git a/changes/14.0.1.md b/changes/14.0.1.md
@@ -1,2 +1,3 @@
  * Balance weight of `$` under heavy weights (#1302).
- * Balance serif weight of `7`'s serifed-straight variants (#1303).
+ * Balance serif weight of `7`'s serifed-straight variants (#1303).
+ * Add moon phase symbols (`U+1F311` ... `U+1F319`, #1308).
diff --git a/font-src/glyphs/symbol/geometric/masked.ptl b/font-src/glyphs/symbol/geometric/masked.ptl
@@ -255,3 +255,50 @@ glyph-block Symbol-Geometric-Masked : for-width-kinds WideWidth1
 			include : intersection
 				refer-glyph : MangleName 'blackCircle'
 				refer-glyph : MangleName 'whiteEqualTriangleDown'
+
+	do "Moon Phases"
+		alias [MangleName 'newMoon'] [MangleUnicode 0x1F311] [MangleName 'blackCircle']
+		alias [MangleName 'firstQuarterMoon'] [MangleUnicode 0x1F313] [MangleName "uni\(0x25D0)"]
+		alias [MangleName 'fullMoon'] [MangleUnicode 0x1F315] [MangleName 'whiteCircle']
+		alias [MangleName 'lastQuarterMoon'] [MangleUnicode 0x1F317] [MangleName "uni\(0x25D1)"]
+
+		define [WaxingMoonMask] : union
+			MaskLeft Geom.MidX
+			composite-proc
+				refer-glyph [MangleName 'blackCircle']
+				Upright
+				ScaleAround Geom.MidX Geom.MidY 0.625 (1 - 0.5 * GeometryStroke / Geom.Size)
+				Translate (-GeometryStroke * HVContrast) 0
+				Italify
+
+		create-glyph [MangleName 'waxingCrescentMoon'] [MangleUnicode 0x1F312] : glyph-proc
+			set-width Geom.Width
+			include : refer-glyph [MangleName 'whiteCircle']
+			include : intersection
+				refer-glyph [MangleName 'blackCircle']
+				WaxingMoonMask
+
+		create-glyph [MangleName 'waxingGibbousMoon'] [MangleUnicode 0x1F314] : glyph-proc
+			set-width Geom.Width
+			include : refer-glyph [MangleName 'whiteCircle']
+			include : difference
+				refer-glyph [MangleName 'blackCircle']
+				composite-proc
+					WaxingMoonMask
+					FlipAround Geom.MidX Geom.MidY
+
+		create-glyph [MangleName 'waningGibbousMoon'] [MangleUnicode 0x1F316] : glyph-proc
+			set-width Geom.Width
+			include : refer-glyph [MangleName 'whiteCircle']
+			include : difference
+				refer-glyph [MangleName 'blackCircle']
+				WaxingMoonMask
+
+		create-glyph [MangleName 'waningCrescentMoon'] [MangleUnicode 0x1F318] : glyph-proc
+			set-width Geom.Width
+			include : refer-glyph [MangleName 'whiteCircle']
+			include : intersection
+				refer-glyph [MangleName 'blackCircle']
+				composite-proc
+					WaxingMoonMask
+					FlipAround Geom.MidX Geom.MidY