From 8ecd9bbd03d8580593f19df33923f98c35044c65 Mon Sep 17 00:00:00 2001
From: be5invis <belleve@typeof.net>
Date: Sun, 12 Nov 2023 03:18:48 -0800
Subject: [PATCH] Make some private dingbats perhaps for sample images

---
 font-src/glyphs/symbol/geometric/stars.ptl    | 72 +++++++++++++++++++
 .../coverage-export/block-data.mjs            |  3 +-
 2 files changed, 74 insertions(+), 1 deletion(-)

diff --git a/font-src/glyphs/symbol/geometric/stars.ptl b/font-src/glyphs/symbol/geometric/stars.ptl
index 3c1e04d21..b3b47afb6 100644
--- a/font-src/glyphs/symbol/geometric/stars.ptl
+++ b/font-src/glyphs/symbol/geometric/stars.ptl
@@ -100,3 +100,75 @@ glyph-block Symbol-Geometric-Stars : for-width-kinds WideWidth1
 						Geom.MidX + Geom.Size * mag * [Math.sin (-angle)]
 						Geom.MidY + Geom.Size * mag * [Math.cos (-angle)]
 						widths.center sw
+
+	# Dingbat
+	create-glyph [MangleName "crystalFlower"] [MangleUnicode 0xEF10] : glyph-proc
+		set-width Geom.Width
+
+		define [createPetals] : with-params [fnSelect fill kSw rotate expansion sw size] : glyph-proc
+			local sizeIn  : size * 0.45
+			local sizeExt : size * 1.0 - O
+			foreach [j : range 0 6] : if [fnSelect j] : begin
+				local anglePre  : 2 * Math.PI * ((j - expansion + rotate) / 6)
+				local angle     : 2 * Math.PI * ((j             + rotate) / 6)
+				local anglePost : 2 * Math.PI * ((j + expansion + rotate) / 6)
+
+				local z1x : sizeIn  * [Math.cos anglePre]
+				local z1y : sizeIn  * [Math.sin anglePre]
+				local z2x : sizeExt * [Math.cos angle]
+				local z2y : sizeExt * [Math.sin angle]
+				local z3x : sizeIn  * [Math.cos anglePost]
+				local z3y : sizeIn  * [Math.sin anglePost]
+
+				local outline : spiro-outline
+					corner 0 0
+					corner z3x z3y
+					corner z2x z2y
+					corner z1x z1y
+
+				if fill
+				: then : include outline
+				: else : include : intersection outline : union
+					ExtLineLhs 1 (kSw * sw) 0   0   z1x z1y
+					ExtLineLhs 1 sw         z1x z1y z2x z2y
+					ExtLineLhs 1 sw         z2x z2y z3x z3y
+					ExtLineLhs 1 (kSw * sw) z3x z3y 0   0
+
+		define [makeOverlay gap shape] : glyph-proc
+			foreach [j : range 0 6] : begin
+				local angle : 2 * Math.PI * (j / 6)
+				local tx : gap * [Math.cos angle]
+				local ty : gap * [Math.sin angle]
+				include : with-transform [ApparentTranslate tx ty] shape
+
+		local swOuter : AdviceStroke 10 [Math.sqrt Geom.Scalar]
+		local swInner : AdviceStroke 16 [Math.sqrt Geom.Scalar]
+		local gap : Math.min [AdviceStroke 12] (Geom.Size / 12)
+		include : union
+			createPetals
+				fnSelect  -- [function x : x % 2 == 0]
+				rotate    -- (-0.5)
+				expansion -- 0.6
+				fill      -- false
+				kSw       -- 1
+				sw        -- swInner
+				size      -- (0.625 * Geom.Size + swInner)
+			difference
+				createPetals
+					fnSelect  -- [function x true]
+					rotate    -- 0
+					expansion -- 0.5
+					fill      -- false
+					kSw       -- 0.5
+					sw        -- swOuter
+					size      -- Geom.Size
+				makeOverlay gap : createPetals
+					fnSelect  -- [function x : x % 2 == 0]
+					rotate    -- (-0.5)
+					expansion -- 0.6
+					fill      -- true
+					kSw       -- 1
+					sw        -- (swInner + gap)
+					size      -- (0.625 * Geom.Size + swInner)
+
+		include : ApparentTranslate Geom.MidX Geom.MidY
diff --git a/utility/export-data/coverage-export/block-data.mjs b/utility/export-data/coverage-export/block-data.mjs
index 7434d4ce8..9eac34df5 100644
--- a/utility/export-data/coverage-export/block-data.mjs
+++ b/utility/export-data/coverage-export/block-data.mjs
@@ -3,7 +3,8 @@ import UnicodeDataIndex from "@unicode/unicode-15.0.0";
 export async function collectBlockData() {
 	const BlockData = [
 		[[0xe0a0, 0xe0df], "Private Use Area — Powerline"],
-		[[0xee00, 0xee3f], "Private Use Area — Progress Bar"],
+		[[0xee00, 0xee0f], "Private Use Area — Progress Bar"],
+		[[0xef10, 0xef1f], "Private Use Area — Iosevka Private Dingbats"]
 	];
 
 	for (const id of UnicodeDataIndex.Block) {