add webdirt with some default samples

packages/webdirt/README:md

@@ -0,0 +1,10 @@
+# @strudel.cycles/webdirt
+
+This package adds [webdirt](https://github.com/dktr0/WebDirt) support to strudel!
+
+## Dev Notes
+
+Add default samples to repl:
+
+1. move samples to public folder
+2. run `./makeSampleMap.sh ../../repl/public/EmuSP12 > ../../repl/public/EmuSP12.json`

packages/webdirt/index.mjs

@@ -0,0 +1 @@
+export * from './webdirt.mjs';

packages/webdirt/makeSampleMap.sh

@@ -0,0 +1,32 @@
+#/bin/sh
+printf "{\n"
+dircount=0
+# for d in $searchRoot/*; do
+find $1 -mindepth 1 -maxdepth 1 -iname "*" | sort | while read d; do
+  if [ -d "$d" ]
+  then
+    if [ $dircount -ne 0 ]
+    then
+      printf ",\n"
+    fi
+    (( dircount++ ))
+    dirname=`basename $d`
+    printf "\"%s\": [" "$dirname"
+    search2=$searchRoot/$dirname/*.WAV
+    filecount=0
+    find "$d" -iname "*.wav" | sort | while read f; do
+    # for f in $search2; do
+      filename=$(printf %q "$f")
+      basename=${f##*/}
+      if [[ ${basename:0:1} != "." ]]; then
+        if [ $filecount -ne 0 ]; then
+          printf ","
+        fi
+        (( filecount++ ))
+        printf "\"%s/%s\"" "$dirname" "$basename"
+      fi
+    done
+    printf "]"
+  fi
+done
+printf "\n}\n"

packages/webdirt/package.json

@@ -0,0 +1,28 @@
+{
+  "name": "@strudel.cycles/webdirt",
+  "version": "0.1.0",
+  "description": "WebDirt integration for Strudel",
+  "main": "index.mjs",
+  "type": "module",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/tidalcycles/strudel.git"
+  },
+  "keywords": [
+    "tidalcycles",
+    "strudel",
+    "pattern",
+    "livecoding",
+    "algorave"
+  ],
+  "author": "Felix Roos <flix91@gmail.com>",
+  "license": "AGPL-3.0-or-later",
+  "bugs": {
+    "url": "https://github.com/tidalcycles/strudel/issues"
+  },
+  "homepage": "https://github.com/tidalcycles/strudel#readme",
+  "dependencies": {
+    "@strudel.cycles/core": "^0.1.0",
+    "WebDirt": "github:dktr0/WebDirt"
+  }
+}

packages/webdirt/webdirt.mjs

@@ -0,0 +1,32 @@
+import * as strudel from '@strudel.cycles/core';
+const { Pattern } = strudel;
+import * as WebDirt from 'WebDirt';
+
+let webDirt;
+
+/*
+example config:
+{
+    sampleMapUrl: 'EmuSP12.json',
+    sampleFolder: 'EmuSP12',
+}
+*/
+export function loadWebDirt(config) {
+  webDirt = new WebDirt.WebDirt(config);
+  webDirt.initializeWebAudio();
+}
+
+Pattern.prototype.webdirt = function () {
+  // create a WebDirt object and initialize Web Audio context
+  return this._withHap((hap) => {
+    const onTrigger = (time, e, currentTime) => {
+      if (!webDirt) {
+        throw new Error('WebDirt not initialized!');
+      }
+      const deadline = time - currentTime;
+      const { s, n = 0 } = e.value;
+      webDirt.playSample({ s, n }, deadline);
+    };
+    return hap.setContext({ ...hap.context, onTrigger });
+  });
+};