2sagaco48 1.0.0

package/src/lib/sage/unified-roll.ts

@@ -0,0 +1,524 @@
+/**
+ * UNIFIED ROLL — one seed, one archetype set, one directive.
+ * ---------------------------------------------------------------------------
+ * Type C net-new. Before this module SAGE (blueprint) and SAGA-OS v2
+ * (GenreSpec / Genesis-Grid / KALLOS) rolled on SEPARATE seeds from separate
+ * UI panels, so the panel could display a world the prompt never received.
+ * That is the "orphan component" failure. This module removes it:
+ *
+ *     seed ──┬──> SAGE blueprint            (rollSage)
+ *            ├──> GenreSpec  (DERIVED from the blueprint, not typed by hand)
+ *            ├──> Genesis-Grid run           (same seed)
+ *            ├──> KALLOS report              (over that run)
+ *            └──> Reality grounding level    (user-selected, not seeded)
+ *                        │
+ *                        └──> ONE ArchetypeSet ──> ONE directive ──> prompt
+ *
+ * Everything the UI shows is read from the SAME UnifiedRoll object that the
+ * prompt is compiled from, so display and output cannot diverge.
+ *
+ * RUNTIME HONESTY: pure and deterministic. No LLM, no network, no storage.
+ */
+
+import {
+  rollSage, type SageBlueprint,
+} from '@/lib/sage/engine.ts';
+import {
+  compileGenreSpec, runGenesisGrid, computeKallos, wireCatalog,
+  buildWorldMap, buildCastGraph, modalShortcutTest,
+  type GenreSpec, type GridRun, type KallosReport, type ElementRecord,
+  type WorldMapPlace, type ModalShortcutReport,
+} from "./saga-os-v2-engines";
+import {
+  buildRealityDirective, realityLevel, type RealityLevel,
+} from "./reality-grounding";
+import {
+  compileGenreContract, defaultBuildRequest, loadBuildRequest, runMorphogenesis, generateNameSet,
+  compileCatalog, sha256Hex, type BuildRequest, type GenreContract, type MorphRun, type GeneratedName,
+} from "./saga-os-v3-core";
+import {
+  evaluateKallosV3, buildObligations, controlledRealizeScene, computeBuildId,
+  type KallosV3Report, type RealizationObligation,
+} from "./saga-os-v3-release";
+import {
+  buildStyleGenome, applyStylePack, loadStylePack, buildAureateDirective, genomeSummary,
+  type StyleGenome, type StylePackId,
+} from "./saga-os-v4-aureate";
+
+// Naming profile per genre family: one coherent phonology per book (v3 section 10.5).
+const NAME_PROFILE_FOR_FAMILY: Record<string, string> = {
+  ROMANCE: "RIVERINE", THRILLER: "ARCHIVAL", MYSTERY: "ARCHIVAL", HORROR: "HIGHLAND", FANTASY: "HIGHLAND",
+  SF: "ARCHIVAL", LITERARY: "CANTON", HISTORICAL: "SALTMARCH", "FAMILY/SAGA": "SALTMARCH", "CHILDREN/YA": "RIVERINE", COMEDY: "CANTON",
+};
+
+// ── Genre inference from the SAGE blueprint (no free text needed) ───────────
+
+/**
+ * Builds the GenreSpec request string FROM the blueprint so the v2 Genre Helm
+ * and the SAGE blueprint can never describe different books.
+ */
+export function genreRequestFromBlueprint(bp: SageBlueprint): string {
+  const bits: string[] = [];
+  const t = `${bp.macro.name} ${bp.tone} ${bp.conflictAxis} ${bp.primarySetting.name} ${bp.theme}`.toLowerCase();
+
+  if (/horror|dread|monster|haunt/.test(t)) bits.push("horror");
+  else if (/mystery|detect|investigat|clue/.test(t)) bits.push("mystery");
+  else if (/thrill|chase|danger|pursuit/.test(t)) bits.push("thriller");
+  else if (/romance|love|courtship|marriage/.test(t)) bits.push("romance");
+  else if (/myth|god|magic|prophec|quest|monomyth|rebirth/.test(t)) bits.push("fantasy");
+  else if (/machine|technolog|space|future|science/.test(t)) bits.push("science fiction");
+  else if (/generation|inherit|family|succession/.test(t)) bits.push("family saga");
+  else if (/comic|comedy|farce|satire/.test(t)) bits.push("comedy");
+  else if (/history|historical|chronicle/.test(t)) bits.push("historical");
+  else bits.push("literary");
+
+  if (/institution|bureau|office|civic|maintenance/.test(t)) bits.push("maintenance");
+  if (/child|school|coming of age/.test(t)) bits.push("coming of age");
+
+  const V =
+    bp.chapters.length >= 40 ? 3 :
+    bp.chapters.length >= 20 ? 2 : 1;
+  if (V > 1) bits.push(`${V} book series`);
+  return bits.join(" ");
+}
+
+// ── The single canonical archetype set ──────────────────────────────────────
+
+export type ArchetypeEntry = {
+  /** stable slot key used by the prompt */
+  slot: string;
+  /** human label shown in the UI */
+  label: string;
+  /** the chosen value */
+  value: string;
+  /** why it matters / how to use it in prose */
+  note: string;
+  /** provenance so nothing is unattributed */
+  source: "SAGE" | "SAGA-v2" | "SAGA-v3" | "SAGA-v4" | "EMPTY-SPACE" | "REALITY" | "ONOMASTRATA";
+  /** catalog id when there is one */
+  id?: string;
+};
+
+export type ArchetypeSet = {
+  seed: number;
+  entries: ArchetypeEntry[];
+  bySource: Record<string, number>;
+  /** the exact block injected into the prompt */
+  promptBlock: string;
+};
+
+function truncate(s: string, n: number): string {
+  const t = (s || "").replace(/\s+/g, " ").trim();
+  return t.length <= n ? t : `${t.slice(0, n - 1)}…`;
+}
+
+// ── UnifiedRoll ─────────────────────────────────────────────────────────────
+
+export type UnifiedRollOpts = {
+  seed: number;
+  /**
+   * The EXACT blueprint to describe. When the packaged fiction runner calls us
+   * it already holds the blueprint the user previewed, and we must describe
+   * THAT one. Re-rolling from the seed is not equivalent: `rollSage` skips a
+   * `randPick` when `forceMacroId` is supplied, which shifts the whole PRNG
+   * stream and yields a different POV/tone/setting/cast — the prompt then
+   * described two different books at once (verified defect).
+   */
+  blueprint?: SageBlueprint;
+  chapters?: number;
+  wordsPerChapter?: number;
+  lengthId?: SageBlueprint["length"]["id"];
+  macroId?: string;
+  premise?: string;
+  cadenceSeed?: number;
+  /** 0..6 abstract → documentary. Not seeded: it is a user control. */
+  realityLevel?: number;
+  /** grid tick budget; derived from chapter count when omitted */
+  gridBudget?: number;
+};
+
+export type UnifiedRoll = {
+  seed: number;
+  blueprint: SageBlueprint;
+  spec: GenreSpec;
+  run: GridRun;
+  kallos: KallosReport;
+  reality: RealityLevel;
+  archetypes: ArchetypeSet;
+  world: WorldMapPlace[];
+  cast: ReturnType<typeof buildCastGraph>;
+  modal: ModalShortcutReport;
+  /** the complete block appended to every chapter prompt */
+  directive: string;
+  /** which subsystems actually contributed, for honest UI display */
+  contributions: { system: string; active: boolean; detail: string }[];
+  // v3 additions (P15)
+  request: BuildRequest;
+  requestSource: "studio" | "derived";
+  contract: GenreContract;
+  morph: MorphRun;
+  nameSet: GeneratedName[];
+  nameProfile: string;
+  kallosV3: KallosV3Report;
+  // v4 additions (B5) — AUREATE-SCRIBE
+  styleGenome: StyleGenome;
+  stylePack: StylePackId | null;
+  obligations: RealizationObligation[];
+  controlledSample: string;
+  buildId: string;
+};
+
+// Small LRU: the live panel, the studio (possibly on a lab seed) and the prompt
+// compiler can each hold a different key; a single-entry memo would thrash.
+const _cache = new Map<string, UnifiedRoll>();
+const CACHE_MAX = 4;
+
+/**
+ * THE single entry point. Same (seed, chapters, words, macro, premise, reality)
+ * always yields the same UnifiedRoll. Memoized on that key so the UI and the
+ * prompt compiler share one object without recomputing the CA every keystroke.
+ */
+export function unifiedRoll(opts: UnifiedRollOpts): UnifiedRoll {
+  const seed = opts.seed >>> 0;
+  const rl = Math.max(0, Math.min(6, Math.round(opts.realityLevel ?? 4)));
+  const key = JSON.stringify([
+    seed, opts.chapters ?? null, opts.wordsPerChapter ?? null, opts.lengthId ?? null,
+    opts.macroId ?? null, opts.premise ?? null, opts.cadenceSeed ?? null, rl, opts.gridBudget ?? null,
+    // blueprint identity: two blueprints with the same seed can still differ
+    // (forceMacroId shifts the PRNG stream), so key on its distinguishing fields.
+    opts.blueprint
+      ? [opts.blueprint.macro.id, opts.blueprint.pov, opts.blueprint.tone,
+         opts.blueprint.primarySetting.id, opts.blueprint.protagonist.archetype.id,
+         opts.blueprint.chapters.length].join("|")
+      : null,
+  ]);
+  const hit = _cache.get(key);
+  if (hit) { _cache.delete(key); _cache.set(key, hit); return hit; }
+
+  // 1. SAGE blueprint — the spine. Use the caller's blueprint verbatim when
+  //    given; only roll a fresh one for standalone UI use.
+  const blueprint = opts.blueprint ?? rollSage({
+    seed,
+    cadenceSeed: opts.cadenceSeed ?? seed,
+    premise: opts.premise,
+    lengthId: opts.lengthId,
+    chapters: opts.chapters,
+    wordsPerChapter: opts.wordsPerChapter,
+    forceMacroId: opts.macroId || undefined,
+  });
+
+  // 2. GenreSpec DERIVED from the blueprint (same book, guaranteed)
+  const spec = compileGenreSpec(genreRequestFromBlueprint(blueprint));
+
+  // 3. Genesis-Grid on the SAME seed; budget scaled to the chapter count
+  const gridBudget = Math.max(8, Math.min(96, opts.gridBudget ?? blueprint.chapters.length * 3 + 12));
+  const run = runGenesisGrid({ seed, spec, budget: gridBudget });
+
+  // 4. KALLOS over that run
+  const kallos = computeKallos({ run, profile: spec.kallosProfile });
+
+  // 5. Reality grounding
+  const reality = realityLevel(rl);
+
+  // 6. Derived views (same seed → deterministic names)
+  const world = buildWorldMap(run);
+  const cast = buildCastGraph(run);
+  const modal = modalShortcutTest(run);
+
+  // 6b. SAGA-OS v3: genre CONTRACT (studio-composed if present, else derived
+  //     from the blueprint), MORPHOGENESIS lattice on the SAME user seed,
+  //     ONOMASTRATA v3 audited names, KALLOS v3 with hard gates, BuildID.
+  const studioReq = loadBuildRequest();
+  const request: BuildRequest = studioReq
+    ? { ...studioReq, project: { ...studioReq.project, seed } }
+    : defaultBuildRequest(seed, spec.family);
+  const requestSource: UnifiedRoll["requestSource"] = studioReq ? "studio" : "derived";
+  const contract = compileGenreContract(request);
+  const morph = runMorphogenesis({
+    userSeed: seed, contract, spec,
+    targetWords: blueprint.chapters.reduce((a, c) => a + c.targetWords, 0),
+    lengthMode: spec.V >= 13 ? "serial" : spec.V >= 2 ? "saga" : blueprint.chapters.length <= 3 ? "short" : "novel",
+    budget: Math.max(8, Math.min(96, blueprint.chapters.length * 3 + 12)),
+  });
+  const nameProfile = NAME_PROFILE_FOR_FAMILY[contract.family] ?? "RIVERINE";
+  const ns = generateNameSet(morph.genome, nameProfile, {
+    PERSON: Math.max(3, cast.cast.filter((c) => c.kind === "agent").length),
+    INSTITUTION: Math.max(1, cast.cast.filter((c) => c.kind === "institution").length),
+    PLACE: Math.max(2, world.length), DOCUMENT: 1, LAW: 1, OFFICE: 1,
+  });
+  const nameSet = ns.names;
+  // Overlay the v3 audited names onto the v2 cast/world views so there is ONE
+  // canonical name set everywhere (UI, archetype set, prompt).
+  {
+    const persons = nameSet.filter((n) => n.nameClass === "PERSON");
+    const insts = nameSet.filter((n) => n.nameClass === "INSTITUTION");
+    const places = nameSet.filter((n) => n.nameClass === "PLACE");
+    let pi = 0, ii = 0;
+    for (const c of cast.cast) {
+      if (c.kind === "agent" && persons[pi]) c.name = persons[pi++].given;
+      else if (c.kind === "institution" && insts[ii]) c.name = insts[ii++].given;
+    }
+    world.forEach((w, i) => { if (places[i]) w.label = places[i].given; });
+  }
+  const controlledSample = morph.scenes.slice(0, 3).map((sc) => controlledRealizeScene(sc, nameSet).text).join(" ");
+  const obligations = buildObligations(morph, nameSet);
+  const kallosV3 = evaluateKallosV3({ run: morph, contract, controlledSample, scale: "K2" });
+
+  // 6c. SAGA-OS v4 AUREATE-SCRIBE: the style genotype. Derived from the SAME
+  //     genre contract, so style, structure and reality all describe one book.
+  //     The style pack is a user control (like the reality level) and is
+  //     deliberately NOT seeded.
+  const stylePack = loadStylePack();
+  const styleGenome = applyStylePack(
+    buildStyleGenome(contract.dominant.key, contract.family),
+    stylePack,
+  );
+  const buildId = computeBuildId({
+    request, seedGenome: morph.genome, catalogManifestHash: compileCatalog().manifestHash,
+    genreProfileHash: sha256Hex(JSON.stringify(contract.mix)), audienceProfileHash: sha256Hex(contract.audienceSegment),
+  });
+
+  // 7. ONE archetype set
+  const archetypes = buildArchetypeSet({ seed, blueprint, spec, run, kallos, reality, world, cast, contract, morph, kallosV3, requestSource, styleGenome, stylePack });
+
+  // 8. ONE directive
+  const directive = buildUnifiedDirective({ blueprint, spec, run, kallos, reality, archetypes, contract, morph, kallosV3, styleGenome, stylePack });
+
+  const contributions = [
+    { system: "SAGE blueprint", active: true, detail: `${blueprint.macro.name} · ${blueprint.chapters.length} chapters · seed ${seed}` },
+    { system: "SAGA-OS v1 directive", active: true, detail: "throughline / pacing / promise discipline (package buildSagaDirectiveBlock)" },
+    { system: "SAGA-WIRE", active: true, detail: `${wireCatalog().length} catalog rows typed into 14 slot classes` },
+    { system: "GENRE HELM", active: true, detail: `${spec.family}/${spec.leaf} derived from the blueprint · CA ${spec.caRuleTableId}` },
+    { system: "GENESIS-GRID", active: true, detail: `${run.ticks.length} ticks → ${run.pattern} → ${run.endingFamily}` },
+    { system: "KALLOS", active: true, detail: `composite ${kallos.composite.toFixed(1)} · weakest ${kallos.weakest?.label ?? "n/a"}` },
+    { system: "ONOMASTRATA names", active: true, detail: `${cast.cast.length} cast + ${world.length} place names generated` },
+    { system: "Reality grounding", active: true, detail: `L${reality.id} ${reality.label}` },
+    { system: "v3 CATALOG-COMPILER", active: compileCatalog().releaseOk, detail: `${compileCatalog().compiledRows}/${compileCatalog().canonicalRows} rows compiled · manifest ${compileCatalog().manifestHash.slice(0, 10)}…` },
+    { system: "v3 GENRE HELM contract", active: true, detail: `${contract.mix.map((x) => `${x.key} ${Math.round(x.weight * 100)}%`).join(" + ")} · ${requestSource}` },
+    { system: "v3 MORPHOGENESIS-LATTICE", active: true, detail: `${morph.ticks.length} ticks → ${morph.attractor}${morph.attractorInTarget ? " (in target)" : ""} · ${morph.promises.length} promises · ${morph.volumes.length} vol` },
+    { system: "v3 ONOMASTRATA", active: nameSet.length > 0, detail: `${nameSet.length} audited names · profile ${nameProfile} · ${ns.audit.length} residual confusion findings` },
+    { system: "v3 KALLOS (12-dim, hard gates)", active: true, detail: `${kallosV3.composite} · gates ${kallosV3.gates.filter((g) => g.pass).length}/5 · release ${kallosV3.release}` },
+    { system: "v3 PROSE-COMPILER", active: true, detail: `${obligations.length} realization obligations · CONTROLLED_MODE sample certified · LITERARY_MODE delegated to host LLM` },
+    { system: "v3 SAGA-SCREEN", active: false, detail: "available on demand in the SAGA-OS studio (adaptation is not part of the chapter prompt)" },
+    { system: "v3 KALLOS-LIVE", active: false, detail: "needs ≥50 local audience observations before it adapts weights" },
+    { system: "v4 STYLE-GENOME", active: true, detail: genomeSummary(styleGenome, stylePack) },
+    { system: "v4 AUREATE style contract", active: true, detail: `injected into every chapter prompt · ${stylePack ?? "genre defaults (no pack)"}` },
+    { system: "v4 REVISION STACK + KALLOS-S", active: true, detail: "PASS-001..015 and the 12-dim style score run on generated prose (Studio → Style)" },
+  ];
+
+  const value: UnifiedRoll = {
+    seed, blueprint, spec, run, kallos, reality, archetypes, world, cast, modal, directive, contributions,
+    request, requestSource, contract, morph, nameSet, nameProfile, kallosV3, obligations, controlledSample, buildId,
+    styleGenome, stylePack,
+  };
+  _cache.set(key, value);
+  if (_cache.size > CACHE_MAX) _cache.delete(_cache.keys().next().value as string);
+  return value;
+}
+
+// ── Archetype set construction ──────────────────────────────────────────────
+
+function buildArchetypeSet(x: {
+  seed: number; blueprint: SageBlueprint; spec: GenreSpec; run: GridRun;
+  kallos: KallosReport; reality: RealityLevel;
+  world: WorldMapPlace[]; cast: ReturnType<typeof buildCastGraph>;
+  contract: GenreContract; morph: MorphRun; kallosV3: KallosV3Report; requestSource: "studio" | "derived";
+  styleGenome: StyleGenome; stylePack: StylePackId | null;
+}): ArchetypeSet {
+  const { seed, blueprint: bp, spec, run, reality, world, cast, contract, morph, kallosV3, requestSource, styleGenome, stylePack } = x;
+  const e: ArchetypeEntry[] = [];
+  const add = (
+    slot: string, label: string, value: string, note: string,
+    source: ArchetypeEntry["source"], id?: string,
+  ) => { if (value) e.push({ slot, label, value, note, source, id }); };
+
+  // — spine (SAGE)
+  add("TITLE", "Working title", bp.titleHint, "use as the book title", "SAGE");
+  add("MACRO", "Macro structure", bp.macro.name, bp.macro.function, "SAGE", bp.macro.id);
+  if (bp.secondaryMacro) add("MACRO2", "Braided structure", bp.secondaryMacro.name, bp.secondaryMacro.function, "SAGE", bp.secondaryMacro.id);
+  add("THEME", "Theme", bp.theme, "the argument the book makes", "SAGE");
+  add("QUESTION", "Dramatic question", bp.dramaticQuestion, "every chapter must load-bear this", "SAGE");
+  add("PREMISE", "Premise", bp.premise, "the situation at page one", "SAGE");
+  add("POV", "Point of view", bp.pov, "hold this rigorously", "SAGE");
+  add("CONFLICT", "Conflict axis", bp.conflictAxis, "the opposition's nature", "SAGE");
+  add("TONE", "Tone", bp.tone, "surface temperature of the prose", "SAGE");
+  add("ENDING", "Ending type", bp.ending, "the shape the last chapter must reach", "SAGE");
+
+  // — place
+  add("SETTING", "Primary setting", bp.primarySetting.name, bp.primarySetting.function, "SAGE", bp.primarySetting.id);
+  bp.secondarySettings.slice(0, 3).forEach((s, i) =>
+    add(`SETTING${i + 2}`, `Secondary setting ${i + 1}`, s.name, s.function, "SAGE", s.id));
+  world.slice(0, 4).forEach((p, i) =>
+    add(`PLACE${i + 1}`, `Named place ${i + 1}`, p.label, `${p.residents.length} residents; borders ${p.adjacentSettings.join(", ") || "none"}`, "ONOMASTRATA", p.settingId));
+
+  // — people: SAGE archetypes fused with ONOMASTRATA names (one set, not two)
+  const agentNames = cast.cast.filter((c) => c.kind === "agent");
+  const roleOf = (i: number) => agentNames[i]?.name;
+  add("PROTAGONIST", "Protagonist",
+    `${roleOf(0) ? `${roleOf(0)} — ` : ""}${bp.protagonist.archetype.name}`,
+    `wants ${bp.protagonist.want}; needs ${bp.protagonist.need}; wound: ${bp.protagonist.wound}; voice: ${bp.protagonist.voiceNote}`,
+    "SAGE", bp.protagonist.archetype.id);
+  add("DEUTERAGONIST", "Deuteragonist",
+    `${roleOf(1) ? `${roleOf(1)} — ` : ""}${bp.deuteragonist.archetype.name}`,
+    `wants ${bp.deuteragonist.want}; needs ${bp.deuteragonist.need}; wound: ${bp.deuteragonist.wound}`,
+    "SAGE", bp.deuteragonist.archetype.id);
+  add("ANTAGONIST", "Antagonist",
+    `${roleOf(2) ? `${roleOf(2)} — ` : ""}${bp.antagonist.archetype.name}`,
+    `wants ${bp.antagonist.want}; wound: ${bp.antagonist.wound}; function: ${bp.antagonist.archetype.function}`,
+    "SAGE", bp.antagonist.archetype.id);
+  bp.ensemble.slice(0, 4).forEach((c, i) =>
+    add(`ENSEMBLE${i + 1}`, `Ensemble ${i + 1}`,
+      `${roleOf(3 + i) ? `${roleOf(3 + i)} — ` : ""}${c.archetype.name}`,
+      `wants ${c.want}; voice: ${c.voiceNote}`, "SAGE", c.archetype.id));
+  cast.cast.filter((c) => c.kind === "institution").slice(0, 2).forEach((c, i) =>
+    add(`INSTITUTION${i + 1}`, `Institution ${i + 1}`, c.name, "applies pressure; has its own incentive", "ONOMASTRATA", c.id));
+  bp.nonhumanPresence.slice(0, 2).forEach((n, i) =>
+    add(`NONHUMAN${i + 1}`, `Non-human presence ${i + 1}`, n.name, n.function, "SAGE", n.id));
+
+  // — empty-space mechanisms (the load-bearing strangeness)
+  if (bp.worldMechanism) add("WORLD_MECH", "World mechanism", bp.worldMechanism.name, truncate(bp.worldMechanism.desc, 200), "EMPTY-SPACE", bp.worldMechanism.id);
+  if (bp.beatMechanism) add("BEAT_MECH", "Beat mechanism", bp.beatMechanism.name, truncate(bp.beatMechanism.desc, 200), "EMPTY-SPACE", bp.beatMechanism.id);
+  if (bp.relationshipMechanism) add("REL_MECH", "Relationship texture", bp.relationshipMechanism.name, truncate(bp.relationshipMechanism.desc, 200), "EMPTY-SPACE", bp.relationshipMechanism.id);
+
+  // — SAGA v2 structural verdicts
+  add("GENRE", "Genre (derived)", `${spec.family} / ${spec.leaf}`, `geometry ${spec.geometry}; container ${spec.container}`, "SAGA-v2");
+  add("PATTERN", "Genesis pattern", run.pattern, `${run.patternDetail} → ending family "${run.endingFamily}"`, "SAGA-v2");
+  add("ENDING_FAMILY", "Required ending family", run.endingFamily, "the last chapter must land in this family", "SAGA-v2");
+  add("STAKES_ROTATION", "Stakes rotation", spec.stakesRotation.join(" → "), "rotate; never escalate one axis monotonically", "SAGA-v2");
+  add("PACE", "Pace profile", spec.paceProfile, `tone gradient ${spec.toneGradient}`, "SAGA-v2");
+
+  // — load-bearing catalog elements actually selected by the grid,
+  //   FILTERED BY THE REALITY LEVEL and capped so one chapter is not asked to
+  //   carry eight mechanisms at once.
+  //
+  //   Reality gate: SC-L rows are "laws of story" — impossible physics. At
+  //   L>=4 the grounding contract forbids impossible events, so shipping an
+  //   SC-L mechanism made the archetype set contradict the reality directive
+  //   in the same prompt (verified defect). They are excluded there.
+  const elems: ElementRecord[] = [];
+  const seenEl = new Set<string>();
+  for (const s of run.plan.scenes) {
+    if (s.element && !seenEl.has(s.element.id)) { seenEl.add(s.element.id); elems.push(s.element); }
+  }
+  const allowsImpossible = reality.unexplainedTolerance >= 0.45;   // L0..L3
+  const mechCap = reality.id >= 5 ? 4 : reality.id >= 3 ? 5 : 6;
+  const gated = elems.filter((el) => (allowsImpossible ? true : el.slotClass !== "SC-L"));
+  const dropped = elems.length - gated.length;
+  gated
+    .sort((a, b) => b.rarity - a.rarity)
+    .slice(0, mechCap)
+    .forEach((el, i) =>
+      add(`MECHANISM${i + 1}`, `Load-bearing mechanism ${i + 1}`, el.name,
+        `${truncate(el.desc, 160)} [${el.slotClass} · stakes ${el.stakesAxis} · cost ${el.costAxis}]`,
+        "SAGA-v2", el.id));
+  if (dropped > 0) {
+    add("REALITY_GATE", "Reality gate applied",
+      `${dropped} impossible-physics mechanism(s) withheld`,
+      `reality level L${reality.id} forbids unexplained phenomena, so SC-L "law of story" rows were excluded from this set`,
+      "REALITY");
+  }
+
+  // — SAGA-OS v3 contract + lattice verdict (studio-composed or derived; never silent)
+  add("GENRE_CONTRACT", "Genre contract", contract.mix.map((m) => `${m.key} ${Math.round(m.weight * 100)}%`).join(" + "),
+    `${requestSource === "studio" ? "composed in the SAGA-OS studio" : "derived from the blueprint"}; audience ${contract.audienceSegment}`, "SAGA-v3");
+  add("READER_QUESTION", "Dominant reader question", contract.dominantReaderQuestion, "every volume must move this question", "SAGA-v3");
+  contract.mandatoryPayoffs.slice(0, 3).forEach((mp, i) => add(`PAYOFF${i + 1}`, `Mandatory payoff ${i + 1}`, mp, "must be paid on page", "SAGA-v3"));
+  contract.forbiddenFailures.slice(0, 3).forEach((ff, i) => add(`FORBID${i + 1}`, `Forbidden failure ${i + 1}`, ff, "never write this", "SAGA-v3"));
+  add("TONE_CONTRACT", "Tone contract", contract.toneContract.slice(0, 3).join(" · "), contract.toneContract[3] ?? "", "SAGA-v3");
+  add("LATTICE_VERDICT", "Morphogenesis verdict", `${morph.attractor} → ${morph.endingFamily}`,
+    `${morph.ticks.length} ticks, ${morph.promises.length} promises (${morph.promises.filter((p) => p.state === "PAID").length} paid), ${morph.volumes.length} volume(s)${morph.attractorInTarget ? "" : " — attractor outside contract target, declared"}`, "SAGA-v3");
+  add("KALLOS_V3", "KALLOS v3 gate", `${kallosV3.composite}/100 · release ${kallosV3.release}`,
+    `hard gates ${kallosV3.gates.map((g) => `${g.id}:${g.pass ? "pass" : "FAIL"}`).join(", ")}; weakest ${kallosV3.weakest ? `${kallosV3.weakest.key} ${kallosV3.weakest.score}` : "n/a"}`, "SAGA-v3");
+
+  // — SAGA-OS v4 style genotype
+  add("STYLE_GENOME", "Style genome", genomeSummary(styleGenome, stylePack),
+    "governs sentence syntax, image density, rhythm and focal distance", "SAGA-v4");
+  add("PROSE_MODE", "Prose mode", styleGenome.proseMode,
+    `focal distance ${styleGenome.focalDistance}${stylePack ? `; pack ${stylePack}` : ""}`, "SAGA-v4");
+
+  // — reality grounding
+  add("REALITY", "Reality grounding", `L${reality.id} ${reality.label}`, reality.blurb, "REALITY");
+
+  const bySource = e.reduce<Record<string, number>>((a, x2) => { a[x2.source] = (a[x2.source] ?? 0) + 1; return a; }, {});
+
+  const promptBlock = [
+    `CANONICAL ARCHETYPE SET — seed ${seed}. These ${e.length} slots are the ONLY story facts. Do not invent replacements for them; extend them.`,
+    ...e.map((x2) => `  [${x2.slot}] ${x2.label}: ${x2.value}${x2.note ? ` — ${x2.note}` : ""}`),
+  ].join("\n");
+
+  return { seed, entries: e, bySource, promptBlock };
+}
+
+// ── The unified directive ───────────────────────────────────────────────────
+
+function buildUnifiedDirective(x: {
+  blueprint: SageBlueprint; spec: GenreSpec; run: GridRun;
+  kallos: KallosReport; reality: RealityLevel; archetypes: ArchetypeSet;
+  contract: GenreContract; morph: MorphRun; kallosV3: KallosV3Report;
+  styleGenome: StyleGenome; stylePack: StylePackId | null;
+}): string {
+  const { blueprint: bp, spec, run, kallos, reality, archetypes, contract, morph, kallosV3, styleGenome, stylePack } = x;
+  const wordsPerChapter = Math.round(
+    bp.chapters.reduce((a, c) => a + c.targetWords, 0) / Math.max(1, bp.chapters.length),
+  );
+
+  const stakeLine = run.plan.chapters.slice(0, 14)
+    .map((c) => `ch${c.index}:${c.dominantStakes ?? "—"}`).join(" · ");
+
+  const v2 = [
+    "SAGA-OS v2 COMPOSITION DISCIPLINE (apply silently; never name these rules in the prose):",
+    `- Genre: ${spec.family}/${spec.leaf}. Geometry ${spec.geometry}. Container ${spec.container}. Tone gradient ${spec.toneGradient}.`,
+    `- Structural verdict: ${run.pattern} — ${run.patternDetail}. The book must end in the "${run.endingFamily}" family.`,
+    `- Stakes rotation (do not let one axis dominate consecutive chapters): ${stakeLine}${run.plan.chapters.length > 14 ? " …" : ""}.`,
+    `- Cost routing: every apparent success charges a visible ${[...new Set(run.plan.scenes.map((s) => s.cost))].slice(0, 5).join("/")} cost to a named person, institution, or future.`,
+    `- Promise discipline: ${run.plan.promiseOps.length} closures are scheduled. Every setup must be PAID, TRANSFERRED, EXPIRED, or explicitly RESIDUALIZED. No orphan setups.`,
+    `- KALLOS weakest pillar: ${kallos.weakest ? `${kallos.weakest.label} (${kallos.weakest.score.toFixed(2)})` : "n/a"} — write to strengthen it specifically.`,
+  ].join("\n");
+
+  // At grounded levels the SAGE cast can still carry archetypal labels
+  // ("the personified abstraction", "the animal-as-protagonist"). Those are
+  // CASTING NOTES, not literal instructions, and the model must be told so or
+  // it will write a talking abstraction into a documentary. This clause is the
+  // bridge between the archetype vocabulary and the grounding contract.
+  const reconcile = reality.id >= 4
+    ? [
+        "ARCHETYPE ⇄ REALITY RECONCILIATION (mandatory at this grounding level):",
+        `- Character archetype labels above are CASTING NOTES describing a dramatic function, not literal beings. Render every one of them as an ordinary, physically real person with a job, an address, and a body.`,
+        `- "Personified abstraction", "non-human presence", and similar labels must be realised as a real institution, a real animal, a real document, a real machine, or a real person who embodies that pressure. Never as a literal supernatural entity.`,
+        `- If a listed mechanism cannot occur under level ${reality.id} physics, realise its SOCIAL and ECONOMIC shape instead of its impossible mechanism, and never state the impossible version.`,
+      ].join("\n")
+    : "";
+
+  const failedGates = kallosV3.gates.filter((g) => !g.pass).map((g) => g.id);
+  const v3 = [
+    "SAGA-OS v3 GENRE CONTRACT (binding; a chapter that breaks it fails the release gate):",
+    `- Reader question to move this chapter: ${contract.dominantReaderQuestion}`,
+    `- Expected pleasures to deliver across the book: ${contract.expectedPleasures.slice(0, 4).join("; ")}.`,
+    `- Mandatory payoffs (must land on page by the end): ${contract.mandatoryPayoffs.slice(0, 3).join("; ")}.`,
+    `- Forbidden failures (never): ${contract.forbiddenFailures.slice(0, 4).join("; ")}.`,
+    `- Tone: ${contract.toneContract.slice(0, 3).join("; ")}. ${contract.toneContract[3] ?? ""}`.trim(),
+    `- Audience constraints: ${contract.audienceConstraints.join("; ")}.`,
+    `- Prose register: ${contract.proseRegister}. Names follow one phonology: ${contract.nameRegister}.`,
+    `- Lattice verdict: ${morph.attractor} → the book must land in the "${morph.endingFamily}" ending family; ${morph.volumes.length > 1 ? `${morph.volumes.length} volumes, each with local closure and a series delta` : "single volume with local closure"}.`,
+    failedGates.length
+      ? `- KALLOS v3 release gate currently BLOCKED by: ${failedGates.join(", ")} — repair the plan-level defect in prose (close the open promise / avoid the canon conflict) rather than papering over it.`
+      : `- KALLOS v3 hard gates pass (grammar, logic, completeness, genre_contract, canon). Weakest dimension: ${kallosV3.weakest ? `${kallosV3.weakest.label} (${kallosV3.weakest.score})` : "n/a"} — strengthen it in this chapter.`,
+  ].join("\n");
+
+  return [
+    archetypes.promptBlock,
+    "",
+    buildRealityDirective(reality.id, { chapterWords: wordsPerChapter }),
+    reconcile ? "" : null,
+    reconcile || null,
+    "",
+    v2,
+    "",
+    v3,
+    "",
+    buildAureateDirective(styleGenome, stylePack, { chapterWords: wordsPerChapter }),
+  ].filter((l) => l !== null).join("\n");
+}
+
+/** Test helper: clears the memo (used by hand-trace scripts). */
+export function __clearUnifiedRollCache(): void { _cache.clear(); }

package/src/lib/sage/worked-sketches.ts

@@ -0,0 +1,44 @@
+/**
+ * SAGE worked-sketch corpus — Turn 8 (append-only, verbatim).
+ * ---------------------------------------------------------------------------
+ * Source: user-provided P8 "§WORKED — 20 Story Sketches (proving playability
+ * of the strongest primitives)". Transcribed 1:1 (multi-line sketch text
+ * collapsed to single-line prose; wording preserved). These are demonstration
+ * fixtures proving the strongest empty-space primitives compose into viable
+ * narratives; they are exported for reference and can seed SAGE premises.
+ *
+ * HONESTY: static transcription from provided context. No external source,
+ * search, or novelty detector used.
+ */
+
+export type WorkedSketch = {
+  id: string;
+  title: string;
+  primitives: string;
+  sketch: string;
+};
+
+export const WORKED_SKETCHES: readonly WorkedSketch[] = [
+  { id: "SKETCH-001", title: "The Ash Heir", primitives: "ES-HWA016 (Ash-Heir) + ES-HEC008 (Recovery Bond) + ES2-END005 (Maintenance Ending)", sketch: "A woman inherits monitoring duty for a landfill closed before her birth. She discovers the recovery bond her grandmother posted — released only at verified succession milestones. The landfill is growing wildflowers. She measures them against the milestone checklist. The story ends with her filing the report that releases the bond to her daughter, who will file the next one in thirty years. The ending is a schedule." },
+  { id: "SKETCH-002", title: "Counterfeit Indigo", primitives: "ES-HCO008 (Counterfeit Indigo Court) + ES2-CH014 (Witness Who Benefited)", sketch: "A dyer is called to testify that a rival's indigo is counterfeit. She knows it is — but her own business thrived because the rival's fake flooded the market and drove up prices for real indigo. Her testimony would be true, doubted (she benefits from the conviction), and self-ruinous (investigation would reveal her windfall). She sits in the witness box. The story is whether she speaks." },
+  { id: "SKETCH-003", title: "The Memory Baseline", primitives: "ES-HAI003 (Memory Baseline Herd) + ES2-SIT006 (Contested Non-Event)", sketch: "Two families dispute whether a boundary agreement was ever made, forty years ago. The court consults the elephant herd that roams the disputed ground. The elephants avoid a specific clearing — suggesting something happened there — but the clearing is on the wrong side of the claimed boundary. Both families realize the elephants remember an event neither family does." },
+  { id: "SKETCH-004", title: "Whisper Franchise", primitives: "ES-HBR006 (Whisper Franchise) + ES2-SUB007 (Anti-Confidant)", sketch: "In a dense vertical city, whisper-band rights are licensed. A woman holds the franchise for floors 14–18. Her neighbor tells her everything — falsely, carefully, lovingly — because the neighbor believes the whisper-franchise holder can hear through walls. She can't. She knows the stories are lies. She protects them anyway, because the neighbor needs to believe someone is listening." },
+  { id: "SKETCH-005", title: "The Losing Rite", primitives: "ES-HGA004 (Losing Rites) + ES2-CH010 (Calibrated Coward)", sketch: "Annual civic game. The loser becomes the town's Fool for a year — a ceremonial office with real power (licensed truth-telling, immunity from small debts). A man who has precisely mapped his own courage knows he can lose on purpose. The story is the game itself: he must lose convincingly enough to earn the office, but not so obviously that the loss is disqualified as intentional." },
+  { id: "SKETCH-006", title: "Erosion Witness", primitives: "ES-HLA001 (Erosion Witness) + ES2-NR005 (Translation-Loss Narrator)", sketch: "An old woman testifies about a cliff that has retreated forty meters in her lifetime. The proceedings are in a language she learned as an adult. She marks, honestly, where her testimony is certain, probable, and possible. The court must weigh geological truth delivered through linguistic uncertainty. Her most important memory — the sound the cliff made the night it took the church — she cannot translate at all." },
+  { id: "SKETCH-007", title: "The Ferment Calendar", primitives: "ES-HSU008 (Ferment Calendar) + GS-PHEN002 (Mismatch Year)", sketch: "A town measures its year by communal fermentation batches. This year the batch spoiled early — the calendar shortened. But the pollinator season hasn't shifted. Flowers bloom in what the town calls \"next year\" while the bees think it's still this one. The agricultural agent must reconcile two calendars that have never disagreed before." },
+  { id: "SKETCH-008", title: "Pioneer Household", primitives: "ES-HEC002 (Pioneer-Species Household) + ES2-TW004 (Maintenance Reveal)", sketch: "A family has lived on a floodplain for three generations under pioneer status — improving the soil, planting windbreaks, stabilizing the bank. Their contract says they must leave when the next succession stage arrives. An ecologist certifies: the stage has arrived. The family's own work caused it. The twist is that their departure was always the contractual definition of success, and they knew." },
+  { id: "SKETCH-009", title: "The Overlap Hour", primitives: "ES2-SET005 (Overlap Hour Place) + ES-HSITB004 (Elevator Pact)", sketch: "A building serves as a school by day and a shelter by night. During the one-hour overlap, a teacher and a shelter resident share the elevator. They have forty seconds. Every day for a year. The story is told in forty-second chapters. By the end, neither speaks, but the silence has become specific." },
+  { id: "SKETCH-010", title: "Glove Census", primitives: "ES-HTO005 (Glove Census) + ES2-CH006 (Second-Confirmer)", sketch: "In a city where bare palms are rationed to specific hours, a clerk certifies handshakes. She has never originated anything — only confirmed others' agreements. One day she is asked to certify her own marriage contract. She cannot: she is the confirmer, not the party. The story is her search for someone whose confirmation she would accept." },
+  { id: "SKETCH-011", title: "The Scent Executor", primitives: "ES-HSC003 (Smell Executor) + ES-HDEATH002 (Distributed Death)", sketch: "A woman's job is releasing the deceased's scent-signature to the public. The death must be announced in a specific order to specific people. She holds the perfume bottle. She holds the list. The first person on the list is herself — the deceased was her mother. She must smell it first, then carry it to the others, arriving at each door already grieving." },
+  { id: "SKETCH-012", title: "Meridian Court", primitives: "ES-HAS008 (Meridian Court) + ES2-SIT013 (Necessary Audience)", sketch: "A trial can proceed only at local solar noon, and only if a specific reluctant witness agrees to watch. The witness refuses. Every day the sun crosses the meridian and the court opens and closes empty. The defendant ages. The plaintiff ages. The witness tends her garden. The story is the negotiation to get her to look." },
+  { id: "SKETCH-013", title: "Blank-Page Ration", primitives: "ES-HPU008 (Blank-Page Ration) + ES2-TW009 (Off-Stage Payer Reveal)", sketch: "A poet has used all her certified blank pages for the year. She discovers her father has been buying black-market pages and slipping them into her desk for years. Every poem she thought she earned was written on purchased possibility. The twist isn't the gift — it's the invoice. Someone was paying, and the bill has arrived." },
+  { id: "SKETCH-014", title: "The Handoff", primitives: "GS-W004 (Night-Shift Continuity) + ES2-MB009 (Maintenance Litany)", sketch: "Two shift workers who have never met share a clipboard. Each night, one writes what is working. Each morning, the other reads it. The story is the clipboard. Over months, the entries become personal. One night, the litany includes: \"Pump 3 fine. Seals fine. I think I'm getting divorced.\" The morning reader must decide whether to respond in the maintenance log." },
+  { id: "SKETCH-015", title: "Eclipse Amnesty", primitives: "ES-HAS003 (Eclipse Amnesty) + ES-HDE001 (Debt Sabbath)", sketch: "An eclipse is predicted. All debts below a threshold will be extinguished. A woman owes exactly one unit above the threshold. She spends the week before the eclipse trying to pay down one unit — not to clear the debt, but to get it below the line so the sky will do the rest. The eclipse comes. She is one cent short." },
+  { id: "SKETCH-016", title: "Scar Sabbatical", primitives: "ES-HBI006 (Scar Sabbatical) + ES2-CH003 (Peak-Passed Protagonist)", sketch: "A body-modification artist is in her mandatory unmodified years. She is famous for one piece — a full-back design she did on herself a decade ago. During the sabbatical, it fades. She cannot touch it. The story is living as the site of a former masterpiece while it slowly becomes ordinary skin." },
+  { id: "SKETCH-017", title: "The Arrested Garden", primitives: "ES-HEC007 (Arrested-Succession Garden) + GS-P004 (Maintenance Plot)", sketch: "A meadow is being held at mid-succession by a family who mows, weeds, and burns on a precise schedule. The meadow wants to become forest. The family's heroism is preventing change. One summer, the youngest daughter asks: \"Why don't we let it grow?\" The story is the family's attempt to answer." },
+  { id: "SKETCH-018", title: "Sediment Parliament", primitives: "ES-HLA005 (Sediment Parliament) + GS-H2O002 (Upstream Promise)", sketch: "Upstream villages deposit silt that downstream villages need for farming but that also clogs the harbor. The Sediment Parliament meets annually. This year, the upstream delegate's daughter is marrying the downstream delegate's son. The silt allocation is the dowry negotiation. The river doesn't care." },
+  { id: "SKETCH-019", title: "The Recognition Estate", primitives: "ES-HAI008 (Recognition Estate) + ES2-END004 (Split-Custody Ending)", sketch: "An old woman's will leaves her estate to \"whoever the crows still approach.\" Two grandchildren — one kind, one practical — wait in the garden. The crows approach both. The court must split the estate by the crows' preference gradient, which is indistinguishable. The ending is a negotiated dual-custody agreement the crows will never ratify." },
+  { id: "SKETCH-020", title: "The Ante of Attention", primitives: "ES-HGA008 (Ante of Attention) + ES2-SUB009 (Rival's Advocate)", sketch: "In a dispute settled by civic game, the entry stake is minutes of listening. Before the game, each side must listen to the other's full case. A woman is assigned as her enemy's advocate — she must argue his position to the court. She does it so well that the court awards him the listening-minutes she earned. She loses the game with his words in her mouth." },
+] as const;
+
+export const WORKED_SKETCHES_TOTAL = WORKED_SKETCHES.length;