| -- melody generator | |
| engine.name="PolyPerc" | |
| musicutil=require("musicutil") | |
| function init() | |
| engine.release(2) | |
| engine.amp(0.3) | |
| local chords={"I","vi","IV","iii"} -- change to any chords | |
| local movement_left=6 -- change to 0-12 |
| <html> | |
| <head> | |
| <style> | |
| html { | |
| font-family: Roboto, arial, sans-serif; | |
| font-size: 18px; | |
| margin: auto; | |
| max-width: 700px; | |
| } |
| SynthDef(\audioBus, {|inBus=99,outBus=99,amp=1,pan=0| | |
| var sig = In.ar(inBus); | |
| Out.ar(outBus, Pan2.ar(sig * amp,pan)) | |
| }).store; | |
| SynthDef(\audioInput, {| inBus=0, out = 0, gate=1,amp=1| |
| // via https://www.nada.kth.se/utbildning/grukth/exjobb/rapportlistor/2010/rapporter10/szabo_adam_10131.pdf | |
| ( | |
| { | freq = 523.3572, mix=0.75, detune = 0.75 | | |
| var detuneCurve = { |x| | |
| (10028.7312891634*x.pow(11)) - | |
| (50818.8652045924*x.pow(10)) + | |
| (111363.4808729368*x.pow(9)) - | |
| (138150.6761080548*x.pow(8)) + | |
| (106649.6679158292*x.pow(7)) - |
| --[[ | |
| Implemented as described here: | |
| http://flafla2.github.io/2014/08/09/perlinnoise.html | |
| ]]-- | |
| perlin = {} | |
| perlin.p = {} | |
| -- Hash lookup table as defined by Ken Perlin | |
| -- This is a randomly arranged array of all numbers from 0-255 inclusive |
| #!/bin/bash | |
| # | |
| # Steps to install and set up a headless raspberry pi (3) for SuperCollider use | |
| # This is primarily copied from https://supercollider.github.io/development/building-raspberrypi | |
| # | |
| # | |
| # Get updated | |
| sudo apt-get update |
| ///////////////////////////////////////////////////////////////////////////////////////// | |
| ************************************** INITIALIZE *************************************** | |
| ///////////////////////////////////////////////////////////////////////////////////////// | |
| Server.default.options.outDevice = "Built-in Output"; | |
| s.options.numBuffers = 2048 * 16; | |
| s.options.memSize = 8192 * 16; | |
| s.options.maxNodes = 1024 * 32; | |
| // s.options.numOutputBusChannels = 12; | |
| s.options.numInputBusChannels = 0; |
my faust code. the faust code generates a "teensy" library "Volume.h" and "Volume.cpp" from https://faustide.grame.fr/
import("stdfaust.lib");
gain = vslider("[1]", 0, -70, +4, 0.1) : ba.db2linear : si.smoo;
process = *(gain);
then my teensy code here (volume.ino) will pass through audio unless I comment out volume.setParamValue("gain",0.5);!
| linking libraries | |
| cleaning up... | |
| compiling class library... | |
| Found 738 primitives. | |
| Compiling directory '/usr/local/share/SuperCollider/SCClassLibrary' | |
| Compiling directory '/usr/local/share/SuperCollider/Extensions' | |
| Compiling directory '/home/we/.local/share/SuperCollider/Extensions' | |
| Compiling directory '/home/we/norns/sc/core' | |
| Compiling directory '/home/we/norns/sc/engines' | |
| Compiling directory '/home/we/dust' |