@genocode/core 0.1.0 → 0.2.0

package/dist/genetics.d.ts

@@ -0,0 +1,45 @@
+import type { CheckResult } from "./checker.js";
+import { type GeneInfo } from "./genes.js";
+import { type Value } from "./values.js";
+/** Gene values by full name. A gene that isn't listed has the value written in the program. */
+export type GeneValues = ReadonlyMap<string, Value>;
+/** A creature for breeding and morphing: its genes, and the values they have. */
+export interface GeneSet {
+    genes: readonly GeneInfo[];
+    values?: GeneValues;
+}
+export interface GeneticsOptions {
+    /** A random number from 0 up to 1, such as `Math.random` or `mulberry32(seed)`. */
+    random: () => number;
+    /** Full names of genes to keep as they are. */
+    locked?: ReadonlySet<string>;
+}
+export interface MutateOptions extends GeneticsOptions {
+    /** How far genes move, from 0 to 1. */
+    strength: number;
+    /** The chance that each gene is changed. ½ unless the app lets the user choose. */
+    rate?: number;
+}
+/** Every gene's value: the one given, or the one written in the program. */
+export declare function valuesOf(genes: readonly GeneInfo[], values?: GeneValues): Map<string, Value>;
+/** A mutated copy of the gene values. */
+export declare function mutate(genes: readonly GeneInfo[], values: GeneValues | undefined, options: MutateOptions): Map<string, Value>;
+/** The gene values of a child of A and B. The child has A's program. */
+export declare function breed(a: GeneSet, b: GeneSet, options: GeneticsOptions): Map<string, Value>;
+/**
+ * The creature at `t` (0 to 1) between A and B: which program it has (A's before the halfway
+ * point, B's from it on) and its gene values. Values aren't limited to either range.
+ */
+export declare function morph(a: GeneSet, b: GeneSet, t: number): {
+    from: "a" | "b";
+    values: Map<string, Value>;
+};
+/**
+ * The program's text with each gene's value written in, laid out by the formatter. Genes whose
+ * value hasn't changed keep the text they were written with. The automatic `seed` gene has no
+ * line to write into, so it isn't saved.
+ */
+export declare function writeGenes(program: CheckResult, values: GeneValues): string;
+/** A gene value written readably, and still within the gene's range. */
+export declare function geneLiteral(g: GeneInfo, v: Value): string;
+//# sourceMappingURL=genetics.d.ts.map

package/dist/genetics.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"genetics.d.ts","sourceRoot":"","sources":["../src/genetics.ts"],"names":[],"mappings":"AAGA,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,cAAc,CAAC;AAGhD,OAAO,EAAY,KAAK,QAAQ,EAAe,MAAM,YAAY,CAAC;AAClE,OAAO,EAML,KAAK,KAAK,EAEX,MAAM,aAAa,CAAC;AAErB,+FAA+F;AAC/F,MAAM,MAAM,UAAU,GAAG,WAAW,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC;AAEpD,iFAAiF;AACjF,MAAM,WAAW,OAAO;IACtB,KAAK,EAAE,SAAS,QAAQ,EAAE,CAAC;IAC3B,MAAM,CAAC,EAAE,UAAU,CAAC;CACrB;AAED,MAAM,WAAW,eAAe;IAC9B,mFAAmF;IACnF,MAAM,EAAE,MAAM,MAAM,CAAC;IACrB,+CAA+C;IAC/C,MAAM,CAAC,EAAE,WAAW,CAAC,MAAM,CAAC,CAAC;CAC9B;AAED,MAAM,WAAW,aAAc,SAAQ,eAAe;IACpD,uCAAuC;IACvC,QAAQ,EAAE,MAAM,CAAC;IACjB,mFAAmF;IACnF,IAAI,CAAC,EAAE,MAAM,CAAC;CACf;AAED,4EAA4E;AAC5E,wBAAgB,QAAQ,CAAC,KAAK,EAAE,SAAS,QAAQ,EAAE,EAAE,MAAM,CAAC,EAAE,UAAU,GAAG,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,CAE5F;AAID,yCAAyC;AACzC,wBAAgB,MAAM,CACpB,KAAK,EAAE,SAAS,QAAQ,EAAE,EAC1B,MAAM,EAAE,UAAU,GAAG,SAAS,EAC9B,OAAO,EAAE,aAAa,GACrB,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,CAUpB;AAqED,wEAAwE;AACxE,wBAAgB,KAAK,CAAC,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,OAAO,EAAE,OAAO,EAAE,eAAe,GAAG,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,CAY1F;AA4DD;;;GAGG;AACH,wBAAgB,KAAK,CACnB,CAAC,EAAE,OAAO,EACV,CAAC,EAAE,OAAO,EACV,CAAC,EAAE,MAAM,GACR;IAAE,IAAI,EAAE,GAAG,GAAG,GAAG,CAAC;IAAC,MAAM,EAAE,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,CAAA;CAAE,CAgBjD;AAsBD;;;;GAIG;AACH,wBAAgB,UAAU,CAAC,OAAO,EAAE,WAAW,EAAE,MAAM,EAAE,UAAU,GAAG,MAAM,CAc3E;AAED,wEAAwE;AACxE,wBAAgB,WAAW,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,KAAK,GAAG,MAAM,CAkBzD"}

package/dist/genetics.js

@@ -0,0 +1,268 @@
+// Mutating, breeding and morphing genes (docs/LANGUAGE.md section 19), and writing a creature's
+// gene values back into its program, which is how a bred creature is saved.
+import { hueDelta, mixHue, wrapHue } from "./colour.js";
+import { formatText } from "./format.js";
+import { inHueArc } from "./genes.js";
+import { formatValue, isColour, isVec, valuesEqual, } from "./values.js";
+/** Every gene's value: the one given, or the one written in the program. */
+export function valuesOf(genes, values) {
+    return new Map(genes.map((g) => [g.fullName, values?.get(g.fullName) ?? g.value]));
+}
+// ---------- mutation (section 19.1) ----------
+/** A mutated copy of the gene values. */
+export function mutate(genes, values, options) {
+    const { random, strength } = options;
+    const rate = options.rate ?? 0.5;
+    const out = valuesOf(genes, values);
+    for (const g of genes) {
+        if (options.locked?.has(g.fullName))
+            continue;
+        if (random() >= rate)
+            continue;
+        out.set(g.fullName, mutateGene(g, out.get(g.fullName), strength, random));
+    }
+    return out;
+}
+function mutateGene(g, v, strength, random) {
+    if (isSeed(g))
+        return random() < strength ? Math.floor(random() * 2 ** 32) : v;
+    switch (g.kind) {
+        case "bool":
+            return random() < strength ? !v : v;
+        case "choice":
+        case "part": {
+            if (random() >= strength)
+                return v;
+            const others = g.options.filter((o) => !valuesEqual(o, v));
+            return others.length > 0 ? others[Math.floor(random() * others.length)] : v;
+        }
+        case "number":
+            return mutateNumber(v, g.min, g.max, g, strength, random);
+        case "vector": {
+            const [a, lo, hi] = [v, g.min, g.max];
+            const axis = (k) => mutateNumber(a[k], lo[k], hi[k], g, strength, random);
+            return { type: "vector", x: axis("x"), y: axis("y"), z: axis("z") };
+        }
+        case "colour": {
+            const [c, lo, hi] = [v, g.min, g.max];
+            const channel = (k) => mutateNumber(c[k], lo[k], hi[k], g, strength, random);
+            return {
+                type: "colour",
+                h: mutateHue(c.h, g.hue, strength, random),
+                s: channel("s"),
+                v: channel("v"),
+                a: channel("a"),
+            };
+        }
+    }
+}
+/** A uniformly random point in `v ± strength × (max − min)`, kept within min..max. */
+function mutateNumber(v, min, max, g, strength, random) {
+    if (min === max)
+        return v;
+    if (g.log) {
+        const r = strength * (Math.log(max) - Math.log(min));
+        const l = Math.log(v);
+        const lo = Math.max(Math.log(min), l - r);
+        const hi = Math.min(Math.log(max), l + r);
+        return clamp(Math.exp(lo + random() * (hi - lo)), min, max);
+    }
+    const r = strength * (max - min);
+    const lo = Math.max(min, v - r);
+    const hi = Math.min(max, v + r);
+    return snap(lo + random() * (hi - lo), min, max, g.step);
+}
+/** Hue: the window `h ± strength × arc` taken round the circle, limited to the arc unless it's whole. */
+function mutateHue(h, arc, strength, random) {
+    const r = strength * arc.length;
+    if (arc.whole)
+        return wrapHue(h + (random() * 2 - 1) * r);
+    const at = wrapHue(h - arc.start);
+    const lo = Math.max(0, at - r);
+    const hi = Math.min(arc.length, at + r);
+    return wrapHue(arc.start + lo + random() * (hi - lo));
+}
+// ---------- breeding (section 19.2) ----------
+/** The gene values of a child of A and B. The child has A's program. */
+export function breed(a, b, options) {
+    const { random } = options;
+    const av = valuesOf(a.genes, a.values);
+    const bv = valuesOf(b.genes, b.values);
+    const bGenes = new Map(b.genes.map((g) => [g.fullName, g]));
+    const out = new Map(av);
+    for (const g of a.genes) {
+        const match = bGenes.get(g.fullName);
+        if (options.locked?.has(g.fullName) || match === undefined || match.kind !== g.kind)
+            continue;
+        out.set(g.fullName, breedGene(g, av.get(g.fullName), bv.get(g.fullName), random));
+    }
+    return out;
+}
+function breedGene(g, x, y, random) {
+    if (isSeed(g) || g.kind === "bool")
+        return random() < 0.5 ? x : y;
+    if (g.kind === "choice" || g.kind === "part") {
+        const pick = random() < 0.5 ? x : y;
+        // B's choice only counts if it's one of A's options.
+        return g.options.some((o) => valuesEqual(o, pick)) ? pick : x;
+    }
+    if (g.kind === "number") {
+        return breedNumber(x, y, g.min, g.max, g, random);
+    }
+    if (g.kind === "vector" && isVec(x) && isVec(y)) {
+        const [lo, hi] = [g.min, g.max];
+        const axis = (k) => breedNumber(x[k], y[k], lo[k], hi[k], g, random);
+        return { type: "vector", x: axis("x"), y: axis("y"), z: axis("z") };
+    }
+    if (g.kind === "colour" && isColour(x) && isColour(y)) {
+        const [lo, hi] = [g.min, g.max];
+        const channel = (k) => breedNumber(x[k], y[k], lo[k], hi[k], g, random);
+        return {
+            type: "colour",
+            h: breedHue(x.h, y.h, g.hue, random),
+            s: channel("s"),
+            v: channel("v"),
+            a: channel("a"),
+        };
+    }
+    return x;
+}
+/** Half the time a random point between the two, otherwise one or the other; kept within A's range. */
+function breedNumber(x, y, min, max, g, random) {
+    let v;
+    if (random() < 0.5) {
+        const t = random();
+        v =
+            g.log && x > 0 && y > 0
+                ? Math.exp(Math.log(x) + t * (Math.log(y) - Math.log(x)))
+                : x + t * (y - x);
+    }
+    else {
+        v = random() < 0.5 ? x : y;
+    }
+    return snap(v, min, max, g.step);
+}
+function breedHue(x, y, arc, random) {
+    const h = random() < 0.5 ? mixHue(x, y, random()) : random() < 0.5 ? x : y;
+    return clampHue(h, arc);
+}
+// ---------- morphing (section 19.3) ----------
+/**
+ * The creature at `t` (0 to 1) between A and B: which program it has (A's before the halfway
+ * point, B's from it on) and its gene values. Values aren't limited to either range.
+ */
+export function morph(a, b, t) {
+    const from = t < 0.5 ? "a" : "b";
+    const own = from === "a" ? a : b;
+    const other = from === "a" ? b : a;
+    const av = valuesOf(a.genes, a.values);
+    const bv = valuesOf(b.genes, b.values);
+    const otherGenes = new Map(other.genes.map((g) => [g.fullName, g]));
+    const out = valuesOf(own.genes, own.values);
+    for (const g of own.genes) {
+        const match = otherGenes.get(g.fullName);
+        if (match === undefined || match.kind !== g.kind)
+            continue;
+        const x = av.get(g.fullName);
+        const y = bv.get(g.fullName);
+        out.set(g.fullName, morphGene(g, x, y, t));
+    }
+    return { from, values: out };
+}
+function morphGene(g, x, y, t) {
+    const num = (p, q) => g.log && p > 0 && q > 0 ? p * (q / p) ** t : p + (q - p) * t;
+    if (typeof x === "number" && typeof y === "number" && !isSeed(g))
+        return num(x, y);
+    if (isVec(x) && isVec(y))
+        return { type: "vector", x: num(x.x, y.x), y: num(x.y, y.y), z: num(x.z, y.z) };
+    if (isColour(x) && isColour(y)) {
+        return {
+            type: "colour",
+            h: mixHue(x.h, y.h, t),
+            s: x.s + (y.s - x.s) * t,
+            v: x.v + (y.v - x.v) * t,
+            a: x.a + (y.a - x.a) * t,
+        };
+    }
+    return t < 0.5 ? x : y;
+}
+// ---------- writing genes into the program ----------
+/**
+ * The program's text with each gene's value written in, laid out by the formatter. Genes whose
+ * value hasn't changed keep the text they were written with. The automatic `seed` gene has no
+ * line to write into, so it isn't saved.
+ */
+export function writeGenes(program, values) {
+    const edits = [];
+    for (const g of program.genes) {
+        const v = values.get(g.fullName);
+        if (g.decl === undefined || v === undefined || valuesEqual(v, g.value))
+            continue;
+        const span = g.decl.value.span;
+        edits.push({ start: span.start, end: span.end, text: geneLiteral(g, v) });
+    }
+    if (edits.length === 0)
+        return program.text;
+    let text = program.text;
+    for (const e of edits.sort((p, q) => q.start - p.start)) {
+        text = text.slice(0, e.start) + e.text + text.slice(e.end);
+    }
+    return formatText(text).text ?? text;
+}
+/** A gene value written readably, and still within the gene's range. */
+export function geneLiteral(g, v) {
+    if (g.kind === "number" && typeof v === "number") {
+        return numberLiteral(v, g.min, g.max, g.step);
+    }
+    if (g.kind === "vector" && isVec(v)) {
+        const [lo, hi] = [g.min, g.max];
+        const axis = (k) => numberLiteral(v[k], lo[k], hi[k], undefined);
+        return `(${axis("x")}, ${axis("y")}, ${axis("z")})`;
+    }
+    if (g.kind === "colour" && isColour(v)) {
+        const [lo, hi] = [g.min, g.max];
+        let h = Number(clampHue(v.h, g.hue).toFixed(1));
+        if (!inHueArc(h, g.hue))
+            h = clampHue(v.h, g.hue);
+        const ch = (k) => short(clamp(Number(v[k].toFixed(2)), lo[k], hi[k]));
+        const alpha = ch("a");
+        return `hsv(${short(h)}, ${ch("s")}, ${ch("v")}${alpha === "1" ? "" : `, ${alpha}`})`;
+    }
+    return formatValue(v);
+}
+function numberLiteral(v, min, max, step) {
+    if (step !== undefined)
+        return short(snap(v, min, max, step));
+    return short(clamp(Number(v.toPrecision(4)), min, max));
+}
+/** A number without floating-point noise, such as `0.3` rather than `0.30000000000000004`. */
+function short(n) {
+    const s = String(Number(n.toPrecision(12)));
+    return s === "-0" ? "0" : s;
+}
+// ---------- helpers ----------
+function isSeed(g) {
+    return g.fullName === "seed" && g.decl === undefined;
+}
+function clamp(x, lo, hi) {
+    return x < lo ? lo : x > hi ? hi : x;
+}
+/** Clamps into min..max, and onto the nearest whole step within it if the gene has one. */
+function snap(v, min, max, step) {
+    v = clamp(v, min, max);
+    if (step === undefined)
+        return v;
+    let k = Math.round((v - min) / step);
+    if (min + k * step > max + 1e-9)
+        k--;
+    return min + k * step;
+}
+/** The hue itself if it's on the arc, otherwise the nearer end of the arc. */
+function clampHue(h, arc) {
+    h = wrapHue(h);
+    if (inHueArc(h, arc))
+        return h;
+    const end = wrapHue(arc.start + arc.length);
+    return Math.abs(hueDelta(h, arc.start)) <= Math.abs(hueDelta(h, end)) ? arc.start : end;
+}
+//# sourceMappingURL=genetics.js.map

package/dist/genetics.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"genetics.js","sourceRoot":"","sources":["../src/genetics.ts"],"names":[],"mappings":"AAAA,gGAAgG;AAChG,4EAA4E;AAG5E,OAAO,EAAE,QAAQ,EAAE,MAAM,EAAE,OAAO,EAAE,MAAM,aAAa,CAAC;AACxD,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AACzC,OAAO,EAAE,QAAQ,EAA8B,MAAM,YAAY,CAAC;AAClE,OAAO,EACL,WAAW,EACX,QAAQ,EACR,KAAK,EACL,WAAW,GAIZ,MAAM,aAAa,CAAC;AAyBrB,4EAA4E;AAC5E,MAAM,UAAU,QAAQ,CAAC,KAA0B,EAAE,MAAmB;IACtE,OAAO,IAAI,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,QAAQ,EAAE,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;AACrF,CAAC;AAED,gDAAgD;AAEhD,yCAAyC;AACzC,MAAM,UAAU,MAAM,CACpB,KAA0B,EAC1B,MAA8B,EAC9B,OAAsB;IAEtB,MAAM,EAAE,MAAM,EAAE,QAAQ,EAAE,GAAG,OAAO,CAAC;IACrC,MAAM,IAAI,GAAG,OAAO,CAAC,IAAI,IAAI,GAAG,CAAC;IACjC,MAAM,GAAG,GAAG,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC;IACpC,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,IAAI,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC;YAAE,SAAS;QAC9C,IAAI,MAAM,EAAE,IAAI,IAAI;YAAE,SAAS;QAC/B,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,EAAE,UAAU,CAAC,CAAC,EAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAE,EAAE,QAAQ,EAAE,MAAM,CAAC,CAAC,CAAC;IAC7E,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED,SAAS,UAAU,CAAC,CAAW,EAAE,CAAQ,EAAE,QAAgB,EAAE,MAAoB;IAC/E,IAAI,MAAM,CAAC,CAAC,CAAC;QAAE,OAAO,MAAM,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,GAAG,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAC/E,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM;YACT,OAAO,MAAM,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACtC,KAAK,QAAQ,CAAC;QACd,KAAK,MAAM,EAAE,CAAC;YACZ,IAAI,MAAM,EAAE,IAAI,QAAQ;gBAAE,OAAO,CAAC,CAAC;YACnC,MAAM,MAAM,GAAG,CAAC,CAAC,OAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,WAAW,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;YAC5D,OAAO,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,GAAG,MAAM,CAAC,MAAM,CAAC,CAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QAC/E,CAAC;QACD,KAAK,QAAQ;YACX,OAAO,YAAY,CAAC,CAAW,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,EAAE,QAAQ,EAAE,MAAM,CAAC,CAAC;QAC1F,KAAK,QAAQ,EAAE,CAAC;YACd,MAAM,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAQ,EAAE,CAAC,CAAC,GAAU,EAAE,CAAC,CAAC,GAAU,CAAC,CAAC;YAC3D,MAAM,IAAI,GAAG,CAAC,CAAkB,EAAE,EAAE,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,QAAQ,EAAE,MAAM,CAAC,CAAC;YAC3F,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC;QACtE,CAAC;QACD,KAAK,QAAQ,EAAE,CAAC;YACd,MAAM,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAW,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,GAAa,CAAC,CAAC;YACpE,MAAM,OAAO,GAAG,CAAC,CAAkB,EAAE,EAAE,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,QAAQ,EAAE,MAAM,CAAC,CAAC;YAC9F,OAAO;gBACL,IAAI,EAAE,QAAQ;gBACd,CAAC,EAAE,SAAS,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,GAAI,EAAE,QAAQ,EAAE,MAAM,CAAC;gBAC3C,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC;gBACf,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC;gBACf,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC;aAChB,CAAC;QACJ,CAAC;IACH,CAAC;AACH,CAAC;AAED,sFAAsF;AACtF,SAAS,YAAY,CACnB,CAAS,EACT,GAAW,EACX,GAAW,EACX,CAAW,EACX,QAAgB,EAChB,MAAoB;IAEpB,IAAI,GAAG,KAAK,GAAG;QAAE,OAAO,CAAC,CAAC;IAC1B,IAAI,CAAC,CAAC,GAAG,EAAE,CAAC;QACV,MAAM,CAAC,GAAG,QAAQ,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC;QACrD,MAAM,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACtB,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;QAC1C,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;QAC1C,OAAO,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,MAAM,EAAE,GAAG,CAAC,EAAE,GAAG,EAAE,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;IAC9D,CAAC;IACD,MAAM,CAAC,GAAG,QAAQ,GAAG,CAAC,GAAG,GAAG,GAAG,CAAC,CAAC;IACjC,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;IAChC,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;IAChC,OAAO,IAAI,CAAC,EAAE,GAAG,MAAM,EAAE,GAAG,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;AAC3D,CAAC;AAED,yGAAyG;AACzG,SAAS,SAAS,CAAC,CAAS,EAAE,GAAW,EAAE,QAAgB,EAAE,MAAoB;IAC/E,MAAM,CAAC,GAAG,QAAQ,GAAG,GAAG,CAAC,MAAM,CAAC;IAChC,IAAI,GAAG,CAAC,KAAK;QAAE,OAAO,OAAO,CAAC,CAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;IAC1D,MAAM,EAAE,GAAG,OAAO,CAAC,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC;IAClC,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC;IAC/B,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC;IACxC,OAAO,OAAO,CAAC,GAAG,CAAC,KAAK,GAAG,EAAE,GAAG,MAAM,EAAE,GAAG,CAAC,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC;AACxD,CAAC;AAED,gDAAgD;AAEhD,wEAAwE;AACxE,MAAM,UAAU,KAAK,CAAC,CAAU,EAAE,CAAU,EAAE,OAAwB;IACpE,MAAM,EAAE,MAAM,EAAE,GAAG,OAAO,CAAC;IAC3B,MAAM,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;IACvC,MAAM,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;IACvC,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,QAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;IAC5D,MAAM,GAAG,GAAG,IAAI,GAAG,CAAC,EAAE,CAAC,CAAC;IACxB,KAAK,MAAM,CAAC,IAAI,CAAC,CAAC,KAAK,EAAE,CAAC;QACxB,MAAM,KAAK,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC;QACrC,IAAI,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,IAAI,KAAK,KAAK,SAAS,IAAI,KAAK,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;YAAE,SAAS;QAC9F,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,EAAE,SAAS,CAAC,CAAC,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAE,EAAE,MAAM,CAAC,CAAC,CAAC;IACtF,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED,SAAS,SAAS,CAAC,CAAW,EAAE,CAAQ,EAAE,CAAQ,EAAE,MAAoB;IACtE,IAAI,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAClE,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QAC7C,MAAM,IAAI,GAAG,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACpC,qDAAqD;QACrD,OAAO,CAAC,CAAC,OAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,WAAW,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;IACjE,CAAC;IACD,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,EAAE,CAAC;QACxB,OAAO,WAAW,CAAC,CAAW,EAAE,CAAW,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,EAAE,MAAM,CAAC,CAAC;IAC5F,CAAC;IACD,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,KAAK,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;QAChD,MAAM,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,GAAU,EAAE,CAAC,CAAC,GAAU,CAAC,CAAC;QAC9C,MAAM,IAAI,GAAG,CAAC,CAAkB,EAAE,EAAE,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,MAAM,CAAC,CAAC;QACtF,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC;IACtE,CAAC;IACD,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,QAAQ,CAAC,CAAC,CAAC,IAAI,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC;QACtD,MAAM,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,GAAa,CAAC,CAAC;QACpD,MAAM,OAAO,GAAG,CAAC,CAAkB,EAAE,EAAE,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,MAAM,CAAC,CAAC;QACzF,OAAO;YACL,IAAI,EAAE,QAAQ;YACd,CAAC,EAAE,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,GAAI,EAAE,MAAM,CAAC;YACrC,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC;YACf,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC;YACf,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC;SAChB,CAAC;IACJ,CAAC;IACD,OAAO,CAAC,CAAC;AACX,CAAC;AAED,uGAAuG;AACvG,SAAS,WAAW,CAClB,CAAS,EACT,CAAS,EACT,GAAW,EACX,GAAW,EACX,CAAW,EACX,MAAoB;IAEpB,IAAI,CAAS,CAAC;IACd,IAAI,MAAM,EAAE,GAAG,GAAG,EAAE,CAAC;QACnB,MAAM,CAAC,GAAG,MAAM,EAAE,CAAC;QACnB,CAAC;YACC,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC;gBACrB,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;gBACzD,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;IACxB,CAAC;SAAM,CAAC;QACN,CAAC,GAAG,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAC7B,CAAC;IACD,OAAO,IAAI,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;AACnC,CAAC;AAED,SAAS,QAAQ,CAAC,CAAS,EAAE,CAAS,EAAE,GAAW,EAAE,MAAoB;IACvE,MAAM,CAAC,GAAG,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC,CAAC,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAC3E,OAAO,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;AAC1B,CAAC;AAED,gDAAgD;AAEhD;;;GAGG;AACH,MAAM,UAAU,KAAK,CACnB,CAAU,EACV,CAAU,EACV,CAAS;IAET,MAAM,IAAI,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC;IACjC,MAAM,GAAG,GAAG,IAAI,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACjC,MAAM,KAAK,GAAG,IAAI,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACnC,MAAM,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;IACvC,MAAM,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;IACvC,MAAM,UAAU,GAAG,IAAI,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,QAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;IACpE,MAAM,GAAG,GAAG,QAAQ,CAAC,GAAG,CAAC,KAAK,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC;IAC5C,KAAK,MAAM,CAAC,IAAI,GAAG,CAAC,KAAK,EAAE,CAAC;QAC1B,MAAM,KAAK,GAAG,UAAU,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC;QACzC,IAAI,KAAK,KAAK,SAAS,IAAI,KAAK,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;YAAE,SAAS;QAC3D,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAE,CAAC;QAC9B,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAE,CAAC;QAC9B,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,EAAE,SAAS,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC7C,CAAC;IACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,CAAC;AAC/B,CAAC;AAED,SAAS,SAAS,CAAC,CAAW,EAAE,CAAQ,EAAE,CAAQ,EAAE,CAAS;IAC3D,MAAM,GAAG,GAAG,CAAC,CAAS,EAAE,CAAS,EAAE,EAAE,CACnC,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;IAC/D,IAAI,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,CAAC,KAAK,QAAQ,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC;QAAE,OAAO,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACnF,IAAI,KAAK,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,CAAC;QACtB,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;IAClF,IAAI,QAAQ,CAAC,CAAC,CAAC,IAAI,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC;QAC/B,OAAO;YACL,IAAI,EAAE,QAAQ;YACd,CAAC,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;YACtB,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC;YACxB,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC;YACxB,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC;SACzB,CAAC;IACJ,CAAC;IACD,OAAO,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;AACzB,CAAC;AAED,uDAAuD;AAEvD;;;;GAIG;AACH,MAAM,UAAU,UAAU,CAAC,OAAoB,EAAE,MAAkB;IACjE,MAAM,KAAK,GAAmD,EAAE,CAAC;IACjE,KAAK,MAAM,CAAC,IAAI,OAAO,CAAC,KAAK,EAAE,CAAC;QAC9B,MAAM,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC;QACjC,IAAI,CAAC,CAAC,IAAI,KAAK,SAAS,IAAI,CAAC,KAAK,SAAS,IAAI,WAAW,CAAC,CAAC,EAAE,CAAC,CAAC,KAAK,CAAC;YAAE,SAAS;QACjF,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC;QAC/B,KAAK,CAAC,IAAI,CAAC,EAAE,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,GAAG,EAAE,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,WAAW,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC;IAC5E,CAAC;IACD,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,OAAO,CAAC,IAAI,CAAC;IAC5C,IAAI,IAAI,GAAG,OAAO,CAAC,IAAI,CAAC;IACxB,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,CAAC,EAAE,CAAC;QACxD,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;IAC7D,CAAC;IACD,OAAO,UAAU,CAAC,IAAI,CAAC,CAAC,IAAI,IAAI,IAAI,CAAC;AACvC,CAAC;AAED,wEAAwE;AACxE,MAAM,UAAU,WAAW,CAAC,CAAW,EAAE,CAAQ;IAC/C,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,OAAO,CAAC,KAAK,QAAQ,EAAE,CAAC;QACjD,OAAO,aAAa,CAAC,CAAC,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;IACpE,CAAC;IACD,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;QACpC,MAAM,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,GAAU,EAAE,CAAC,CAAC,GAAU,CAAC,CAAC;QAC9C,MAAM,IAAI,GAAG,CAAC,CAAkB,EAAE,EAAE,CAAC,aAAa,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,SAAS,CAAC,CAAC;QAClF,OAAO,IAAI,IAAI,CAAC,GAAG,CAAC,KAAK,IAAI,CAAC,GAAG,CAAC,KAAK,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC;IACtD,CAAC;IACD,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC;QACvC,MAAM,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,GAAa,EAAE,CAAC,CAAC,GAAa,CAAC,CAAC;QACpD,IAAI,CAAC,GAAG,MAAM,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,GAAI,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;QACjD,IAAI,CAAC,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,GAAI,CAAC;YAAE,CAAC,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,GAAI,CAAC,CAAC;QACpD,MAAM,EAAE,GAAG,CAAC,CAAkB,EAAE,EAAE,CAAC,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACvF,MAAM,KAAK,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC;QACtB,OAAO,OAAO,KAAK,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,GAAG,CAAC,KAAK,EAAE,CAAC,GAAG,CAAC,GAAG,KAAK,KAAK,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,KAAK,KAAK,EAAE,GAAG,CAAC;IACxF,CAAC;IACD,OAAO,WAAW,CAAC,CAAC,CAAC,CAAC;AACxB,CAAC;AAED,SAAS,aAAa,CAAC,CAAS,EAAE,GAAW,EAAE,GAAW,EAAE,IAAwB;IAClF,IAAI,IAAI,KAAK,SAAS;QAAE,OAAO,KAAK,CAAC,IAAI,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,EAAE,IAAI,CAAC,CAAC,CAAC;IAC9D,OAAO,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC;AAC1D,CAAC;AAED,8FAA8F;AAC9F,SAAS,KAAK,CAAC,CAAS;IACtB,MAAM,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,WAAW,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC5C,OAAO,CAAC,KAAK,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;AAC9B,CAAC;AAED,gCAAgC;AAEhC,SAAS,MAAM,CAAC,CAAW;IACzB,OAAO,CAAC,CAAC,QAAQ,KAAK,MAAM,IAAI,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC;AACvD,CAAC;AAED,SAAS,KAAK,CAAC,CAAS,EAAE,EAAU,EAAE,EAAU;IAC9C,OAAO,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;AACvC,CAAC;AAED,2FAA2F;AAC3F,SAAS,IAAI,CAAC,CAAS,EAAE,GAAW,EAAE,GAAW,EAAE,IAAwB;IACzE,CAAC,GAAG,KAAK,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;IACvB,IAAI,IAAI,KAAK,SAAS;QAAE,OAAO,CAAC,CAAC;IACjC,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,GAAG,IAAI,CAAC,CAAC;IACrC,IAAI,GAAG,GAAG,CAAC,GAAG,IAAI,GAAG,GAAG,GAAG,IAAI;QAAE,CAAC,EAAE,CAAC;IACrC,OAAO,GAAG,GAAG,CAAC,GAAG,IAAI,CAAC;AACxB,CAAC;AAED,8EAA8E;AAC9E,SAAS,QAAQ,CAAC,CAAS,EAAE,GAAW;IACtC,CAAC,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;IACf,IAAI,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC;QAAE,OAAO,CAAC,CAAC;IAC/B,MAAM,GAAG,GAAG,OAAO,CAAC,GAAG,CAAC,KAAK,GAAG,GAAG,CAAC,MAAM,CAAC,CAAC;IAC5C,OAAO,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,KAAK,CAAC,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC;AAC1F,CAAC"}

package/dist/index.d.ts

@@ -7,6 +7,8 @@ export { check, type CheckResult } from "./checker.js";
 export { format, formatText, type FormatResult } from "./format.js";
 export { build, buildBackground, DEFAULT_LIMITS, type BackgroundResult, type BuildOptions, type BuildResult, type Inputs, type LaidShape, type Limits, type MusicInputs, } from "./interpreter.js";
 export type { GeneInfo, GeneKind, GeneSection, HueArc } from "./genes.js";
+export { breed, geneLiteral, morph, mutate, valuesOf, writeGenes, type GeneSet, type GeneticsOptions, type GeneValues, type MutateOptions, } from "./genetics.js";
+export { mulberry32 } from "./noise.js";
 export { BUILTIN_CONSTANTS, BUILTIN_FUNCTIONS, isBuiltinName, type BuiltinFunction, } from "./builtins.js";
 export { hsv, rgb, hexColour, toRgb, mixColour, sampleGradient, NAMED_COLOURS } from "./colour.js";
 export { formatValue, typeOf, SHAPES, PATTERN_KINDS } from "./values.js";

package/dist/index.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAGA,6CAA6C;AAC7C,eAAO,MAAM,cAAc,WAAW,CAAC;AAEvC,mBAAmB,UAAU,CAAC;AAC9B,OAAO,EAAE,GAAG,EAAE,QAAQ,EAAE,KAAK,KAAK,EAAE,KAAK,SAAS,EAAE,KAAK,SAAS,EAAE,MAAM,YAAY,CAAC;AACvF,OAAO,EAAE,KAAK,EAAE,KAAK,WAAW,EAAE,MAAM,aAAa,CAAC;AACtD,OAAO,EAAE,KAAK,EAAE,KAAK,WAAW,EAAE,MAAM,cAAc,CAAC;AACvD,OAAO,EAAE,MAAM,EAAE,UAAU,EAAE,KAAK,YAAY,EAAE,MAAM,aAAa,CAAC;AACpE,OAAO,EACL,KAAK,EACL,eAAe,EACf,cAAc,EACd,KAAK,gBAAgB,EACrB,KAAK,YAAY,EACjB,KAAK,WAAW,EAChB,KAAK,MAAM,EACX,KAAK,SAAS,EACd,KAAK,MAAM,EACX,KAAK,WAAW,GACjB,MAAM,kBAAkB,CAAC;AAC1B,YAAY,EAAE,QAAQ,EAAE,QAAQ,EAAE,WAAW,EAAE,MAAM,EAAE,MAAM,YAAY,CAAC;AAC1E,OAAO,EACL,iBAAiB,EACjB,iBAAiB,EACjB,aAAa,EACb,KAAK,eAAe,GACrB,MAAM,eAAe,CAAC;AACvB,OAAO,EAAE,GAAG,EAAE,GAAG,EAAE,SAAS,EAAE,KAAK,EAAE,SAAS,EAAE,cAAc,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AACnG,OAAO,EAAE,WAAW,EAAE,MAAM,EAAE,MAAM,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AACzE,YAAY,EACV,MAAM,EACN,QAAQ,EACR,OAAO,EACP,eAAe,EACf,SAAS,EACT,QAAQ,EACR,KAAK,EACL,GAAG,GACJ,MAAM,aAAa,CAAC;AACrB,OAAO,EACL,gBAAgB,EAChB,OAAO,EACP,KAAK,UAAU,EACf,KAAK,QAAQ,EACb,KAAK,QAAQ,EACb,KAAK,IAAI,GACV,MAAM,aAAa,CAAC"}
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAGA,6CAA6C;AAC7C,eAAO,MAAM,cAAc,WAAW,CAAC;AAEvC,mBAAmB,UAAU,CAAC;AAC9B,OAAO,EAAE,GAAG,EAAE,QAAQ,EAAE,KAAK,KAAK,EAAE,KAAK,SAAS,EAAE,KAAK,SAAS,EAAE,MAAM,YAAY,CAAC;AACvF,OAAO,EAAE,KAAK,EAAE,KAAK,WAAW,EAAE,MAAM,aAAa,CAAC;AACtD,OAAO,EAAE,KAAK,EAAE,KAAK,WAAW,EAAE,MAAM,cAAc,CAAC;AACvD,OAAO,EAAE,MAAM,EAAE,UAAU,EAAE,KAAK,YAAY,EAAE,MAAM,aAAa,CAAC;AACpE,OAAO,EACL,KAAK,EACL,eAAe,EACf,cAAc,EACd,KAAK,gBAAgB,EACrB,KAAK,YAAY,EACjB,KAAK,WAAW,EAChB,KAAK,MAAM,EACX,KAAK,SAAS,EACd,KAAK,MAAM,EACX,KAAK,WAAW,GACjB,MAAM,kBAAkB,CAAC;AAC1B,YAAY,EAAE,QAAQ,EAAE,QAAQ,EAAE,WAAW,EAAE,MAAM,EAAE,MAAM,YAAY,CAAC;AAC1E,OAAO,EACL,KAAK,EACL,WAAW,EACX,KAAK,EACL,MAAM,EACN,QAAQ,EACR,UAAU,EACV,KAAK,OAAO,EACZ,KAAK,eAAe,EACpB,KAAK,UAAU,EACf,KAAK,aAAa,GACnB,MAAM,eAAe,CAAC;AACvB,OAAO,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AACxC,OAAO,EACL,iBAAiB,EACjB,iBAAiB,EACjB,aAAa,EACb,KAAK,eAAe,GACrB,MAAM,eAAe,CAAC;AACvB,OAAO,EAAE,GAAG,EAAE,GAAG,EAAE,SAAS,EAAE,KAAK,EAAE,SAAS,EAAE,cAAc,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AACnG,OAAO,EAAE,WAAW,EAAE,MAAM,EAAE,MAAM,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AACzE,YAAY,EACV,MAAM,EACN,QAAQ,EACR,OAAO,EACP,eAAe,EACf,SAAS,EACT,QAAQ,EACR,KAAK,EACL,GAAG,GACJ,MAAM,aAAa,CAAC;AACrB,OAAO,EACL,gBAAgB,EAChB,OAAO,EACP,KAAK,UAAU,EACf,KAAK,QAAQ,EACb,KAAK,QAAQ,EACb,KAAK,IAAI,GACV,MAAM,aAAa,CAAC"}

package/dist/index.js

@@ -1,5 +1,5 @@
 // The GenoCode language: lexer, parser, checker, formatter and interpreter
-// (docs/LANGUAGE.md). Genetics is added in roadmap phase 3.
+// (docs/LANGUAGE.md), and genetics: mutating, breeding and morphing genes.
 /** The file extension for GenoCode files. */
 export const FILE_EXTENSION = ".genie";
 export { lex, KEYWORDS } from "./lexer.js";
@@ -7,6 +7,8 @@ export { parse } from "./parser.js";
 export { check } from "./checker.js";
 export { format, formatText } from "./format.js";
 export { build, buildBackground, DEFAULT_LIMITS, } from "./interpreter.js";
+export { breed, geneLiteral, morph, mutate, valuesOf, writeGenes, } from "./genetics.js";
+export { mulberry32 } from "./noise.js";
 export { BUILTIN_CONSTANTS, BUILTIN_FUNCTIONS, isBuiltinName, } from "./builtins.js";
 export { hsv, rgb, hexColour, toRgb, mixColour, sampleGradient, NAMED_COLOURS } from "./colour.js";
 export { formatValue, typeOf, SHAPES, PATTERN_KINDS } from "./values.js";

package/dist/index.js.map

@@ -1 +1 @@
-{"version":3,"file":"index.js","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAAA,2EAA2E;AAC3E,4DAA4D;AAE5D,6CAA6C;AAC7C,MAAM,CAAC,MAAM,cAAc,GAAG,QAAQ,CAAC;AAGvC,OAAO,EAAE,GAAG,EAAE,QAAQ,EAA8C,MAAM,YAAY,CAAC;AACvF,OAAO,EAAE,KAAK,EAAoB,MAAM,aAAa,CAAC;AACtD,OAAO,EAAE,KAAK,EAAoB,MAAM,cAAc,CAAC;AACvD,OAAO,EAAE,MAAM,EAAE,UAAU,EAAqB,MAAM,aAAa,CAAC;AACpE,OAAO,EACL,KAAK,EACL,eAAe,EACf,cAAc,GAQf,MAAM,kBAAkB,CAAC;AAE1B,OAAO,EACL,iBAAiB,EACjB,iBAAiB,EACjB,aAAa,GAEd,MAAM,eAAe,CAAC;AACvB,OAAO,EAAE,GAAG,EAAE,GAAG,EAAE,SAAS,EAAE,KAAK,EAAE,SAAS,EAAE,cAAc,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AACnG,OAAO,EAAE,WAAW,EAAE,MAAM,EAAE,MAAM,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AAWzE,OAAO,EACL,gBAAgB,EAChB,OAAO,GAKR,MAAM,aAAa,CAAC"}
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":"AAAA,2EAA2E;AAC3E,2EAA2E;AAE3E,6CAA6C;AAC7C,MAAM,CAAC,MAAM,cAAc,GAAG,QAAQ,CAAC;AAGvC,OAAO,EAAE,GAAG,EAAE,QAAQ,EAA8C,MAAM,YAAY,CAAC;AACvF,OAAO,EAAE,KAAK,EAAoB,MAAM,aAAa,CAAC;AACtD,OAAO,EAAE,KAAK,EAAoB,MAAM,cAAc,CAAC;AACvD,OAAO,EAAE,MAAM,EAAE,UAAU,EAAqB,MAAM,aAAa,CAAC;AACpE,OAAO,EACL,KAAK,EACL,eAAe,EACf,cAAc,GAQf,MAAM,kBAAkB,CAAC;AAE1B,OAAO,EACL,KAAK,EACL,WAAW,EACX,KAAK,EACL,MAAM,EACN,QAAQ,EACR,UAAU,GAKX,MAAM,eAAe,CAAC;AACvB,OAAO,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AACxC,OAAO,EACL,iBAAiB,EACjB,iBAAiB,EACjB,aAAa,GAEd,MAAM,eAAe,CAAC;AACvB,OAAO,EAAE,GAAG,EAAE,GAAG,EAAE,SAAS,EAAE,KAAK,EAAE,SAAS,EAAE,cAAc,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AACnG,OAAO,EAAE,WAAW,EAAE,MAAM,EAAE,MAAM,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AAWzE,OAAO,EACL,gBAAgB,EAChB,OAAO,GAKR,MAAM,aAAa,CAAC"}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@genocode/core",
-  "version": "0.1.0",
+  "version": "0.2.0",
   "description": "The GenoCode language: parser, checker, formatter, interpreter and genetics.",
   "license": "MIT",
   "repository": {

package/reference/LANGUAGE.md

@@ -912,6 +912,16 @@ A morph through several creatures (a loop) is a chain of these morphs between ne
 and B share a program, a morph is smooth all the way; when their programs differ, the creature
 changes shape at the halfway point.
 
+### 19.4 Saving
+
+A creature that has been mutated, bred or morphed is saved as an ordinary creature file: its
+program, with each gene's new value written into the gene's line. Nothing else in the program
+changes, except that the file is laid out by the formatter, and a gene whose value hasn't changed
+keeps the text it was written with. The new values are written readably: stepped numbers exactly,
+other numbers to four significant figures, colours as `hsv(…)`, and choices by name, always within
+the gene's range. The automatic `seed` gene has no line of its own, so it isn't saved yet: a saved
+creature that uses `random` starts again from seed 0.
+
 ## 20. Building a creature
 
 1. **Checking.** The file is read and checked: syntax, names, gene rules, function rules, and types

package/reference/creatures/Flowerball.genie

@@ -0,0 +1,79 @@
+creature Flowerball
+// A ball of beads in rings, which opens out into a flat disc, crowned by five curling petals.
+// Inspired by Flowerball, a DancerDNA creature.
+
+gene open  = 0.63 in 0..1     // 0 lays the beads flat in a disc; 1 rounds them into a ball and fills out the petals
+gene gloss = 0.64 in 0..1     // how strong the highlights are
+gene focus = 0.21 in 0..1     // how tight the highlights are
+gene lift  = 14.5 in -20..20  // how far from the beads the petals grow, as the creature opens
+
+shine gloss
+sharpness focus
+beads
+forward lift * open
+pitch 90
+repeat 5 {
+  petal
+  yaw 72
+}
+
+// Eight rings of beads around the heading. Ring 0 is the middle and has no beads.
+part beads {
+  gene radius = 1    in 1..15   // the ball's radius, when it's fully open
+  gene bead   = 0.92 in 0.1..1  // the size of each bead
+  gene inner  = hsv(127, 0.45, 0.3) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+  gene second = hsv(41, 0.95, 0.73) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+  gene third  = hsv(333, 0.96, 0.21) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+  gene outer  = hsv(59, 0.8, 0.95) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+
+  let skin = gradient(inner, second, third, outer)
+  shape ball
+  repeat 8 as r {
+    let a = 180 * r / 8
+    colour skin(r / 8)
+    // Flat, ring r is r from the middle. As a ball, it's a circle of latitude.
+    let spread = mix(r, sin(a) * radius, open)
+    let height = open * cos(a) * radius
+    let circle = tau * r
+    repeat floor(circle) as s {
+      let t = 360 * s / circle
+      branch {
+        move (spread * cos(t), spread * sin(t), height)
+        lay { grow bead }
+      }
+    }
+  }
+}
+
+// A curling chain of stretched beads, fattest in the middle.
+part petal {
+  gene curl  = -0.86 in -2.5..2.5  // how far the petal curls, and which way
+  gene tip   = hsv(285, 0.66, 0.3) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+  gene edge  = hsv(2, 0.43, 0.96) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+  gene flank = hsv(90, 0.93, 0.61) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+  gene heart = hsv(131, 0.56, 0.49) in hsv(0, 0.4, 0)..hsv(360, 1, 1)
+
+  let skin = gradient(tip, edge, flank, heart)
+  branch {
+    forward 2.5
+    pitch -36
+    yaw -45
+    roll -30
+    shape ball
+    for i from 1 to 29 {
+      let swell = bump(i / 30)
+      colour skin(swell)
+      yaw 6
+      branch {
+        forward 0.1
+        pitch 90 * swell * curl
+        lay { grow (open, open, open * 6 * (swell + 1)) }
+      }
+      move (0.4 * open, 0, 0)
+    }
+  }
+}
+
+background {
+  fill gradient(hsv(250, 0.5, 0.12), hsv(200, 0.45, 0.4))
+}

package/reference/creatures/StarBurstShell.genie

@@ -0,0 +1,102 @@
+creature StarBurstShell
+// A spiraling geometric shell composed of bead spikes that unfurls into a sprawling celestial star.
+// Fixed color gene ranges and reserved keyword variables.
+
+gene unfurl = 0.45 in 0..1    // 0 packs the spikes into a tight spiral shell; 1 explodes them into a star
+gene gloss = 0.75 in 0..1     // intensity of the metallic shell sheen
+gene focus = 0.40 in 0..1     // sharpness of the light reflections
+gene heightOffset = 8.0 in -15..15 // vertical expansion amplitude as it opens
+
+shine gloss
+sharpness focus
+
+// Wrap the top-level part call in a branch to protect downstream rendering
+branch {
+    shellSpikes
+}
+
+forward heightOffset * unfurl
+pitch 90
+
+// Generate 6 primary crown spikes circling the top axis
+repeat 6 {
+    branch {
+        crownSpike
+    }
+    yaw 60
+}
+
+// The core body structure: 10 concentric, winding layers of beads
+part shellSpikes {
+    gene maxRadius = 12 in 5..20
+    gene baseBeadSize = 0.75 in 0.2..1.5
+    
+    // Galactic neon palette gradient with mandatory range specifications
+    gene coreColor = hsv(240, 0.85, 0.2) in hsv(0, 0, 0)..hsv(360, 1, 1)   // Deep space blue
+    gene midColor1 = hsv(300, 0.90, 0.5) in hsv(0, 0, 0)..hsv(360, 1, 1)   // Cosmic magenta
+    gene midColor2 = hsv(340, 0.95, 0.8) in hsv(0, 0, 0)..hsv(360, 1, 1)   // Electric pink
+    gene outerColor = hsv(15, 0.80, 0.95) in hsv(0, 0, 0)..hsv(360, 1, 1)  // Nebula orange
+    
+    let skin = gradient(coreColor, midColor1, midColor2, outerColor)
+    shape ball
+    
+    repeat 10 as layer {
+        let latAngle = 180 * layer / 10
+        colour skin(layer / 10)
+        
+        // As unfurl approaches 1, structural layout transitions from flat spirals to a wide-latitude sphere
+        let distance = mix(layer, sin(latAngle) * maxRadius, unfurl)
+        let verticalZ = unfurl * cos(latAngle) * maxRadius
+        let stepCount = tau * layer
+        
+        repeat floor(stepCount) as s {
+            let lonAngle = 360 * s / stepCount
+            
+            branch {
+                // Positional placement using standard trigonometric displacement
+                move (distance * cos(lonAngle), distance * sin(lonAngle), verticalZ)
+                lay { grow baseBeadSize }
+            }
+        }
+    }
+}
+
+// A twisting, needle-sharp spike branch that reacts heavily to the unfurl gene
+part crownSpike {
+    gene twistFactor = 1.25 in -3..3 // how sharply the crown arms curve outward
+    
+    // Crown color parameters with mandatory range specifications
+    gene rootColor = hsv(160, 0.70, 0.6) in hsv(0, 0, 0)..hsv(360, 1, 1)  // Turquoise heart
+    gene bodyColor = hsv(200, 0.80, 0.8) in hsv(0, 0, 0)..hsv(360, 1, 1)  // Cyan mid-section
+    gene flareColor = hsv(280, 0.85, 0.7) in hsv(0, 0, 0)..hsv(360, 1, 1) // Violet edge
+    gene apexColor = hsv(0, 0.0, 1.0) in hsv(0, 0, 0)..hsv(360, 1, 1)     // Pure white tips
+    
+    let skin = gradient(rootColor, bodyColor, flareColor, apexColor)
+    
+    branch {
+        forward 3.0
+        pitch -25
+        yaw 15
+        roll 45
+        shape ball
+        
+        // Iteratively chain 25 progressively scaling segments to build a fine tip
+        for segment from 1 to 25 {
+            let taper = bump(segment / 26) // custom envelope tracking
+            colour skin(taper)
+            
+            yaw 8
+            branch {
+                forward 0.15
+                pitch 45 * taper * twistFactor
+                // Drastically changes length/width profile when unrolled
+                lay { grow (unfurl, unfurl, unfurl * 4 * (taper + 0.5)) }
+            }
+            move (0.35 * unfurl, 0, 0)
+        }
+    }
+}
+
+background {
+    fill gradient(hsv(275, 0.6, 0.08), hsv(220, 0.5, 0.25))
+}

package/reference/creatures/StarBurstShell9.genie

@@ -0,0 +1,102 @@
+creature StarBurstShell
+// A spiraling geometric shell composed of bead spikes that unfurls into a sprawling celestial star.
+// Fixed color gene ranges and reserved keyword variables.
+
+gene unfurl       = 0.2016 in 0..1     // 0 packs the spikes into a tight spiral shell; 1 explodes them into a star
+gene gloss        = 0.5104 in 0..1     // intensity of the metallic shell sheen
+gene focus        = 0.3599 in 0..1     // sharpness of the light reflections
+gene heightOffset = 9.545  in -15..15  // vertical expansion amplitude as it opens
+
+shine gloss
+sharpness focus
+
+// Wrap the top-level part call in a branch to protect downstream rendering
+branch {
+  shellSpikes
+}
+
+forward heightOffset * unfurl
+pitch 90
+
+// Generate 6 primary crown spikes circling the top axis
+repeat 6 {
+  branch {
+    crownSpike
+  }
+  yaw 60
+}
+
+// The core body structure: 10 concentric, winding layers of beads
+part shellSpikes {
+  gene maxRadius    = 10.95  in 5..20
+  gene baseBeadSize = 0.6653 in 0.2..1.5
+
+  // Galactic neon palette gradient with mandatory range specifications
+  gene coreColor  = hsv(240, 0.85, 0.2) in hsv(0, 0, 0)..hsv(360, 1, 1)    // Deep space blue
+  gene midColor1  = hsv(300, 0.87, 0.49) in hsv(0, 0, 0)..hsv(360, 1, 1)   // Cosmic magenta
+  gene midColor2  = hsv(35.9, 0.81, 0.71) in hsv(0, 0, 0)..hsv(360, 1, 1)  // Electric pink
+  gene outerColor = hsv(38.8, 0.79, 0.75) in hsv(0, 0, 0)..hsv(360, 1, 1)  // Nebula orange
+
+  let skin = gradient(coreColor, midColor1, midColor2, outerColor)
+  shape ball
+
+  repeat 10 as layer {
+    let latAngle = 180 * layer / 10
+    colour skin(layer / 10)
+
+    // As unfurl approaches 1, structural layout transitions from flat spirals to a wide-latitude sphere
+    let distance = mix(layer, sin(latAngle) * maxRadius, unfurl)
+    let verticalZ = unfurl * cos(latAngle) * maxRadius
+    let stepCount = tau * layer
+
+    repeat floor(stepCount) as s {
+      let lonAngle = 360 * s / stepCount
+
+      branch {
+        // Positional placement using standard trigonometric displacement
+        move (distance * cos(lonAngle), distance * sin(lonAngle), verticalZ)
+        lay { grow baseBeadSize }
+      }
+    }
+  }
+}
+
+// A twisting, needle-sharp spike branch that reacts heavily to the unfurl gene
+part crownSpike {
+  gene twistFactor = 1.161 in -3..3  // how sharply the crown arms curve outward
+
+  // Crown color parameters with mandatory range specifications
+  gene rootColor  = hsv(184.3, 0.71, 0.68) in hsv(0, 0, 0)..hsv(360, 1, 1)  // Turquoise heart
+  gene bodyColor  = hsv(184.8, 0.8, 0.76) in hsv(0, 0, 0)..hsv(360, 1, 1)   // Cyan mid-section
+  gene flareColor = hsv(253.4, 0.74, 0.7) in hsv(0, 0, 0)..hsv(360, 1, 1)   // Violet edge
+  gene apexColor  = hsv(0, 0.03, 1) in hsv(0, 0, 0)..hsv(360, 1, 1)         // Pure white tips
+
+  let skin = gradient(rootColor, bodyColor, flareColor, apexColor)
+
+  branch {
+    forward 3.0
+    pitch -25
+    yaw 15
+    roll 45
+    shape ball
+
+    // Iteratively chain 25 progressively scaling segments to build a fine tip
+    for segment from 1 to 25 {
+      let taper = bump(segment / 26)  // custom envelope tracking
+      colour skin(taper)
+
+      yaw 8
+      branch {
+        forward 0.15
+        pitch 45 * taper * twistFactor
+        // Drastically changes length/width profile when unrolled
+        lay { grow (unfurl, unfurl, unfurl * 4 * (taper + 0.5)) }
+      }
+      move (0.35 * unfurl, 0, 0)
+    }
+  }
+}
+
+background {
+  fill gradient(hsv(275, 0.6, 0.08), hsv(220, 0.5, 0.25))
+}