Merge remote-tracking branch 'origin/main' into just-another-docs-branch

packages/core/controls.mjs

@@ -581,6 +581,11 @@ const generic_params = [
     'size',
     'a pattern of numbers from 0 to 1. Sets the perceptual size (reverb time) of the `room` to be used in reverb.',
   ],
+  [
+    'f',
+    'roomsize',
+    'a pattern of numbers from 0 to 1. Sets the perceptual size (reverb time) of the `room` to be used in reverb.',
+  ],
   // ['f', 'sagogo', ''],
   // ['f', 'sclap', ''],
   // ['f', 'sclaves', ''],

packages/core/pattern.mjs

@@ -645,13 +645,26 @@ export class Pattern {
     return this._trigJoin(true);
   }
 
+  // Like the other joins above, joins a pattern of patterns of values, into a flatter
+  // pattern of values. In this case it takes whole cycles of the inner pattern to fit each event
+  // in the outer pattern.
   _squeezeJoin() {
+    // A pattern of patterns, which we call the 'outer' pattern, with patterns
+    // as values which we call the 'inner' patterns.
     const pat_of_pats = this;
     function query(state) {
+      // Get the events with the inner patterns. Ignore continuous events (without 'wholes')
       const haps = pat_of_pats.discreteOnly().query(state);
+      // A function to map over the events from the outer pattern.
       function flatHap(outerHap) {
-        const pat = outerHap.value._compressSpan(outerHap.wholeOrPart().cycleArc());
+        // Get the inner pattern, slowed and shifted so that the 'whole'
-        const innerHaps = pat.query(state.setSpan(outerHap.part));
+        // timespan of the outer event corresponds to the first cycle of the
+        // inner event
+        const inner_pat = outerHap.value._focusSpan(outerHap.wholeOrPart());
+        // Get the inner events, from the timespan of the outer event's part
+        const innerHaps = inner_pat.query(state.setSpan(outerHap.part));
+        // A function to map over the inner events, to combine them with the
+        // outer event
         function munge(outer, inner) {
           let whole = undefined;
           if (inner.whole && outer.whole) {
@@ -735,6 +748,7 @@ export class Pattern {
     return this.withQuerySpan(qf).withHapSpan(ef)._splitQueries();
   }
 
+  // Compress each cycle into the given timespan, leaving a gap
   _compress(b, e) {
     if (b.gt(e) || b.gt(1) || e.gt(1) || b.lt(0) || e.lt(0)) {
       return silence;
@@ -746,6 +760,16 @@ export class Pattern {
     return this._compress(span.begin, span.end);
   }
 
+  // Similar to compress, but doesn't leave gaps, and the 'focus' can be
+  // bigger than a cycle
+  _focus(b, e) {
+    return this._fast(Fraction(1).div(e.sub(b))).late(b.cyclePos());
+  }
+    
+  _focusSpan(span) {
+    return this._focus(span.begin, span.end);
+  }
+
   /**
    * Speed up a pattern by the given factor. Used by "*" in mini notation.
    *
@@ -1360,11 +1384,16 @@ function _composeOp(a, b, func) {
           pat = preprocess(pat);
           other = preprocess(other);
         }
-        var result = pat['_op' + how](other, (a) => (b) => _composeOp(a, b, op));
+        var result;
         // hack to remove undefs when doing 'keepif'
         if (what === 'keepif') {
+          // avoid union, as we want to throw away the value of 'b' completely
+          result = pat['_op' + how](other, (a) => (b) => op(a, b));
           result = result._removeUndefineds();
         }
+        else {
+          result = pat['_op' + how](other, (a) => (b) => _composeOp(a, b, op));
+        }
         return result;
       };
       if (how === 'Squeeze') {

packages/core/test/pattern.test.mjs

@@ -42,6 +42,7 @@ import {
   id,
   ply,
   rev,
+  time,
 } from '../index.mjs';
 
 import { steady } from '../signal.mjs';
@@ -791,6 +792,13 @@ describe('Pattern', () => {
         ).firstCycle(),
       );
     });
+    it('Squeezes to the correct cycle', () => {
+      expect(
+        pure(time.struct(true))._squeezeJoin().queryArc(3,4).map(x => x.value)
+      ).toStrictEqual(
+        [Fraction(3.5)]
+      )
+    });
   });
   describe('ply', () => {
     it('Can ply(3)', () => {

packages/webaudio/feedbackdelay.mjs

@@ -0,0 +1,31 @@
+if (typeof DelayNode !== 'undefined') {
+  class FeedbackDelayNode extends DelayNode {
+    constructor(ac, wet, time, feedback) {
+      super(ac);
+      wet = Math.abs(wet);
+      this.delayTime.value = time;
+
+      const feedbackGain = ac.createGain();
+      feedbackGain.gain.value = Math.min(Math.abs(feedback), 0.995);
+      this.feedback = feedbackGain.gain;
+
+      const delayGain = ac.createGain();
+      delayGain.gain.value = wet;
+      this.delayGain = delayGain;
+
+      this.connect(feedbackGain);
+      this.connect(delayGain);
+      feedbackGain.connect(this);
+
+      this.connect = (target) => delayGain.connect(target);
+      return this;
+    }
+    start(t) {
+      this.delayGain.gain.setValueAtTime(this.delayGain.gain.value, t + this.delayTime.value);
+    }
+  }
+
+  AudioContext.prototype.createFeedbackDelay = function (wet, time, feedback) {
+    return new FeedbackDelayNode(this, wet, time, feedback);
+  };
+}

packages/webaudio/reverb.mjs

@@ -0,0 +1,20 @@
+if (typeof AudioContext !== 'undefined') {
+  AudioContext.prototype.impulseResponse = function (duration) {
+    const length = this.sampleRate * duration;
+    const impulse = this.createBuffer(2, length, this.sampleRate);
+    const IR = impulse.getChannelData(0);
+    for (let i = 0; i < length; i++) IR[i] = (2 * Math.random() - 1) * Math.pow(1 - i / length, duration);
+    return impulse;
+  };
+
+  AudioContext.prototype.createReverb = function (duration) {
+    const convolver = this.createConvolver();
+    convolver.setDuration = (d) => {
+      convolver.buffer = this.impulseResponse(d);
+      convolver.duration = duration;
+      return convolver;
+    };
+    convolver.setDuration(duration);
+    return convolver;
+  };
+}

packages/webaudio/sampler.mjs

@@ -16,6 +16,15 @@ export const loadBuffer = (url, ac) => {
   return loadCache[url];
 };
 
+export function reverseBuffer(buffer) {
+  const ac = getAudioContext();
+  const reversed = ac.createBuffer(buffer.numberOfChannels, buffer.length, ac.sampleRate);
+  for (let channel = 0; channel < buffer.numberOfChannels; channel++) {
+    reversed.copyToChannel(buffer.getChannelData(channel).slice().reverse(), channel, channel);
+  }
+  return reversed;
+}
+
 export const getLoadedBuffer = (url) => {
   return bufferCache[url];
 };

packages/webaudio/webaudio.mjs

@@ -7,7 +7,9 @@ This program is free software: you can redistribute it and/or modify it under th
 // import { Pattern, getFrequency, patternify2 } from '@strudel.cycles/core';
 import * as strudel from '@strudel.cycles/core';
 import { fromMidi, toMidi } from '@strudel.cycles/core';
-import { loadBuffer } from './sampler.mjs';
+import './feedbackdelay.mjs';
+import './reverb.mjs';
+import { loadBuffer, reverseBuffer } from './sampler.mjs';
 const { Pattern } = strudel;
 import './vowel.mjs';
 import workletsUrl from './worklets.mjs?url';
@@ -22,6 +24,21 @@ export const getAudioContext = () => {
   return audioContext;
 };
 
+let destination;
+const getDestination = () => {
+  const ctx = getAudioContext();
+  if (!destination) {
+    destination = ctx.createGain();
+    destination.connect(ctx.destination);
+  }
+  return destination;
+};
+
+export const panic = () => {
+  getDestination().gain.linearRampToValueAtTime(0, getAudioContext().currentTime + 0.01);
+  destination = null;
+};
+
 const getFilter = (type, frequency, Q) => {
   const filter = getAudioContext().createBiquadFilter();
   filter.type = type;
@@ -38,6 +55,17 @@ const getADSR = (attack, decay, sustain, release, velocity, begin, end) => {
   gainNode.gain.setValueAtTime(sustain * velocity, end); // sustain end
   gainNode.gain.linearRampToValueAtTime(0, end + release); // release
   // for some reason, using exponential ramping creates little cracklings
+  /* let t = begin;
+  gainNode.gain.setValueAtTime(0, t);
+  gainNode.gain.exponentialRampToValueAtTime(velocity, (t += attack));
+  const sustainGain = Math.max(sustain * velocity, 0.001);
+  gainNode.gain.exponentialRampToValueAtTime(sustainGain, (t += decay));
+  if (end - begin < attack + decay) {
+    gainNode.gain.cancelAndHoldAtTime(end);
+  } else {
+    gainNode.gain.setValueAtTime(sustainGain, end);
+  }
+  gainNode.gain.exponentialRampToValueAtTime(0.001, end + release); // release */
   return gainNode;
 };
 
@@ -70,7 +98,7 @@ const getSoundfontKey = (s) => {
   return;
 };
 
-const getSampleBufferSource = async (s, n, note) => {
+const getSampleBufferSource = async (s, n, note, speed) => {
   let transpose = 0;
   let midi;
 
@@ -87,7 +115,7 @@ const getSampleBufferSource = async (s, n, note) => {
   }
   const bank = samples?.[s];
   if (!bank) {
-    throw new Error('sample not found:', s, 'try one of ' + Object.keys(samples));
+    throw new Error(`sample not found: "${s}", try one of ${Object.keys(samples).join(', ')}`);
   }
   if (typeof bank !== 'object') {
     throw new Error('wrong format for sample bank:', s);
@@ -110,7 +138,11 @@ const getSampleBufferSource = async (s, n, note) => {
     transpose = -midiDiff(closest); // semitones to repitch
     sampleUrl = bank[closest][n % bank[closest].length];
   }
-  const buffer = await loadBuffer(sampleUrl, ac);
+  let buffer = await loadBuffer(sampleUrl, ac);
+  if (speed < 0) {
+    // should this be cached?
+    buffer = reverseBuffer(buffer);
+  }
   const bufferSource = ac.createBufferSource();
   bufferSource.buffer = buffer;
   const playbackRate = 1.0 * Math.pow(2, transpose / 12);
@@ -147,178 +179,250 @@ function getWorklet(ac, processor, params) {
   return node;
 }
 
-try {
+if (typeof window !== 'undefined') {
-  loadWorklets();
+  try {
-} catch (err) {
+    loadWorklets();
-  console.warn('could not load AudioWorklet effects coarse, crush and shape', err);
+  } catch (err) {
+    console.warn('could not load AudioWorklet effects coarse, crush and shape', err);
+  }
 }
 
+function gainNode(value) {
+  const node = getAudioContext().createGain();
+  node.gain.value = value;
+  return node;
+}
 const cutGroups = [];
 
-Pattern.prototype.out = function () {
+let delays = {};
-  return this.onTrigger(async (t, hap, ct, cps) => {
+function getDelay(orbit, delaytime, delayfeedback, t) {
-    const hapDuration = hap.duration / cps;
+  if (!delays[orbit]) {
-    try {
+    const ac = getAudioContext();
-      const ac = getAudioContext();
+    const dly = ac.createFeedbackDelay(1, delaytime, delayfeedback);
-      // calculate correct time (tone.js workaround)
+    dly.start(t);
-      t = ac.currentTime + t - ct;
+    dly.connect(getDestination());
-      // destructure value
+    delays[orbit] = dly;
-      let {
+  }
-        freq,
+  delays[orbit].delayTime.value !== delaytime && delays[orbit].delayTime.setValueAtTime(delaytime, t);
-        s,
+  delays[orbit].feedback.value !== delayfeedback && delays[orbit].feedback.setValueAtTime(delayfeedback, t);
-        sf,
+  return delays[orbit];
-        clip = 0, // if 1, samples will be cut off when the hap ends
+}
-        n = 0,
-        note,
-        gain = 1,
-        cutoff,
-        resonance = 1,
-        hcutoff,
-        hresonance = 1,
-        bandf,
-        bandq = 1,
-        coarse,
-        crush,
-        shape,
-        pan,
-        attack = 0.001,
-        decay = 0.001,
-        sustain = 1,
-        release = 0.001,
-        speed = 1, // sample playback speed
-        begin = 0,
-        end = 1,
-        vowel,
-        unit,
-        nudge = 0, // TODO: is this in seconds?
-        cut,
-        loop,
-      } = hap.value;
-      const { velocity = 1 } = hap.context;
-      gain *= velocity; // legacy fix for velocity
-      // the chain will hold all audio nodes that connect to each other
-      const chain = [];
-      if (typeof s === 'string') {
-        [s, n] = splitSN(s, n);
-      }
-      if (typeof note === 'string') {
-        [note, n] = splitSN(note, n);
-      }
-      if (!s || ['sine', 'square', 'triangle', 'sawtooth'].includes(s)) {
-        // with synths, n and note are the same thing
-        n = note || n || 36;
-        if (typeof n === 'string') {
-          n = toMidi(n); // e.g. c3 => 48
-        }
-        // get frequency
-        if (!freq && typeof n === 'number') {
-          freq = fromMidi(n); // + 48);
-        }
-        // make oscillator
-        const o = getOscillator({ t, s, freq, duration: hapDuration, release });
-        chain.push(o);
-        // level down oscillators as they are really loud compared to samples i've tested
-        const g = ac.createGain();
-        g.gain.value = 0.3;
-        chain.push(g);
-        // TODO: make adsr work with samples without pops
-        // envelope
-        const adsr = getADSR(attack, decay, sustain, release, 1, t, t + hapDuration);
-        chain.push(adsr);
-      } else {
-        // load sample
-        if (speed === 0) {
-          // no playback
-          return;
-        }
-        if (!s) {
-          console.warn('no sample specified');
-          return;
-        }
-        const soundfont = getSoundfontKey(s);
-        let bufferSource;
 
-        try {
+let reverbs = {};
-          if (soundfont) {
+function getReverb(orbit, duration = 2) {
-            // is soundfont
+  if (!reverbs[orbit]) {
-            bufferSource = await globalThis.getFontBufferSource(soundfont, note || n, ac);
+    const ac = getAudioContext();
-          } else {
+    const reverb = ac.createReverb(duration);
-            // is sample from loaded samples(..)
+    reverb.connect(getDestination());
-            bufferSource = await getSampleBufferSource(s, n, note);
+    reverbs[orbit] = reverb;
-          }
+  }
-        } catch (err) {
+  if (reverbs[orbit].duration !== duration) {
-          console.warn(err);
+    reverbs[orbit] = reverbs[orbit].setDuration(duration);
-          return;
+    reverbs[orbit].duration = duration;
-        }
+  }
-        // asny stuff above took too long?
+  return reverbs[orbit];
-        if (ac.currentTime > t) {
+}
-          console.warn('sample still loading:', s, n);
-          return;
-        }
-        if (!bufferSource) {
-          console.warn('no buffer source');
-          return;
-        }
-        bufferSource.playbackRate.value = Math.abs(speed) * bufferSource.playbackRate.value;
-        if (unit === 'c') {
-          // are there other units?
-          bufferSource.playbackRate.value = bufferSource.playbackRate.value * bufferSource.buffer.duration;
-        }
-        let duration = soundfont || clip ? hapDuration : bufferSource.buffer.duration / bufferSource.playbackRate.value;
-        // "The computation of the offset into the sound is performed using the sound buffer's natural sample rate,
-        // rather than the current playback rate, so even if the sound is playing at twice its normal speed,
-        // the midway point through a 10-second audio buffer is still 5."
-        const offset = begin * duration * bufferSource.playbackRate.value;
-        duration = (end - begin) * duration;
-        if (loop) {
-          bufferSource.loop = true;
-          bufferSource.loopStart = offset;
-          bufferSource.loopEnd = offset + duration;
-          duration = loop * duration;
-        }
-        t += nudge;
 
-        bufferSource.start(t, offset);
+function effectSend(input, effect, wet) {
-        if (cut !== undefined) {
+  const send = gainNode(wet);
-          cutGroups[cut]?.stop(t); // fade out?
+  input.connect(send);
-          cutGroups[cut] = bufferSource;
+  send.connect(effect);
-        }
+  return send;
-        chain.push(bufferSource);
+}
-        bufferSource.stop(t + duration + release);
-        const adsr = getADSR(attack, decay, sustain, release, 1, t, t + duration);
-        chain.push(adsr);
-      }
-      // master out
-      const master = ac.createGain();
-      master.gain.value = gain;
-      chain.push(master);
 
-      // filters
+// export const webaudioOutput = async (t, hap, ct, cps) => {
-      cutoff !== undefined && chain.push(getFilter('lowpass', cutoff, resonance));
+export const webaudioOutput = async (hap, deadline, hapDuration) => {
-      hcutoff !== undefined && chain.push(getFilter('highpass', hcutoff, hresonance));
+  try {
-      bandf !== undefined && chain.push(getFilter('bandpass', bandf, bandq));
+    const ac = getAudioContext();
-      vowel !== undefined && chain.push(ac.createVowelFilter(vowel));
+    if (typeof hap.value !== 'object') {
-      coarse !== undefined && chain.push(getWorklet(ac, 'coarse-processor', { coarse }));
+      throw new Error(
-      crush !== undefined && chain.push(getWorklet(ac, 'crush-processor', { crush }));
+        `hap.value ${hap.value} is not supported by webaudio output. Hint: append .note() or .s() to the end`,
-      shape !== undefined && chain.push(getWorklet(ac, 'shape-processor', { shape }));
+      );
-      // TODO delay / delaytime / delayfeedback
-      // panning
-      if (pan !== undefined) {
-        const panner = ac.createStereoPanner();
-        panner.pan.value = 2 * pan - 1;
-        chain.push(panner);
-      }
-      // master out
-      /* const master = ac.createGain();
-    master.gain.value = 0.8 * gain;
-    chain.push(master); */
-      chain.push(ac.destination);
-      // connect chain elements together
-      chain.slice(1).reduce((last, current) => last.connect(current), chain[0]);
-      // disconnect all nodes when source node has ended:
-      chain[0].onended = () => chain.forEach((n) => n.disconnect());
-    } catch (e) {
-      console.warn('.out error:', e);
     }
-  });
+    // calculate correct time (tone.js workaround)
+    let t = ac.currentTime + deadline;
+    // destructure value
+    let {
+      freq,
+      s,
+      sf,
+      clip = 0, // if 1, samples will be cut off when the hap ends
+      n = 0,
+      note,
+      gain = 1,
+      cutoff,
+      resonance = 1,
+      hcutoff,
+      hresonance = 1,
+      bandf,
+      bandq = 1,
+      coarse,
+      crush,
+      shape,
+      pan,
+      attack = 0.001,
+      decay = 0.001,
+      sustain = 1,
+      release = 0.001,
+      speed = 1, // sample playback speed
+      begin = 0,
+      end = 1,
+      vowel,
+      delay = 0,
+      delayfeedback = 0.5,
+      delaytime = 0.25,
+      unit,
+      nudge = 0, // TODO: is this in seconds?
+      cut,
+      loop,
+      orbit = 1,
+      room,
+      size = 2,
+      roomsize = size,
+    } = hap.value;
+    const { velocity = 1 } = hap.context;
+    gain *= velocity; // legacy fix for velocity
+    // the chain will hold all audio nodes that connect to each other
+    const chain = [];
+    if (typeof s === 'string') {
+      [s, n] = splitSN(s, n);
+    }
+    if (typeof note === 'string') {
+      [note, n] = splitSN(note, n);
+    }
+    if (!s || ['sine', 'square', 'triangle', 'sawtooth'].includes(s)) {
+      // with synths, n and note are the same thing
+      n = note || n || 36;
+      if (typeof n === 'string') {
+        n = toMidi(n); // e.g. c3 => 48
+      }
+      // get frequency
+      if (!freq && typeof n === 'number') {
+        freq = fromMidi(n); // + 48);
+      }
+      // make oscillator
+      const o = getOscillator({ t, s, freq, duration: hapDuration, release });
+      chain.push(o);
+      // level down oscillators as they are really loud compared to samples i've tested
+      chain.push(gainNode(0.3));
+      // TODO: make adsr work with samples without pops
+      // envelope
+      const adsr = getADSR(attack, decay, sustain, release, 1, t, t + hapDuration);
+      chain.push(adsr);
+    } else {
+      // load sample
+      if (speed === 0) {
+        // no playback
+        return;
+      }
+      if (!s) {
+        console.warn('no sample specified');
+        return;
+      }
+      const soundfont = getSoundfontKey(s);
+      let bufferSource;
+
+      try {
+        if (soundfont) {
+          // is soundfont
+          bufferSource = await globalThis.getFontBufferSource(soundfont, note || n, ac);
+        } else {
+          // is sample from loaded samples(..)
+          bufferSource = await getSampleBufferSource(s, n, note, speed);
+        }
+      } catch (err) {
+        console.warn(err);
+        return;
+      }
+      // asny stuff above took too long?
+      if (ac.currentTime > t) {
+        console.warn('sample still loading:', s, n);
+        return;
+      }
+      if (!bufferSource) {
+        console.warn('no buffer source');
+        return;
+      }
+      bufferSource.playbackRate.value = Math.abs(speed) * bufferSource.playbackRate.value;
+      if (unit === 'c') {
+        // are there other units?
+        bufferSource.playbackRate.value = bufferSource.playbackRate.value * bufferSource.buffer.duration;
+      }
+      let duration = soundfont || clip ? hapDuration : bufferSource.buffer.duration / bufferSource.playbackRate.value;
+      // "The computation of the offset into the sound is performed using the sound buffer's natural sample rate,
+      // rather than the current playback rate, so even if the sound is playing at twice its normal speed,
+      // the midway point through a 10-second audio buffer is still 5."
+      const offset = begin * duration * bufferSource.playbackRate.value;
+      duration = (end - begin) * duration;
+      if (loop) {
+        bufferSource.loop = true;
+        bufferSource.loopStart = offset;
+        bufferSource.loopEnd = offset + duration;
+        duration = loop * duration;
+      }
+      t += nudge;
+
+      bufferSource.start(t, offset);
+      if (cut !== undefined) {
+        cutGroups[cut]?.stop(t); // fade out?
+        cutGroups[cut] = bufferSource;
+      }
+      chain.push(bufferSource);
+      bufferSource.stop(t + duration + release);
+      const adsr = getADSR(attack, decay, sustain, release, 1, t, t + duration);
+      chain.push(adsr);
+    }
+
+    // gain stage
+    chain.push(gainNode(gain));
+
+    // filters
+    cutoff !== undefined && chain.push(getFilter('lowpass', cutoff, resonance));
+    hcutoff !== undefined && chain.push(getFilter('highpass', hcutoff, hresonance));
+    bandf !== undefined && chain.push(getFilter('bandpass', bandf, bandq));
+    vowel !== undefined && chain.push(ac.createVowelFilter(vowel));
+
+    // effects
+    coarse !== undefined && chain.push(getWorklet(ac, 'coarse-processor', { coarse }));
+    crush !== undefined && chain.push(getWorklet(ac, 'crush-processor', { crush }));
+    shape !== undefined && chain.push(getWorklet(ac, 'shape-processor', { shape }));
+
+    // panning
+    if (pan !== undefined) {
+      const panner = ac.createStereoPanner();
+      panner.pan.value = 2 * pan - 1;
+      chain.push(panner);
+    }
+
+    // last gain
+    const post = gainNode(1);
+    chain.push(post);
+    post.connect(getDestination());
+
+    // delay
+    let delaySend;
+    if (delay > 0 && delaytime > 0 && delayfeedback > 0) {
+      const delyNode = getDelay(orbit, delaytime, delayfeedback, t);
+      delaySend = effectSend(post, delyNode, delay);
+    }
+    // reverb
+    let reverbSend;
+    if (room > 0 && roomsize > 0) {
+      const reverbNode = getReverb(orbit, roomsize);
+      reverbSend = effectSend(post, reverbNode, room);
+    }
+
+    // connect chain elements together
+    chain.slice(1).reduce((last, current) => last.connect(current), chain[0]);
+
+    // disconnect all nodes when source node has ended:
+    chain[0].onended = () => chain.concat([delaySend, reverbSend]).forEach((n) => n?.disconnect());
+  } catch (e) {
+    console.warn('.out error:', e);
+  }
+};
+
+Pattern.prototype.out = function () {
+  // TODO: refactor (t, hap, ct, cps) to (hap, deadline, duration) ?
+  return this.onTrigger((t, hap, ct, cps) => webaudioOutput(hap, t - ct, hap.duration / cps));
 };

repl/src/testtunes.mjs

@@ -0,0 +1,164 @@
+export const timeCatMini = `stack(
+  "c3@3 [eb3, g3, [c4 d4]/2]",
+  "c2 g2",
+  "[eb4@5 [f4 eb4 d4]@3] [eb4 c4]/2".slow(8)
+)`;
+
+export const timeCat = `stack(
+  timeCat([3, c3], [1, stack(eb3, g3, seq(c4, d4).slow(2))]),
+  seq(c2, g2),
+  seq(
+    timeCat([5, eb4], [3, seq(f4, eb4, d4)]), 
+    seq(eb4, c4).slow(2)
+  ).slow(4)
+)`;
+
+export const shapeShifted = `stack(
+  seq(
+    e5, [b4, c5], d5, [c5, b4],
+    a4, [a4, c5], e5, [d5, c5],
+    b4, [r, c5], d5, e5,
+    c5, a4, a4, r,
+    [r, d5], [r, f5], a5, [g5, f5],
+    e5, [r, c5], e5, [d5, c5],
+    b4, [b4, c5], d5, e5,
+    c5, a4, a4, r,
+  ).rev(),
+  seq(
+    e2, e3, e2, e3, e2, e3, e2, e3,
+    a2, a3, a2, a3, a2, a3, a2, a3,
+    gs2, gs3, gs2, gs3, e2, e3, e2, e3,
+    a2, a3, a2, a3, a2, a3, b1, c2,
+    d2, d3, d2, d3, d2, d3, d2, d3,
+    c2, c3, c2, c3, c2, c3, c2, c3,
+    b1, b2, b1, b2, e2, e3, e2, e3,
+    a1, a2, a1, a2, a1, a2, a1, a2,
+  ).rev()
+).slow(16)`;
+
+/* export const tetrisWithFunctions = `stack(seq(
+  'e5', seq('b4', 'c5'), 'd5', seq('c5', 'b4'),
+  'a4', seq('a4', 'c5'), 'e5', seq('d5', 'c5'),
+  'b4', seq(r, 'c5'), 'd5', 'e5',
+  'c5', 'a4', 'a4', r,
+  seq(r, 'd5'), seq(r, 'f5'), 'a5', seq('g5', 'f5'),
+  'e5', seq(r, 'c5'), 'e5', seq('d5', 'c5'),
+  'b4', seq('b4', 'c5'), 'd5', 'e5',
+  'c5', 'a4', 'a4', r),
+  seq(
+    'e2', 'e3', 'e2', 'e3', 'e2', 'e3', 'e2', 'e3',
+    'a2', 'a3', 'a2', 'a3', 'a2', 'a3', 'a2', 'a3',
+    'g#2', 'g#3', 'g#2', 'g#3', 'e2', 'e3', 'e2', 'e3',
+    'a2', 'a3', 'a2', 'a3', 'a2', 'a3', 'b1', 'c2',
+    'd2', 'd3', 'd2', 'd3', 'd2', 'd3', 'd2', 'd3',
+    'c2', 'c3', 'c2', 'c3', 'c2', 'c3', 'c2', 'c3',
+    'b1', 'b2', 'b1', 'b2', 'e2', 'e3', 'e2', 'e3',
+    'a1', 'a2', 'a1', 'a2', 'a1', 'a2', 'a1', 'a2',
+  )
+).slow(16)`; */
+
+/* export const tetris = `stack(
+  seq(
+    "e5 [b4 c5] d5 [c5 b4]",
+    "a4 [a4 c5] e5 [d5 c5]",
+    "b4 [~ c5] d5 e5",
+    "c5 a4 a4 ~",
+    "[~ d5] [~ f5] a5 [g5 f5]",
+    "e5 [~ c5] e5 [d5 c5]",
+    "b4 [b4 c5] d5 e5",
+    "c5 a4 a4 ~"
+  ),
+  seq(
+    "e2 e3 e2 e3 e2 e3 e2 e3",
+    "a2 a3 a2 a3 a2 a3 a2 a3",
+    "g#2 g#3 g#2 g#3 e2 e3 e2 e3",
+    "a2 a3 a2 a3 a2 a3 b1 c2",
+    "d2 d3 d2 d3 d2 d3 d2 d3",
+    "c2 c3 c2 c3 c2 c3 c2 c3",
+    "b1 b2 b1 b2 e2 e3 e2 e3",
+    "a1 a2 a1 a2 a1 a2 a1 a2",
+  )
+).slow(16)`;
+ */
+
+export const whirlyStrudel = `seq(e4, [b2,  b3], c4)
+.every(4, fast(2))
+.every(3, slow(1.5))
+.fast(cat(1.25, 1, 1.5))
+.every(2, _ => seq(e4, r, e3, d4, r))`;
+
+export const transposedChordsHacked = `stack(
+  "c2 eb2 g2",
+  "Cm7".voicings(['g2','c4']).slow(2)
+).transpose(
+  "<1 2 3 2>".slow(2)
+).transpose(5)`;
+
+export const scaleTranspose = `"f2,f3,c4,ab4"
+.scale(seq('F minor', 'F harmonic minor').slow(4))
+.scaleTranspose("<0 -1 -2 -3>")
+.transpose("0 1".slow(16))`;
+
+export const struct = `stack(
+  "c2 g2 a2 [e2@2 eb2] d2 a2 g2 [d2 ~ db2]",
+  "[C^7 A7] [Dm7 G7]".struct("[x@2 x] [~@2 x] [~ x@2]@2 [x ~@2] ~ [~@2 x@4]@2")
+  .voicings(['G3','A4'])
+).slow(4)`;
+
+export const magicSofa = `stack(
+  "<C^7 F^7 ~> <Dm7 G7 A7 ~>"
+   .every(2, fast(2))
+   .voicings(),
+  "<c2 f2 g2> <d2 g2 a2 e2>"
+).transpose("<0 2 3 4>")`;
+// below doesn't work anymore due to constructor cleanup
+// ).slow(1).transpose.cat(0, 2, 3, 4)`;
+
+export const confusedPhone = `"[g2 ~@1.3] [c3 ~@1.3]"
+.superimpose(
+  transpose(-12).late(0),
+  transpose(7).late(0.1),
+  transpose(10).late(0.2),
+  transpose(12).late(0.3),
+  transpose(24).late(0.4)
+)
+.scale(cat('C dorian', 'C mixolydian'))
+.scaleTranspose("<0 1 2 1>")
+.slow(2)`;
+
+export const technoDrums = `stack(
+  "c1*2".tone(new MembraneSynth().toDestination()),
+  "~ x".tone(new NoiseSynth().toDestination()),
+  "[~ c4]*2".tone(new MetalSynth().set({envelope:{decay:0.06,sustain:0}}).chain(new Gain(0.5),getDestination()))
+)`;
+
+/*
+export const caverave = `const delay = new FeedbackDelay(1/8, .4).chain(vol(0.5), out());
+const kick = new MembraneSynth().chain(vol(.8), out());
+const snare = new NoiseSynth().chain(vol(.8), out());
+const hihat = new MetalSynth().set(adsr(0, .08, 0, .1)).chain(vol(.3).connect(delay),out());
+const bass = new Synth().set({ ...osc('sawtooth'), ...adsr(0, .1, .4) }).chain(lowpass(900), vol(.5), out());
+const keys = new PolySynth().set({ ...osc('sawtooth'), ...adsr(0, .5, .2, .7) }).chain(lowpass(1200), vol(.5), out());
+
+const drums = stack(
+  "c1*2".tone(kick).mask("<x@7 ~>/8"),
+  "~ <x!7 [x@3 x]>".tone(snare).mask("<x@7 ~>/4"),
+  "[~ c4]*2".tone(hihat)
+);
+
+const thru = (x) => x.transpose("<0 1>/8").transpose(-1);
+const synths = stack(
+  "<eb4 d4 c4 b3>/2".scale(timeCat([3,'C minor'],[1,'C melodic minor']).slow(8)).struct("[~ x]*2")
+  .layer(
+    scaleTranspose(0).early(0),
+    scaleTranspose(2).early(1/8),
+    scaleTranspose(7).early(1/4),
+    scaleTranspose(8).early(3/8)
+  ).apply(thru).tone(keys).mask("<~ x>/16"),
+  "<C2 Bb1 Ab1 [G1 [G2 G1]]>/2".struct("[x [~ x] <[~ [~ x]]!3 [x x]>@2]/2".fast(2)).apply(thru).tone(bass),
+  "<Cm7 Bb7 Fm7 G7b13>/2".struct("~ [x@0.1 ~]".fast(2)).voicings().apply(thru).every(2, early(1/8)).tone(keys).mask("<x@7 ~>/8".early(1/4))
+)
+stack(
+  drums.fast(2), 
+  synths
+).slow(2)`; */

repl/src/tunes.mjs

@@ -4,88 +4,6 @@ Copyright (C) 2022 Strudel contributors - see <https://github.com/tidalcycles/st
 This program is free software: you can redistribute it and/or modify it under the terms of the GNU Affero General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public License for more details. You should have received a copy of the GNU Affero General Public License along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */
 
-export const timeCatMini = `stack(
-  "c3@3 [eb3, g3, [c4 d4]/2]",
-  "c2 g2",
-  "[eb4@5 [f4 eb4 d4]@3] [eb4 c4]/2".slow(8)
-)`;
-
-export const timeCat = `stack(
-  timeCat([3, c3], [1, stack(eb3, g3, seq(c4, d4).slow(2))]),
-  seq(c2, g2),
-  seq(
-    timeCat([5, eb4], [3, seq(f4, eb4, d4)]), 
-    seq(eb4, c4).slow(2)
-  ).slow(4)
-)`;
-
-export const shapeShifted = `stack(
-  seq(
-    e5, [b4, c5], d5, [c5, b4],
-    a4, [a4, c5], e5, [d5, c5],
-    b4, [r, c5], d5, e5,
-    c5, a4, a4, r,
-    [r, d5], [r, f5], a5, [g5, f5],
-    e5, [r, c5], e5, [d5, c5],
-    b4, [b4, c5], d5, e5,
-    c5, a4, a4, r,
-  ).rev(),
-  seq(
-    e2, e3, e2, e3, e2, e3, e2, e3,
-    a2, a3, a2, a3, a2, a3, a2, a3,
-    gs2, gs3, gs2, gs3, e2, e3, e2, e3,
-    a2, a3, a2, a3, a2, a3, b1, c2,
-    d2, d3, d2, d3, d2, d3, d2, d3,
-    c2, c3, c2, c3, c2, c3, c2, c3,
-    b1, b2, b1, b2, e2, e3, e2, e3,
-    a1, a2, a1, a2, a1, a2, a1, a2,
-  ).rev()
-).slow(16)`;
-
-/* export const tetrisWithFunctions = `stack(seq(
-  'e5', seq('b4', 'c5'), 'd5', seq('c5', 'b4'),
-  'a4', seq('a4', 'c5'), 'e5', seq('d5', 'c5'),
-  'b4', seq(r, 'c5'), 'd5', 'e5',
-  'c5', 'a4', 'a4', r,
-  seq(r, 'd5'), seq(r, 'f5'), 'a5', seq('g5', 'f5'),
-  'e5', seq(r, 'c5'), 'e5', seq('d5', 'c5'),
-  'b4', seq('b4', 'c5'), 'd5', 'e5',
-  'c5', 'a4', 'a4', r),
-  seq(
-    'e2', 'e3', 'e2', 'e3', 'e2', 'e3', 'e2', 'e3',
-    'a2', 'a3', 'a2', 'a3', 'a2', 'a3', 'a2', 'a3',
-    'g#2', 'g#3', 'g#2', 'g#3', 'e2', 'e3', 'e2', 'e3',
-    'a2', 'a3', 'a2', 'a3', 'a2', 'a3', 'b1', 'c2',
-    'd2', 'd3', 'd2', 'd3', 'd2', 'd3', 'd2', 'd3',
-    'c2', 'c3', 'c2', 'c3', 'c2', 'c3', 'c2', 'c3',
-    'b1', 'b2', 'b1', 'b2', 'e2', 'e3', 'e2', 'e3',
-    'a1', 'a2', 'a1', 'a2', 'a1', 'a2', 'a1', 'a2',
-  )
-).slow(16)`; */
-
-/* export const tetris = `stack(
-  seq(
-    "e5 [b4 c5] d5 [c5 b4]",
-    "a4 [a4 c5] e5 [d5 c5]",
-    "b4 [~ c5] d5 e5",
-    "c5 a4 a4 ~",
-    "[~ d5] [~ f5] a5 [g5 f5]",
-    "e5 [~ c5] e5 [d5 c5]",
-    "b4 [b4 c5] d5 e5",
-    "c5 a4 a4 ~"
-  ),
-  seq(
-    "e2 e3 e2 e3 e2 e3 e2 e3",
-    "a2 a3 a2 a3 a2 a3 a2 a3",
-    "g#2 g#3 g#2 g#3 e2 e3 e2 e3",
-    "a2 a3 a2 a3 a2 a3 b1 c2",
-    "d2 d3 d2 d3 d2 d3 d2 d3",
-    "c2 c3 c2 c3 c2 c3 c2 c3",
-    "b1 b2 b1 b2 e2 e3 e2 e3",
-    "a1 a2 a1 a2 a1 a2 a1 a2",
-  )
-).slow(16)`;
- */
 export const tetrisMini = `\`[[e5 [b4 c5] d5 [c5 b4]]
 [a4 [a4 c5] e5 [d5 c5]]
 [b4 [~ c5] d5 e5]
@@ -104,12 +22,6 @@ export const tetrisMini = `\`[[e5 [b4 c5] d5 [c5 b4]]
 [[a1 a2]*4]\`.slow(16)
 `;
 
-export const whirlyStrudel = `seq(e4, [b2,  b3], c4)
-.every(4, fast(2))
-.every(3, slow(1.5))
-.fast(cat(1.25, 1, 1.5))
-.every(2, _ => seq(e4, r, e3, d4, r))`;
-
 export const swimming = `stack(
   seq(
     "~",
@@ -222,45 +134,6 @@ export const giantStepsReggae = `stack(
   .struct("x ~".fast(4*8))
 ).slow(25)`;
 
-export const transposedChordsHacked = `stack(
-  "c2 eb2 g2",
-  "Cm7".voicings(['g2','c4']).slow(2)
-).transpose(
-  "<1 2 3 2>".slow(2)
-).transpose(5)`;
-
-export const scaleTranspose = `"f2,f3,c4,ab4"
-.scale(seq('F minor', 'F harmonic minor').slow(4))
-.scaleTranspose("<0 -1 -2 -3>")
-.transpose("0 1".slow(16))`;
-
-export const struct = `stack(
-  "c2 g2 a2 [e2@2 eb2] d2 a2 g2 [d2 ~ db2]",
-  "[C^7 A7] [Dm7 G7]".struct("[x@2 x] [~@2 x] [~ x@2]@2 [x ~@2] ~ [~@2 x@4]@2")
-  .voicings(['G3','A4'])
-).slow(4)`;
-
-export const magicSofa = `stack(
-  "<C^7 F^7 ~> <Dm7 G7 A7 ~>"
-   .every(2, fast(2))
-   .voicings(),
-  "<c2 f2 g2> <d2 g2 a2 e2>"
-).transpose("<0 2 3 4>")`;
-// below doesn't work anymore due to constructor cleanup
-// ).slow(1).transpose.cat(0, 2, 3, 4)`;
-
-export const confusedPhone = `"[g2 ~@1.3] [c3 ~@1.3]"
-.superimpose(
-  transpose(-12).late(0),
-  transpose(7).late(0.1),
-  transpose(10).late(0.2),
-  transpose(12).late(0.3),
-  transpose(24).late(0.4)
-)
-.scale(cat('C dorian', 'C mixolydian'))
-.scaleTranspose("<0 1 2 1>")
-.slow(2)`;
-
 export const zeldasRescue = `stack(
   // melody
   \`[B3@2 D4] [A3@2 [G3 A3]] [B3@2 D4] [A3] 
@@ -284,41 +157,35 @@ export const zeldasRescue = `stack(
     getDestination())
 )`;
 
-export const technoDrums = `stack(
+export const caverave = `const keys = x => x.s('sawtooth').cutoff(1200).gain(.5).attack(0).decay(0.5).sustain(.16).release(.8);
-  "c1*2".tone(new MembraneSynth().toDestination()),
-  "~ x".tone(new NoiseSynth().toDestination()),
-  "[~ c4]*2".tone(new MetalSynth().set({envelope:{decay:0.06,sustain:0}}).chain(new Gain(0.5),getDestination()))
-)`;
-
-export const caverave = `const delay = new FeedbackDelay(1/8, .4).chain(vol(0.5), out());
-const kick = new MembraneSynth().chain(vol(.8), out());
-const snare = new NoiseSynth().chain(vol(.8), out());
-const hihat = new MetalSynth().set(adsr(0, .08, 0, .1)).chain(vol(.3).connect(delay),out());
-const bass = new Synth().set({ ...osc('sawtooth'), ...adsr(0, .1, .4) }).chain(lowpass(900), vol(.5), out());
-const keys = new PolySynth().set({ ...osc('sawtooth'), ...adsr(0, .5, .2, .7) }).chain(lowpass(1200), vol(.5), out());
 
 const drums = stack(
-  "c1*2".tone(kick).mask("<x@7 ~>/8"),
+  s("bd*2").mask("<x@7 ~>/8"),
-  "~ <x!7 [x@3 x]>".tone(snare).mask("<x@7 ~>/4"),
+  s("~ <sd!7 [sd@3 x]>").mask("<x@7 ~>/4"),
-  "[~ c4]*2".tone(hihat)
+  s("[~ hh]*2").delay(.3).delayfeedback(.5).delaytime(.125)
 );
 
 const thru = (x) => x.transpose("<0 1>/8").transpose(-1);
 const synths = stack(
-  "<eb4 d4 c4 b3>/2".scale(timeCat([3,'C minor'],[1,'C melodic minor']).slow(8)).struct("[~ x]*2")
+  "<eb4 d4 c4 b3>/2".scale(timeCat([3,'C minor'],[1,'C melodic minor'])
+  .slow(8)).struct("[~ x]*2")
   .layer(
     scaleTranspose(0).early(0),
     scaleTranspose(2).early(1/8),
     scaleTranspose(7).early(1/4),
     scaleTranspose(8).early(3/8)
-  ).apply(thru).tone(keys).mask("<~ x>/16"),
+  ).apply(thru).note().apply(keys).mask("<~ x>/16"),
-  "<C2 Bb1 Ab1 [G1 [G2 G1]]>/2".struct("[x [~ x] <[~ [~ x]]!3 [x x]>@2]/2".fast(2)).apply(thru).tone(bass),
+  note("<C2 Bb1 Ab1 [G1 [G2 G1]]>/2".apply(thru))
-  "<Cm7 Bb7 Fm7 G7b13>/2".struct("~ [x@0.1 ~]".fast(2)).voicings().apply(thru).every(2, early(1/8)).tone(keys).mask("<x@7 ~>/8".early(1/4))
+  .struct("[x [~ x] <[~ [~ x]]!3 [x x]>@2]/2".fast(2))
+  .s('sawtooth').attack(0.001).decay(0.2).sustain(1).cutoff(500),
+  "<Cm7 Bb7 Fm7 G7b13>/2".struct("~ [x@0.1 ~]".fast(2)).voicings()
+  .apply(thru).every(2, early(1/8)).note().apply(keys)
+  .mask("<x@7 ~>/8".early(1/4))
 )
 stack(
   drums.fast(2), 
   synths
-).slow(2)`;
+).slow(2).out()`;
 
 export const callcenterhero = `const bpm = 90;
 const lead = polysynth().set({...osc('sine4'),...adsr(.004)}).chain(vol(0.15),out())
@@ -1030,3 +897,33 @@ stack(
     x?  ~ ~ x ~ x@3\`),
   roots.struct("x [~ x?0.2] x [~ x?] | x!4 | x@2 ~ ~ ~ x x x").transpose("0 7")
 ).slow(2).pianoroll().note().piano().out();`;
+
+export const chop = `samples({ p: 'https://cdn.freesound.org/previews/648/648433_11943129-lq.mp3' })
+
+s("p")
+  .loopAt(32,1)
+  .chop(128)
+  .jux(rev)
+  .shape(.4)
+  .decay(.1)
+  .sustain(.6)
+  .out()`;
+
+export const delay = `stack(
+    s("bd <sd cp>")
+    .delay("<0 .5>")
+    .delaytime(".16 | .33")
+    .delayfeedback(".6 | .8")
+  ).sometimes(x=>x.speed("-1")).out()`;
+
+export const orbit = `stack(
+    s("bd <sd cp>")
+    .delay(.5)
+    .delaytime(.33)
+    .delayfeedback(.6),
+    s("hh*2")
+    .delay(.8)
+    .delaytime(.08)
+    .delayfeedback(.7)
+    .orbit(2)
+  ).sometimes(x=>x.speed("-1")).out()`;