polyphon 0.0.0-stage → 0.1.0

package/dist/notation/harmony.d.ts

@@ -0,0 +1,83 @@
+import { type ChordInfo, type Pitch } from '../theory.ts';
+import { type Meter, type Part } from './part.ts';
+/** A chord placed in time (steps) */
+export interface Chord extends ChordInfo {
+    time: number;
+    duration: number;
+}
+/**
+ * Parse a chord progression. Bars are separated by |, and the chords in a bar share it equally;
+ * lengths can also be written out ('C:12 G:4'). '%' holds the previous chord for one more bar.
+ *
+ * @example
+ * chords('Am | F | C G | E7')
+ * chords('Dm:12 A7:4 | %')
+ */
+export declare function chords(source: string, meter?: Meter): Chord[];
+/** Total length of a progression, in steps */
+export declare const chordsDuration: (progression: Chord[]) => number;
+export interface PadOptions {
+    /** The register the voicing centers on (default C4) */
+    center?: Pitch;
+    /** Notes per chord (default: every chord tone) */
+    size?: number;
+    velocity?: number;
+    /** Steps of silence before each chord change */
+    gap?: number;
+}
+/** Sustained chords (pads, string sections, choirs, organ), voiced to move smoothly */
+export declare function pad(progression: Chord[], { center, size, velocity, gap }?: PadOptions): Part;
+export interface ArpeggioOptions {
+    /** Steps per pattern character (default 2: eighth notes) */
+    step?: number;
+    /** The register the voicing centers on (default E4) */
+    center?: Pitch;
+    /** Notes per chord voicing (default: every chord tone) */
+    size?: number;
+    velocity?: number;
+    /** Accent every Nth note */
+    accent?: number;
+}
+/**
+ * Arpeggio: the pattern picks chord tones by digit (0 is the lowest; past the number of chord tones it climbs an octave);
+ * '.' is a rest, '-' holds the previous note. The pattern restarts on every chord.
+ *
+ * @example
+ * arpeggio(chords('C | Am'), '0 1 2 1')
+ * arpeggio(chords('C | Am'), '0-12 3.21', { step: 1, center: 'C5' })
+ */
+export declare function arpeggio(progression: Chord[], pattern: string, { step, center, size, velocity, accent }?: ArpeggioOptions): Part;
+export interface RootsOptions {
+    /** Where the bass sits: notes land within a fifth below to a fifth above this pitch (default C2) */
+    register?: Pitch;
+    /** Stack one more chord tone on top (usually an open fifth) */
+    fifth?: boolean;
+    velocity?: number;
+}
+/** Sustained bass notes: one per chord, held for the whole chord; a repeated bass note continues without re-attacking */
+export declare function roots(progression: Chord[], { register, fifth, velocity }?: RootsOptions): Part;
+export interface BasslineOptions {
+    /** Where the bass sits: the chord's bass lands within a fifth below to a fifth above this pitch (default C2) */
+    register?: Pitch;
+    velocity?: number;
+}
+/**
+ * Bass line: the rhythm is a rhythm string that repeats every bar ('-' holds), and the line lists the scale degrees used in turn:
+ * 1 the chord's bass, 3 the chord's third, 5 the fifth, 8 an octave up, -8 an octave down, b7 / 7 / 2 / 4 / 6, b2 (Phrygian), -5 / -4 below.
+ *
+ * @example
+ * bassline(chords('C | Am | F | G'), 'x.x.x.x.x.x.x.x.', '1 5 8 5')
+ */
+export declare function bassline(progression: Chord[], rhythm: string, line?: string, { register, velocity }?: BasslineOptions): Part;
+export interface StrumOptions {
+    /** The register the voicing centers on (default Bb3) */
+    center?: Pitch;
+    /** Strings per strum (default 5) */
+    size?: number;
+    /** Seconds between strings (default 0.014) */
+    spread?: number;
+    velocity?: number;
+}
+/** Strummed chords: the rhythm repeats every bar, x down-stroke, X heavy, o soft, '-' holds */
+export declare function strum(progression: Chord[], rhythm: string, { center, size, spread, velocity }?: StrumOptions): Part;
+//# sourceMappingURL=harmony.d.ts.map

package/dist/notation/harmony.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"harmony.d.ts","sourceRoot":"","sources":["../../src/notation/harmony.ts"],"names":[],"mappings":"AAEA,OAAO,EAAgC,KAAK,SAAS,EAAE,KAAK,KAAK,EAAE,MAAM,cAAc,CAAC;AACxF,OAAO,EAAyB,KAAK,KAAK,EAAa,KAAK,IAAI,EAAE,MAAM,WAAW,CAAC;AAEpF,qCAAqC;AACrC,MAAM,WAAW,KAAM,SAAQ,SAAS;IACtC,IAAI,EAAE,MAAM,CAAC;IACb,QAAQ,EAAE,MAAM,CAAC;CAClB;AAED;;;;;;;GAOG;AACH,wBAAgB,MAAM,CAAC,MAAM,EAAE,MAAM,EAAE,KAAK,GAAE,KAAU,GAAG,KAAK,EAAE,CAmBjE;AAED,8CAA8C;AAC9C,eAAO,MAAM,cAAc,gBAAiB,KAAK,EAAE,KAAG,MAGrD,CAAC;AAEF,MAAM,WAAW,UAAU;IACzB,uDAAuD;IACvD,MAAM,CAAC,EAAE,KAAK,CAAC;IACf,kDAAkD;IAClD,IAAI,CAAC,EAAE,MAAM,CAAC;IACd,QAAQ,CAAC,EAAE,MAAM,CAAC;IAClB,gDAAgD;IAChD,GAAG,CAAC,EAAE,MAAM,CAAC;CACd;AAED,uFAAuF;AACvF,wBAAgB,GAAG,CAAC,WAAW,EAAE,KAAK,EAAE,EAAE,EAAE,MAAW,EAAE,IAAI,EAAE,QAA0B,EAAE,GAAO,EAAE,GAAE,UAAe,GAAG,IAAI,CAQ3H;AAED,MAAM,WAAW,eAAe;IAC9B,4DAA4D;IAC5D,IAAI,CAAC,EAAE,MAAM,CAAC;IACd,uDAAuD;IACvD,MAAM,CAAC,EAAE,KAAK,CAAC;IACf,0DAA0D;IAC1D,IAAI,CAAC,EAAE,MAAM,CAAC;IACd,QAAQ,CAAC,EAAE,MAAM,CAAC;IAClB,4BAA4B;IAC5B,MAAM,CAAC,EAAE,MAAM,CAAC;CACjB;AAED;;;;;;;GAOG;AACH,wBAAgB,QAAQ,CAAC,WAAW,EAAE,KAAK,EAAE,EAAE,OAAO,EAAE,MAAM,EAAE,EAAE,IAAQ,EAAE,MAAW,EAAE,IAAI,EAAE,QAA0B,EAAE,MAAM,EAAE,GAAE,eAAoB,GAAG,IAAI,CAuB/J;AAYD,MAAM,WAAW,YAAY;IAC3B,oGAAoG;IACpG,QAAQ,CAAC,EAAE,KAAK,CAAC;IACjB,+DAA+D;IAC/D,KAAK,CAAC,EAAE,OAAO,CAAC;IAChB,QAAQ,CAAC,EAAE,MAAM,CAAC;CACnB;AAED,yHAAyH;AACzH,wBAAgB,KAAK,CAAC,WAAW,EAAE,KAAK,EAAE,EAAE,EAAE,QAAa,EAAE,KAAa,EAAE,QAAc,EAAE,GAAE,YAAiB,GAAG,IAAI,CAiBrH;AAED,MAAM,WAAW,eAAe;IAC9B,gHAAgH;IAChH,QAAQ,CAAC,EAAE,KAAK,CAAC;IACjB,QAAQ,CAAC,EAAE,MAAM,CAAC;CACnB;AAED;;;;;;GAMG;AACH,wBAAgB,QAAQ,CAAC,WAAW,EAAE,KAAK,EAAE,EAAE,MAAM,EAAE,MAAM,EAAE,IAAI,SAAM,EAAE,EAAE,QAAa,EAAE,QAA0B,EAAE,GAAE,eAAoB,GAAG,IAAI,CA8BpJ;AAUD,MAAM,WAAW,YAAY;IAC3B,wDAAwD;IACxD,MAAM,CAAC,EAAE,KAAK,CAAC;IACf,oCAAoC;IACpC,IAAI,CAAC,EAAE,MAAM,CAAC;IACd,8CAA8C;IAC9C,MAAM,CAAC,EAAE,MAAM,CAAC;IAChB,QAAQ,CAAC,EAAE,MAAM,CAAC;CACnB;AAED,+FAA+F;AAC/F,wBAAgB,KAAK,CAAC,WAAW,EAAE,KAAK,EAAE,EAAE,MAAM,EAAE,MAAM,EAAE,EAAE,MAAW,EAAE,IAAQ,EAAE,MAAc,EAAE,QAA0B,EAAE,GAAE,YAAiB,GAAG,IAAI,CAkB1J"}

package/dist/notation/harmony.js

@@ -0,0 +1,191 @@
+// Chord progressions, and the parts that grow out of them: pads, arpeggios, bass lines, sustained roots and strums.
+import { midi, parseChord, voiceChord } from '../theory.js';
+import { stepsPerBar, VELOCITY } from './part.js';
+/**
+ * Parse a chord progression. Bars are separated by |, and the chords in a bar share it equally;
+ * lengths can also be written out ('C:12 G:4'). '%' holds the previous chord for one more bar.
+ *
+ * @example
+ * chords('Am | F | C G | E7')
+ * chords('Dm:12 A7:4 | %')
+ */
+export function chords(source, meter = 16) {
+    const bar = stepsPerBar(meter);
+    const out = [];
+    let t = 0;
+    for (const cell of source.split('|')) {
+        const toks = cell.trim().split(/\s+/).filter(Boolean);
+        if (!toks.length)
+            continue;
+        const explicit = toks.some((x) => x.includes(':'));
+        const each = bar / toks.length;
+        for (const tok of toks) {
+            const [sym, len] = tok.split(':');
+            const d = explicit ? Number(len ?? 0) || each : each;
+            if (sym === '%') {
+                if (out.length)
+                    out[out.length - 1].duration += d;
+            }
+            else
+                out.push({ ...parseChord(sym), time: t, duration: d });
+            t += d;
+        }
+    }
+    return out;
+}
+/** Total length of a progression, in steps */
+export const chordsDuration = (progression) => {
+    const last = progression[progression.length - 1];
+    return last ? last.time + last.duration : 0;
+};
+/** Sustained chords (pads, string sections, choirs, organ), voiced to move smoothly */
+export function pad(progression, { center = 60, size, velocity = VELOCITY.normal, gap = 0 } = {}) {
+    let prev;
+    const notes = progression.map((c) => {
+        const m = voiceChord(c, { center, previous: prev, size });
+        prev = m;
+        return { time: c.time, duration: c.duration - gap, pitches: m, velocity };
+    });
+    return { notes, duration: chordsDuration(progression) };
+}
+/**
+ * Arpeggio: the pattern picks chord tones by digit (0 is the lowest; past the number of chord tones it climbs an octave);
+ * '.' is a rest, '-' holds the previous note. The pattern restarts on every chord.
+ *
+ * @example
+ * arpeggio(chords('C | Am'), '0 1 2 1')
+ * arpeggio(chords('C | Am'), '0-12 3.21', { step: 1, center: 'C5' })
+ */
+export function arpeggio(progression, pattern, { step = 2, center = 64, size, velocity = VELOCITY.normal, accent } = {}) {
+    const pat = pattern.replace(/\s+/g, '');
+    const notes = [];
+    let prev;
+    for (const c of progression) {
+        const vc = voiceChord(c, { center, previous: prev, size });
+        prev = vc;
+        let k = 0;
+        for (let s = 0; s < c.duration - 1e-6; s += step, k++) {
+            const ch = pat[k % pat.length];
+            if (ch === '.')
+                continue;
+            if (ch === '-') {
+                if (notes.length)
+                    notes[notes.length - 1].duration += step;
+                continue;
+            }
+            const idx = parseInt(ch, 36);
+            const n = vc.length;
+            const m = vc[idx % n] + 12 * Math.floor(idx / n);
+            const acc = accent && k % accent === 0 ? 1.15 : 1;
+            notes.push({ time: c.time + s, duration: Math.min(step, c.duration - s), pitches: [m], velocity: Math.min(1, velocity * acc) });
+        }
+    }
+    return { notes, duration: chordsDuration(progression) };
+}
+/** What to stack above the bass: prefer a perfect fifth; if there is none (diminished chord, inversion, passing bass), look in turn for a sixth, a fourth, a third */
+const ABOVE = [7, 8, 9, 5, 4, 3, 6];
+/** The chord's bass note, placed within a fifth below to a fifth above the register */
+function bassNote(c, register) {
+    let low = register + ((c.bass - (register % 12) + 12) % 12);
+    if (low > register + 7)
+        low -= 12;
+    return low;
+}
+/** Sustained bass notes: one per chord, held for the whole chord; a repeated bass note continues without re-attacking */
+export function roots(progression, { register = 36, fifth = false, velocity = 0.8 } = {}) {
+    const reg = midi(register);
+    const notes = [];
+    for (const c of progression) {
+        // Passing bass (a slash bass that is not a chord tone): just follows the bass, with no fifth stacked (stacking it would clash with the chord)
+        const pcs = new Set(c.intervals.map((i) => (c.root + i) % 12));
+        const low = bassNote(c, reg);
+        const m = [low];
+        if (fifth && pcs.has(c.bass)) {
+            const up = ABOVE.find((k) => pcs.has((c.bass + k) % 12));
+            if (up !== undefined)
+                m.push(low + up);
+        }
+        const last = notes[notes.length - 1];
+        if (last && last.pitches.join() === m.join() && last.time + last.duration === c.time)
+            last.duration += c.duration;
+        else
+            notes.push({ time: c.time, duration: c.duration, pitches: m, velocity });
+    }
+    return { notes, duration: chordsDuration(progression) };
+}
+/**
+ * Bass line: the rhythm is a rhythm string that repeats every bar ('-' holds), and the line lists the scale degrees used in turn:
+ * 1 the chord's bass, 3 the chord's third, 5 the fifth, 8 an octave up, -8 an octave down, b7 / 7 / 2 / 4 / 6, b2 (Phrygian), -5 / -4 below.
+ *
+ * @example
+ * bassline(chords('C | Am | F | G'), 'x.x.x.x.x.x.x.x.', '1 5 8 5')
+ */
+export function bassline(progression, rhythm, line = '1', { register = 36, velocity = VELOCITY.normal } = {}) {
+    const rh = rhythm.replace(/[\s|]/g, '');
+    const steps = line.trim().split(/\s+/);
+    const reg = midi(register);
+    const notes = [];
+    let li = 0;
+    for (const c of progression) {
+        const low = bassNote(c, reg);
+        // Other degrees are counted from the root, placed at the nearest position above the bass
+        const rootAbove = low + ((c.root - c.bass + 12) % 12);
+        for (let s = 0; s < c.duration; s++) {
+            const ch = rh[(c.time + s) % rh.length];
+            if (ch === '-') {
+                if (notes.length)
+                    notes[notes.length - 1].duration += 1;
+                continue;
+            }
+            if (ch !== 'x' && ch !== 'X' && ch !== 'o')
+                continue;
+            const deg = steps[li++ % steps.length];
+            let m;
+            if (deg === '1')
+                m = low;
+            else if (deg === '8')
+                m = low + 12;
+            else if (deg === '-8')
+                m = low - 12;
+            else {
+                m = rootAbove + degreeOffset(deg, c);
+                if (!deg.startsWith('-'))
+                    while (m < low)
+                        m += 12;
+            }
+            notes.push({ time: c.time + s, duration: 1, pitches: [m], velocity: ch === 'X' ? 1 : ch === 'o' ? 0.5 : velocity });
+        }
+    }
+    return { notes, duration: chordsDuration(progression) };
+}
+function degreeOffset(deg, c) {
+    const fifth = c.intervals.includes(6) && !c.intervals.includes(7) ? 6 : c.intervals.includes(8) ? 8 : 7;
+    const map = { '1': 0, b2: 1, '2': 2, b3: 3, '3': c.third || 4, '4': 5, b5: 6, '5': fifth, b6: 8, '6': 9, b7: 10, '7': 11, '8': 12, '10': 12 + (c.third || 4), '-5': -5, '-4': -7, '-b7': -2, '-7': -1, '-8': -12 };
+    const v = map[deg];
+    if (v === undefined)
+        throw new Error(`Unrecognized bass scale degree: ${deg}`);
+    return v;
+}
+/** Strummed chords: the rhythm repeats every bar, x down-stroke, X heavy, o soft, '-' holds */
+export function strum(progression, rhythm, { center = 58, size = 5, spread = 0.014, velocity = VELOCITY.normal } = {}) {
+    const rh = rhythm.replace(/[\s|]/g, '');
+    const notes = [];
+    let prev;
+    for (const c of progression) {
+        const vc = voiceChord(c, { center, previous: prev, size });
+        prev = vc;
+        for (let s = 0; s < c.duration; s++) {
+            const ch = rh[(c.time + s) % rh.length];
+            if (ch === '-') {
+                if (notes.length)
+                    notes[notes.length - 1].duration += 1;
+                continue;
+            }
+            if (ch !== 'x' && ch !== 'X' && ch !== 'o')
+                continue;
+            notes.push({ time: c.time + s, duration: 1, pitches: vc, velocity: ch === 'X' ? 1 : ch === 'o' ? 0.5 : velocity, strum: spread });
+        }
+    }
+    return { notes, duration: chordsDuration(progression) };
+}
+//# sourceMappingURL=harmony.js.map

package/dist/notation/harmony.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"harmony.js","sourceRoot":"","sources":["../../src/notation/harmony.ts"],"names":[],"mappings":"AAAA,oHAAoH;AAEpH,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,UAAU,EAA8B,MAAM,cAAc,CAAC;AACxF,OAAO,EAAE,WAAW,EAAE,QAAQ,EAAoC,MAAM,WAAW,CAAC;AAQpF;;;;;;;GAOG;AACH,MAAM,UAAU,MAAM,CAAC,MAAc,EAAE,KAAK,GAAU,EAAE;IACtD,MAAM,GAAG,GAAG,WAAW,CAAC,KAAK,CAAC,CAAC;IAC/B,MAAM,GAAG,GAAY,EAAE,CAAC;IACxB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,KAAK,MAAM,IAAI,IAAI,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC;QACrC,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;QACtD,IAAI,CAAC,IAAI,CAAC,MAAM;YAAE,SAAS;QAC3B,MAAM,QAAQ,GAAG,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC;QACnD,MAAM,IAAI,GAAG,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;QAC/B,KAAK,MAAM,GAAG,IAAI,IAAI,EAAE,CAAC;YACvB,MAAM,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;YAClC,MAAM,CAAC,GAAG,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,IAAI,CAAC,CAAC,IAAI,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC;YACrD,IAAI,GAAG,KAAK,GAAG,EAAE,CAAC;gBAChB,IAAI,GAAG,CAAC,MAAM;oBAAE,GAAG,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,QAAQ,IAAI,CAAC,CAAC;YACpD,CAAC;;gBAAM,GAAG,CAAC,IAAI,CAAC,EAAE,GAAG,UAAU,CAAC,GAAG,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,CAAC,CAAC;YAC9D,CAAC,IAAI,CAAC,CAAC;QACT,CAAC;IACH,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED,8CAA8C;AAC9C,MAAM,CAAC,MAAM,cAAc,GAAG,CAAC,WAAoB,EAAU,EAAE;IAC7D,MAAM,IAAI,GAAG,WAAW,CAAC,WAAW,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;IACjD,OAAO,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC;AAC9C,CAAC,CAAC;AAYF,uFAAuF;AACvF,MAAM,UAAU,GAAG,CAAC,WAAoB,EAAE,EAAE,MAAM,GAAG,EAAE,EAAE,IAAI,EAAE,QAAQ,GAAG,QAAQ,CAAC,MAAM,EAAE,GAAG,GAAG,CAAC,EAAE,GAAe,EAAE;IACnH,IAAI,IAA0B,CAAC;IAC/B,MAAM,KAAK,GAAG,WAAW,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE;QAClC,MAAM,CAAC,GAAG,UAAU,CAAC,CAAC,EAAE,EAAE,MAAM,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;QAC1D,IAAI,GAAG,CAAC,CAAC;QACT,OAAO,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,QAAQ,EAAE,CAAC,CAAC,QAAQ,GAAG,GAAG,EAAE,OAAO,EAAE,CAAC,EAAE,QAAQ,EAAE,CAAC;IAC5E,CAAC,CAAC,CAAC;IACH,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,cAAc,CAAC,WAAW,CAAC,EAAE,CAAC;AAC1D,CAAC;AAcD;;;;;;;GAOG;AACH,MAAM,UAAU,QAAQ,CAAC,WAAoB,EAAE,OAAe,EAAE,EAAE,IAAI,GAAG,CAAC,EAAE,MAAM,GAAG,EAAE,EAAE,IAAI,EAAE,QAAQ,GAAG,QAAQ,CAAC,MAAM,EAAE,MAAM,EAAE,GAAoB,EAAE;IACvJ,MAAM,GAAG,GAAG,OAAO,CAAC,OAAO,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;IACxC,MAAM,KAAK,GAAW,EAAE,CAAC;IACzB,IAAI,IAA0B,CAAC;IAC/B,KAAK,MAAM,CAAC,IAAI,WAAW,EAAE,CAAC;QAC5B,MAAM,EAAE,GAAG,UAAU,CAAC,CAAC,EAAE,EAAE,MAAM,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;QAC3D,IAAI,GAAG,EAAE,CAAC;QACV,IAAI,CAAC,GAAG,CAAC,CAAC;QACV,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,QAAQ,GAAG,IAAI,EAAE,CAAC,IAAI,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;YACtD,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC,CAAC;YAC/B,IAAI,EAAE,KAAK,GAAG;gBAAE,SAAS;YACzB,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACf,IAAI,KAAK,CAAC,MAAM;oBAAE,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,QAAQ,IAAI,IAAI,CAAC;gBAC3D,SAAS;YACX,CAAC;YACD,MAAM,GAAG,GAAG,QAAQ,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC;YAC7B,MAAM,CAAC,GAAG,EAAE,CAAC,MAAM,CAAC;YACpB,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC;YACjD,MAAM,GAAG,GAAG,MAAM,IAAI,CAAC,GAAG,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;YAClD,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,QAAQ,EAAE,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,CAAC,QAAQ,GAAG,CAAC,CAAC,EAAE,OAAO,EAAE,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,QAAQ,GAAG,GAAG,CAAC,EAAE,CAAC,CAAC;QAClI,CAAC;IACH,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,cAAc,CAAC,WAAW,CAAC,EAAE,CAAC;AAC1D,CAAC;AAED,sKAAsK;AACtK,MAAM,KAAK,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;AAEpC,uFAAuF;AACvF,SAAS,QAAQ,CAAC,CAAQ,EAAE,QAAgB;IAC1C,IAAI,GAAG,GAAG,QAAQ,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,QAAQ,GAAG,EAAE,CAAC,GAAG,EAAE,CAAC,GAAG,EAAE,CAAC,CAAC;IAC5D,IAAI,GAAG,GAAG,QAAQ,GAAG,CAAC;QAAE,GAAG,IAAI,EAAE,CAAC;IAClC,OAAO,GAAG,CAAC;AACb,CAAC;AAUD,yHAAyH;AACzH,MAAM,UAAU,KAAK,CAAC,WAAoB,EAAE,EAAE,QAAQ,GAAG,EAAE,EAAE,KAAK,GAAG,KAAK,EAAE,QAAQ,GAAG,GAAG,EAAE,GAAiB,EAAE;IAC7G,MAAM,GAAG,GAAG,IAAI,CAAC,QAAQ,CAAC,CAAC;IAC3B,MAAM,KAAK,GAAW,EAAE,CAAC;IACzB,KAAK,MAAM,CAAC,IAAI,WAAW,EAAE,CAAC;QAC5B,8IAA8I;QAC9I,MAAM,GAAG,GAAG,IAAI,GAAG,CAAC,CAAC,CAAC,SAAS,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;QAC/D,MAAM,GAAG,GAAG,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;QAC7B,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;QAChB,IAAI,KAAK,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;YAC7B,MAAM,EAAE,GAAG,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;YACzD,IAAI,EAAE,KAAK,SAAS;gBAAE,CAAC,CAAC,IAAI,CAAC,GAAG,GAAG,EAAE,CAAC,CAAC;QACzC,CAAC;QACD,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;QACrC,IAAI,IAAI,IAAI,IAAI,CAAC,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC,IAAI,EAAE,IAAI,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,QAAQ,KAAK,CAAC,CAAC,IAAI;YAAE,IAAI,CAAC,QAAQ,IAAI,CAAC,CAAC,QAAQ,CAAC;;YAC7G,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,QAAQ,EAAE,CAAC,CAAC,QAAQ,EAAE,OAAO,EAAE,CAAC,EAAE,QAAQ,EAAE,CAAC,CAAC;IAChF,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,cAAc,CAAC,WAAW,CAAC,EAAE,CAAC;AAC1D,CAAC;AAQD;;;;;;GAMG;AACH,MAAM,UAAU,QAAQ,CAAC,WAAoB,EAAE,MAAc,EAAE,IAAI,GAAG,GAAG,EAAE,EAAE,QAAQ,GAAG,EAAE,EAAE,QAAQ,GAAG,QAAQ,CAAC,MAAM,EAAE,GAAoB,EAAE;IAC5I,MAAM,EAAE,GAAG,MAAM,CAAC,OAAO,CAAC,QAAQ,EAAE,EAAE,CAAC,CAAC;IACxC,MAAM,KAAK,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;IACvC,MAAM,GAAG,GAAG,IAAI,CAAC,QAAQ,CAAC,CAAC;IAC3B,MAAM,KAAK,GAAW,EAAE,CAAC;IACzB,IAAI,EAAE,GAAG,CAAC,CAAC;IACX,KAAK,MAAM,CAAC,IAAI,WAAW,EAAE,CAAC;QAC5B,MAAM,GAAG,GAAG,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;QAC7B,yFAAyF;QACzF,MAAM,SAAS,GAAG,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,GAAG,EAAE,CAAC,GAAG,EAAE,CAAC,CAAC;QACtD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,QAAQ,EAAE,CAAC,EAAE,EAAE,CAAC;YACpC,MAAM,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,MAAM,CAAC,CAAC;YACxC,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACf,IAAI,KAAK,CAAC,MAAM;oBAAE,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,QAAQ,IAAI,CAAC,CAAC;gBACxD,SAAS;YACX,CAAC;YACD,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG;gBAAE,SAAS;YACrD,MAAM,GAAG,GAAG,KAAK,CAAC,EAAE,EAAE,GAAG,KAAK,CAAC,MAAM,CAAC,CAAC;YACvC,IAAI,CAAS,CAAC;YACd,IAAI,GAAG,KAAK,GAAG;gBAAE,CAAC,GAAG,GAAG,CAAC;iBACpB,IAAI,GAAG,KAAK,GAAG;gBAAE,CAAC,GAAG,GAAG,GAAG,EAAE,CAAC;iBAC9B,IAAI,GAAG,KAAK,IAAI;gBAAE,CAAC,GAAG,GAAG,GAAG,EAAE,CAAC;iBAC/B,CAAC;gBACJ,CAAC,GAAG,SAAS,GAAG,YAAY,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;gBACrC,IAAI,CAAC,GAAG,CAAC,UAAU,CAAC,GAAG,CAAC;oBAAE,OAAO,CAAC,GAAG,GAAG;wBAAE,CAAC,IAAI,EAAE,CAAC;YACpD,CAAC;YACD,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,OAAO,EAAE,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,EAAE,CAAC,CAAC;QACtH,CAAC;IACH,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,cAAc,CAAC,WAAW,CAAC,EAAE,CAAC;AAC1D,CAAC;AAED,SAAS,YAAY,CAAC,GAAW,EAAE,CAAY;IAC7C,MAAM,KAAK,GAAG,CAAC,CAAC,SAAS,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,SAAS,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACxG,MAAM,GAAG,GAA2B,EAAE,GAAG,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,GAAG,EAAE,CAAC,CAAC,KAAK,IAAI,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,GAAG,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,GAAG,EAAE,EAAE,EAAE,GAAG,EAAE,EAAE,EAAE,IAAI,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;IAC3O,MAAM,CAAC,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;IACnB,IAAI,CAAC,KAAK,SAAS;QAAE,MAAM,IAAI,KAAK,CAAC,mCAAmC,GAAG,EAAE,CAAC,CAAC;IAC/E,OAAO,CAAC,CAAC;AACX,CAAC;AAYD,+FAA+F;AAC/F,MAAM,UAAU,KAAK,CAAC,WAAoB,EAAE,MAAc,EAAE,EAAE,MAAM,GAAG,EAAE,EAAE,IAAI,GAAG,CAAC,EAAE,MAAM,GAAG,KAAK,EAAE,QAAQ,GAAG,QAAQ,CAAC,MAAM,EAAE,GAAiB,EAAE;IAClJ,MAAM,EAAE,GAAG,MAAM,CAAC,OAAO,CAAC,QAAQ,EAAE,EAAE,CAAC,CAAC;IACxC,MAAM,KAAK,GAAW,EAAE,CAAC;IACzB,IAAI,IAA0B,CAAC;IAC/B,KAAK,MAAM,CAAC,IAAI,WAAW,EAAE,CAAC;QAC5B,MAAM,EAAE,GAAG,UAAU,CAAC,CAAC,EAAE,EAAE,MAAM,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;QAC3D,IAAI,GAAG,EAAE,CAAC;QACV,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,QAAQ,EAAE,CAAC,EAAE,EAAE,CAAC;YACpC,MAAM,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,MAAM,CAAC,CAAC;YACxC,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACf,IAAI,KAAK,CAAC,MAAM;oBAAE,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,QAAQ,IAAI,CAAC,CAAC;gBACxD,SAAS;YACX,CAAC;YACD,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG;gBAAE,SAAS;YACrD,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,OAAO,EAAE,EAAE,EAAE,QAAQ,EAAE,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,QAAQ,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,CAAC;QACpI,CAAC;IACH,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,cAAc,CAAC,WAAW,CAAC,EAAE,CAAC;AAC1D,CAAC"}

package/dist/notation/melody.d.ts

@@ -0,0 +1,25 @@
+import { type Pitch } from '../theory.ts';
+import { type Meter, type Part } from './part.ts';
+/**
+ * Parse a melody string.
+ *
+ * @example
+ * melody('C5:4 E5 G5 C6 | B5:8 G5:8 |')
+ * melody('G4:6 A4:2 B4:4 | D5:12 |', '3/4')
+ */
+export declare function melody(source: string, meter?: Meter): Part;
+export interface RhythmOptions {
+    /** Steps per character (default 1: each character is a sixteenth note) */
+    step?: number;
+    /** The pitch every hit plays (tuned drums, or any instrument); default: unpitched */
+    pitch?: Pitch;
+}
+/**
+ * Parse a rhythm: one character per step. X accent, x normal, o soft, . or - rest.
+ *
+ * @example
+ * rhythm('X...x...X..xx...')            // a kick pattern
+ * rhythm('x.x.x.x.', { pitch: 'G2' })   // a pitched pulse
+ */
+export declare function rhythm(pattern: string, { step, pitch }?: RhythmOptions): Part;
+//# sourceMappingURL=melody.d.ts.map

package/dist/notation/melody.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"melody.d.ts","sourceRoot":"","sources":["../../src/notation/melody.ts"],"names":[],"mappings":"AAcA,OAAO,EAAQ,KAAK,KAAK,EAAE,MAAM,cAAc,CAAC;AAChD,OAAO,EAAyB,KAAK,KAAK,EAAa,KAAK,IAAI,EAAE,MAAM,WAAW,CAAC;AAEpF;;;;;;GAMG;AACH,wBAAgB,MAAM,CAAC,MAAM,EAAE,MAAM,EAAE,KAAK,GAAE,KAAU,GAAG,IAAI,CAqE9D;AAcD,MAAM,WAAW,aAAa;IAC5B,0EAA0E;IAC1E,IAAI,CAAC,EAAE,MAAM,CAAC;IACd,qFAAqF;IACrF,KAAK,CAAC,EAAE,KAAK,CAAC;CACf;AAED;;;;;;GAMG;AACH,wBAAgB,MAAM,CAAC,OAAO,EAAE,MAAM,EAAE,EAAE,IAAQ,EAAE,KAAK,EAAE,GAAE,aAAkB,GAAG,IAAI,CAWrF"}

package/dist/notation/melody.js

@@ -0,0 +1,138 @@
+// Melodies and rhythms written as short strings.
+//
+// Melody:
+//   'E5:4 D5:2 C5:2 | B4:8 r:8 |'   note:length in sixteenth-note steps, r is a rest, | is a bar line (each bar's length is checked)
+//   'E5:4 D5 C5 B4'                  leave out the length to reuse the previous one
+//   'C4+E4+G4:16'                    a chord (pitches sounding together)
+//   '!E5:4 ?E5:2'                    ! accent, ? soft (ghost note)
+//   'E5:4> G5:4'                     > glide into the next note (instruments that support glides)
+//   'G4:8~ | G4:4'                   ~ ties into the next note of the same pitch, across bar lines too
+//   'E5:4/3'                         fractional length (a triplet eighth note is 4/3)
+//   '(E5:2 D5:2)*4 R*2'              parenthesized groups repeat; R is a full bar of rest; . is the same as r
+//
+// Rhythm: one character per step. X accent, x normal, o soft, . or - rest; spaces and | are ignored.
+import { midi } from '../theory.js';
+import { stepsPerBar, VELOCITY } from './part.js';
+/**
+ * Parse a melody string.
+ *
+ * @example
+ * melody('C5:4 E5 G5 C6 | B5:8 G5:8 |')
+ * melody('G4:6 A4:2 B4:4 | D5:12 |', '3/4')
+ */
+export function melody(source, meter = 16) {
+    const bar = stepsPerBar(meter);
+    const notes = [];
+    let t = 0;
+    let dur = 4;
+    let barStart = 0;
+    let barNo = 1;
+    let lastR = false;
+    /** The note a ~ holds on into the next one */
+    let tied;
+    for (const raw of expandRepeats(source).split(/\s+/)) {
+        if (!raw)
+            continue;
+        if (raw === '|') {
+            // R is a complete bar by itself, so a bar line right after it needs no further check (the "R*3 |" style)
+            if (lastR && Math.abs(t - barStart) < 1e-6) {
+                lastR = false;
+                continue;
+            }
+            if (Math.abs(t - barStart - bar) > 1e-6)
+                throw new Error(`Bar ${barNo} is ${+(t - barStart).toFixed(3)} steps long, expected ${bar}: ...${source.slice(0, 60)}`);
+            barStart = t;
+            barNo++;
+            continue;
+        }
+        if (raw === 'R') {
+            if (tied)
+                throw new Error(`A tie (~) must lead into the same note, not a rest: ${raw}`);
+            const atBar = Math.abs(t - barStart) < 1e-6;
+            t += bar;
+            if (atBar) {
+                barStart = t;
+                barNo++;
+            }
+            lastR = atBar;
+            continue;
+        }
+        lastR = false;
+        let tok = raw;
+        let v = VELOCITY.normal;
+        if (tok[0] === '!') {
+            v = VELOCITY.accent;
+            tok = tok.slice(1);
+        }
+        else if (tok[0] === '?') {
+            v = VELOCITY.ghost;
+            tok = tok.slice(1);
+        }
+        const tie = tok.endsWith('~');
+        if (tie)
+            tok = tok.slice(0, -1);
+        let glide = false;
+        if (tok.endsWith('>')) {
+            glide = true;
+            tok = tok.slice(0, -1);
+        }
+        const [pitch, len] = tok.split(':');
+        if (len) {
+            const [a, b] = len.split('/');
+            dur = b ? Number(a) / Number(b) : Number(a);
+            if (!(dur > 0))
+                throw new Error(`Invalid duration: ${raw}`);
+        }
+        if (pitch === 'r' || pitch === '.') {
+            if (tied || tie)
+                throw new Error(`A tie (~) joins two notes of the same pitch, not a rest: ${raw}`);
+        }
+        else if (tied) {
+            if (pitch.split('+').map(midi).join() !== tied.pitches.join())
+                throw new Error(`A tie (~) must lead into the same pitch: ${raw}`);
+            tied.duration += dur;
+            if (glide)
+                tied.glide = true;
+        }
+        else
+            notes.push({ time: t, duration: dur, pitches: pitch.split('+').map(midi), velocity: v, glide: glide || undefined });
+        tied = tie ? notes[notes.length - 1] : undefined;
+        t += dur;
+    }
+    if (tied)
+        throw new Error('A tie (~) at the end of a melody has no note to lead into');
+    return { notes, duration: t };
+}
+function expandRepeats(src) {
+    let s = src.replace(/\|/g, ' | ');
+    // Expand parentheses from the inside out
+    for (let guard = 0; guard < 50 && s.includes('('); guard++) {
+        s = s.replace(/\(([^()]*)\)\*(\d+)/g, (_, body, n) => Array(Number(n)).fill(body).join(' '));
+        s = s.replace(/\(([^()]*)\)(?!\*)/g, (_, body) => body);
+    }
+    // Repeat a single token: R*4, E5:2*3
+    s = s.replace(/(\S+)\*(\d+)/g, (_, tok, n) => Array(Number(n)).fill(tok).join(' '));
+    return s;
+}
+/**
+ * Parse a rhythm: one character per step. X accent, x normal, o soft, . or - rest.
+ *
+ * @example
+ * rhythm('X...x...X..xx...')            // a kick pattern
+ * rhythm('x.x.x.x.', { pitch: 'G2' })   // a pitched pulse
+ */
+export function rhythm(pattern, { step = 1, pitch } = {}) {
+    const m = pitch === undefined ? undefined : midi(pitch);
+    const notes = [];
+    let t = 0;
+    for (const ch of pattern) {
+        if (ch === ' ' || ch === '|' || ch === '\n')
+            continue;
+        const v = ch === 'X' ? VELOCITY.accent : ch === 'x' ? VELOCITY.normal : ch === 'o' ? VELOCITY.ghost : 0;
+        if (v)
+            notes.push({ time: t, duration: step, pitches: m === undefined ? [] : [m], velocity: v });
+        t += step;
+    }
+    return { notes, duration: t };
+}
+//# sourceMappingURL=melody.js.map

package/dist/notation/melody.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"melody.js","sourceRoot":"","sources":["../../src/notation/melody.ts"],"names":[],"mappings":"AAAA,iDAAiD;AACjD,EAAE;AACF,UAAU;AACV,qIAAqI;AACrI,oFAAoF;AACpF,yEAAyE;AACzE,mEAAmE;AACnE,kGAAkG;AAClG,uGAAuG;AACvG,sFAAsF;AACtF,8GAA8G;AAC9G,EAAE;AACF,qGAAqG;AAErG,OAAO,EAAE,IAAI,EAAc,MAAM,cAAc,CAAC;AAChD,OAAO,EAAE,WAAW,EAAE,QAAQ,EAAoC,MAAM,WAAW,CAAC;AAEpF;;;;;;GAMG;AACH,MAAM,UAAU,MAAM,CAAC,MAAc,EAAE,KAAK,GAAU,EAAE;IACtD,MAAM,GAAG,GAAG,WAAW,CAAC,KAAK,CAAC,CAAC;IAC/B,MAAM,KAAK,GAAW,EAAE,CAAC;IACzB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,IAAI,GAAG,GAAG,CAAC,CAAC;IACZ,IAAI,QAAQ,GAAG,CAAC,CAAC;IACjB,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,IAAI,KAAK,GAAG,KAAK,CAAC;IAClB,8CAA8C;IAC9C,IAAI,IAAsB,CAAC;IAC3B,KAAK,MAAM,GAAG,IAAI,aAAa,CAAC,MAAM,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,EAAE,CAAC;QACrD,IAAI,CAAC,GAAG;YAAE,SAAS;QACnB,IAAI,GAAG,KAAK,GAAG,EAAE,CAAC;YAChB,yGAAyG;YACzG,IAAI,KAAK,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,QAAQ,CAAC,GAAG,IAAI,EAAE,CAAC;gBAC3C,KAAK,GAAG,KAAK,CAAC;gBACd,SAAS;YACX,CAAC;YACD,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,QAAQ,GAAG,GAAG,CAAC,GAAG,IAAI;gBAAE,MAAM,IAAI,KAAK,CAAC,OAAO,KAAK,OAAO,CAAC,CAAC,CAAC,GAAG,QAAQ,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,yBAAyB,GAAG,QAAQ,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC;YACjK,QAAQ,GAAG,CAAC,CAAC;YACb,KAAK,EAAE,CAAC;YACR,SAAS;QACX,CAAC;QACD,IAAI,GAAG,KAAK,GAAG,EAAE,CAAC;YAChB,IAAI,IAAI;gBAAE,MAAM,IAAI,KAAK,CAAC,uDAAuD,GAAG,EAAE,CAAC,CAAC;YACxF,MAAM,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,QAAQ,CAAC,GAAG,IAAI,CAAC;YAC5C,CAAC,IAAI,GAAG,CAAC;YACT,IAAI,KAAK,EAAE,CAAC;gBACV,QAAQ,GAAG,CAAC,CAAC;gBACb,KAAK,EAAE,CAAC;YACV,CAAC;YACD,KAAK,GAAG,KAAK,CAAC;YACd,SAAS;QACX,CAAC;QACD,KAAK,GAAG,KAAK,CAAC;QACd,IAAI,GAAG,GAAG,GAAG,CAAC;QACd,IAAI,CAAC,GAAW,QAAQ,CAAC,MAAM,CAAC;QAChC,IAAI,GAAG,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;YACnB,CAAC,GAAG,QAAQ,CAAC,MAAM,CAAC;YACpB,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;QACrB,CAAC;aAAM,IAAI,GAAG,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;YAC1B,CAAC,GAAG,QAAQ,CAAC,KAAK,CAAC;YACnB,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;QACrB,CAAC;QACD,MAAM,GAAG,GAAG,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC;QAC9B,IAAI,GAAG;YAAE,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QAChC,IAAI,KAAK,GAAG,KAAK,CAAC;QAClB,IAAI,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC;YACtB,KAAK,GAAG,IAAI,CAAC;YACb,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACzB,CAAC;QACD,MAAM,CAAC,KAAK,EAAE,GAAG,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;QACpC,IAAI,GAAG,EAAE,CAAC;YACR,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;YAC9B,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;YAC5C,IAAI,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC;gBAAE,MAAM,IAAI,KAAK,CAAC,qBAAqB,GAAG,EAAE,CAAC,CAAC;QAC9D,CAAC;QACD,IAAI,KAAK,KAAK,GAAG,IAAI,KAAK,KAAK,GAAG,EAAE,CAAC;YACnC,IAAI,IAAI,IAAI,GAAG;gBAAE,MAAM,IAAI,KAAK,CAAC,4DAA4D,GAAG,EAAE,CAAC,CAAC;QACtG,CAAC;aAAM,IAAI,IAAI,EAAE,CAAC;YAChB,IAAI,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,KAAK,IAAI,CAAC,OAAO,CAAC,IAAI,EAAE;gBAAE,MAAM,IAAI,KAAK,CAAC,4CAA4C,GAAG,EAAE,CAAC,CAAC;YAClI,IAAI,CAAC,QAAQ,IAAI,GAAG,CAAC;YACrB,IAAI,KAAK;gBAAE,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC;QAC/B,CAAC;;YAAM,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,QAAQ,EAAE,GAAG,EAAE,OAAO,EAAE,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,KAAK,EAAE,KAAK,IAAI,SAAS,EAAE,CAAC,CAAC;QAC3H,IAAI,GAAG,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;QACjD,CAAC,IAAI,GAAG,CAAC;IACX,CAAC;IACD,IAAI,IAAI;QAAE,MAAM,IAAI,KAAK,CAAC,2DAA2D,CAAC,CAAC;IACvF,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,CAAC,EAAE,CAAC;AAChC,CAAC;AAED,SAAS,aAAa,CAAC,GAAW;IAChC,IAAI,CAAC,GAAG,GAAG,CAAC,OAAO,CAAC,KAAK,EAAE,KAAK,CAAC,CAAC;IAClC,yCAAyC;IACzC,KAAK,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,EAAE,IAAI,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC,EAAE,KAAK,EAAE,EAAE,CAAC;QAC3D,CAAC,GAAG,CAAC,CAAC,OAAO,CAAC,sBAAsB,EAAE,CAAC,CAAC,EAAE,IAAY,EAAE,CAAS,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;QAC7G,CAAC,GAAG,CAAC,CAAC,OAAO,CAAC,qBAAqB,EAAE,CAAC,CAAC,EAAE,IAAY,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC;IAClE,CAAC;IACD,qCAAqC;IACrC,CAAC,GAAG,CAAC,CAAC,OAAO,CAAC,eAAe,EAAE,CAAC,CAAC,EAAE,GAAW,EAAE,CAAS,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;IACpG,OAAO,CAAC,CAAC;AACX,CAAC;AASD;;;;;;GAMG;AACH,MAAM,UAAU,MAAM,CAAC,OAAe,EAAE,EAAE,IAAI,GAAG,CAAC,EAAE,KAAK,EAAE,GAAkB,EAAE;IAC7E,MAAM,CAAC,GAAG,KAAK,KAAK,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACxD,MAAM,KAAK,GAAW,EAAE,CAAC;IACzB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,KAAK,MAAM,EAAE,IAAI,OAAO,EAAE,CAAC;QACzB,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,IAAI;YAAE,SAAS;QACtD,MAAM,CAAC,GAAG,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;QACxG,IAAI,CAAC;YAAE,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,QAAQ,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,CAAC,CAAC;QACjG,CAAC,IAAI,IAAI,CAAC;IACZ,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,CAAC,EAAE,CAAC;AAChC,CAAC"}

package/dist/notation/part.d.ts

@@ -0,0 +1,34 @@
+/** One note (or chord) in a part. Times are in steps: one step is a sixteenth note. */
+export interface Note {
+    /** Start, in steps from the start of the part */
+    time: number;
+    /** Length, in steps */
+    duration: number;
+    /** MIDI pitches sounding together; unpitched drums may leave this empty */
+    pitches: number[];
+    /** Loudness 0-1 */
+    velocity: number;
+    /** Glide into the next note (instruments that support glides) */
+    glide?: boolean;
+    /** Strum a chord: delay in seconds between successive pitches */
+    strum?: number;
+}
+export interface Part {
+    notes: Note[];
+    /** Total length, in steps */
+    duration: number;
+}
+/**
+ * A time signature, or the number of sixteenth-note steps in one bar.
+ * '4/4' = 16, '3/4' = 12, '6/8' = 12, '7/8' = 14, '5/4' = 20.
+ */
+export type Meter = number | `${number}/${number}`;
+/** Steps in one bar of a meter (default 4/4 = 16) */
+export declare function stepsPerBar(meter?: Meter): number;
+/** Velocities for the three dynamics the notation can write */
+export declare const VELOCITY: {
+    readonly normal: 0.78;
+    readonly accent: 1;
+    readonly ghost: 0.42;
+};
+//# sourceMappingURL=part.d.ts.map

package/dist/notation/part.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"part.d.ts","sourceRoot":"","sources":["../../src/notation/part.ts"],"names":[],"mappings":"AAGA,uFAAuF;AACvF,MAAM,WAAW,IAAI;IACnB,iDAAiD;IACjD,IAAI,EAAE,MAAM,CAAC;IACb,uBAAuB;IACvB,QAAQ,EAAE,MAAM,CAAC;IACjB,2EAA2E;IAC3E,OAAO,EAAE,MAAM,EAAE,CAAC;IAClB,mBAAmB;IACnB,QAAQ,EAAE,MAAM,CAAC;IACjB,iEAAiE;IACjE,KAAK,CAAC,EAAE,OAAO,CAAC;IAChB,iEAAiE;IACjE,KAAK,CAAC,EAAE,MAAM,CAAC;CAChB;AAED,MAAM,WAAW,IAAI;IACnB,KAAK,EAAE,IAAI,EAAE,CAAC;IACd,6BAA6B;IAC7B,QAAQ,EAAE,MAAM,CAAC;CAClB;AAED;;;GAGG;AACH,MAAM,MAAM,KAAK,GAAG,MAAM,GAAG,GAAG,MAAM,IAAI,MAAM,EAAE,CAAC;AAEnD,qDAAqD;AACrD,wBAAgB,WAAW,CAAC,KAAK,GAAE,KAAU,GAAG,MAAM,CAMrD;AAED,+DAA+D;AAC/D,eAAO,MAAM,QAAQ;aAAK,MAAM,EAAE,IAAI;aAAE,MAAM,EAAE,CAAC;aAAE,KAAK,EAAE,IAAI;CAAW,CAAC"}

package/dist/notation/part.js

@@ -0,0 +1,15 @@
+// The data every notation function produces: a Part is a list of notes on a grid of sixteenth-note steps.
+// It is plain data, so any code that returns { notes, duration } can feed a track.
+/** Steps in one bar of a meter (default 4/4 = 16) */
+export function stepsPerBar(meter = 16) {
+    if (typeof meter === 'number')
+        return meter;
+    const [beats, unit] = meter.split('/').map(Number);
+    const steps = (beats * 16) / unit;
+    if (!(steps > 0) || !Number.isFinite(steps))
+        throw new Error(`Invalid meter: ${meter}`);
+    return steps;
+}
+/** Velocities for the three dynamics the notation can write */
+export const VELOCITY = { normal: 0.78, accent: 1, ghost: 0.42 };
+//# sourceMappingURL=part.js.map

package/dist/notation/part.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"part.js","sourceRoot":"","sources":["../../src/notation/part.ts"],"names":[],"mappings":"AAAA,0GAA0G;AAC1G,mFAAmF;AA8BnF,qDAAqD;AACrD,MAAM,UAAU,WAAW,CAAC,KAAK,GAAU,EAAE;IAC3C,IAAI,OAAO,KAAK,KAAK,QAAQ;QAAE,OAAO,KAAK,CAAC;IAC5C,MAAM,CAAC,KAAK,EAAE,IAAI,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;IACnD,MAAM,KAAK,GAAG,CAAC,KAAK,GAAG,EAAE,CAAC,GAAG,IAAI,CAAC;IAClC,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,kBAAkB,KAAK,EAAE,CAAC,CAAC;IACxF,OAAO,KAAK,CAAC;AACf,CAAC;AAED,+DAA+D;AAC/D,MAAM,CAAC,MAAM,QAAQ,GAAG,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE,KAAK,EAAE,IAAI,EAAW,CAAC"}

package/dist/notation/transform.d.ts

@@ -0,0 +1,28 @@
+import type { Chord } from './harmony.ts';
+import { type Meter, type Part } from './part.ts';
+/** Play parts one after another (strings are read as 4/4 melodies) */
+export declare function sequence(...parts: (Part | string)[]): Part;
+/** Play parts at the same time; the result is as long as the longest */
+export declare function stack(...parts: Part[]): Part;
+/** Play a part n times in a row */
+export declare function repeat(part: Part, times: number): Part;
+/** Silence for a number of bars */
+export declare const rest: (bars: number, meter?: Meter) => Part;
+/** Shift every pitch by a number of semitones */
+export declare function transpose(part: Part, semitones: number): Part;
+/** Rewrite every pitch (for mode changes, inversions and so on) */
+export declare function mapPitch(part: Part, fn: (midi: number) => number): Part;
+/** Multiply every velocity (0.5 = half as loud; capped at 1) */
+export declare function scaleVelocity(part: Part, factor: number): Part;
+/** Cut out the steps [from, to); notes that run past the end are shortened */
+export declare function slice(part: Part, from: number, to: number): Part;
+/**
+ * The sustain pedal: every note rings on until the next pedal change, or until its key is struck again.
+ * Changes are given as a step interval (16: once a bar), a list of steps, or a chord progression (change with each chord).
+ *
+ * @example
+ * pedal(arpeggio(harmony, '0 1 2 1'), harmony)   // re-pedal on every chord
+ * pedal(melody('...'), 16)                       // once a bar
+ */
+export declare function pedal(part: Part, changes: number | number[] | Chord[]): Part;
+//# sourceMappingURL=transform.d.ts.map

package/dist/notation/transform.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"transform.d.ts","sourceRoot":"","sources":["../../src/notation/transform.ts"],"names":[],"mappings":"AAEA,OAAO,KAAK,EAAE,KAAK,EAAE,MAAM,cAAc,CAAC;AAE1C,OAAO,EAAe,KAAK,KAAK,EAAa,KAAK,IAAI,EAAE,MAAM,WAAW,CAAC;AAI1E,sEAAsE;AACtE,wBAAgB,QAAQ,CAAC,GAAG,KAAK,EAAE,CAAC,IAAI,GAAG,MAAM,CAAC,EAAE,GAAG,IAAI,CAQ1D;AAED,wEAAwE;AACxE,wBAAgB,KAAK,CAAC,GAAG,KAAK,EAAE,IAAI,EAAE,GAAG,IAAI,CAE5C;AAED,mCAAmC;AACnC,wBAAgB,MAAM,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,MAAM,GAAG,IAAI,CAEtD;AAED,mCAAmC;AACnC,eAAO,MAAM,IAAI,SAAU,MAAM,UAAS,KAAK,KAAQ,IAA4D,CAAC;AAEpH,iDAAiD;AACjD,wBAAgB,SAAS,CAAC,IAAI,EAAE,IAAI,EAAE,SAAS,EAAE,MAAM,GAAG,IAAI,CAE7D;AAED,mEAAmE;AACnE,wBAAgB,QAAQ,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,MAAM,KAAK,MAAM,GAAG,IAAI,CAEvE;AAED,gEAAgE;AAChE,wBAAgB,aAAa,CAAC,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE,MAAM,GAAG,IAAI,CAE9D;AAED,8EAA8E;AAC9E,wBAAgB,KAAK,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,MAAM,GAAG,IAAI,CAKhE;AAED;;;;;;;GAOG;AACH,wBAAgB,KAAK,CAAC,IAAI,EAAE,IAAI,EAAE,OAAO,EAAE,MAAM,GAAG,MAAM,EAAE,GAAG,KAAK,EAAE,GAAG,IAAI,CAc5E"}

package/dist/notation/transform.js

@@ -0,0 +1,67 @@
+// Combine and reshape parts. Every function returns a new part; nothing is modified in place.
+import { melody } from './melody.js';
+import { stepsPerBar } from './part.js';
+const asPart = (p) => (typeof p === 'string' ? melody(p) : p);
+/** Play parts one after another (strings are read as 4/4 melodies) */
+export function sequence(...parts) {
+    const notes = [];
+    let t = 0;
+    for (const p of parts.map(asPart)) {
+        for (const n of p.notes)
+            notes.push({ ...n, time: n.time + t });
+        t += p.duration;
+    }
+    return { notes, duration: t };
+}
+/** Play parts at the same time; the result is as long as the longest */
+export function stack(...parts) {
+    return { notes: parts.flatMap((p) => p.notes).sort((a, b) => a.time - b.time), duration: Math.max(0, ...parts.map((p) => p.duration)) };
+}
+/** Play a part n times in a row */
+export function repeat(part, times) {
+    return sequence(...Array(times).fill(part));
+}
+/** Silence for a number of bars */
+export const rest = (bars, meter = 16) => ({ notes: [], duration: bars * stepsPerBar(meter) });
+/** Shift every pitch by a number of semitones */
+export function transpose(part, semitones) {
+    return mapPitch(part, (m) => m + semitones);
+}
+/** Rewrite every pitch (for mode changes, inversions and so on) */
+export function mapPitch(part, fn) {
+    return { notes: part.notes.map((n) => ({ ...n, pitches: n.pitches.map(fn) })), duration: part.duration };
+}
+/** Multiply every velocity (0.5 = half as loud; capped at 1) */
+export function scaleVelocity(part, factor) {
+    return { notes: part.notes.map((n) => ({ ...n, velocity: Math.min(1, n.velocity * factor) })), duration: part.duration };
+}
+/** Cut out the steps [from, to); notes that run past the end are shortened */
+export function slice(part, from, to) {
+    return {
+        notes: part.notes.filter((n) => n.time >= from && n.time < to).map((n) => ({ ...n, time: n.time - from, duration: Math.min(n.duration, to - n.time) })),
+        duration: to - from,
+    };
+}
+/**
+ * The sustain pedal: every note rings on until the next pedal change, or until its key is struck again.
+ * Changes are given as a step interval (16: once a bar), a list of steps, or a chord progression (change with each chord).
+ *
+ * @example
+ * pedal(arpeggio(harmony, '0 1 2 1'), harmony)   // re-pedal on every chord
+ * pedal(melody('...'), 16)                       // once a bar
+ */
+export function pedal(part, changes) {
+    const points = typeof changes === 'number'
+        ? Array.from({ length: Math.ceil(part.duration / changes) }, (_, i) => (i + 1) * changes)
+        : changes.map((c) => (typeof c === 'number' ? c : c.time)).sort((a, b) => a - b);
+    const nextChange = (t) => points.find((p) => p > t + 1e-9) ?? part.duration;
+    const nextStrike = (t, pitches) => {
+        const later = part.notes.filter((n) => n.time > t + 1e-9 && n.pitches.some((m) => pitches.includes(m)));
+        return later.length ? Math.min(...later.map((n) => n.time)) : Infinity;
+    };
+    return {
+        notes: part.notes.map((n) => ({ ...n, duration: Math.max(n.duration, Math.min(nextChange(n.time), nextStrike(n.time, n.pitches)) - n.time) })),
+        duration: part.duration,
+    };
+}
+//# sourceMappingURL=transform.js.map