Merge pull request #6 from Intelligent-Instruments-Lab/ja-dev

Faust examples

Author: jarmitage

Readme.md

@@ -7,6 +7,10 @@
 - examples:
     - iipyper: basic usage for iipyper
     - notepredictor: interactive MIDI apps with notepredictor and SuperCollider
+    - bela: [Bela](https://bela.io) examples in C++, Pure Data and so on
+    - faust: [Faust](https://faustdoc.grame.fr/) examples
+    - tidalcycles [TidalCycles](https://tidalcycles.org) examples
+    - puredata: [Pure Data](https://puredata.info) examples
 <!-- - clients: templates for SuperCollider, Bela (C++), Pure Data, ... -->
 
 # Setup

examples/bela/cpp/cpp-osc-resonator/render.cpp

@@ -74,8 +74,7 @@ void render (BelaContext *context, void *userData) {
   for (unsigned int n = 0; n < context->audioFrames; ++n) {
 
     float in = 0.0f;
-    if (audioInput)
-      in = audioRead(context, n, 0); // an excitation signal
+    if (audioInput) in = audioRead(context, n, 0); // an excitation signal
     else {
       if (++impulseCount >= impulseInterval * (1-impulseWidth))
         in = 1.0f * ( rand() / (float)RAND_MAX * 2.f - 1.f ); // noise

examples/bela/cpp/cpp-osc-resonators/render.cpp

@@ -0,0 +1,83 @@
+#include <stdlib.h>
+#include <Bela.h>
+#include <libraries/OscSender/OscSender.h>
+#include <libraries/OscReceiver/OscReceiver.h>
+#include "ResonatorBank.h" // https://github.com/jarmitage/resonators
+
+OscReceiver oscReceiver;
+const char* remoteIp = "192.168.7.1";
+const int localPort = 7562;
+
+ResonatorBank resBank;
+ResonatorBankOptions resBankOptions;
+std::vector<ResonatorParams> resModelParams;
+int resModelSize = 20;
+bool resModelReceived = false;
+
+float impulseInterval = 44100;
+float impulseWidth = 0.1;
+float impulseCount = 0;
+bool audioInput = false;
+
+void onReceive(oscpkt::Message* msg, const char* addr, void* arg) {
+
+  if(msg->match("/resonators")) {
+    
+    printf("Model received...\n");
+    auto argReader = msg->match("/resonators");
+    for (int i = 0; i < resModelSize; i++) {
+      argReader.popFloat(resModelParams[i].freq);
+      argReader.popFloat(resModelParams[i].gain);
+      argReader.popFloat(resModelParams[i].decay);
+    }
+    argReader.isOkNoMoreArgs();
+    printf("\n");
+    
+    resBank.setBank(resModelParams);
+    resBank.update();
+    resModelReceived = true;
+
+  } else {
+    printf("Message address not recognised\n");
+  }
+}
+
+bool setup (BelaContext *context, void *userData) {
+
+  oscReceiver.setup(localPort, onReceive);
+  
+  resModelParams.resize(resModelSize);
+  resBankOptions.total = resModelSize;
+  resBank.setup(resBankOptions, context->audioSampleRate, context->audioFrames);
+
+  return true;
+}
+
+void render (BelaContext *context, void *userData) { 
+
+  if (resModelReceived) {
+
+    for (unsigned int n = 0; n < context->audioFrames; ++n) {
+
+      float in = 0.0f;
+
+      if (audioInput) in = audioRead(context, n, 0); // an excitation signal
+      else {
+        if (++impulseCount >= impulseInterval * (1-impulseWidth))
+          in = 1.0f * ( rand() / (float)RAND_MAX * 2.f - 1.f ); // noise
+        if (impulseCount >= impulseInterval) impulseCount = 0;
+      }
+      float out = 0.0f;
+
+      out = resBank.render(in);
+
+      audioWrite(context, n, 0, out);
+      audioWrite(context, n, 1, out);
+
+    }
+  
+  }
+
+}
+
+void cleanup (BelaContext *context, void *userData) { }

examples/bela/cpp/cpp-osc-resonators/server.py

@@ -0,0 +1,54 @@
+"""
+Authors:
+  Victor Shepardson
+  Jack Armitage
+  Intelligent Instruments Lab 2022
+"""
+import random
+import numpy as np
+from math import log
+import pandas as pd
+import json
+
+from iipyper import OSC, run, repeat
+
+def main(host="192.168.7.1", port=7563, verbose=False):
+    
+    osc = OSC(host, port)
+    osc.create_client("bela", host="192.168.7.2", port=7562)
+
+    model_size = 20
+
+    @repeat(1)
+    def _():
+        nonlocal model_size
+        model = modelGen(model_size)
+        osc("bela", "/resonators", *model.values.flatten())
+
+    def modelGen(size):
+        res = pd.DataFrame ([], columns=['freq', 'gain', 'decay'])
+        for i in range (0, size):
+            res.loc[i] = [
+                lognorm_within_range (40, 20000),
+                np.random.uniform (0, 0.5),
+                np.random.uniform (0, 1.0)
+            ]
+        res = res.sort_values(by=['freq']).reset_index(drop=True)
+        return res
+
+    def lognorm_within_range(vmin, vmax):
+        vrand = random.random()
+        logratio = log(vmax) / log(vmin)
+        power = ((logratio-1.) * vrand)+1.
+        return vmin**power
+
+    def model2osc(model):
+        osc = {}
+        return osc
+
+    def osc2model(msg):
+        model = {}
+        return model
+
+if __name__=='__main__':
+    run(main)

examples/bela/readme.md

@@ -4,19 +4,21 @@ Unless otherwise stated, these examples assume a set up of a Bela device connect
 
 ## C++
 - `cpp-osc-basic`: basic OSC communication with Bela
-- `cpp-osc-basic-gui`: basic OSC communication with Bela with a Bela GUI
-- `cpp-osc-basic-gui-svelte`: basic OSC communication with Bela with a Svelte GUI
-- `cpp-osc-recorder`: record data received from Bela
-- `cpp-osc-resonators`: controlling the Resonators library
-- `cpp-osc-scope`: controlling the Bela scope
-- `cpp-osc-trill`: using Trill sensors
+- `cpp-osc-arrays`: sending and receiving arrays
+- `cpp-osc-resonator`: controlling a resonant filter
+- `cpp-osc-resonators`: controlling a bank of resonant filters
+- `cpp-osc-gui-sliders`: Bela GUI with sliders controlled by `iipyper`
+- `cpp-osc-notepredictor-trill`: using Trill sensors to control `iipyper` `notepredictor` parameters
+
+## Pure Data
+- `osc-receive`: receive OSC from `iipyper`
+- `osc-send`: send OSC to `iipyper`
+
+# Todo
 
 ## SuperCollider
 - `scd-osc-basic`: 
 
-## Pure Data
-- `pd-osc-basic`:
-
 ## Csound
 - `cs-osc-basic`:
 

examples/examples

@@ -0,0 +1,73 @@
+"""
+Authors:
+  Victor Shepardson
+  Jack Armitage
+  Intelligent Instruments Lab 2022
+"""
+
+import numpy as np
+
+from iipyper import OSC, run, repeat
+
+def main(port=5511, verbose=False):
+    
+    osc = OSC(port=port)
+    osc.create_client("faust", port=5510)
+
+    connected = False
+
+    # Kisana parameters
+    master = { "val": -12.0, "min": -60.0, "max": 0.0, "step": 2.0 }
+    note = { "val": 5, "min": 0, "max": 11, "step": 1 }
+    timbre = { "val": 0.5, "min": 0.0, "max": 1.0, "step": 0.25 }
+
+    @osc.args("/*")
+    def _(address, *args):
+        """
+        Handle OSC messages from Faust
+        """
+
+        if address=="/Kisana":
+            # `osc("faust", "/*", "get")` response
+            print(f"Kisana interface: {args}")
+        
+        else:
+            address = address.split("/")
+            cmd = address[2]
+            if cmd=="level":
+                print(f"Level updated to: {args}")
+
+    @repeat(0.5)
+    def _():
+        nonlocal connected
+        if connected==False:
+            connect()
+            connected=True
+        update()
+
+    def connect():
+        nonlocal master
+        osc("faust", "/*", "get") # discover OSC interface
+        osc("faust", "/xmit", 1) # turn transmission on
+        osc("faust", "/Kisana/master", master['val']) # set master gain
+        print("Kisana connected!")
+
+    def update():
+        nonlocal note, timbre
+        coin_flip = np.random.choice(a=[True,False], size=2)
+        
+        if coin_flip[0]==True:
+            note_step = np.random.randint(-note['step'], note['step']+1)
+            note['val'] = constrain(note['val'] + note_step, note['min'], note['max'])
+            osc("faust", "/Kisana/loop38/note", note['val'])
+
+        elif coin_flip[1]==True:
+            timbre_step = np.random.random() * (timbre['step'] * 2 - timbre['step'])
+            timbre['val'] = constrain(timbre['val'] + timbre_step, timbre['min'], timbre['max'])
+            osc("faust", "/Kisana/timbre", timbre['val'])
+
+    def constrain(val, min_val, max_val):
+        return min(max_val, max(min_val, val))
+
+if __name__=='__main__':
+    run(main)

examples/faust/faustlive/harpeautomation.py

@@ -0,0 +1,56 @@
+"""
+Authors:
+  Victor Shepardson
+  Jack Armitage
+  Intelligent Instruments Lab 2022
+"""
+
+"""
+Create a file called `process.dsp` and add the following code
+
+```
+import("stdfaust.lib");
+process = no.noise*hslider("level",0,0,1,0.01);
+```
+
+Open this in FaustLive or compile it via faust2X
+"""
+
+import random
+
+from iipyper import OSC, run, repeat
+
+def main(port=5511, verbose=False):
+    
+    osc = OSC(port=port)
+    osc.create_client("faust", port=5510)
+
+    connected = False
+
+    @osc.args("/*")
+    def _(address, *args):
+        """
+        Handle OSC messages from Faust
+        """
+
+        if address=="/FaustDSP":
+            # `osc("faust", "/*", "get")` response
+            print(f"Faust interface: {args}")
+        
+        else:
+            address = address.split("/")
+            cmd = address[2]
+            if cmd=="level":
+                print(f"Level updated to: {args}")
+
+    @repeat(1)
+    def _():
+        nonlocal connected
+        if connected==False:
+            connected=True
+            osc("faust", "/*", "get") # discover OSC interface
+            osc("faust", "/xmit", 1) # turn transmission on
+        osc("faust", "/FaustDSP/level", random.random())
+
+if __name__=='__main__':
+    run(main)

examples/faust/hello-osc/server.py

@@ -0,0 +1,10 @@
+# `iipyper` Faust examples
+
+Faust OSC documentation references:
+- https://faustdoc.grame.fr/manual/osc/
+- https://ccrma.stanford.edu/~jos/aspf/Using_FAUST_Open_Sound.html
+
+## Examples
+- `hello-osc`: basic example demonsrating OSC send and receive
+- `faustlive`: examples corresponding to the [FaustLive Examples](https://github.com/grame-cncm/faustlive/tree/master/Resources/Examples)
+  + `harpeautomation`: autoharp with note and timbre parameters

examples/faust/readme.md

@@ -0,0 +1,3 @@
+# `iipyper` Pure Data examples
+
+See `/examples/bela/pd`