yichus 0.2.0 → 0.3.0

package/dist/studio-page/system-map.js

@@ -16,7 +16,7 @@
 // from the record. Every drawn mark carries data-mark (its kind, explained
 // on web/system-map-blocks.html) and data-f (the facts it draws).
 
-import { SANS, MONO, textWidth, clipText, fitLabel, lineGap, boxAttr, fitAttr, owned, labelled, wrapText, anchorAttr, anchored, bound } from './label-fit.js';
+import { SANS, MONO, textWidth, clipText, fitLabel, lineGap, boxAttr, fitAttr, owned, labelled, wrapText, widestPiece, anchorAttr, anchored, bound } from './label-fit.js';
 
 const C = {
   ink: '#0f172a', ink2: '#334155', muted: '#64748b', faint: '#94a3b8', hair: '#e2e8f0',
@@ -26,6 +26,9 @@ const C = {
   hull: '#f1ecfb', hullEdge: '#c9b8ee', hullInk: '#5b3fa8',
   guard: '#b4231d', region: '#f4f6fa', regionEdge: '#dfe4ec',
   model: '#8b45d6', modelSoft: '#f3ebfc', net: '#c7700a', netSoft: '#fcf1e3',
+  // the program runner (compile, run) and an effect of no outside resource
+  compile: '#0e7490', compileSoft: '#e0f2f6', run: '#0e7490', runSoft: '#e0f2f6', io: '#64748b', ioSoft: '#eef2f6',
+  program: '#0f5132', programSoft: '#eef7f1', programEdge: '#7fb69a',
 };
 const esc = s => String(s).replace(/&/g, '&amp;').replace(/</g, '&lt;').replace(/>/g, '&gt;').replace(/"/g, '&quot;');
 export const tw = (s, size, mono = true, weight = 400) => textWidth(s, size, mono, weight);
@@ -36,33 +39,16 @@ const f1 = n => (+n).toFixed(1);
 export const MIN_LABEL = 9;
 // every drawn element names the facts it draws, for tests/site/system-map.test.mjs
 export const tg = (keys, svg) => { const ks = [].concat(keys).filter(Boolean); return ks.length ? `<g data-f="${ks.map(k => encodeURIComponent(k)).join(' ')}">${svg}</g>` : svg; };
-// A name that does not fit on one line at 80% size is broken in two after a
-// separator ('_', ', ', ' in ', '(', ' · ') nearest its middle; 'up' puts the
-// first half above, 'down' below. Returns the svg.
-function wrapLines(s, width, size = 10, mono = true, maxLines = 3) {
-  s = String(s);
-  const one = fitText(s, size, width, mono, 0.8);
-  if (!one.s.endsWith('…') || maxLines < 2) return [one];
-  // greedy: as much as fits on each line, cut after a separator
-  const sz = Math.max(MIN_LABEL, size * 0.8);
-  const lines = []; let rest = s;
-  while (rest.length && lines.length < maxLines) {
-    if (tw(rest, sz, mono) <= width || lines.length === maxLines - 1) { lines.push(rest); rest = ''; break; }
-    let cut = -1;
-    for (const sep of ['_', ', ', ' in ', '(', ' · ', '-', '/', ' ']) { let i = rest.indexOf(sep, 1); while (i > 0) { const k = i + (sep === '(' ? 0 : sep.length); if (tw(rest.slice(0, k), sz, mono) <= width && k > cut) cut = k; i = rest.indexOf(sep, i + 1); } }
-    if (cut <= 0) { cut = 1; while (cut < rest.length && tw(rest.slice(0, cut + 1), sz, mono) <= width) cut++; }
-    lines.push(rest.slice(0, cut)); rest = rest.slice(cut);
-  }
-  return lines.map(t => fitText(t, sz, width, mono, 0.85));
-}
-const lineLead = size => size * 0.95 + 1.4;
-function T2(x, y, s, width, o = {}, dir = 'up', maxLines = 3) {
-  const size = o.size || 10, lines = wrapLines(s, width, size, o.mono !== false, maxLines), n = lines.length;
-  return lines.map((f, i) => T(x, dir === 'up' ? y - (n - 1 - i) * lineLead(size) : y + i * lineLead(size), f.s, { ...o, size: f.size, full: f.s.endsWith('…') ? s : null })).join('');
-}
 // a station's verb and tables, on as many lines as they take up to three; more, the verb and the count of tables
 function reachLines(text, width, size) {
-  const ls = wrapText(text, Math.max(MIN_LABEL, size), width).map(s => ({ s, size: Math.max(MIN_LABEL, size) }));
+  const sz = Math.max(MIN_LABEL, size);
+  let ls = wrapText(text, sz, width).map(s => ({ s, size: sz }));
+  // too narrow for its words on one line: the verb stays whole on its own line, the tables clip under it
+  const [verb, ...rest] = text.split(' ');
+  // not even the verb fits: no words (the station's mark still says it reads or writes)
+  if (wrapText(verb, sz, width)[0] !== verb) return [];
+  if (ls.length === 1 && ls[0].s.endsWith('…') && rest.length)
+    ls = [verb, ...wrapText(rest.join(' '), sz, width)].map(s => ({ s, size: sz }));
   if (ls.length <= 3) return ls;
   const short = fitText(`${text.match(/^(read|write|delete)( · (read|write|delete))*/)[0]} ${text.split(', ').length} tables`, size, width);
   return short.s.endsWith('…') ? ls : [short];
@@ -116,8 +102,12 @@ const Tw = (x, y, lines, o, full, gap, dir = 'down') => {
   return n > 1 ? `<g><title>${esc(name)}</title>${body}</g>` : body;
 };
 
+
 // ---------------------------------------------------------------- marks
 // Each mark is one concept. The same function draws it in both views.
+// what a ? says: on hover, and once in words in the key beside the rail
+const UNTRACED = 'the database handle is traced to where it comes from on some paths only';
+const UNTRACED_WORD = 'partly traced';
 export const mark = {
   dot: (x, y, r = 3.4, fill = C.ink2) => `<circle cx="${f1(x)}" cy="${f1(y)}" r="${r}" fill="${fill}"/>`,
   // station: a ring where a definition touches a resource; filled = writes
@@ -146,7 +136,7 @@ export const mark = {
   handle: (x, y, kind = 'db', r = 5.5) => `<circle cx="${f1(x)}" cy="${f1(y)}" r="${r}" fill="${kind === 'record' ? C.rec : C.db}" stroke="${C.paper}" stroke-width="1.5"/>`,
   // the builder: a plus-disc where the handle is made, at the use
   builder: (x, y, kind = 'db', r = 5) => `<circle cx="${f1(x)}" cy="${f1(y)}" r="${r}" fill="${C.paper}" stroke="${kind === 'record' ? C.rec : C.db}" stroke-width="1.6"/><path d="M${f1(x - r * 0.55)} ${f1(y)} H${f1(x + r * 0.55)} M${f1(x)} ${f1(y - r * 0.55)} V${f1(y + r * 0.55)}" stroke="${kind === 'record' ? C.rec : C.db}" stroke-width="1.6"/>`,
-  unknown: (x, y, r = 7) => `<circle cx="${f1(x)}" cy="${f1(y)}" r="${r}" fill="${C.wash}"/>` + T(x, y + r * 0.5, '?', { anchor: 'middle', size: r * 1.4, weight: 700, fill: C.muted, mono: false, halo: false }),
+  unknown: (x, y, r = 7) => `<title>${UNTRACED}</title><circle cx="${f1(x)}" cy="${f1(y)}" r="${r}" fill="${C.wash}"/>` + T(x, y + r * 0.5, '?', { anchor: 'middle', size: r * 1.4, weight: 700, fill: C.muted, mono: false, halo: false }),
   loop: (x, y, r, color = C.hullInk) => `<path d="M${f1(x + r)} ${f1(y)} A${r} ${r} 0 1 1 ${f1(x)} ${f1(y - r)}" fill="none" stroke="${color}" stroke-width="1.6"/><path d="M${f1(x - 4)} ${f1(y - r - 3.5)} L${f1(x + 1)} ${f1(y - r)} L${f1(x - 4)} ${f1(y - r + 3.5)}" fill="none" stroke="${color}" stroke-width="1.4"/>`,
   // callers
   client: (x, y, s = 1, ghost = false) => {
@@ -170,7 +160,9 @@ for (const [k, f] of Object.entries(mark)) mark[k] = (...a) => `<g data-mark="${
 // A drawn shape of one kind that is not one of the marks above.
 const shape = (kind, svg) => `<g data-mark="${kind}">${svg}</g>`;
 export const MARK_KINDS = [...new Set([...Object.values(MARK_KIND), 'resource', 'hull', 'rail', 'cable', 'bracket', 'role', 'token', 'afterDot', 'modelRing', 'netRing',
-  'modelCount', 'port', 'plug', 'package', 'chain', 'composes', 'combination', 'generic', 'loop', 'wall',
+  'reachedBy', 'port', 'plug', 'package', 'chain', 'composes', 'combination', 'generic', 'loop', 'wall',
+  // the program band: a pure program, its requests, and the engines that perform them
+  'program', 'decision', 'request', 'variant', 'gap', 'wire', 'lane', 'laneFork', 'laneResource', 'replyLoop', 'starter', 'programEffect', 'replaced',
   // the what-happens view's (what-happens.js) one new mark: the end of a path
   'outcome'])].sort();
 
@@ -213,20 +205,22 @@ const tableLines = (tables, room, phone) => tables.flatMap(t => wrapText(t, phon
 const RACK = ['db', 'model', 'net'];
 
 // notes: lines of computed text under a present slot, e.g. { model: { lines, kind } }
-function rack(map, x, y, phone, room, notes = {}) {
+function rack(map, x, y, phone, room, notes = {}, scale = {}) {
   // fixed slots: db, model, net, top to bottom, present or struck
   const out = [], pos = new Map();
-  const w = phone ? 38 : 64, h = phone ? 46 : 64, gw = w * 0.66, gh = h * 0.66;
+  const w0 = phone ? 38 : 64, h0 = phone ? 46 : 64, gw = w0 * 0.66, gh = h0 * 0.66;
   let yy = y;
   for (const k of RACK) {
     const present = map.resources.find(r => r.kind === k);
+    // a present resource drawn at its share of the routes that reach it (1 when nothing is counted)
+    const w = w0 * (scale[k] ? scale[k].w : 1), h = h0 * (scale[k] ? scale[k].h : 1);
     if (present) {
       const tl = k === 'db' ? (present.tables || []) : [];
       out.push(tg([`resource:${k}`], shape('resource', resourceGlyph(k, x - w / 2, yy, w, h, phone, false, tl, room))));
       pos.set(k, { x: x - w / 2, cx: x, y0: yy, y1: yy + h, bottom: yy + h });
       const tablesH = tl.length && tl.length < 12 ? tableLines(tl, room, phone).length * (phone ? 11 : 13) + (phone ? 6 : 8) : 0;
       const note = notes[k], ls = phone ? 11 : 12;
-      if (note) out.push(shape(note.kind, note.lines.map((l, i) => T(x, yy + h + tablesH + (phone ? 12 : 14) + i * ls, l, { anchor: 'middle', size: phone ? 9 : 10, fill: C[k] })).join('')));
+      if (note) out.push(tg(note.keys, shape(note.kind, note.lines.map((l, i) => T(x, yy + h + tablesH + (phone ? 12 : 14) + i * ls, l, { anchor: 'middle', size: phone ? 9 : 10, fill: C[k] })).join(''))));
       yy += h + tablesH + (note ? note.lines.length * ls + 4 : 0) + (phone ? 14 : 20);
     } else {
       out.push(tg([`ghost:${k}`], shape('struck', resourceGlyph(k, x - gw / 2, yy, gw, gh, phone, true))));
@@ -329,7 +323,25 @@ function renderService(map, W, opts) {
   const gap = phone ? 3 : 4;
   const lockW = e => (e.authority === 'publishable' || e.signedIn ? (phone ? 12 : 14) : 0);
   const labX = e => x0 + (phone ? 7 : 10) + lockW(e);
-  const countOf = e => (e.members.length > 1 ? `×${e.members.length}` : '');
+  // a bundle says what it counts: its routes
+  const countOf = e => (e.members.length > 1 ? `${e.members.length} routes` : '');
+  // A row's checks by name: every member's, not only the first's (a bundle
+  // holds routes with the same marks, not the same checks). A check that
+  // took another definition's place on the same route since the compared
+  // base is named with the one it replaced.
+  const replacedAt = new Map(((map.compare && map.compare.replaced) || []).map(r => [`${r.entry} ${r.within} ${r.at}`, r]));
+  const checks = (e, within, idsOf, namesOf) => {
+    const words = [], replaced = [];
+    for (const m of e.members) idsOf(m).forEach((id, i) => {
+      const r = replacedAt.get(`${m.key} ${within} ${i}`), nm = namesOf(m)[i];
+      const w = r ? `${nm} (in place of ${r.wasLabel})` : nm;
+      if (!words.includes(w)) words.push(w);
+      if (r) replaced.push(`replaced:${m.key}:${id}`);
+    });
+    return { text: words.join(', '), names: words, replaced };
+  };
+  const checkLabel = (c, svg) => c.replaced.length ? tg(c.replaced, shape('replaced', svg)) : svg;
+  for (const e of ents) e._chk = { h: checks(e, 'handler', m => m.guardIds, m => m.guards), p: checks(e, 'passed', m => m.passed[0]?.guardIds || [], m => m.passed[0]?.guards || []), a: checks(e, 'after', m => m.beside?.guardIds || [], m => m.beside?.guards || []) };
   // the hull band starts past the names of the routes that enter it, as far as half the wall
   const hx0 = Math.min(col(0.5, 0.5), Math.max(col(0.22, 0.34), ...rowsIn.filter(e => e.wrapper)
     .map(e => labX(e) + tw(e.bundle ? e.bundle.label : e.path, fs) + (countOf(e) ? gap + tw(countOf(e), fs, true, 700) : 0) + 6)));
@@ -467,7 +479,7 @@ function renderService(map, W, opts) {
     // the left column
     const leftEnd = clear(i, x2, e.wrapper ? hx0 - 6 : (e.guards.length ? gx - 9 : xh - rS - 6), true);
     const left = [];
-    const guardLines = !e.wrapper && e.guards.length ? wrapped(e.guards.join(', '), gx - 7 - x2, { size: fsS }) : [];
+    const guardLines = !e.wrapper && e.guards.length ? wrapped(e._chk.h.text, gx - 7 - x2, { size: fsS }) : [];
     guardLines.forEach(() => left.push('guard'));
     const guardFork = !e.wrapper && !dense ? forkLines(keyedTypes(e.members.flatMap(m => m.guardIds)), gx + 6 - 3 - x2) : [];
     guardFork.forEach(() => left.push('guardFork'));
@@ -487,7 +499,7 @@ function renderService(map, W, opts) {
       built = builtAt.get(`h:${i}`);
       if (built) right.push('builder');
     } else {
-      const gname = p && p.guards.length && !dense ? p.guards.join(', ') : '';
+      const gname = p && p.guards.length && !dense ? e._chk.p.text : '';
       // the check's name over its diamond when it fits there and the function's name leaves room; else right of its stem
       guardBelow = !!gname && (tw(p.label || '', fsS) > xPG - tw(gname, fsS) / 2 - 8 - xSockText || tw(gname, fsS) > (hx1 - xPG) * 2 - 8);
       const gw = gname ? tw(gname, fsS) / 2 + 8 : 0;
@@ -523,7 +535,7 @@ function renderService(map, W, opts) {
       if (b.guards.length) {
         const free = dense || !(p && (p.label || (p.guards.length && !guardBelow)));
         const from = free ? [...lanes.values()].filter(l => i > l.top && l.x < xr).reduce((s, l) => (l.x + l.m > s ? l.x + l.m : s), xSock + rS + 4) : hx1;
-        afterGuard = wrapped(b.guards.join(', '), xr - 8 - from, { size: fsS });
+        afterGuard = wrapped(e._chk.a.text, xr - 8 - from, { size: fsS });
       }
       for (let k = 0; k < Math.max(inner.length, xpg, afterWords.length + afterAt - 1); k++) right.push('inner');
       // a wrapper of this row alone: its own station's forks, tables and builder sit under it too
@@ -578,9 +590,9 @@ function renderService(map, W, opts) {
     over.push(tg(ks.flatMap(id => [`fork:${id}`, `forkRow:${id}`]), mark.fork(x, fy, phone ? 0.6 : 0.7) + owned(own, rowB(row, label))));
   };
   // a check's diamond with its name above it, inside the room given
-  const guardAt = (keys, names, x, y, room, s = 1, own = 'canvas', row = null) => {
+  const guardAt = (keys, names, x, y, room, s = 1, own = 'canvas', row = null, named = svg => svg) => {
     over.push(tg(keys, mark.guard(x, y, s * (phone ? 0.8 : 0.95))));
-    if (names.length) out.push(owned(own, rowB(row, L(x, y - (phone ? 10 : 12), names.join(', '), room, { anchor: 'middle', size: fsS, fill: C.guard }))));
+    if (names.length) out.push(owned(own, rowB(row, named(L(x, y - (phone ? 10 : 12), names.join(', '), room, { anchor: 'middle', size: fsS, fill: C.guard })))));
   };
   // a builder hung under a mark on line k, its name to the right from x
   const builder = (b, px, y, k, x, end, own = 'canvas', row = null) => {
@@ -635,7 +647,7 @@ function renderService(map, W, opts) {
       if (e.guards.length) {
         guardAt(each(e, m => m.guardIds.map(g => `guard:${m.key}:${g}`)), [], gx, y, 0, 0.85);
         // its name under the path, left of the failure stem; its fork's types under that
-        out.push(rowB(e, Tw(gx - 7, at('guard'), guardLines, { anchor: 'end', size: fsS, fill: C.guard }, e.guards.join(', '), lead)));
+        out.push(rowB(e, checkLabel(e._chk.h, Tw(gx - 7, at('guard'), guardLines, { anchor: 'end', size: fsS, fill: C.guard }, e._chk.h.text, lead))));
         forkAt(e.members.flatMap(m => m.guardIds), gx + 6, y, left.indexOf('guardFork') + 1, x2, 'canvas', true, e);
       }
       const station = own.length ? mark.station(xh, y, rS, writesIn(own)) : mark.dot(xh, y, 3.2);
@@ -700,7 +712,7 @@ function renderService(map, W, opts) {
       const rowId = `route:${e.key}`;
       over.push(tg(each(e, m => `socket:${m.key}`), mark.socket(xSock, y, rS * 1.05, writesIn(pr), pr.length > 0 && !writesIn(pr))));
       socketPt.set(e.key, [xSock, y]);
-      const gw = p && p.guards.length ? tw(p.guards.join(', '), fsS) / 2 + 8 : 0;
+      const gw = p && p.guards.length ? tw(e._chk.p.text, fsS) / 2 + 8 : 0;
       // the handed-in function's name above the path; over a check whose name went below, high enough to clear the diamond
       if (handed.length) out.push(owned(hull, rowB(e, Tw(xSockText, y - (below ? (phone ? 9 : 11) : (phone ? 6 : 7)), handed, { size: fsS, fill: C.hullInk }, p.label, lead, 'up'))));
       reach.forEach((f, k) => out.push(owned(hull, rowB(e, T(rightX, line(y, k + 1), f.s, { size: f.size, fill: C.db, full: reachLabel(pr) })))));
@@ -709,8 +721,8 @@ function renderService(map, W, opts) {
       if (p && p.guards.length) {
         out.push(`<path${anchorAttr(rowId)} d="M${f1(xSock + rS)} ${y} H${f1(xPG)}" stroke="${C.ink2}" stroke-width="${f1(cableW(e))}"/>`);
         const gkeys = each(e, m => (m.passed[0]?.guardIds || []).map(g => `guard:${m.key}:passed:${g}`));
-        guardAt(gkeys, dense || below ? [] : p.guards, xPG, y, (hx1 - xPG) * 2 - 8, 0.9, hull, e);
-        if (below) out.push(owned(hull, rowB(e, Tw(xPG + 6, line(y, 1), xpgGuard, { size: fsS, fill: C.guard }, p.guards.join(', '), lead))));
+        guardAt(gkeys, dense || below ? [] : e._chk.p.names, xPG, y, (hx1 - xPG) * 2 - 8, 0.9, hull, e, svg => checkLabel(e._chk.p, svg));
+        if (below) out.push(owned(hull, rowB(e, checkLabel(e._chk.p, Tw(xPG + 6, line(y, 1), xpgGuard, { size: fsS, fill: C.guard }, e._chk.p.text, lead)))));
         if (xpgFork.length || dense) forkAt(e.members.flatMap(m => m.passed[0]?.guardIds || []), xPG + 4, y, xpgGuard.length + 1, hx1 - 6, hull, false, e);
       }
       // past the hull: the after band, then the reply bar
@@ -724,7 +736,7 @@ function renderService(map, W, opts) {
       const step = (xr - hx1) / (items.length + 1);
       items.forEach((draw, k) => draw(hx1 + step * (k + 1)));
       // the after band's checks by name, above the path at its right end, and its calls and tables under it
-      if (b.guards.length) out.push(rowB(e, Tw(xr - 4, y - (phone ? 9 : 10.5), afterGuard, { anchor: 'end', size: fsS, fill: C.guard, mask: true }, b.guards.join(', '), lead, 'up')));
+      if (b.guards.length) out.push(rowB(e, checkLabel(e._chk.a, Tw(xr - 4, y - (phone ? 9 : 10.5), afterGuard, { anchor: 'end', size: fsS, fill: C.guard, mask: true }, e._chk.a.text, lead, 'up'))));
       if (items.length && afterWords.length) out.push(rowB(e, Tw(xr - 2, line(y, afterAt), afterWords, { anchor: 'end', size: fsS, ...(afterWide ? { mask: true } : {}) }, [...b.calls, ...(b.effects.length ? [reachLabel(b.effects)] : [])].join(', '), lead)));
       over.push(mark.reply(xr, y, dense ? 0.75 : S));
     }
@@ -733,7 +745,8 @@ function renderService(map, W, opts) {
   // ---- the quiet line (after rows, so forks placed on rows are left out) ----
   let quietBottom = rowsBottom;
   const strays = dbUses.filter(u => u.at.node === 'definition' || (u.at.entry && !rowOf.has(u.at.entry)));
-  const Q = opts.noQuiet ? null : layoutQuiet(quietItems(map, forkPlaced, { services: true, dense, phone, strays }), x0 + (phone ? 22 : 40), x1 - (phone ? 8 : 20), quietTop, phone, fsS);
+  const Q = opts.noQuiet ? null : layoutQuiet(quietItems(map, forkPlaced, { services: true, dense, phone, strays }), x0 + (phone ? 22 : 40), x1 - (phone ? 8 : 20), quietTop, phone, fsS,
+    [...lanes.values()].map(l => [l.x - l.m, l.x + l.m]));
   if (Q && Q.items) {
     const body = Q.under.join('') + Q.out.join('') + Q.over.join('');
     out.push(dense ? `<g${opener('quiet', 'Open the parts on no entry path')}>${body}<rect x="${x0 + 4}" y="${f1(quietTop)}" width="${f1(cw - 8)}" height="${f1(Q.bottom - quietTop)}" fill="transparent"/></g>` : body);
@@ -745,7 +758,12 @@ function renderService(map, W, opts) {
   const ghostLink = map.ghostCallers.some(g => g.kind === 'link');
   // the struck importer sits above the rail's left end, clear of HTTP and of the platform under the rail
   const busY = Math.max(Q && Q.items ? quietBottom + (phone ? 14 : 18) : rowsEnd + (phone ? 40 : 46), ghostLink && anyRail ? httpY + (phone ? 104 : 134) : 0);
-  const yBot = anyRail ? busY + (phone ? 18 : 22) : (Q && Q.items ? quietBottom + (phone ? 10 : 14) : rowsEnd + (phone ? 34 : 38));
+  const yBot0 = anyRail ? busY + (phone ? 18 : 22) : (Q && Q.items ? quietBottom + (phone ? 10 : 14) : rowsEnd + (phone ? 34 : 38));
+  // ---- the program band: under the rail, at the bottom of the wall ----
+  const PB = (map.programs || []).length ? programBand(map.programs, x0, x1, yBot0 + (phone ? 10 : 14), phone,
+    { xr, y: key => { const rk = rowOf.get(key); return rk == null ? null : rowY.get(rk); } }) : null;
+  if (PB) { under.push(PB.under); out.push(PB.out); over.push(PB.over); }
+  const yBot = PB ? PB.bottom + (phone ? 10 : 14) : yBot0;
   const openGap = e => (phone ? 6 : 7) + (e.members.length > 1 ? Math.min(7, e.members.length * 1.1) : 0);
   const wall = wallPathGaps(x0, x1, yTop, yBot, ents.map(e => [rowY.get(e.key), openGap(e)]));
 
@@ -767,10 +785,18 @@ function renderService(map, W, opts) {
 
   // ---- the rack, outside on the right, in fixed slots ----
   const rackX = x1 + resW / 2 + (phone ? 2 : 4);
-  // a model reached from an entry: how many entries reach it
-  const nModel = map.entries.filter(e => (e.model || e.beside?.resources.includes('model')) && rowOf.has(e.key)).length;
-  const countLines = tw(`reached by ${nModel}`, phone ? 9 : 10) <= resW - 4 ? [`reached by ${nModel}`] : ['reached', `by ${nModel}`];
-  const R = rack(map, rackX, yTop + (phone ? 6 : 10), phone, resW - 4, nModel ? { model: { lines: countLines, kind: 'modelCount' } } : {});
+  // each resource: how many of the routes drawn reach it, and a glyph sized by that share (its area, like a bar's
+  // length, says how much it is used), never so small its name leaves it
+  const shown = map.entries.filter(e => rowOf.has(e.key));
+  const reaches = (e, k) => !!e[k] || (e.beside?.resources || []).includes(k);
+  const nReach = Object.fromEntries(RACK.map(k => [k, shown.filter(e => reaches(e, k)).length]));
+  const glyphW = phone ? 38 : 64, nameSz = phone ? 9.5 : 12;
+  // (as wide as its name needs, as tall as its share)
+  const share = k => Math.max(0.5, Math.sqrt(nReach[k] / shown.length));
+  const scale = Object.fromEntries(RACK.filter(k => nReach[k]).map(k => [k, { w: Math.min(1, Math.max((tw(k, nameSz, false, 700) + 12) / glyphW, share(k))), h: share(k) }]));
+  const countLines = n => tw(`reached by ${n}`, phone ? 9 : 10) <= resW - 4 ? [`reached by ${n}`] : ['reached', `by ${n}`];
+  const notes = Object.fromEntries(RACK.filter(k => nReach[k] && map.resources.some(r => r.kind === k)).map(k => [k, { lines: countLines(nReach[k]), kind: 'reachedBy', keys: [`reachedBy:${k}`] }]));
+  const R = rack(map, rackX, yTop + (phone ? 6 : 10), phone, resW - 4, notes, scale);
   out.push(R.svg);
 
   // ---- supply of the db handle ----
@@ -832,12 +858,302 @@ function renderService(map, W, opts) {
       }
     }
     out.push(T(x0 + (phone ? 10 : 13), busY - (phone ? 6 : 7), 'db', { size: phone ? 9 : 10, weight: 700, fill: C.db, mono: false }));
+    // once, by the rail's name: what a ? on it means
+    const someMixed = dbUses.filter(onRail).some(u => u.how === 'mixed');
+    if (someMixed) {
+      const kx = x0 + (phone ? 10 : 13) + tw('db', phone ? 9 : 10, false) + (phone ? 10 : 12), ky = busY - (phone ? 9.5 : 10.5);
+      over.push(tg(dbUses.filter(u => onRail(u) && u.how === 'mixed').map(u => `unknownKey:${u.i}`), mark.unknown(kx, ky, phone ? 5.5 : 6) +
+        T(kx + (phone ? 8 : 9), busY - (phone ? 6 : 7), UNTRACED_WORD, { size: 9, fill: C.muted, mono: false })));
+    }
   }
 
   const H = Math.max(yBot, R.bottom) + (phone ? 12 : 20);
   return outerFrame(W, H, wall.fill + under.join('') + shape('wall', wall.line) + out.join('') + over.join(''), { ...opts, frameTop }, map.program, opts.crumb);
 }
 
+// =====================================================================
+// PROGRAM BAND
+// =====================================================================
+// A pure program as a container: its step, its package, and one small
+// diamond per decision it takes, so its area grows with its decisions. Its
+// request constructors are openings on its right edge; each is wired to the
+// engine lane that performs it, with a dot per resource the arm reaches. A
+// request no engine performs is a struck opening. Each lane carries a fork
+// with the engine's own decision count (none: a rule-free engine), ends in
+// the resources its arms reach, and loops back into the program bottom
+// through one loop node that names what repeats the step.
+// A line broken at its spaces and separators so each piece fits `width`.
+export const wrapAt = (text, width, size, mono = true) => {
+  const lines = [];
+  let cur = '';
+  for (const w of String(text).split(/(?<=, |· | )/)) {
+    if (cur && tw((cur + w).trimEnd(), size, mono) > width) { lines.push(cur.trimEnd()); cur = w; } else cur += w;
+  }
+  if (cur) lines.push(cur.trimEnd());
+  return lines;
+};
+const RES_WORD = { db: 'db', model: 'model', net: 'net', compile: 'compile', run: 'run', io: 'io' };
+export function programBand(programs, x0, x1, y0, phone, rows = null) {
+  const under = [], out = [], over = [];
+  // a label that fits the room it is given: shrunk a little, then cut, with
+  // the whole text as its title when it is cut
+  const fitT = (x, y, s, width, o = {}) => {
+    const t = fitText(s, o.size || 10, width, o.mono !== false);
+    const svg = T(x, y, t.s, { ...o, size: t.size });
+    return t.s === String(s) ? svg : `<g><title>${esc(s)}</title>${svg}</g>`;
+  };
+  const cw = x1 - x0, fs = phone ? 9.5 : 11, fsS = phone ? 9 : 10;
+  const bw = phone ? 12 : 16, lead = phone ? 11 : 12.5;
+  let y = y0, wireN = 0;
+  for (const p of programs) {
+    // the lanes need room for their widest foot pill each; the program gives way
+    const pillW = rs => Math.max(tw(RES_WORD[rs], 9, false) * 1.12 + 12, phone ? 26 : 32);
+    const needSp = Math.max(0, ...p.engines.flatMap(e => [...e.resources, ...e.also].map(pillW))) + 6;
+    const lanesW = needSp * p.engines.length + (phone ? 24 + 26 : 70 + 56);
+    // at phone width close lanes stagger their pills, but each lane still needs room for its decision count beside a bar no narrower than 3
+    const countSp = 12 + Math.max(0, ...p.engines.map(e => tw(String(e.decisions), fsS, true, 700)));
+    const px0 = x0 + (phone ? 8 : 24), px1 = phone ? Math.max(px0 + cw * 0.4, Math.min(px0 + cw * 0.56, x1 - countSp * p.engines.length - 24 - 26))
+      : Math.max(px0 + cw * 0.4, Math.min(px0 + cw * 0.5, x1 - lanesW));
+    // one scale for every decision bar of this program and its engines
+    const maxDec = Math.max(1, p.decisions, ...p.engines.map(e => e.decisions));
+    const per = Math.min(phone ? 2 : 2.4, (phone ? 170 : 200) / maxDec);
+    const barH = n => Math.max(n > 0 ? 2 : 0, n * per);
+    const starts = p.starters.filter(s => !s.advances);
+    // the routes that only take a step, as many lines as they need (at most three, then a count with every path in its title)
+    const startLines = (() => {
+      if (!starts.length) return [];
+      const room = (px1 - px0) - (phone ? 18 : 22), groups = [[]];
+      // the words lead the first line, or stand on their own when the first path would not fit after them
+      const lead = 'one step per call of', alone = tw(`${lead} ${starts[0].path}`, fsS, false) > room;
+      const text = (g, j) => `${j || alone ? '' : `${lead} `}${g.join(', ')}`;
+      for (const st of starts) {
+        const g = groups[groups.length - 1];
+        if (!g.length || tw(text([...g, st.path], groups.length - 1) + ',', fsS, false) <= room) g.push(st.path);
+        else groups.push([st.path]);
+      }
+      const lines = [...(alone ? [lead] : []), ...groups.map((g, j) => text(g, j) + (j < groups.length - 1 ? ',' : ''))];
+      if (lines.length <= 3) return lines;
+      const shown = groups[0].length + (alone ? 0 : groups[1].length);
+      return [lines[0], lines[1], `and ${starts.length - shown} more`];
+    })();
+    // the counts on one line, or two when the program box is narrow
+    // its size in words a reader needs no key for: the package's own definitions, and how many more it uses from elsewhere
+    const own = `${p.definitions} definitions in ${p.pkgLabel}`;
+    // which packages they come from, the most used first: three named, the rest counted
+    // (each name stays with its count when the line wraps)
+    const from = p.elsewhere.slice(0, 3).map(x => `${x.label}\u00a0${x.n}`).join(', ') + (p.elsewhere.length > 3 ? `, ${p.elsewhere.length - 3}\u00a0more` : '');
+    const more = p.usesElsewhere ? `uses ${p.usesElsewhere} more from ${p.elsewhere.length} package${p.elsewhere.length === 1 ? '' : 's'}: ${from}` : '';
+    const defsTxt = more ? `${own} · ${more}` : own;
+    const headRoom = cw * (phone ? 0.56 : 0.5) - (phone ? 26 : 34);
+    const defsLines = tw(defsTxt, fsS, false) <= headRoom ? [defsTxt] : [own, more].filter(Boolean).flatMap(l => wrapAt(l, headRoom, fsS, false));
+    const headH = (phone ? 40 : 44) + (defsLines.length - 1) * lead + startLines.length * lead;
+    const vMax = 8;
+    const variantRows = q => q.variants.reduce((n, v) => n + Math.min(v.constructors.length, vMax + 1), 0);
+    const osOf = q => (phone ? 30 : 34) + variantRows(q) * lead;
+    const labW = Math.min((px1 - px0) * (phone ? 0.58 : 0.42), Math.max(...p.requests.map(q => Math.max(tw(q.constructor, fs), tw(q.fields.join(', '), fsS),
+      ...q.variants.flatMap(v => v.constructors.map(c => tw((n => n ? `${c} → ${n}` : c)(v.namings && v.namings[0] && (v.namings[0].names.find(x => x.constructor === c) || {}).name), fsS) + 8))))) + 4);
+    const openH = p.requests.reduce((h, q) => h + osOf(q), 0);
+    const bodyH = Math.max(openH, barH(p.decisions) + (phone ? 34 : 30));
+    const top = y + (phone ? 18 : 20), bot = top + headH + bodyH + (phone ? 10 : 14);
+    const openY = []; { let yy = top + headH; for (const q of p.requests) { openY.push(yy + (phone ? 15 : 17)); yy += osOf(q); } }
+    const gapOf = new Set(p.gaps.map(g => g.constructor));
+    const og = phone ? 6 : 7, r = phone ? 9 : 12;
+    let edge = `M${f1(px1 - r)} ${f1(top)} Q${f1(px1)} ${f1(top)} ${f1(px1)} ${f1(top + r)}`;
+    for (const oy of openY) edge += ` V${f1(oy - og)} M${f1(px1)} ${f1(oy + og)}`;
+    edge += ` V${f1(bot - r)} Q${f1(px1)} ${f1(bot)} ${f1(px1 - r)} ${f1(bot)} H${f1(px0 + r)} Q${f1(px0)} ${f1(bot)} ${f1(px0)} ${f1(bot - r)} V${f1(top + r)} Q${f1(px0)} ${f1(top)} ${f1(px0 + r)} ${f1(top)} H${f1(px1 - r)}`;
+    // routes that only replay it to read where it is: named on hover, never drawn as starting it
+    const readBy = p.replays.length ? `<title>${esc(`read, not started, by ${p.replays.map(r => r.path).join(', ')}: they replay it and hand its answer back`)}</title>` : '';
+    under.push(tg([`program:${p.id}`, ...p.replays.map(r => `replay:${p.id}:${r.entry}`)], shape('program', `${readBy}<rect x="${f1(px0)}" y="${f1(top)}" width="${f1(px1 - px0)}" height="${f1(bot - top)}" rx="${r}" fill="${C.programSoft}"/>` +
+      `<path d="${edge}" fill="none" stroke="${C.program}" stroke-width="2"/>`)));
+    const ix = px0 + (phone ? 8 : 12);
+    out.push(tg([`program:${p.id}`], fitT(px0 + 2, top - (phone ? 5 : 6), p.pkg, px1 - px0 - 4, { size: phone ? 9.5 : 11, weight: 700, fill: C.program, mono: false, haloColor: C.paper })));
+    // effects in the program's own package: marked; none: a struck ghost
+    const markW = phone ? 50 : 64, mx = px1 - (phone ? 8 : 12) - markW / 2, my = top + (phone ? 12 : 13);
+    if (!p.beside.length) out.push(tg([`pure:${p.id}`], shape('struck', `<title>${esc(`no effects in ${p.pkg}`)}</title>` +
+      `<circle cx="${f1(mx - markW / 2 + 6)}" cy="${f1(my - 3)}" r="4.5" fill="none" stroke="${C.faint}" stroke-width="1.2" stroke-dasharray="2.4 2"/>` +
+      `<path d="M${f1(mx - markW / 2 + 0.5)} ${f1(my + 2)} L${f1(mx - markW / 2 + 11.5)} ${f1(my - 8)}" stroke="${C.faint}" stroke-width="1.2"/>` +
+      T(mx - markW / 2 + 14, my, 'effects', { size: 9, fill: C.muted, mono: false, halo: false }))));
+    else out.push(tg(p.beside.map(b => `beside:${p.id}:${b.id}`), shape('programEffect', `<title>${esc(`effects in ${p.pkg}: ${p.beside.map(b => `${b.label} (${(b.resources.length ? b.resources : ['io']).join(', ')})`).join('; ')}`)}</title>` +
+      `<circle cx="${f1(mx - markW / 2 + 6)}" cy="${f1(my - 3)}" r="4.5" fill="${C.guard}"/>` +
+      T(mx - markW / 2 + 14, my, `${p.beside.length} effect${p.beside.length === 1 ? '' : 's'}`, { size: 9, weight: 700, fill: C.guard, mono: false, halo: false }))));
+    out.push(fitT(ix, top + (phone ? 15 : 17), `${p.label} → ${p.result}`, px1 - ix - markW - (phone ? 10 : 16), { size: fs, weight: 700, fill: C.ink }));
+    // definitions: the package's own, as the layer stack counts them, and what the program reaches
+    const defsTitle = p.elsewhere.length ? `<title>${esc(`${p.usesElsewhere} definition${p.usesElsewhere === 1 ? '' : 's'} from other packages: ${p.elsewhere.map(x => `${x.pkg} ${x.n}`).join(', ')}`)}</title>` : '';
+    out.push(tg([`definitions:${p.id}`, ...p.elsewhere.map(x => `elsewhere:${p.id}:${x.pkg}`)], defsTitle + defsLines.map((l, j) => fitT(ix, top + (phone ? 29 : 33) + j * lead, l, px1 - ix - 10, { size: fsS, fill: C.muted, mono: false })).join('')));
+    if (starts.length) out.push(tg(starts.map(s => `starter:${p.id}:${s.entry}`), `<title>${esc(`${starts.map(s => s.path).join(', ')}: each call takes one step of ${p.label} and acts on its answer; the rounds are run by the engines on the right`)}</title>` +
+      startLines.map((l, j) => fitT(ix, top + (phone ? 29 : 33) + (defsLines.length + j) * lead, l, px1 - ix - 10, { size: fsS, fill: C.ink2, mono: false })).join('')));
+    // the program's decisions: a bar on the scale the engines' bars share, and its count
+    const by0 = top + headH + 4, bh = barH(p.decisions), dx = ix + bw + 6, dRoom = px1 - labW - (phone ? 14 : 20) - dx;
+    over.push(tg([`decisions:${p.id}`], shape('decision', `<title>${esc(`${p.decisions} decisions`)}</title><rect x="${f1(ix)}" y="${f1(by0)}" width="${bw}" height="${f1(bh)}" fill="${C.program}" opacity="0.8"/>`) +
+      T(dx, by0 + 10, String(p.decisions), { size: phone ? 11 : 13, weight: 700, fill: C.program }) +
+      (dRoom >= tw('decisions', fsS, false) ? T(dx, by0 + 10 + lead, 'decisions', { size: fsS, fill: C.muted, mono: false }) : '')));
+    // lanes on the resource side
+    const k = p.engines.length;
+    const lx0 = px1 + (phone ? 24 : 70), lx1 = x1 - (phone ? 26 : 56);
+    const laneX = p.engines.map((_, i) => lx0 + (lx1 - lx0) * (i + 0.5) / Math.max(1, k));
+    const spacing = (lx1 - lx0) / Math.max(1, k);
+    // an engine's decision bar, and its count beside it, end short of the next lane (the bar no narrower than 3)
+    const forkW = Math.max(3, Math.min(bw, spacing - 9 - Math.max(...p.engines.map(e => tw(String(e.decisions), fsS, true, 700)))));
+    // what an engine does, from its type: what it takes of the program's own and what its effect yields; its code name on hover
+    // (the arrow stays with what it gives, so a wrapped line never ends on it)
+    const sigOf = e => `${e.type.plainTakes.join(', ') || '()'} →\u00a0${e.type.yields}`;
+    const codeOf = e => `${e.label}: ${e.type.takes.join(', ')} → ${e.type.returns}`;
+    // above each lane: its package, then what it does on at most two lines, when every lane's words fit there
+    const sigLines = e => wrapAt(sigOf(e), spacing - 6, fsS);
+    const wide = p.engines.every(x => tw(x.pkgLabel, fsS) <= spacing - 6 && sigLines(x).length <= 2 && sigLines(x).every(l => tw(l, fsS) <= spacing - 6));
+    const laneTop = top + headH - (phone ? 6 : 8);
+    const resH = phone ? 15 : 18, resGap = phone ? 4 : 5;
+    const laneBot = Math.max(bot, openY.length ? openY[openY.length - 1] + 14 : bot, ...p.engines.map(e => laneTop + barH(e.decisions) + 8));
+    const footOf = e => e.resources.length * (resH + resGap) + (e.also.length ? lead + e.also.length * (resH + resGap) : 0);
+    // lanes closer than a pill: every other lane's pills start below its neighbours'
+    const cramped = spacing < needSp;
+    const evenFoot = Math.max(0, ...p.engines.filter((_, i) => i % 2 === 0).map(footOf));
+    const footY0 = i => laneBot + 6 + (cramped && i % 2 ? evenFoot + resGap : 0);
+    const footBot = Math.max(laneBot + 6, ...p.engines.map((e, i) => footY0(i) + footOf(e)));
+    // each loop's caption, one thought per line: which engine (when the lanes
+    // carry numbers), how it repeats and what it replies, and what runs it
+    const capsOf = (e, i) => {
+      // how the rounds come round within one call, and which calls run them
+      const how = e.loop.kind === 'repeat' ? `${e.loop.label} repeats the round` : e.loop.kind === 'recursion' ? `${e.loop.label} calls itself, a round each time` : 'rounds written out one after another';
+      const reply = `replies ${e.replies.map(rs => RES_WORD[rs]).join(', ')}`;
+      const lines = [];
+      if (!wide) lines.push([`${i + 1} ${e.pkgLabel}: ${sigOf(e)}`]);
+      lines.push(phone ? [how] : [`${how} · ${reply}`]);
+      if (phone && e.replies.length) lines.push([reply]);
+      if (e.starters.length) lines.push([`each call of ${e.starters.map(k => k.replace(/^route:/, '')).join(', ')} runs ${e.loop.kind === 'sequence' ? 'them' : 'it'}`, e.starters.map(k => `starter:${p.id}:${k}`)]);
+      return lines;
+    };
+    // a caption never reaches the next lane, whose loop comes down there: it wraps at its separators instead
+    // later lanes come back into the program further left, so no loop crosses another's caption
+    const txOf = i => px0 + (px1 - px0) * (0.3 + 0.5 * (k - i) / (k + 1));
+    // it may start just right of the next lane's way back up
+    const capLeft = i => i < k - 1 ? txOf(i + 1) + 8 : txOf(i);
+    const capRoom = i => (i < k - 1 ? laneX[i + 1] - 6 : x1 - 8) - capLeft(i);
+    const caps = p.engines.map((e, i) => capsOf(e, i).flatMap(([t, keys]) => wrapAt(t, capRoom(i), fsS).map(l => [l, keys])));
+    const loopGap = phone ? 26 : 28;
+    const loopY = []; { let yy = footBot + (phone ? 12 : 14); caps.forEach(c => { loopY.push(yy); yy += loopGap + c.length * lead; }); }
+    p.requests.forEach((q, i) => {
+      const oy = openY[i];
+      const gap = gapOf.has(q.constructor);
+      const col = gap ? C.faint : C.program;
+      const lab = fitText(q.constructor, fs, labW), lw0 = Math.min(labW, tw(lab.s, lab.size));
+      const lx = px1 - (phone ? 8 : 10);
+      out.push(tg([gap ? `gap:${p.id}:${q.constructor}` : `request:${p.id}:${q.constructor}`],
+        shape(gap ? 'gap' : 'request', `<path d="M${f1(px1 - 5)} ${f1(oy - og)} H${f1(px1 + 5)} M${f1(px1 - 5)} ${f1(oy + og)} H${f1(px1 + 5)}" stroke="${col}" stroke-width="2" stroke-linecap="round"/>` +
+          // a struck request's name and the lines that strike it are one label
+          (gap ? `<g data-label="${esc(`gap:${p.id}:${q.constructor}`)}">` : '') + fitT(lx, oy - (q.fields.length ? 1 : -3.5), q.constructor, labW, { anchor: 'end', size: fs, weight: 600, fill: gap ? C.muted : C.ink }) + (gap ? '</g>' : '') +
+          (q.fields.length ? fitT(lx, oy + fsS + 0.5, q.fields.join(', '), labW, { anchor: 'end', size: fsS, fill: C.muted }) : '') +
+          (gap ? `<g data-label="${esc(`gap:${p.id}:${q.constructor}`)}"><path d="M${f1(px1 - 9)} ${f1(oy + 10)} L${f1(px1 + 9)} ${f1(oy - 10)}" stroke="${C.guard}" stroke-width="1.6"/>` +
+            `<path d="M${f1(px1 - 10 - lw0)} ${f1(oy - (q.fields.length ? 4.5 : -0.5))} H${f1(px1 - (phone ? 7 : 9))}" stroke="${C.muted}" stroke-width="1"/></g>` : ''))));
+      // the kinds of this request, from the sum type its payload carries: sub-openings under it
+      let vy = oy + fsS + 0.5 + lead;
+      for (const v of q.variants) {
+        const shown = v.constructors.length > vMax + 1 ? v.constructors.slice(0, vMax) : v.constructors;
+        const nm = v.namings && v.namings[0];
+        const wordOf = (n, c) => (n.names.find(x => x.constructor === c) || {}).name;
+        // one form for every kind of one type: kind and word when they all fit, else the words
+        // a kind's row is its own, so it may reach further left than the request's name, up to the decision bar's words
+        const varW = Math.max(labW - 8, px1 - (phone ? 10 : 12) - (ix + bw + 6 + tw('decisions', fsS, false) + 10));
+        const pairs = !!nm && shown.every(c => !wordOf(nm, c) || tw(`${c} → ${wordOf(nm, c)}`, fsS) <= varW);
+        for (const c of shown) {
+          // the kind, and the program's own word for it when a match gives one: both when they fit, else the word
+          const word = nm && wordOf(nm, c);
+          const both = word ? `${c} → ${word}` : c;
+          const text = !word || pairs ? both : word;
+          const title = word ? `<title>${esc(`${c} → ${word}, by ${nm.label}${v.namings.length > 1 ? `; also ${v.namings.slice(1).map(n => `${wordOf(n, c)} by ${n.label}`).join(', ')}` : ''}`)}</title>` : '';
+          out.push(tg([`variant:${p.id}:${q.constructor}:${c}`, ...(word ? [`variantName:${p.id}:${q.constructor}:${c}`] : [])],
+            shape('variant', `${title}<path d="M${f1(px1 - 3)} ${f1(vy - 3.5)} H${f1(px1 + 3)}" stroke="${col}" stroke-width="1.6" stroke-linecap="round"/>` +
+            fitT(lx, vy, text, pairs ? varW : labW - 8, { anchor: 'end', size: fsS, fill: word ? C.ink : C.ink2, weight: word ? 600 : 400 }))));
+          vy += lead;
+        }
+        if (shown.length < v.constructors.length) {
+          const rest = v.constructors.slice(shown.length);
+          out.push(tg(rest.map(c => `variant:${p.id}:${q.constructor}:${c}`), shape('variant', `<title>${esc(rest.join(', '))}</title>` + T(lx, vy, `+${rest.length} more`, { anchor: 'end', size: fsS, fill: C.muted }))));
+          vy += lead;
+        }
+      }
+      for (const h of q.handledBy) {
+        const li = p.engines.findIndex(e => e.id === h.engine);
+        const wx = laneX[li];
+        // what this arm reaches, said in words over the wire's end where they fit (clear of any lane it passes), else a dot each
+        const words = h.resources.map(rs => RES_WORD[rs]), wgap = 5;
+        const wordsW = words.reduce((w, t) => w + tw(t, 9, false), 0) + wgap * Math.max(0, words.length - 1);
+        const left = Math.max(px1 + 6, ...laneX.filter(x => x < wx).map(x => x + 2.5 + bw + 6));
+        const said = words.length && wordsW <= wx - 6 - left;
+        let wxR = wx - 6;
+        const marks = said ? h.resources.slice().reverse().map(rs => { const t = RES_WORD[rs], w = tw(t, 9, false), x = wxR; wxR -= w + wgap;
+          return T(x, oy - 4, t, { anchor: 'end', size: 9, weight: 700, fill: C[rs] || C.io, mono: false }); }).reverse().join('')
+          : h.resources.map((rs, j) => `<circle cx="${f1(wx - (phone ? 7 : 10) - j * (phone ? 6 : 8))}" cy="${f1(oy)}" r="${phone ? 2.6 : 3.2}" fill="${C[rs] || C.io}" stroke="${C.paper}" stroke-width="1"/>`).join('');
+        const engineLabel = p.engines[li].label;
+        under.push(tg([`wire:${p.id}:${q.constructor}:${h.engine}`], shape('wire', `<title>${esc(`${q.constructor} → ${engineLabel}${words.length ? `: reaches ${words.join(', ')}` : ''}`)}</title>` +
+          `<path d="M${f1(px1 + 1)} ${f1(oy)} H${f1(wx)}" stroke="${C.ink2}" stroke-width="1.5"/>`)));
+        if (marks) over.push(tg([`wire:${p.id}:${q.constructor}:${h.engine}`], marks));
+      }
+    });
+    // the routes that start the program: a wire from their row into its top (wide pictures)
+    const toRow = key => rows && rows.y(key);
+    if (!phone && rows) starts.forEach(s => {
+      const ry = toRow(s.entry);
+      if (ry == null) return;
+      const gx = rows.xr + 10 + (wireN++ % 5) * 5, ex = px1 - 24 - (wireN % 5) * 10, ty = top - (phone ? 16 : 20);
+      under.push(tg([`starter:${p.id}:${s.entry}`], shape('starter', `<path d="M${f1(rows.xr)} ${f1(ry)} H${f1(gx)} V${f1(ty - 6)} H${f1(ex)} V${f1(top - 3)}" fill="none" stroke="${C.program}" stroke-width="1.3" stroke-dasharray="5 3"/>` +
+        `<path d="M${f1(ex - 4)} ${f1(top - 9)} L${f1(ex)} ${f1(top - 2)} L${f1(ex + 4)} ${f1(top - 9)}" fill="none" stroke="${C.program}" stroke-width="1.4"/>`)));
+    });
+    p.engines.forEach((e, i) => {
+      const lx = laneX[i];
+      const title = `<title>${esc(`${e.id}${e.entries.length ? ` · ${e.entries.map(k => k.replace(/^route:/, '')).join(', ')}` : ''}`)}</title>`;
+      under.push(tg([`lane:${e.id}`], shape('lane', `${title}<rect x="${f1(lx - 1.5)}" y="${f1(laneTop)}" width="3" height="${f1(laneBot - laneTop)}" rx="1.5" fill="${C.ink2}"/>`)));
+      // its package and name above the lane, or a number when the lanes are close
+      if (wide) {
+        const sl = sigLines(e), ly0 = laneTop - (phone ? 5 : 6) - (sl.length - 1) * lead;
+        out.push(tg([`lane:${e.id}`, `engineType:${e.id}`], `<g><title>${esc(codeOf(e))}</title>` + T(lx, ly0 - lead, e.pkgLabel, { anchor: 'middle', size: fsS, fill: C.muted }) +
+          sl.map((l, j) => T(lx, ly0 + j * lead, l, { anchor: 'middle', size: fsS, weight: 700, fill: C.ink })).join('') + '</g>'));
+      } else out.push(tg([`lane:${e.id}`, `engineType:${e.id}`], `<g><title>${esc(codeOf(e))}</title>` + T(lx, laneTop - (phone ? 5 : 6), String(i + 1), { anchor: 'middle', size: fsS, weight: 700, fill: C.ink }) + '</g>'));
+      // the engine's own decisions, on the program's scale; its bar gives up width so that the count fits before the next lane
+      const eh = barH(e.decisions);
+      over.push(tg([`laneFork:${e.id}`], shape('laneFork', `<title>${esc(`${e.decisions} decisions of its own`)}</title>` +
+        (eh ? `<rect x="${f1(lx + 2.5)}" y="${f1(laneTop)}" width="${f1(forkW)}" height="${f1(eh)}" fill="${C.ink2}" opacity="0.55"/>` : '') +
+        T(lx + 2.5 + forkW + 3, laneTop + 10, String(e.decisions), { size: fsS, weight: 700, fill: C.ink2 }))));
+      // the routes that run it are named under its loop ("run by …"), not wired: one loop per lane is the only line back
+      // the resources its arms reach, at its foot; then the ones it reaches for no request
+      let yy = footY0(i);
+      if (yy > laneBot + 6) under.push(`<path d="M${f1(lx)} ${f1(laneBot)} V${f1(yy)}" stroke="${C.ink2}" stroke-width="1.2"/>`);
+      const pill = (rs, dashed, key) => {
+        const w = pillW(rs);
+        under.push(`<path d="M${f1(lx)} ${f1(yy - (dashed ? 2 : 6))} V${f1(yy + resH / 2)}" stroke="${C.ink2}" stroke-width="1.2"${dashed ? ' stroke-dasharray="2 2"' : ''}/>`);
+        over.push(tg([key], shape('laneResource', `<rect x="${f1(lx - w / 2)}" y="${f1(yy)}" width="${f1(w)}" height="${resH}" rx="${f1(resH / 2)}" fill="${dashed ? C.paper : C[rs + 'Soft'] || C.ioSoft}" stroke="${C[rs] || C.io}" stroke-width="1.4"${dashed ? ' stroke-dasharray="3 2"' : ''}/>` +
+          T(lx, yy + resH / 2 + 3.2, RES_WORD[rs], { anchor: 'middle', size: 9, weight: 700, fill: C[rs] || C.io, mono: false, halo: false }))));
+        yy += resH + resGap;
+      };
+      e.resources.forEach(rs => pill(rs, false, `laneResource:${e.id}:${rs}`));
+      if (e.also.length) {
+        out.push(tg(e.also.map(rs => `laneAlso:${e.id}:${rs}`), T(lx, yy + 8, 'also', { anchor: 'middle', size: 9, fill: C.muted, mono: false })));
+        yy += lead;
+        e.also.forEach(rs => pill(rs, true, `laneAlso:${e.id}:${rs}`));
+      }
+      // the reply: one loop from the foot back into the program, one loop node on it
+      const ly = loopY[i];
+      const tx = txOf(i);
+      const d = `M${f1(lx)} ${f1(yy - resGap)} V${f1(ly - 8)} Q${f1(lx)} ${f1(ly)} ${f1(lx - 8)} ${f1(ly)} H${f1(tx + 8)} Q${f1(tx)} ${f1(ly)} ${f1(tx)} ${f1(ly - 8)} V${f1(bot + 6)}`;
+      const arrow = `<path d="M${f1(tx - 4)} ${f1(bot + 8)} L${f1(tx)} ${f1(bot + 1.5)} L${f1(tx + 4)} ${f1(bot + 8)}" fill="none" stroke="${C.program}" stroke-width="1.6" stroke-linejoin="round"/>`;
+      const nx = (tx + lx) / 2, nr = phone ? 5 : 6;
+      const node = `<circle cx="${f1(nx)}" cy="${f1(ly)}" r="${nr + 3}" fill="${C.paper}"/>` + mark.loop(nx, ly, nr, C.program);
+      // centred under the loop when it fits there, else from the loop's left end
+      // every line of one caption set the same way: centred when they all fit there
+      const centred = caps[i].every(([t]) => { const m = fitText(t, fsS, lx - tx - 8); return m.s === t && m.size === fsS; });
+      const caption = (cy, text) => centred ? T(nx, cy, text, { anchor: 'middle', size: fsS, fill: C.program })
+        : fitT(capLeft(i), cy, text, capRoom(i), { size: fsS, fill: C.program });
+      const cy0 = ly + nr + (phone ? 11 : 13);
+      const own = caps[i].filter(l => !l[1]), by = caps[i].filter(l => l[1]);
+      over.push(tg([`reply:${e.id}`, `loop:${e.id}`], shape('replyLoop', `<title>${esc(codeOf(e))}</title><path d="${d}" fill="none" stroke="${C.program}" stroke-width="1.6"/>${arrow}${node}` +
+        own.map((l, j) => caption(cy0 + j * lead, l[0])).join(''))) +
+        (by.length ? tg(by[0][1], by.map((l, j) => caption(cy0 + (own.length + j) * lead, l[0])).join('')) : ''));
+    });
+    y = (k ? loopY[k - 1] + loopGap + caps[k - 1].length * lead : footBot + (phone ? 12 : 14)) + (phone ? 6 : 10);
+  }
+  return { under: under.join(''), out: out.join(''), over: over.join(''), bottom: y };
+}
+
 const ring = (x, y, r, color) => `<circle cx="${f1(x)}" cy="${f1(y)}" r="${f1(r)}" fill="${C.paper}" stroke="${color}" stroke-width="1.8"/>`;
 // one caller's bracket: a line from the caller to a spine beside the wall, a tick to each opening
 function bracket(sx, sy, bx, y0, y1, ys) {
@@ -898,6 +1214,10 @@ function wallPathGaps(x0, x1, yTop, yBot, openings, r = 14) {
 // line; each package is a stretch starting with a tick and its name; the
 // parts' labels alternate above and below the line so it never wraps at
 // phone width. A package with many forks draws one fork with a count.
+// A gathered mark's count, said in words: what it counts, never a bare ×n.
+const SET_WORDS = { forkset: ['choice', 'choices'], dbset: ['db use', 'db uses'], genset: ['generic part', 'generic parts'], stepset: ['step', 'steps'] };
+export const setWord = (kind, n) => `${n} ${SET_WORDS[kind][n === 1 ? 0 : 1]}`;
+
 export function quietItems(map, placed, { services = false, dense = false, phone = false, drawn = new Set(), socketFns = new Map(), genericById = new Map(), exportsLeft = [], strays = [] } = {}) {
   const pkgOf = id => String(id).split('::')[0];
   const bare = id => String(id).split('::').pop();
@@ -917,7 +1237,7 @@ export function quietItems(map, placed, { services = false, dense = false, phone
   for (const u of strays) { const p = pkgOf(u.definition); pk(p); if (!strayBy.has(p)) strayBy.set(p, []); strayBy.get(p).push(u); }
   for (const [p, us] of strayBy) {
     const defs = [...new Set(us.map(u => u.definition))];
-    P.get(p).parts.push({ kind: 'dbset', label: defs.length === 1 && !dense ? bare(defs[0]) : `×${defs.length}`, writes: us.some(u => u.writes), keys: us.map(u => `use:${u.i}`) });
+    P.get(p).parts.push({ kind: 'dbset', label: defs.length === 1 && !dense ? bare(defs[0]) : setWord('dbset', defs.length), n: defs.length, writes: us.some(u => u.writes), keys: us.map(u => `use:${u.i}`) });
   }
   // forks (and bare generic parts) of one package gathered under one mark with a count when the line would be long
   const total = [...list.values()].reduce((n, l) => n + l.length, 0);
@@ -926,10 +1246,10 @@ export function quietItems(map, placed, { services = false, dense = false, phone
     const g = P.get(pkg);
     const forks = ids2.filter(id => keyed.has(id) && !socketFns.has(id));
     let rest = ids2.filter(id => !forks.includes(id));
-    if (gather && forks.length > 1) g.parts.push({ kind: 'forkset', label: `×${forks.length}`, fork: [...new Set(forks.flatMap(id => keyed.get(id).types))], keys: forks.flatMap(id => [`fork:${id}`, `part:${id}`, ...(genericById.has(id) ? [`generic:${id}`] : [])]) });
+    if (gather && forks.length > 1) g.parts.push({ kind: 'forkset', label: setWord('forkset', forks.length), n: forks.length, fork: [...new Set(forks.flatMap(id => keyed.get(id).types))], keys: forks.flatMap(id => [`fork:${id}`, `part:${id}`, ...(genericById.has(id) ? [`generic:${id}`] : [])]) });
     else rest = rest.concat(forks);
     const gens = rest.filter(id => genericById.has(id) && !socketFns.has(id) && !keyed.has(id));
-    if (gather && gens.length > 1) { g.parts.push({ kind: 'genset', label: `×${gens.length}`, gen: [...new Set(gens.flatMap(id => genericById.get(id).vars))].join(''), keys: gens.flatMap(id => [`generic:${id}`, `part:${id}`]) }); rest = rest.filter(id => !gens.includes(id)); }
+    if (gather && gens.length > 1) { g.parts.push({ kind: 'genset', label: setWord('genset', gens.length), n: gens.length, gen: [...new Set(gens.flatMap(id => genericById.get(id).vars))].join(''), keys: gens.flatMap(id => [`generic:${id}`, `part:${id}`]) }); rest = rest.filter(id => !gens.includes(id)); }
     for (const id of rest.sort()) g.parts.push({ kind: 'part', id, label: bare(id), socket: socketFns.has(id), fns: socketFns.get(id) || null,
       fork: keyed.has(id) ? keyed.get(id).types : null, gen: genericById.has(id) ? genericById.get(id).vars.join('') : null,
       keys: [...(socketFns.has(id) ? [`applied:${id}`] : []), ...(keyed.has(id) ? [`fork:${id}`] : []), ...(genericById.has(id) ? [`generic:${id}`] : []), `part:${id}`] });
@@ -942,11 +1262,11 @@ export function quietItems(map, placed, { services = false, dense = false, phone
   const of = k => all.filter(it => it.kind === k || (k === 'forkset' && it.fork && it.kind === 'part'));
   const parts = [];
   const forks = of('forkset'), dbs = of('dbset'), others = all.filter(it => !forks.includes(it) && !dbs.includes(it));
-  const n = list => list.reduce((c, it) => c + (it.kind === 'part' ? 1 : +String(it.label).replace('×', '') || 1), 0);
-  if (forks.length) parts.push({ kind: 'forkset', label: `×${n(forks)}`, fork: [...new Set(forks.flatMap(it => it.fork))], keys: forks.flatMap(it => it.keys) });
-  if (dbs.length) parts.push({ kind: 'dbset', label: `×${dbs.reduce((c, it) => c + (+String(it.label).replace('×', '') || 1), 0)}`, writes: dbs.some(it => it.writes), keys: dbs.flatMap(it => it.keys) });
+  const n = list => list.reduce((c, it) => c + (it.n || 1), 0);
+  if (forks.length) parts.push({ kind: 'forkset', label: setWord('forkset', n(forks)), n: n(forks), fork: [...new Set(forks.flatMap(it => it.fork))], keys: forks.flatMap(it => it.keys) });
+  if (dbs.length) parts.push({ kind: 'dbset', label: setWord('dbset', n(dbs)), n: n(dbs), writes: dbs.some(it => it.writes), keys: dbs.flatMap(it => it.keys) });
   parts.push(...others);
-  if (steps.length) parts.push({ kind: 'stepset', label: `×${steps.length}`, keys: steps.map(st => `step:${st.pkg}:${st.type}`) });
+  if (steps.length) parts.push({ kind: 'stepset', label: setWord('stepset', steps.length), n: steps.length, keys: steps.map(st => `step:${st.pkg}:${st.type}`) });
   return [{ pkg: '', exports: [], steps: [], parts, gathered: groups.length }];
 }
 
@@ -956,13 +1276,17 @@ export function quietItems(map, placed, { services = false, dense = false, phone
 // above and below, so a label only has to clear the last one on its side.
 function placeOn(pkgs, lsx, phone, f, M) {
   const out = []; let x = lsx, lastUp = null, lastDown = null;
+  // the risers that cross the line: the first x at or after x0 where [x + a, x + b] crosses none
+  const bands = M.bands || [];
+  const shun = (x0, a, b) => { let v = x0; for (let k = 0; k < 8; k++) { const r = bands.find(([lo, hi]) => v + b > lo && v + a < hi); if (!r) break; v = r[1] - a + 1; } return v; };
   for (const g of pkgs) {
     // headers alternate between two tiers, so a tick clears the header two packages back
     const hdrBack = out.length >= 2 ? out[out.length - 2].tick + out[out.length - 2].hw : 0;
     // a tick from the upper tier runs down past the lower tier's header before it
     const hdrPrev = out.length % 2 === 1 ? out[out.length - 1].tick + out[out.length - 1].hw : 0;
-    const tick = out.length ? Math.max(x + (phone ? 10 : 16), hdrBack, hdrPrev, lastUp && lastUp.x !== out[out.length - 1].tick ? lastUp.x + lastUp.w + 4 : out[out.length - 1].tick + (phone ? 16 : 22), lastDown ? lastDown.x + lastDown.w + 4 : 0) : x - (phone ? 9 : 14);
+    const tick0 = out.length ? Math.max(x + (phone ? 10 : 16), hdrBack, hdrPrev, lastUp && lastUp.x !== out[out.length - 1].tick ? lastUp.x + lastUp.w + 4 : out[out.length - 1].tick + (phone ? 16 : 22), lastDown ? lastDown.x + lastDown.w + 4 : 0) : x - (phone ? 9 : 14);
     const hw = M.header(g, f), sw = M.steps(g, f);
+    const tick = shun(tick0, -(phone ? 4 : 6), Math.max(hw, sw));
     lastUp = { x: tick, w: phone ? 10 : 14 }; lastDown = sw ? { x: tick, w: sw } : null;
     let px = tick + (phone ? 9 : 14), flip = 0;
     const xs = [], sides = [];
@@ -973,6 +1297,7 @@ function placeOn(pkgs, lsx, phone, f, M) {
       let xx = px;
       if (last && !(side === 'up' && last.x === tick)) xx = Math.max(xx, last.x + last.w);
       if (side === 'down' && last && last.x === tick) xx = Math.max(xx, last.x + last.w + 2);
+      xx = shun(xx, -(phone ? 6 : 7), M.width(it, f) - (phone ? 7 : 10));
       xs.push(xx); sides.push(side);
       const rec = { x: xx, w: M.width(it, f) };
       if (side === 'up') lastUp = rec; else lastDown = rec;
@@ -988,13 +1313,15 @@ function placeOn(pkgs, lsx, phone, f, M) {
 // The quiet line with its names at an angle: parts' names rise to the right
 // from their marks; each package's name, with its steps, falls to the right
 // from its tick. One line, however many parts. null when even this would not fit.
+// a gathered set of choices says what they choose on in its own words; anything else is its label
+const setLabel = it => it.kind === 'forkset' ? `${it.label} on ${it.fork.join(', ')}` : it.label;
 function angledQuiet(pkgs, lsx, lex, y0, phone, fsS) {
   const ang = 50, sin = Math.sin(ang * Math.PI / 180), cos = Math.cos(ang * Math.PI / 180);
   const pkgName = p => p.split('/').pop();
   // each name as its spans: [text, fill, attributes, how it is measured: mono, weight, italic]
   const upSpans = it => [...(it.gen ? [[`∀${it.gen} `, C.hullInk, ` font-family="${SANS}" font-weight="700"`, false, 700]] : []),
-    [it.label, C.ink, it.kind === 'part' ? '' : ' font-weight="700"', true, it.kind === 'part' ? 400 : 700],
-    ...(it.fork ? [['  ' + it.fork.join(','), C.muted, '', true, 400]] : []), ...(it.fns ? [['  ' + it.fns.join(', '), C.hullInk, ' font-style="italic"', true, 400, true]] : [])];
+    [setLabel(it), C.ink, it.kind === 'part' ? '' : ' font-weight="700"', true, it.kind === 'part' ? 400 : 700],
+    ...(it.fork && it.kind !== 'forkset' ? [['  ' + it.fork.join(','), C.muted, '', true, 400]] : []), ...(it.fns ? [['  ' + it.fns.join(', '), C.hullInk, ' font-style="italic"', true, 400, true]] : [])];
   const downSpans = g => [[pkgName(g.pkg), C.faint, ` font-family="${SANS}" font-weight="700"`, false, 700],
     ...(g.steps.length ? [['  ' + g.steps.map(st => st.label).join(', '), C.hullInk, ' font-weight="700"', true, 700]] : [])];
   const lay = pitch => {
@@ -1058,15 +1385,18 @@ function angledQuiet(pkgs, lsx, lex, y0, phone, fsS) {
   return { items: pkgs.length, under, out, over, bottom: ry + downLen * sin + (phone ? 4 : 6) };
 }
 
-export function layoutQuiet(pkgs, lsx, lex, y0, phone, fsS0) {
+export function layoutQuiet(pkgs, lsx, lex, y0, phone, fsS0, bands = []) {
   pkgs = pkgs.filter(g => g.parts.length || g.steps.length || g.exports.length);
   if (!pkgs.length) return { items: 0, under: [], out: [], over: [], bottom: y0 };
   const pkgName = p => p.split('/').pop();
   let fsS = fsS0;
-  const sub = it => it.fork ? it.fork.join(',') : it.fns ? it.fns.join(', ') : '';
+  // a gathered set of choices says what they choose on in its own line of words, with a wider gap after it
+  // so the next count does not read as part of it; a single part keeps its type under it
+  const sub = it => it.kind === 'forkset' ? '' : it.fork ? it.fork.join(',') : it.fns ? it.fns.join(', ') : '';
   const M = {
+    bands,
     // as drawn: a gathered count and a step set in bold, ∀ in bold sans
-    width: (it, f) => Math.max((it.gen ? tw(`∀${it.gen} `, f, false, 700) : 0) + tw(it.label, f, true, it.kind === 'part' ? 400 : 700), tw(sub(it), Math.max(MIN_LABEL, f - 0.5)) + (it.fork ? (phone ? 9 : 12) : 0)) + (phone ? 7 : 10),
+    width: (it, f) => Math.max((it.gen ? tw(`∀${it.gen} `, f, false, 700) : 0) + tw(setLabel(it), f, true, it.kind === 'part' ? 400 : 700), tw(sub(it), Math.max(MIN_LABEL, f - 0.5)) + (sub(it) && it.fork ? (phone ? 9 : 12) : 0)) + (it.kind === 'forkset' ? (phone ? 16 : 22) : (phone ? 7 : 10)) + (it.kind === 'stepset' ? (phone ? 9 : 11) : 0),
     header: (g, f) => tw(g.pkg ? pkgName(g.pkg) : `${g.gathered} packages`, f, false, 700) + (g.exports.length ? (phone ? 9 : 12) + tw(String(g.exports.length), f, true, 700) : 0) + (phone ? 8 : 12),
     steps: (g, f) => g.steps.length ? Math.max(...g.steps.map(s => tw(s.label, f, true, 700))) + (phone ? 10 : 13) + (phone ? 6 : 8) : 0,
   };
@@ -1122,15 +1452,16 @@ export function layoutQuiet(pkgs, lsx, lex, y0, phone, fsS0) {
         const ny = up ? ry - (phone ? 7 : 9) : ry + (phone ? 13 : 16);
         // a fork's types a line further out than the name, clear of it
         const sy = ny + (up ? -1 : 1) * lineGap(fsS);
-        let gg = '', tx = x - 3;
+        // a step set's count starts past its loop's arrowhead
+        let gg = '', tx = it.kind === 'stepset' ? x + (phone ? 6 : 8) : x - 3;
         if (it.kind === 'forkset') gg += mark.fork(x - (phone ? 3 : 4), ry, phone ? 0.75 : 0.9);
         else if (it.kind === 'dbset') gg += mark.station(x, ry, phone ? 3.6 : 4.6, it.writes);
         else if (it.kind === 'stepset') gg += mark.loop(x, ry - 0.5, phone ? 4.2 : 5.4);
         else if (it.socket) gg += mark.socket(x, ry, phone ? 4.6 : 6);
         else gg += mark.dot(x, ry, phone ? 3 : 3.8);
         if (it.gen) { gg += T(tx, ny, `∀${it.gen}`, { size: fsS, weight: 700, fill: C.hullInk, mono: false }); tx += tw(`∀${it.gen} `, fsS, false, 700); }
-        gg += T(tx, ny, it.label, { size: fsS, fill: it.kind === 'stepset' ? C.hullInk : C.ink, weight: it.kind === 'part' ? null : 700 });
-        if (it.fork) { gg += mark.fork(x - 2, sy - (phone ? 2.5 : 3.2), phone ? 0.55 : 0.7); gg += T(x + (phone ? 6 : 8), sy, it.fork.join(','), { size: fsS - 0.5, fill: C.muted }); }
+        gg += T(tx, ny, setLabel(it), { size: fsS, fill: it.kind === 'stepset' ? C.hullInk : C.ink, weight: it.kind === 'part' ? null : 700 });
+        if (it.fork && it.kind !== 'forkset') { gg += mark.fork(x - 2, sy - (phone ? 2.5 : 3.2), phone ? 0.55 : 0.7); gg += T(x + (phone ? 6 : 8), sy, it.fork.join(','), { size: fsS - 0.5, fill: C.muted }); }
         else if (it.fns) gg += T(x - 3, sy, it.fns.join(', '), { size: fsS - 0.5, fill: C.hullInk, italic: true });
         over.push(tg(it.keys, gg));
       });
@@ -1229,9 +1560,11 @@ function renderLibrary(map, W, opts) {
     steps.forEach((s, k) => {
       const x = xs[k + 1];
       decorate(s.id, x, py);
+      // a step's names are centred on it, within its share of the chain and short of the package's edge
+      const room = 2 * Math.min(dx / 2 - 2, x1 - (phone ? 8 : 12) - x);
       const fns = socketFns.get(s.id);
-      if (fns && !phone) out.push(T(x, py - (phone ? 9 : 11), clip(fns.join(', '), 9, dx - 8), { anchor: 'middle', size: 9, fill: C.hullInk }));
-      { const t = fitText(s.label + (s.applied ? '(..)' : ''), fs, dx - 4); out.push(T(x, py + (phone ? 17 : 22), t.s, { anchor: 'middle', size: t.size, fill: C.ink })); }
+      if (fns && !phone) out.push(T(x, py - (phone ? 9 : 11), clip(fns.join(', '), 9, room - 4), { anchor: 'middle', size: 9, fill: C.hullInk }));
+      { const t = fitText(s.label + (s.applied ? '(..)' : ''), fs, room); out.push(T(x, py + (phone ? 17 : 22), t.s, { anchor: 'middle', size: t.size, fill: C.ink })); }
     });
     drawn.add(c.value);
     y = py + (phone ? 26 : 32) + gapY + (phone ? 6 : 8);
@@ -1510,7 +1843,7 @@ export function partFor(map, id) {
 export function journeyLabel(map, key) {
   if (key === 'quiet') return 'off the entry paths';
   const b = map.bundles && map.bundles.find(x => x.id === key);
-  if (b) return b.count > 1 ? `${b.label} ×${b.count}` : b.label;
+  if (b) return b.count > 1 ? `${b.label} (${b.count} routes)` : b.label;
   return partFor(map, key).label;
 }
 
@@ -1540,7 +1873,6 @@ function renderPart(map, partId, opts) {
   const rh = phone ? 56 : 66;
   const yTop = frameTop + (phone ? 16 : 20);
   const feeds = part.groups.flat().filter(s => s.role === 'semantic-object');
-  const rowsTop = yTop + (phone ? 30 : 34) + (feeds.length ? (phone ? 28 : 34) : 0);
   const shared = n > 1;
   const atPart = u => part.station ? u.at.node === 'entry' && u.at.entry === part.station : u.at.node === 'wrapper' && u.at.wrapper === part.id;
   const uses = map.uses.map((u, i) => ({ ...u, i })).filter(u => u.kind === 'db' && atPart(u));
@@ -1548,17 +1880,52 @@ function renderPart(map, partId, opts) {
   const rS = phone ? 5.4 : 6.6;
   // columns: the casing holds the part; past it, the after band and the reply bars
   // on a phone the casing gives up width to the after band
-  const c = p => x0 + cw * p, k = phone ? 0.88 : 1;
-  const caseEnd = c(0.8 * k);
-  const xMerge = c(0.08 * k), xRead = c(0.22 * k), xGuard = c(0.38 * k), xSplit = c(0.5 * k), xSock = c(0.6 * k), xPG = c(0.72 * k), xr = c(0.96);
+  const k = phone ? 0.88 : 1, xr = x0 + cw * 0.96;
+  const keyedById = new Map(map.keyed.map(k => [k.id, k]));
+  const keyed = ids => [...new Set(ids)].filter(id => keyedById.has(id));
+  const typesOf = ids => [...new Set(keyed(ids).flatMap(id => keyedById.get(id).types))].join(',');
+  // The sockets and the checks after them take the room their labels' widest
+  // pieces need, so that wrapping never has to clip one: the columns left of
+  // the sockets give way down to three quarters of their width, then the
+  // casing reaches into the band after it, which keeps room for its marks.
+  const piece = s => (s ? widestPiece(s, fsS, true) : 0);
+  const passed = part.station ? [] : callers.map(cl => cl.passed[0]).filter(Boolean);
+  const checked = passed.filter(p => p.guards.length);
+  const sockNeed = Math.max(0, ...passed.map(p => Math.max(rS + 3 + Math.max(piece(p.label), piece(reachLabel(p.effects))), keyed([p.id]).length ? 13 + piece(typesOf([p.id])) : 0)));
+  const checkNeed = Math.max(0, ...checked.map(p => Math.max(6 + piece(p.guards.join(', ')), keyed(p.guardIds || []).length ? 15 + piece(typesOf(p.guardIds || [])) : 0)));
+  const afterMarks = Math.max(0, ...callers.map(cl => { const b = cl.beside; return [b.guards.length, b.effects.length, b.resources.includes('model'), b.calls.length].filter(Boolean).length; }));
+  let caseEnd = x0 + cw * 0.8 * k, xSock = x0 + cw * 0.6 * k, xPG = x0 + cw * 0.72 * k;
+  if (!part.station) {
+    const checkSpan = checked.length ? Math.max(caseEnd - xPG, checkNeed + 6) : 0;
+    const sockSpan = Math.max((checked.length ? xPG : caseEnd) - xSock, sockNeed + (checked.length ? 8 : 6));
+    // (only columns with nothing of the part's own to label give way)
+    const least = x0 + cw * 0.6 * k * (part.effects.length || keyed([part.id]).length || part.guards.length ? 1 : 0.75), most = xr - (phone ? 14 : 18) * (afterMarks + 1);
+    caseEnd = Math.max(caseEnd, Math.min(most, least + sockSpan + checkSpan));
+    xPG = caseEnd - checkSpan;
+    xSock = Math.max(least, Math.min(x0 + cw * 0.6 * k, xPG - sockSpan));
+  }
+  // the columns left of the sockets, in their share of what the sockets leave
+  const c = p => x0 + (xSock - x0) * p / 0.6;
+  const xMerge = c(0.08), xRead = c(0.22), xGuard = c(0.38), xSplit = c(0.5);
   const stX = part.station ? xSock : xRead;
   // the parameter every caller fixes drops into the check it decides, else the part's own station
   const feedX = s => (s.guardsFed.length && part.guards.length ? xGuard : xRead);
-  const keyedById = new Map(map.keyed.map(k => [k.id, k]));
+  // the casing's head lists them, those dropping furthest left first, each on
+  // lines of its own reaching to the casing's edge: a later one's drop starts
+  // at its own name, under the names that reach across it
+  const lead = phone ? 12 : 13;
+  const feedRows = [];
+  { let fy = yTop + (phone ? 20 : 23);
+    for (const s of feeds.slice().sort((a, b) => feedX(a) - feedX(b))) {
+      const gx = feedX(s), text = `${s.name}: ${String(s.type).split('::').pop()}`;
+      const lines = wrapped(text, caseEnd - 6 - gx - 6, { size: fsS });
+      feedRows.push({ s, gx, text, lines, y: fy });
+      fy += lines.length * lead;
+    } }
+  const feedLines = feedRows.reduce((a, r) => a + r.lines.length, 0);
+  const rowsTop = yTop + (phone ? 30 : 34) + (feeds.length ? (phone ? 34 : 39) + (feedLines - 1) * lead : 0);
   // line k (from 1) under a path at y
-  const lead = phone ? 12 : 13, line = (y, k) => y + (phone ? 14 : 16) + (k - 1) * lead;
-  const keyed = ids => [...new Set(ids)].filter(id => keyedById.has(id));
-  const typesOf = ids => [...new Set(keyed(ids).flatMap(id => keyedById.get(id).types))].join(',');
+  const line = (y, k) => y + (phone ? 14 : 16) + (k - 1) * lead;
   const forkLines = (ids, x, end) => (keyed(ids).length ? wrapped(typesOf(ids), end - x - 11, { size: fsS }) : []);
   const entryOf = cl => map.entries.find(e => e.handlerId === cl.id || e.key === cl.id);
   // Each caller's lines: its name over its path; under it its routes, then its
@@ -1578,7 +1945,8 @@ function renderPart(map, partId, opts) {
     const tokX = roles.length === 1 ? lx + tw(roles[0], fsS, false, 700) + 8 : lx;
     const tokSame = !!tokTxt && roles.length === 1 && tw(tokTxt, fsS) <= x0 - tokX - 6;
     const toks = tokTxt ? (tokSame ? [tokTxt] : wrapped(tokTxt, x0 - lx - 6, { size: fsS })) : [];
-    const left = sub.length + Math.max(roles.length + (tokSame ? 0 : toks.length), 0);
+    // the roles and tokens start a line below the path's own (left empty without a route, for the lock)
+    const left = (roles.length || toks.length ? Math.max(1, sub.length) : sub.length) + roles.length + (tokSame ? 0 : toks.length);
     const r = { e, lx, name, sx, sub, subTxt, roles, roleTxt, toks, tokTxt, tokSame, tokX, handed: [], reach: [], fork: [], below: false, gLines: [], gFork: [], after: [], afterAt: 1, afterWide: false, afterG: [] };
     if (!part.station) {
       const p = cl.passed[0], pe = p ? p.effects : [];
@@ -1658,12 +2026,15 @@ function renderPart(map, partId, opts) {
   } else out.push(`<path d="M${x0 + 4} ${f1(ty)} H${f1(part.station ? xr : xSock - rS)}" stroke="${C.ink2}" stroke-width="1.6"/>`);
   // under the part's own station, right of its riser: its fork, then its tables; they end short of its check's stem
   const gx = part.station ? xRead : xGuard;
-  const stEnd = part.station ? xr - 6 : part.guards.length ? xGuard - 8 : xSplit - 4;
-  const stFork = keyed([part.id]).length ? 1 : 0;
-  forkAt([part.id], stX + 6, ty, 1, stEnd);
+  // when a piece of them would not fit before the part's check, they go under its failure bar and its fork, to the split
+  const short = !part.station && part.guards.length > 0 && (piece(typesOf([part.id])) > xGuard - 8 - stX - 17 || piece(reachLabel(part.effects)) > xGuard - 8 - stX - rS - 4);
+  const stEnd = part.station ? xr - 6 : part.guards.length && !short ? xGuard - 8 : xSplit - 4;
+  const stLine = short ? 1 + Math.max(1, forkLines(part.guardIds || [], gx + 6, xSplit - 4).length) : 1;
+  const stFork = forkLines([part.id], stX + 6, stEnd).length;
+  forkAt([part.id], stX + 6, ty, stLine, stEnd);
   if (part.effects.length) {
     over.push(mark.station(stX, ty, shared ? rS * 1.15 : rS, writesIn(part.effects)));
-    out.push(owned(casing, L(stX + rS + 4, line(ty, 1 + stFork), reachLabel(part.effects), stEnd - stX - rS - 4, { size: fsS, fill: C.db })));
+    out.push(owned(casing, L(stX + rS + 4, line(ty, stLine + stFork), reachLabel(part.effects), stEnd - stX - rS - 4, { size: fsS, fill: C.db })));
   } else if (part.station) over.push(mark.dot(stX, ty, 3.4));
   if (part.guards.length) {
     over.push(tg((part.guardIds || []).map(g => `guard:${part.id}:${g}`), mark.guard(gx, ty, phone ? 0.9 : 1.1)));
@@ -1674,11 +2045,16 @@ function renderPart(map, partId, opts) {
     forkAt(part.guardIds || [], gx + 6, ty, 1, part.station ? stX - rS - 6 : xSplit - 4);
   }
   // the parameter every caller fixes drops in from above into the check it decides
-  for (const s of feeds) {
-    const gx = feedX(s), next = Math.min(caseEnd - 6, ...feeds.map(feedX).filter(x => x > gx).map(x => x - 6));
-    out.push(`<path d="M${f1(gx)} ${yTop + 2} V${f1(ty - (phone ? 16 : 20))}" stroke="${C.ink2}" stroke-width="1.4" stroke-dasharray="1.5 3"/>`);
-    out.push(`<path d="M${f1(gx - 3.5)} ${f1(ty - (phone ? 21 : 25))} L${f1(gx)} ${f1(ty - (phone ? 15 : 19))} L${f1(gx + 3.5)} ${f1(ty - (phone ? 21 : 25))}" fill="${C.ink2}"/>`);
-    out.push(owned(casing, L(gx + 6, yTop + (phone ? 14 : 18), `${s.name}: ${String(s.type).split('::').pop()}`, next - gx - 6, { size: fsS, fill: C.ink2 })));
+  const dropped = new Set();
+  for (const { gx, text, lines, y } of feedRows) {
+    // one drop for each column, from above the casing, or from the first name in it the names to its left leave clear
+    if (!dropped.has(gx)) {
+      dropped.add(gx);
+      const from = feedRows.some(r => r.gx < gx) ? y - fsS : yTop + 2;
+      out.push(`<path d="M${f1(gx)} ${f1(from)} V${f1(ty - (phone ? 16 : 20))}" stroke="${C.ink2}" stroke-width="1.4" stroke-dasharray="1.5 3"/>`);
+      out.push(`<path d="M${f1(gx - 3.5)} ${f1(ty - (phone ? 21 : 25))} L${f1(gx)} ${f1(ty - (phone ? 15 : 19))} L${f1(gx + 3.5)} ${f1(ty - (phone ? 21 : 25))}" fill="${C.ink2}"/>`);
+    }
+    out.push(owned(casing, Tw(gx + 6, y, lines, { size: fsS, fill: C.ink2 }, text, lead)));
   }
   if (!part.station) callers.forEach((cl, i) => {
     const y = ys[i];