polyphon 0.0.0-stage → 0.1.0

package/dist/instruments/samples.js

@@ -0,0 +1,109 @@
+// Sample cache: sampled instruments are rendered once per (sample rate, instrument, pitch, variant) and reused.
+// Rendering happens before a song starts (prepareSamples), in small slices so the main thread never stalls.
+const cache = new Map();
+/** Loop section of a bowed-string sample (seconds) */
+const loops = new WeakMap();
+/** Bowed samples share a cache entry when one instrument borrows another's players (strPad uses strings) */
+const sampleName = (def, name) => def.bow?.name ?? name;
+const keyOf = (sampleRate, name, midi, variant, desk) => `${sampleRate}|${name}|${midi}|${variant}${desk ? `|${desk}` : ''}`;
+/** The pitch actually rendered: bowed strings sample every few semitones, fixed-pitch drums always use one note */
+export function sampleMidi(def, midi) {
+    if (def.bow)
+        return Math.round(midi / def.bow.zone) * def.bow.zone;
+    return def.fixed ?? Math.round(midi);
+}
+/** How much memory bowed-string samples may take at most (bytes): beyond that the least recently used are dropped (notes already playing still hold a reference, so they are unaffected) */
+const BOW_BUDGET = 48e6;
+const bowUse = new Map();
+let bowBytes = 0;
+function keepBow(key, buffer) {
+    if (!bowUse.has(key))
+        bowBytes += buffer.length * 4;
+    bowUse.delete(key);
+    bowUse.set(key, buffer.length * 4);
+    for (const [old, n] of bowUse) {
+        if (bowBytes <= BOW_BUDGET)
+            break;
+        bowUse.delete(old);
+        cache.delete(old);
+        bowBytes -= n;
+    }
+}
+/** Which layer a bowed string uses at this velocity (times params.bright); near the threshold both layers are prepared (velocity has a little randomness at playback) */
+export function bowLayers(def, velocity, bright = 1) {
+    const x = velocity * bright;
+    const at = def.bow.loudAt;
+    if (Math.abs(x - at) < 0.06)
+        return [0, 1];
+    return [x > at ? 1 : 0];
+}
+/** How many variants of a sampled instrument to precompute (random variants for drums; the soft and hard layers for bowed strings) */
+export const variantsOf = (def) => (def.bow ? 2 : (def.variants ?? 1));
+/** Only bowed strings have desks (different players for tracks that share an instrument) */
+const deskOf = (def, desk) => (def.bow ? desk : 0);
+/** Whether a sample is already rendered */
+export function hasSample(sampleRate, def, name, midi, variant, desk = 0) {
+    return cache.has(keyOf(sampleRate, sampleName(def, name), sampleMidi(def, midi), variant, deskOf(def, desk)));
+}
+/** The loop section (seconds) of a bowed sample, if it has one */
+export const loopOf = (buffer) => loops.get(buffer);
+/** Render (or fetch from the cache) a sample */
+export function getSample(ctx, def, name, midi, variant = 0, desk = 0) {
+    const mm = sampleMidi(def, midi);
+    const v = variant % variantsOf(def);
+    const dk = deskOf(def, desk);
+    const k = keyOf(ctx.sampleRate, sampleName(def, name), mm, v, dk);
+    let b = cache.get(k);
+    if (!b) {
+        const sr = def.bow ? Math.round(ctx.sampleRate * def.bow.rate) : ctx.sampleRate;
+        const data = def.render(sr, mm, v, dk);
+        const chans = data instanceof Float32Array ? [data] : Array.isArray(data) ? data : [data.data];
+        // One NaN would circulate through the reverb and delay feedback and silence the whole mix for good
+        for (const d of chans)
+            for (let i = 0; i < d.length; i++)
+                if (!Number.isFinite(d[i]))
+                    d[i] = 0;
+        b = ctx.createBuffer(chans.length, chans[0].length, sr);
+        chans.forEach((d, i) => b.getChannelData(i).set(d));
+        if (!(data instanceof Float32Array) && !Array.isArray(data))
+            loops.set(b, [data.loop[0] / sr, data.loop[1] / sr]);
+        cache.set(k, b);
+    }
+    if (def.bow)
+        keepBow(k, b);
+    return b;
+}
+/** Drop every cached sample of an instrument (after it is redefined) */
+export function forgetSamples(name) {
+    for (const k of [...cache.keys()])
+        if (k.split('|')[1] === name)
+            cache.delete(k);
+}
+/** Every [variant] of a need that should be rendered */
+function* variantsToRender(def, layer) {
+    for (let v = 0; v < variantsOf(def); v++)
+        if (layer === undefined || v === layer)
+            yield v;
+}
+/** Render samples ahead of time; after more than 12 ms of continuous work, yield the main thread for a moment (so the screen does not stall) */
+export async function prepareSamples(ctx, requests) {
+    let last = performance.now();
+    for (const { def, name, midi, layer, desk } of requests) {
+        for (const v of variantsToRender(def, layer)) {
+            if (hasSample(ctx.sampleRate, def, name, midi, v, desk))
+                continue;
+            getSample(ctx, def, name, midi, v, desk);
+            if (performance.now() - last > 12) {
+                await new Promise((r) => setTimeout(r, 0));
+                last = performance.now();
+            }
+        }
+    }
+}
+/** Synchronous version (offline rendering, short play-once jingles) */
+export function prepareSamplesSync(ctx, requests) {
+    for (const { def, name, midi, layer, desk } of requests)
+        for (const v of variantsToRender(def, layer))
+            getSample(ctx, def, name, midi, v, desk);
+}
+//# sourceMappingURL=samples.js.map

package/dist/instruments/samples.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"samples.js","sourceRoot":"","sources":["../../src/instruments/samples.ts"],"names":[],"mappings":"AAAA,gHAAgH;AAChH,4GAA4G;AAe5G,MAAM,KAAK,GAAG,IAAI,GAAG,EAAuB,CAAC;AAC7C,sDAAsD;AACtD,MAAM,KAAK,GAAG,IAAI,OAAO,EAAiC,CAAC;AAE3D,4GAA4G;AAC5G,MAAM,UAAU,GAAG,CAAC,GAAsB,EAAE,IAAY,EAAE,EAAE,CAAC,GAAG,CAAC,GAAG,EAAE,IAAI,IAAI,IAAI,CAAC;AACnF,MAAM,KAAK,GAAG,CAAC,UAAkB,EAAE,IAAY,EAAE,IAAY,EAAE,OAAe,EAAE,IAAY,EAAE,EAAE,CAAC,GAAG,UAAU,IAAI,IAAI,IAAI,IAAI,IAAI,OAAO,GAAG,IAAI,CAAC,CAAC,CAAC,IAAI,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC;AAErK,mHAAmH;AACnH,MAAM,UAAU,UAAU,CAAC,GAAsB,EAAE,IAAY;IAC7D,IAAI,GAAG,CAAC,GAAG;QAAE,OAAO,IAAI,CAAC,KAAK,CAAC,IAAI,GAAG,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC;IACnE,OAAO,GAAG,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;AACvC,CAAC;AAED,4LAA4L;AAC5L,MAAM,UAAU,GAAG,IAAI,CAAC;AACxB,MAAM,MAAM,GAAG,IAAI,GAAG,EAAkB,CAAC;AACzC,IAAI,QAAQ,GAAG,CAAC,CAAC;AACjB,SAAS,OAAO,CAAC,GAAW,EAAE,MAAmB;IAC/C,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC;QAAE,QAAQ,IAAI,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC;IACpD,MAAM,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;IACnB,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;IACnC,KAAK,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,IAAI,MAAM,EAAE,CAAC;QAC9B,IAAI,QAAQ,IAAI,UAAU;YAAE,MAAM;QAClC,MAAM,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;QACnB,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;QAClB,QAAQ,IAAI,CAAC,CAAC;IAChB,CAAC;AACH,CAAC;AAED,yKAAyK;AACzK,MAAM,UAAU,SAAS,CAAC,GAAsB,EAAE,QAAgB,EAAE,MAAM,GAAG,CAAC;IAC5E,MAAM,CAAC,GAAG,QAAQ,GAAG,MAAM,CAAC;IAC5B,MAAM,EAAE,GAAG,GAAG,CAAC,GAAI,CAAC,MAAM,CAAC;IAC3B,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,GAAG,IAAI;QAAE,OAAO,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IAC3C,OAAO,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;AAC1B,CAAC;AAED,sIAAsI;AACtI,MAAM,CAAC,MAAM,UAAU,GAAG,CAAC,GAAsB,EAAU,EAAE,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,IAAI,CAAC,CAAC,CAAC,CAAC;AAElG,4FAA4F;AAC5F,MAAM,MAAM,GAAG,CAAC,GAAsB,EAAE,IAAY,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;AAE9E,2CAA2C;AAC3C,MAAM,UAAU,SAAS,CAAC,UAAkB,EAAE,GAAsB,EAAE,IAAY,EAAE,IAAY,EAAE,OAAe,EAAE,IAAI,GAAG,CAAC;IACzH,OAAO,KAAK,CAAC,GAAG,CAAC,KAAK,CAAC,UAAU,EAAE,UAAU,CAAC,GAAG,EAAE,IAAI,CAAC,EAAE,UAAU,CAAC,GAAG,EAAE,IAAI,CAAC,EAAE,OAAO,EAAE,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;AAChH,CAAC;AAED,kEAAkE;AAClE,MAAM,CAAC,MAAM,MAAM,GAAG,CAAC,MAAmB,EAAgC,EAAE,CAAC,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;AAE/F,gDAAgD;AAChD,MAAM,UAAU,SAAS,CAAC,GAAqB,EAAE,GAAsB,EAAE,IAAY,EAAE,IAAY,EAAE,OAAO,GAAG,CAAC,EAAE,IAAI,GAAG,CAAC;IACxH,MAAM,EAAE,GAAG,UAAU,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IACjC,MAAM,CAAC,GAAG,OAAO,GAAG,UAAU,CAAC,GAAG,CAAC,CAAC;IACpC,MAAM,EAAE,GAAG,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IAC7B,MAAM,CAAC,GAAG,KAAK,CAAC,GAAG,CAAC,UAAU,EAAE,UAAU,CAAC,GAAG,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC;IAClE,IAAI,CAAC,GAAG,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;IACrB,IAAI,CAAC,CAAC,EAAE,CAAC;QACP,MAAM,EAAE,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,UAAU,GAAG,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,UAAU,CAAC;QAChF,MAAM,IAAI,GAAG,GAAG,CAAC,MAAM,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC;QACvC,MAAM,KAAK,GAAG,IAAI,YAAY,YAAY,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC/F,mGAAmG;QACnG,KAAK,MAAM,CAAC,IAAI,KAAK;YAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,CAAC,EAAE;gBAAE,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QAC/F,CAAC,GAAG,GAAG,CAAC,YAAY,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;QACxD,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAE,CAAC,cAAc,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACrD,IAAI,CAAC,CAAC,IAAI,YAAY,YAAY,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC;YAAE,KAAK,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;QAClH,KAAK,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IAClB,CAAC;IACD,IAAI,GAAG,CAAC,GAAG;QAAE,OAAO,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IAC3B,OAAO,CAAC,CAAC;AACX,CAAC;AAED,wEAAwE;AACxE,MAAM,UAAU,aAAa,CAAC,IAAY;IACxC,KAAK,MAAM,CAAC,IAAI,CAAC,GAAG,KAAK,CAAC,IAAI,EAAE,CAAC;QAAE,IAAI,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,IAAI;YAAE,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;AACnF,CAAC;AAED,wDAAwD;AACxD,QAAQ,CAAC,CAAC,gBAAgB,CAAC,GAAsB,EAAE,KAAyB;IAC1E,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE;QAAE,IAAI,KAAK,KAAK,SAAS,IAAI,CAAC,KAAK,KAAK;YAAE,MAAM,CAAC,CAAC;AAC5F,CAAC;AAED,gJAAgJ;AAChJ,MAAM,CAAC,KAAK,UAAU,cAAc,CAAC,GAAqB,EAAE,QAAiC;IAC3F,IAAI,IAAI,GAAG,WAAW,CAAC,GAAG,EAAE,CAAC;IAC7B,KAAK,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,QAAQ,EAAE,CAAC;QACxD,KAAK,MAAM,CAAC,IAAI,gBAAgB,CAAC,GAAG,EAAE,KAAK,CAAC,EAAE,CAAC;YAC7C,IAAI,SAAS,CAAC,GAAG,CAAC,UAAU,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,CAAC;gBAAE,SAAS;YAClE,SAAS,CAAC,GAAG,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC;YACzC,IAAI,WAAW,CAAC,GAAG,EAAE,GAAG,IAAI,GAAG,EAAE,EAAE,CAAC;gBAClC,MAAM,IAAI,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;gBAC3C,IAAI,GAAG,WAAW,CAAC,GAAG,EAAE,CAAC;YAC3B,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC;AAED,uEAAuE;AACvE,MAAM,UAAU,kBAAkB,CAAC,GAAqB,EAAE,QAAiC;IACzF,KAAK,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,QAAQ;QAAE,KAAK,MAAM,CAAC,IAAI,gBAAgB,CAAC,GAAG,EAAE,KAAK,CAAC;YAAE,SAAS,CAAC,GAAG,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC;AAClJ,CAAC"}

package/dist/instruments/voices.d.ts

@@ -0,0 +1,76 @@
+export interface VoiceCall {
+    ctx: BaseAudioContext;
+    out: AudioNode;
+    t: number;
+    /** Note length (seconds) */
+    dur: number;
+    f: number;
+    /** Loudness: the velocity through a curve, times the instrument's level */
+    vel: number;
+    /** The velocity as played (0-1), for timbre: how far a filter opens, whether a note is accented */
+    touch: number;
+    /** Glide: [seconds from the start, target frequency] */
+    bends?: [number, number][];
+    /** Instrument parameters (a song's track.params can override them) */
+    o: Readonly<Record<string, number>>;
+}
+export type Voice = (c: VoiceCall) => void;
+export declare const VOICES: {
+    flute: Voice;
+    /** Pan flute: stopped pipes (odd harmonics), lots of breath, a very noticeable chiff on the attack */
+    panflute: Voice;
+    /** Ocarina: a vessel (Helmholtz) resonator with no overtones of its own, nearly a sine */
+    ocarina: Voice;
+    /** Tin whistle: bright, thin, with lots of ornaments */
+    whistle: Voice;
+    clarinet: Voice;
+    oboe: Voice;
+    bassoon: Voice;
+    horn: Voice;
+    horns: Voice;
+    trumpet: Voice;
+    trumpets: Voice;
+    trombone: Voice;
+    tuba: Voice;
+    /** Saxophones: alto and tenor */
+    sax: Voice;
+    tenorSax: Voice;
+    /** Choir (female voices on the vowels a, o, u) and male voices (A, O, U) */
+    choir: Voice;
+    choirOo: Voice;
+    choirO: Voice;
+    /** Male choir */
+    menChoir: Voice;
+    /** Monk chant: a male o with almost no vibrato */
+    chant: Voice;
+    /** Solo soprano (aria) */
+    soprano: Voice;
+    throat: Voice;
+    organ: Voice;
+    /** Organ with all stops */
+    organFull: (c: VoiceCall) => void;
+    accordion: Voice;
+    drone: Voice;
+    warmPad: Voice;
+    glassPad: Voice;
+    /** Dark pad: the analog pad nearly closed, over a sine an octave down */
+    darkPad: Voice;
+    airPad: Voice;
+    glass: Voice;
+    supersaw: Voice;
+    synthLead: Voice;
+    pluck: Voice;
+    powerGtr: Voice;
+    muteGtr: (c: VoiceCall) => void;
+    bass: Voice;
+    synthBass: Voice;
+    reese: Voice;
+    acid: Voice;
+    bass808: Voice;
+    sub: Voice;
+    distBass: Voice;
+    birds: Voice;
+    riser: Voice;
+    downlifter: Voice;
+};
+//# sourceMappingURL=voices.d.ts.map

package/dist/instruments/voices.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"voices.d.ts","sourceRoot":"","sources":["../../src/instruments/voices.ts"],"names":[],"mappings":"AAMA,MAAM,WAAW,SAAS;IACxB,GAAG,EAAE,gBAAgB,CAAC;IACtB,GAAG,EAAE,SAAS,CAAC;IACf,CAAC,EAAE,MAAM,CAAC;IACV,4BAA4B;IAC5B,GAAG,EAAE,MAAM,CAAC;IACZ,CAAC,EAAE,MAAM,CAAC;IACV,2EAA2E;IAC3E,GAAG,EAAE,MAAM,CAAC;IACZ,mGAAmG;IACnG,KAAK,EAAE,MAAM,CAAC;IACd,wDAAwD;IACxD,KAAK,CAAC,EAAE,CAAC,MAAM,EAAE,MAAM,CAAC,EAAE,CAAC;IAC3B,sEAAsE;IACtE,CAAC,EAAE,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC;CACrC;AAED,MAAM,MAAM,KAAK,GAAG,CAAC,CAAC,EAAE,SAAS,KAAK,IAAI,CAAC;AA+jC3C,eAAO,MAAM,MAAM;;IAEjB,sGAAsG;;IAEtG,0FAA0F;;IAE1F,wDAAwD;;;;;;;;;;;IAWxD,iCAAiC;;;IAGjC,4EAA4E;;;;IAI5E,iBAAiB;;IAEjB,kDAAkD;;IAElD,0BAA0B;;;;IAI1B,2BAA2B;;;;;;IAM3B,yEAAyE;;;;;;;;;;;;;;;;;;;CAmB1C,CAAC"}