@hraness/dawg 0.6.0 → 0.7.0

package/core/styles/base.ts

@@ -0,0 +1,123 @@
+/**
+ * BASE_STYLE: the neutral body every style resolves on top of (quality-08).
+ * A 4/4 straight-sixteenths song in a major key with a functional
+ * progression, a root bass, a piano comp, a lead and a plain kit. Root
+ * cards replace what their family does differently; nothing here is a
+ * style of its own.
+ */
+
+import type { StyleBody } from "./schema.ts";
+
+/** Signed interval weights for -12..12 semitones: mostly steps, few leaps. */
+export const STEPWISE_INTERVALS: readonly number[] = Object.freeze([
+  0.2, 0.1, 0.1, 0.2, 0.4, 0.6, 0.5, 1.2, 1.4, 2.6, 4.2, 5.2, 1.6, 5.2, 4.2,
+  2.6, 1.4, 1.2, 0.5, 0.6, 0.4, 0.2, 0.1, 0.1, 0.2,
+]);
+
+export const BASE_STYLE: StyleBody = Object.freeze({
+  summary: "neutral 4/4 song: functional harmony, root bass, comp and lead",
+  seedSalt: 0,
+  meter: { signatures: [["4/4", 1]], hypermeter: [[4, 1]] },
+  tempo: { bpm: [90, 130], typical: 110 },
+  groove: {
+    subdivision: 4,
+    swingRatio: [1, 1],
+    velocity: [1, 0.7, 0.85, 0.7],
+    humanize: { timingMs: 4, velocity: 0.05 },
+  },
+  rhythm: {
+    onsets: {
+      kick: [1, 0, 0, 0, 0, 0, 0, 0.2, 1, 0, 0.3, 0, 0, 0, 0, 0],
+      snare: [0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0.1],
+      hat: [1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0],
+    },
+    fills: { every: 4, density: [0.3, 0.6] },
+  },
+  pitch: {
+    scales: [["major", 1]],
+    tonic: "any",
+  },
+  harmony: {
+    model: "functional",
+    presets: [
+      ["axis", 0.4],
+      ["fifties", 0.3],
+      ["canon", 0.3],
+    ],
+    cadences: [
+      ["V-I", 0.6],
+      ["IV-I", 0.2],
+      ["half", 0.2],
+    ],
+    rhythm: [[1, 1]],
+    sevenths: 0.1,
+    voicing: { types: [["close", 1]], range: [52, 76], notes: [3, 4] },
+  },
+  melody: {
+    contour: [
+      ["arch", 0.5],
+      ["wave", 0.5],
+    ],
+    ambitus: [5, 12],
+    range: [60, 84],
+    intervals: STEPWISE_INTERVALS,
+    chordToneRate: 0.7,
+    density: [1, 2],
+    phraseBars: [
+      [2, 0.5],
+      [4, 0.5],
+    ],
+    repetition: 0.4,
+    finals: [
+      [0, 0.6],
+      [2, 0.2],
+      [4, 0.2],
+    ],
+  },
+  bass: {
+    behaviour: [["root", 1]],
+    range: [33, 52],
+    onsets: [1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0],
+  },
+  form: {
+    plans: [[["intro", "verse", "chorus", "verse", "chorus", "outro"], 1]],
+    energy: {
+      intro: 0.4,
+      verse: 0.6,
+      pre: 0.7,
+      chorus: 0.9,
+      build: 0.8,
+      drop: 1,
+      breakdown: 0.3,
+      bridge: 0.6,
+      outro: 0.4,
+    },
+    archetype: "verse-chorus",
+  },
+  texture: {
+    kind: "homophonic",
+    roles: {
+      kick: {
+        required: true,
+        voices: [{ instrument: "drums", kit: "acoustic", weight: 1 }],
+      },
+      snare: {
+        required: true,
+        voices: [{ instrument: "drums", kit: "acoustic", weight: 1 }],
+      },
+      hat: {
+        required: false,
+        voices: [{ instrument: "drums", kit: "acoustic", weight: 1 }],
+      },
+      bass: { required: true, voices: [{ instrument: "bass", weight: 1 }] },
+      chords: { required: true, voices: [{ instrument: "piano", weight: 1 }] },
+      lead: { required: true, voices: [{ instrument: "lead", weight: 1 }] },
+    },
+  },
+  expression: { dynamics: [0.45, 0.95] },
+  mix: {
+    levels: { kick: -2, snare: -4, hat: -10, bass: -3, chords: -6, lead: 0 },
+    space: 0.25,
+  },
+  wants: [],
+} satisfies StyleBody);

package/core/styles/cycles.ts

@@ -0,0 +1,106 @@
+/**
+ * Timelines (quality-08): the asymmetric bell, clave and stick patterns
+ * that organise a groove, written as abstract one-bar step grids (`x` hit,
+ * `.` rest; see `grid` in parts.ts). They are theory, not material: each is
+ * a rhythmic cell named and analysed in the literature, not a transcription
+ * of a recording.
+ *
+ * 16-step patterns are one 4/4 bar of sixteenths (two cut-time bars, the
+ * way clave is felt). 12-step patterns are one 12/8 bar of eighths, or one
+ * 6/8 or 3/4 bar of sixteenths.
+ *
+ * References: David Peñalosa, "The Clave Matrix" (2009); Godfried
+ * Toussaint, "The Geometry of Musical Rhythm" (2013).
+ */
+
+import type { CycleSpec } from "./schema.ts";
+
+export const TIMELINES = Object.freeze({
+  /** Son clave, three side first: 3+3+4 | 2+4 (onsets 0 3 6 10 12). */
+  sonClave32: "x..x..x...x.x...",
+  /** Son clave, two side first (the 3-2 rotated by half a bar). */
+  sonClave23: "..x.x...x..x..x.",
+  /** Rumba clave: the third stroke of the three side delayed to 7. */
+  rumbaClave32: "x..x...x..x.x...",
+  rumbaClave23: "..x.x...x..x...x",
+  /** Bossa nova clave: the son clave with the last stroke moved to 13. */
+  bossaClave: "x..x..x...x..x..",
+  /** Tresillo 3+3+2 twice: the Afro-Latin cell under habanera and dembow. */
+  tresillo: "x..x..x.x..x..x.",
+  /** Habanera (contradanza): tresillo with the middle stroke split. */
+  habanera: "x..xx.x.x..xx.x.",
+  /** Cinquillo: five strokes in a 2/4 bar, x.xx.xx. (danzon, kompa, biguine). */
+  cinquillo: "x.xx.xx.x.xx.xx.",
+  /** Danzon baqueteo: cinquillo bar answered by a plain eighths bar. */
+  baqueteo: "x.xx.xx.x.x.x.x.",
+  /** Cascara (shell of the timbal), 2-3: the 2 side x.x.xx.x, then x.xx.x.x. */
+  cascara: "x.x.xx.xx.xx.x.x",
+  /** Cascara, 3-2: the halves swapped (rumba palitos under a 3-2 clave). */
+  cascara32: "x.xx.x.xx.x.xx.x",
+  /** Dembow / tresillo off-beat snare: 3 6 11 14. */
+  dembowSnare: "...x..x....x..x.",
+  /** Four on the floor. */
+  fourFloor: "x...x...x...x...",
+  /** Off-beat eighths (skank, llamador, upstroke). */
+  offbeats: "..x...x...x...x.",
+  /** One drop: kick and rim together on beat three only. */
+  oneDrop: "........x.......",
+  /** Partido alto: the syncopated samba cell (2+3, anticipated). */
+  partidoAlto: ".x..x.x..x..x.x.",
+  /** Guira / guacharaca scrape: long-short-short per beat. */
+  scrape: "x.xxx.xxx.xxx.xx",
+  /**
+   * Tumbao bass: the and of two (bombo) and beat four (ponche) of each 4/4
+   * bar, never the one. A 4/4 bar is eight steps here, a quarter two.
+   */
+  tumbao: "...x..x....x..x.",
+  /** Conga tumbao: open tones on 4 and 4-and, slap on two. */
+  congaTumbao: "x.x.x.xxx.x.x.xx",
+  /** Huayno short-long: sixteenth then dotted eighth on every beat. */
+  huayno: "xx..xx..xx..xx..",
+  /** Standard 12/8 bell (bembe): 2+2+1+2+2+2+1, seven strokes. */
+  bembe12: "x.x.xx.x.x.x",
+  /** 6/8 sesquialtera: 6/8 accents (0, 6) against 3/4 (0, 4, 8). */
+  sixEight12: "x.....x.....",
+  threeFour12: "x...x...x...",
+} as const);
+
+export type TimelineName = keyof typeof TIMELINES;
+
+/** The onset steps of a timeline (or any `x.` grid string). */
+export function onsetSteps(pattern: string): number[] {
+  const out: number[] = [];
+  let i = 0;
+  for (const char of pattern) {
+    if (char === " " || char === "|") continue;
+    if (char === "x" || char === "X") out.push(i);
+    i += 1;
+  }
+  return out;
+}
+
+/**
+ * A timeline as a cycle the perc role plays one stroke per pulse (the
+ * meter's beat unit: an eighth in 6/8 and 12/8). Hits on `low` steps play
+ * the low voice; `stress` steps are accented (1-based, like a tala).
+ */
+export function timelineCycle(
+  name: string,
+  pattern: string,
+  low: readonly number[] = [0],
+  stress: readonly number[] = [1],
+): CycleSpec {
+  const steps = [...pattern].filter((c) => c !== " " && c !== "|");
+  const strokes = steps.map((c, i) =>
+    c === "." ? "." : low.includes(i) ? "bum" : "ka",
+  );
+  return Object.freeze({
+    kind: "timeline",
+    name,
+    beats: strokes.length,
+    divisions: Object.freeze([strokes.length]),
+    strokes: Object.freeze(strokes),
+    low: Object.freeze(["bum"]),
+    stress: Object.freeze([...stress]),
+  });
+}