Merge branch 'feature-multitrack'
commit
b5010ed3e4
60
NOTES.md
60
NOTES.md
|
@ -1,31 +1,53 @@
|
||||||
# TODO
|
# TODO
|
||||||
|
|
||||||
## Granulator
|
- quantise playback speed to rational values
|
||||||
|
- display the playback and harmonics when quantised
|
||||||
|
|
||||||
Fix chorus and detune - why isn't it being triggered?
|
- multiple grain buffers - TouchOsc interface to select which to send to
|
||||||
|
- play back all buffers?
|
||||||
|
|
||||||
Add pitch shifting
|
- refactor for multitrack
|
||||||
|
- which controls are per-track and which are global? sort these out in the UI
|
||||||
|
- encapsulate a grainstrack in an object?
|
||||||
|
|
||||||
Change harmonics for chorus
|
- auto-mix: base the mix level on how loud the incoming signal is so that tracks don't fade out
|
||||||
|
|
||||||
Lock harmonics to octaves / ratios
|
- fancier playback:
|
||||||
|
- intertwine different rates and directions
|
||||||
## Effects chain
|
|
||||||
|
|
||||||
Add an effects chain like with midilooper
|
|
||||||
|
|
||||||
-> filter -> reverb -> out
|
|
||||||
|
|
||||||
|
|
||||||
|
- rhythm controls
|
||||||
|
- number of steps in step granulator
|
||||||
|
- modulate grain level in time with playback
|
||||||
|
- sync LFOs to playback
|
||||||
|
|
||||||
## LFO mod
|
TODO list - touchosch
|
||||||
|
|
||||||
Add the new-style lfo mods to filter
|
URL TO SC
|
||||||
|
grains/buflen Y Y
|
||||||
|
grains/reset Y Y
|
||||||
|
grains/record0..3 Y Y
|
||||||
|
grains/mode0..3 Y Y
|
||||||
|
grains/speed0..3 Y Y
|
||||||
|
grains/dust Y Y
|
||||||
|
grains/slope Y Y
|
||||||
|
grains/back Y Y
|
||||||
|
grains/trigger Y Y
|
||||||
|
grains/speedlock
|
||||||
|
grains/speedquant
|
||||||
|
grains/mix0 Y
|
||||||
|
grains/mix1 Y
|
||||||
|
grains/mix2 Y
|
||||||
|
grains/mix3 Y
|
||||||
|
|
||||||
## More LFO mods
|
trackselect
|
||||||
|
|
||||||
Allow other settings to be modulated
|
track/record
|
||||||
|
track/mode
|
||||||
## Input filter
|
track/speed
|
||||||
|
track/size
|
||||||
Switch in and out a single input filter like distort, peak FFT, etc,
|
track/blur
|
||||||
|
track/mix
|
||||||
|
track/pan
|
||||||
|
track/track
|
||||||
|
track/jitter
|
44
TODO.md
44
TODO.md
|
@ -1,37 +1,27 @@
|
||||||
TODO
|
TODO
|
||||||
====
|
====
|
||||||
|
|
||||||
## Basic interface stuff
|
Monday-Tuesday to-do
|
||||||
|
|
||||||
Write default settings to the interface on startup <-- done
|
Use server.sync to speed up booting
|
||||||
|
|
||||||
Try to get all the common interfaces on one page
|
- re-route the effects so that it goes
|
||||||
|
|
||||||
|
input -> filter -> delay -> granulator -> reverb
|
||||||
|
|
||||||
|
not input -> granulator -> effects
|
||||||
|
|
||||||
|
Synchronise speeds across granulators
|
||||||
|
|
||||||
|
Quantise speeds
|
||||||
|
|
||||||
|
that's enough!
|
||||||
|
|
||||||
|
|
||||||
|
--
|
||||||
|
|
||||||
## Musical
|
Later:
|
||||||
|
|
||||||
Test things like really rapid playback
|
vibrato and tremolo
|
||||||
|
|
||||||
Pitch-shifting (tuned and untuned)
|
more playback modes
|
||||||
|
|
||||||
LFO Modulate the filter <-- done
|
|
||||||
|
|
||||||
LFO Modulate the granulator settings
|
|
||||||
|
|
||||||
Separate panel for input effects: distort and overdrive
|
|
||||||
|
|
||||||
Sync timining of granule playback to buffer length / speed
|
|
||||||
|
|
||||||
Timing based on beat detection
|
|
||||||
|
|
||||||
|
|
||||||
## Advanced interface
|
|
||||||
|
|
||||||
Save current patch / load patch <-- Done
|
|
||||||
|
|
||||||
Save the current buffer! - if this is incorporated with current settings, it's a way to save how the granulator is playing, and then resume. Which is good for live stuff and also for overdubbing
|
|
||||||
|
|
||||||
SuperCollider seems to have the ability to read and write files, but not scan directories, so the patch-saver will have to maintain its own index file
|
|
||||||
|
|
||||||
patch = file with settings, including a link to the buffer sample
|
|
|
@ -0,0 +1,32 @@
|
||||||
|
|
||||||
|
(
|
||||||
|
// audio buses and other control stuff
|
||||||
|
|
||||||
|
// recordb = input to bufrecorder
|
||||||
|
|
||||||
|
|
||||||
|
~recordb = Bus.audio(s, 1);
|
||||||
|
|
||||||
|
~inmixer = SynthDef(
|
||||||
|
\input_null,
|
||||||
|
{
|
||||||
|
arg in1 = 2, in2 = 3, out = 4;
|
||||||
|
Out.ar(out, In.ar(in1) + In.ar(in2));
|
||||||
|
}
|
||||||
|
).play(s, [\in1, ~usbinput1, \in2, ~usbinput2, \out, ~recordb]);
|
||||||
|
|
||||||
|
~grb = Bus.audio(s, 2);
|
||||||
|
|
||||||
|
// LFO buses and synths
|
||||||
|
|
||||||
|
~lfoab = Bus.control(s, 1);
|
||||||
|
~lfobb = Bus.control(s, 1);
|
||||||
|
~lfocb = Bus.control(s, 1);
|
||||||
|
|
||||||
|
~lfoa = Synth(\lfo, [\out, ~lfoab ]);
|
||||||
|
~lfob = Synth(\lfo, [\out, ~lfobb ]);
|
||||||
|
~lfoc = Synth(\lfo, [\out, ~lfocb ]);
|
||||||
|
|
||||||
|
"LFOs running".postln;
|
||||||
|
|
||||||
|
)
|
|
@ -0,0 +1,74 @@
|
||||||
|
|
||||||
|
|
||||||
|
(
|
||||||
|
// output effects mixing and effects
|
||||||
|
|
||||||
|
~fxb = Bus.audio(s, 2);
|
||||||
|
~filterb = Bus.audio(s, 2);
|
||||||
|
~grainsb = Bus.audio(s, 2);
|
||||||
|
~delayb = Bus.audio(s, 2);
|
||||||
|
~reverbb = Bus.audio(s, 2);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
~grainmixer = SynthDef(
|
||||||
|
\grain_mixer,
|
||||||
|
{
|
||||||
|
arg in=2, gbus=4, out=0, passthrough=0.75, grains=0.75;
|
||||||
|
Out.ar(out, (grains * In.ar(gbus, 2)) + (passthrough * In.ar(~recordb, 1) ! 2));
|
||||||
|
}
|
||||||
|
).play(s, [\in, ~usbinput, \gbus, ~grb, \out, ~fxb ], \addToTail);
|
||||||
|
|
||||||
|
~filtermodb = Bus.control(s, 1);
|
||||||
|
|
||||||
|
~filtermod = SynthDef(
|
||||||
|
\filtermod, {
|
||||||
|
arg out, a = 1.0, b = 0.0, c = 0.0;
|
||||||
|
var siga, sigb, sigc;
|
||||||
|
siga = In.kr(~lfoab) * a;
|
||||||
|
sigb = In.kr(~lfobb) * b;
|
||||||
|
sigc = In.kr(~lfocb) * c;
|
||||||
|
Out.kr(out, Wrap.kr(siga + sigb + sigc, -1, 1));
|
||||||
|
}
|
||||||
|
).play(s, [\out, ~filtermodb, \a, 1, \b, 0, \c, 0 ]);
|
||||||
|
|
||||||
|
|
||||||
|
~filter = SynthDef(
|
||||||
|
\filter, {
|
||||||
|
arg in, out, mod, freq=10000, res=0.3, amp=1.0;
|
||||||
|
var filt, lfo;
|
||||||
|
lfo = LinExp.kr(In.kr(mod, 1), -1, 1, freq * 0.5, freq * 2);
|
||||||
|
filt = RLPF.ar(In.ar(in, 2) * amp, lfo, res);
|
||||||
|
Out.ar(out, filt);
|
||||||
|
}
|
||||||
|
).play(s, [ \in, ~fxb, \out, ~filterb, \mod, ~filtermodb, \amp, 0.5 ], \addToTail);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// delay always passes through 100% of its input + amp % of the delay
|
||||||
|
|
||||||
|
|
||||||
|
~delay = SynthDef(
|
||||||
|
\delay, {
|
||||||
|
arg in, out, maxdelay=1, delaytime=0.2, decaytime=0.1, amp=0.5;
|
||||||
|
var sig = In.ar(in, 2), del;
|
||||||
|
del = CombC.ar(sig, maxdelay, delaytime, decaytime, amp);
|
||||||
|
Out.ar(out, sig + del);
|
||||||
|
}
|
||||||
|
).play(s, [ \in, ~filterb, \out, ~delayb ], \addToTail);
|
||||||
|
|
||||||
|
// try taking out the reverb because I think it causes noises
|
||||||
|
|
||||||
|
~reverb = SynthDef(
|
||||||
|
\reverb, {
|
||||||
|
arg in, out, mix=0.33, room=0.5, damp=0.5, amp=0.25;
|
||||||
|
var input = In.ar(in, 2);
|
||||||
|
Out.ar(out, input + FreeVerb2.ar(input[0], input[1], mix, room, damp, amp));
|
||||||
|
}
|
||||||
|
).play(s, [ \in, ~delayb, \out, 0 ], \addToTail);
|
||||||
|
|
||||||
|
"Effects running".postln;
|
||||||
|
)
|
583
grains.scd
583
grains.scd
|
@ -1,583 +0,0 @@
|
||||||
// Execute this before booting the server
|
|
||||||
|
|
||||||
(
|
|
||||||
Server.default.options.inDevice_("Scarlett 2i2 USB");
|
|
||||||
Server.default.options.outDevice_("Scarlett 2i2 USB");
|
|
||||||
)
|
|
||||||
Server.killAll;
|
|
||||||
~frippbuffer.write("/Users/mike/Music/SuperCollider Recordings/slow.aiff");
|
|
||||||
|
|
||||||
|
|
||||||
(
|
|
||||||
|
|
||||||
~to = TouchOSC("192.168.0.209", 9000);
|
|
||||||
|
|
||||||
~usbinput = 2;
|
|
||||||
|
|
||||||
~usbinput1 = 2;
|
|
||||||
|
|
||||||
~usbinput2 = 3;
|
|
||||||
|
|
||||||
|
|
||||||
~buflen = 4.0;
|
|
||||||
~beatsperbar = 4;
|
|
||||||
|
|
||||||
// trying setting the playback LFOs before the controls
|
|
||||||
|
|
||||||
// granulator playback modes
|
|
||||||
// each of these is a control bus with a synth that drives the pattern
|
|
||||||
// the granulator mode control switches between them
|
|
||||||
|
|
||||||
// more ideas for modules: scramble - do a permutation of ABCDEFGH slots
|
|
||||||
|
|
||||||
// todo - encapsulate these in a class
|
|
||||||
|
|
||||||
|
|
||||||
~grainsinb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~grainsin = SynthDef(
|
|
||||||
\grainsin,
|
|
||||||
{
|
|
||||||
arg out=5, speed=1;
|
|
||||||
Out.kr(out, 0.5 + SinOsc.kr(speed * 0.5, 0, 0.5));
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~grainsinb, \speed, 1]);
|
|
||||||
|
|
||||||
~grainsawb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~grainsaw = SynthDef(
|
|
||||||
\grainsaw,
|
|
||||||
{
|
|
||||||
arg out=5, speed=1;
|
|
||||||
Out.kr(out, 0.5 + LFSaw.kr(speed, 0, 0.5));
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~grainsawb, \speed, 1]);
|
|
||||||
|
|
||||||
~grainreverseb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~grainreverse = SynthDef(
|
|
||||||
\grainreverse,
|
|
||||||
{
|
|
||||||
arg out=5, speed=1;
|
|
||||||
Out.kr(out, 0.5 - LFSaw.kr(speed, 0, 0.5));
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~grainreverseb, \speed, 1]);
|
|
||||||
|
|
||||||
~graintrib = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~graintri = SynthDef(
|
|
||||||
\graintri,
|
|
||||||
{
|
|
||||||
arg out=5, speed=1;
|
|
||||||
Out.kr(out, 0.5 + LFTri.kr(speed, 0, 0.5));
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~graintrib, \speed, 1]);
|
|
||||||
|
|
||||||
|
|
||||||
~grainstepb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~grainstep = SynthDef(
|
|
||||||
\grainstep,
|
|
||||||
{
|
|
||||||
arg out=5, speed=1, steps=8;
|
|
||||||
var stepwise = LFSaw.kr(speed, 0.0, 0.5 * steps, 0.5 * steps).floor;
|
|
||||||
Out.kr(out, stepwise / steps);
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~grainstepb, \speed, 1]);
|
|
||||||
|
|
||||||
|
|
||||||
~grainrandb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~grainrand = SynthDef(
|
|
||||||
\grainrand,
|
|
||||||
{
|
|
||||||
arg out=5, speed=1;
|
|
||||||
Out.kr(out, 0.5 + WhiteNoise.kr(0.5));
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~grainrandb, \speed, 1]);
|
|
||||||
|
|
||||||
|
|
||||||
~modes = [
|
|
||||||
[ ~grainsaw, ~grainsawb, "saw" ],
|
|
||||||
[ ~grainreverse, ~grainreverseb, "reverse", ],
|
|
||||||
[ ~grainsin, ~grainsinb, "sine" ],
|
|
||||||
[ ~grainstep, ~grainstepb, "step" ],
|
|
||||||
[ ~grainrand, ~grainrandb, "random" ]
|
|
||||||
];
|
|
||||||
|
|
||||||
~playbacklfo = ~modes[0][0];
|
|
||||||
~playbacklfob = ~modes[0][1];
|
|
||||||
// audio buses
|
|
||||||
|
|
||||||
// recordb = input to bufrecorder
|
|
||||||
|
|
||||||
|
|
||||||
~recordb = Bus.audio(s, 1);
|
|
||||||
|
|
||||||
// ~infilter = SynthDef(
|
|
||||||
// \input_null,
|
|
||||||
// {
|
|
||||||
// arg in = 2, out = 4;
|
|
||||||
// Out.ar(out, In.ar(in));
|
|
||||||
// }
|
|
||||||
// ).play(s, [\in, ~usbinput, \out, ~recordb]);
|
|
||||||
|
|
||||||
~inmixer = SynthDef(
|
|
||||||
\input_null,
|
|
||||||
{
|
|
||||||
arg in1 = 2, in2 = 3, out = 4;
|
|
||||||
Out.ar(out, In.ar(in1) + In.ar(in2));
|
|
||||||
}
|
|
||||||
).play(s, [\in1, ~usbinput1, \in2, ~usbinput2, \out, ~recordb]);
|
|
||||||
|
|
||||||
|
|
||||||
~granulatorb = Bus.audio(s, 2);
|
|
||||||
|
|
||||||
// LFO buses and synths
|
|
||||||
|
|
||||||
~lfoab = Bus.control(s, 1);
|
|
||||||
~lfobb = Bus.control(s, 1);
|
|
||||||
~lfocb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
|
|
||||||
fork {
|
|
||||||
SynthDef(
|
|
||||||
\lfo,
|
|
||||||
{
|
|
||||||
arg out=5, freq=1, amp=0;
|
|
||||||
Out.kr(out, SinOsc.kr(freq, 0, amp));
|
|
||||||
}
|
|
||||||
).add;
|
|
||||||
|
|
||||||
1.wait;
|
|
||||||
|
|
||||||
~lfoa = Synth(\lfo, [\out, ~lfoab ]);
|
|
||||||
~lfob = Synth(\lfo, [\out, ~lfobb ]);
|
|
||||||
~lfoc = Synth(\lfo, [\out, ~lfocb ]);
|
|
||||||
"LFOs initialised".postln;
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// a kr synth which triggers grains
|
|
||||||
|
|
||||||
~triggerb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~trigger = SynthDef(
|
|
||||||
\trigger,
|
|
||||||
{
|
|
||||||
arg out, freq=1, dust=0;
|
|
||||||
Out.kr(out, (Impulse.kr(freq) * (1 - dust)) + (Dust.kr(freq) * dust));
|
|
||||||
}
|
|
||||||
).play(s, [ \out, ~triggerb, \freq, 120, \dust, 0 ]);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// a kr synth which is used to control the granulator
|
|
||||||
// playback rate.
|
|
||||||
|
|
||||||
~pitchb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~pitch = SynthDef(
|
|
||||||
\pitch,
|
|
||||||
|
|
||||||
{
|
|
||||||
arg out, posb, triggerb, track=1, dir=1, detune=0.0, chorus=0, harmonics=2, pitch=0, quant=1;
|
|
||||||
var tracking, base, chor, det, csig, dsig;
|
|
||||||
csig = Latch.kr(WhiteNoise.kr(), In.kr(triggerb));
|
|
||||||
dsig = Latch.kr(WhiteNoise.kr(), In.kr(triggerb));
|
|
||||||
tracking = Schmidt.kr(Slope.kr(posb), 0, 0) * 2 - 1;
|
|
||||||
base = 2.pow(pitch) * dir * (track * tracking + (1 - track));
|
|
||||||
det = detune * dsig + 1;
|
|
||||||
chor = chorus * harmonics.pow((csig * 2).round) + (1 - chorus);
|
|
||||||
Out.kr(out, base * chor * det);
|
|
||||||
}
|
|
||||||
).play(s, [ \out, ~pitchb, \triggerb, ~triggerb, \posb, ~playbacklfob, \dir, 1, \track, 0]);
|
|
||||||
|
|
||||||
|
|
||||||
// pitch gets quantised to octaves from 3 below to 3 above.
|
|
||||||
// NOTE: the pitch TouchOSC control is -1 to 1, not 0 to 1
|
|
||||||
// min/max gets ignored because I'm overloading the ctrlset/get
|
|
||||||
|
|
||||||
// TODO: fixme,
|
|
||||||
|
|
||||||
// ~to.slider('/grainfx/pitch', -1, 1, 1,
|
|
||||||
// { |self| ~granulator.set("rate", self.v) },
|
|
||||||
|
|
||||||
// { |self, ctrlv | self.v = 2.pow((ctrlv * 3).floor) },
|
|
||||||
// { |self| self.v.log2.floor / 3; }
|
|
||||||
// );
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// buffer recorder
|
|
||||||
|
|
||||||
~frippbuffer = Buffer.alloc(s, s.sampleRate * ~buflen, 1);
|
|
||||||
|
|
||||||
~bufrecorder = SynthDef(
|
|
||||||
\fripp_record,
|
|
||||||
{
|
|
||||||
arg in = 2, fb = 4, buffer = 0, mix = 0.25, record = 0.0, feedback = 0.0;
|
|
||||||
var insig, fbsig;
|
|
||||||
insig = record * In.ar(in, 1);
|
|
||||||
fbsig = feedback * Mix.ar(In.ar(fb, 2));
|
|
||||||
RecordBuf.ar(insig + fbsig, buffer, 0, mix, 1 - mix, loop: 1)
|
|
||||||
}
|
|
||||||
).play(s, [\in, ~recordb, \record, 1.0, \fb, ~granulatorb, \out, 0, \buffer, ~frippbuffer], \addToTail);
|
|
||||||
|
|
||||||
|
|
||||||
// the main granulator synth
|
|
||||||
|
|
||||||
|
|
||||||
~granulator = SynthDef(
|
|
||||||
\grainsynth,
|
|
||||||
{
|
|
||||||
arg out=0, buffer, pitchb, triggerb, posb, modb, size=0.1, amp=1.0, pan=0, track=0.25, jitter=0, blur=0.0;
|
|
||||||
var pitch, blen, trigger, chor, pos, pans, grains, filtfreq;
|
|
||||||
//trigger = Impulse.kr(120);
|
|
||||||
trigger = In.kr(triggerb);
|
|
||||||
pitch = In.kr(pitchb);
|
|
||||||
blen = BufDur.kr(buffer);
|
|
||||||
pos = Wrap.kr(In.kr(posb, 1) + WhiteNoise.kr(blur), 0, 1);
|
|
||||||
pans = pan + WhiteNoise.kr(jitter) + (track * (In.kr(posb, 1) - 1));
|
|
||||||
grains = TGrains.ar(2, trigger, buffer, pitch, pos * blen, size, pans, amp);
|
|
||||||
Out.ar(out, grains);
|
|
||||||
}
|
|
||||||
).play(s, [
|
|
||||||
\out, ~granulatorb,
|
|
||||||
\buffer, ~frippbuffer,
|
|
||||||
\posb, ~playbacklfob,
|
|
||||||
\triggerb, ~triggerb,
|
|
||||||
\pitchb, ~pitchb,
|
|
||||||
\modb, ~lfob,
|
|
||||||
\size, 0.1
|
|
||||||
]);
|
|
||||||
|
|
||||||
// mixing and effects
|
|
||||||
|
|
||||||
~fxb = Bus.audio(s, 2);
|
|
||||||
~filterb = Bus.audio(s, 2);
|
|
||||||
~grainsb = Bus.audio(s, 2);
|
|
||||||
~delayb = Bus.audio(s, 2);
|
|
||||||
~reverbb = Bus.audio(s, 2);
|
|
||||||
|
|
||||||
~grainmixer = SynthDef(
|
|
||||||
\grain_mixer,
|
|
||||||
{
|
|
||||||
arg in=2, gbus=4, out=0, passthrough=0.75, grains=0.75;
|
|
||||||
Out.ar(out, (grains * In.ar(gbus, 2)) + (passthrough * In.ar(~recordb, 1) ! 2));
|
|
||||||
}
|
|
||||||
).play(s, [\in, ~usbinput, \gbus, ~granulatorb, \out, ~fxb ], \addToTail);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
~filtermodb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~filtermod = SynthDef(
|
|
||||||
\filtermod, {
|
|
||||||
arg out, a = 1.0, b = 0.0, c = 0.0;
|
|
||||||
var siga, sigb, sigc;
|
|
||||||
siga = In.kr(~lfoab) * a;
|
|
||||||
sigb = In.kr(~lfobb) * b;
|
|
||||||
sigc = In.kr(~lfocb) * c;
|
|
||||||
Out.kr(out, Wrap.kr(siga + sigb + sigc, -1, 1));
|
|
||||||
}
|
|
||||||
).play(s, [\out, ~filtermodb, \a, 1, \b, 0, \c, 0 ]);
|
|
||||||
|
|
||||||
|
|
||||||
~filter = SynthDef(
|
|
||||||
\filter, {
|
|
||||||
arg in, out, mod, freq=10000, res=0.3, amp=1.0;
|
|
||||||
var filt, lfo;
|
|
||||||
lfo = LinExp.kr(In.kr(mod, 1), -1, 1, freq * 0.5, freq * 2);
|
|
||||||
filt = RLPF.ar(In.ar(in, 2) * amp, lfo, res);
|
|
||||||
Out.ar(out, filt);
|
|
||||||
}
|
|
||||||
).play(s, [ \in, ~fxb, \out, ~filterb, \mod, ~filtermodb, \amp, 0.5 ], \addToTail);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// delay always passes through 100% of its input + amp % of the delay
|
|
||||||
|
|
||||||
|
|
||||||
~delay = SynthDef(
|
|
||||||
\delay, {
|
|
||||||
arg in, out, maxdelay=1, delaytime=0.2, decaytime=0.1, amp=0.5;
|
|
||||||
var sig = In.ar(in, 2), del;
|
|
||||||
del = CombC.ar(sig, maxdelay, delaytime, decaytime, amp);
|
|
||||||
Out.ar(out, sig + del);
|
|
||||||
}
|
|
||||||
).play(s, [ \in, ~filterb, \out, ~delayb ], \addToTail);
|
|
||||||
|
|
||||||
// try taking out the reverb because I think it causes noises
|
|
||||||
|
|
||||||
~reverb = SynthDef(
|
|
||||||
\reverb, {
|
|
||||||
arg in, out, mix=0.33, room=0.5, damp=0.5, amp=0.25;
|
|
||||||
var input = In.ar(in, 2);
|
|
||||||
Out.ar(out, input + FreeVerb2.ar(input[0], input[1], mix, room, damp, amp));
|
|
||||||
}
|
|
||||||
).play(s, [ \in, ~delayb, \out, 0 ], \addToTail);
|
|
||||||
|
|
||||||
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(
|
|
||||||
|
|
||||||
|
|
||||||
OSCdef.freeAll;
|
|
||||||
|
|
||||||
~to.button('/record', 1, { | v | ~bufrecorder.set(\record, v) });
|
|
||||||
|
|
||||||
|
|
||||||
~to.button('/reset', 0, { | v |
|
|
||||||
if( v > 0, {
|
|
||||||
var sp = ~to.v('/grains/speed')[0];
|
|
||||||
~buflen = ~to.v('/grains/buflen');
|
|
||||||
[ "resetting buffer to", ~buflen ].postln;
|
|
||||||
~newbuffer = Buffer.alloc(s, s.sampleRate * ~buflen, 1);
|
|
||||||
~granulator.set(\buffer, ~newbuffer);
|
|
||||||
~bufrecorder.set(\buffer, ~newbuffer);
|
|
||||||
if( ~frippbuffer.isNil.not, { ~frippbuffer.free });
|
|
||||||
~frippbuffer = ~newbuffer;
|
|
||||||
~playbacklfo.set(\speed, sp / ~buflen);
|
|
||||||
});
|
|
||||||
});
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider('/mix', 0.25, TouchOSCScale(0, 1), { |v| ~bufrecorder.set(\mix, v) } );
|
|
||||||
~to.slider('/gain', 0.5, TouchOSCScale(0, 1), { |v| ~granulator.set(\amp, v) } );
|
|
||||||
~to.slider('/passthrough', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) } );
|
|
||||||
|
|
||||||
~to.slider('/feedback', 0, TouchOSCScale(0, 0.25), { |v|
|
|
||||||
~bufrecorder.set(\feedback, v) } );
|
|
||||||
|
|
||||||
~to.button('/grains/bpm', "~", {});
|
|
||||||
|
|
||||||
~tapper = TapBeats();
|
|
||||||
|
|
||||||
~to.button('/grains/tap', 0, { | v, t |
|
|
||||||
if( v > 0, {
|
|
||||||
~tapper.tap(t);
|
|
||||||
if( ~tapper.bpm.isNil.not, {
|
|
||||||
~to.v_('/grains/bpm', ~tapper.bpm.round(1));
|
|
||||||
})
|
|
||||||
})
|
|
||||||
});
|
|
||||||
|
|
||||||
|
|
||||||
~to.button('/grains/bpmsend', 0, { | v |
|
|
||||||
if( ~tapper.bpm.isNil.not, {
|
|
||||||
var bl = ~beatsperbar * ~tapper.bpm;
|
|
||||||
~to.v_('/grains/buflen', bl);
|
|
||||||
~to.v_('/reset', 1);
|
|
||||||
});
|
|
||||||
});
|
|
||||||
|
|
||||||
// note: ~buflen is the variable for buffer length, which only gets set to
|
|
||||||
// ~to.v('/grains/buflen') when the buffer is reset with the clear button
|
|
||||||
|
|
||||||
~to.slider('/grains/buflen', ~buflen, TouchOSCScale(0.1, 10.0), {});
|
|
||||||
|
|
||||||
|
|
||||||
// this is a write-only control to display where the buffer playback is at
|
|
||||||
|
|
||||||
~to.slider('/grains/buffer', 0, TouchOSCScale(0, 1), {});
|
|
||||||
|
|
||||||
~to.xy('/grains/speed', [ 1, 120 ], TouchOSCScale(0, 2), TouchOSCScale(0, 640), { | v |
|
|
||||||
~playbacklfo.set(\speed, v[0] / ~buflen);
|
|
||||||
~trigger.set(\freq, v[1]);
|
|
||||||
});
|
|
||||||
|
|
||||||
~to.button('/grains/mode', 0, { |v|
|
|
||||||
var mode = ~modes[v];
|
|
||||||
if( mode.isNil.not, {
|
|
||||||
~granulator.set(\posb, mode[1]);
|
|
||||||
~playbacklfo = mode[0];
|
|
||||||
~playbacklfob = mode[1];
|
|
||||||
~playbacklfo.set(\speed, ~to.v('/grains/speed')[0] / ~buflen);
|
|
||||||
}, {
|
|
||||||
[ "Bad mode index", v ].postln;
|
|
||||||
});
|
|
||||||
});
|
|
||||||
|
|
||||||
~to.button('/grains/dust', 0, { |v| ~trigger.set(\dust, v) });
|
|
||||||
~to.slider('/grains/blur', 0, TouchOSCScale(0, 1), { |v| ~granulator.set(\blur, v) });
|
|
||||||
|
|
||||||
|
|
||||||
// todo vvv quantise speed should be swappable
|
|
||||||
|
|
||||||
// var trate, qspeed;
|
|
||||||
// qspeed = 2.pow(v[0].floor);
|
|
||||||
// ~playbacklfo.set(\speed, qspeed / ~buflen);
|
|
||||||
// [ "speed", v[0], qspeed, qspeed / ~buflen ].postln;
|
|
||||||
// trate = 2.pow(v[1].floor) / ~buflen;
|
|
||||||
// ~granulator.set(\trate, trate);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider('/grains/size', 0.1, TouchOSCScale(0, 0.5),{
|
|
||||||
|v| ~granulator.set(\size, v)
|
|
||||||
});
|
|
||||||
|
|
||||||
// Page 2: grainfx
|
|
||||||
|
|
||||||
~to.button('/grainfx/back', 0, { |v| ~pitch.set(\dir, if( v > 0, { -1 }, { 1}))});
|
|
||||||
|
|
||||||
~to.button('/grainfx/slope', 1, { |v| ~pitch.set(\track, v) });
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider('/grainfx/pan', 0, TouchOSCScale(-1, 1), { |v| ~granulator.set(\pan, v) });
|
|
||||||
~to.slider('/grainfx/track', 0.5, TouchOSCScale(-1, 1), { |v| ~granulator.set(\track, v) });
|
|
||||||
~to.slider('/grainfx/jitter', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.set(\jitter, v) });
|
|
||||||
|
|
||||||
|
|
||||||
~to.button('/grainfx/chorus', 0, { |v| ~pitch.set(\chorus, v) });
|
|
||||||
|
|
||||||
~to.slider('/grainfx/detune', 0, TouchOSCScale(0, 0.059), { |v| ~pitch.set(\detune, v) });
|
|
||||||
|
|
||||||
~to.slider('/grainfx/pitch', 0, TouchOSCScale(-2, 2), { |v| ~pitch.set(\pitch, v.round) });
|
|
||||||
|
|
||||||
~to.button('/grainfx/quant', 1, { |v|
|
|
||||||
~pitch.set(\quant, v);
|
|
||||||
~to.v_('/grainfx/harmonics', ~to.v('/grainfx/harmonics'));
|
|
||||||
});
|
|
||||||
|
|
||||||
~to.slider('/grainfx/harmonics', 2, TouchOSCScale(0.1, 4), { |v|
|
|
||||||
if(~to.v('/grainfx/quant') > 0, {
|
|
||||||
~pitch.set(\harmonics, v.round);
|
|
||||||
},
|
|
||||||
{
|
|
||||||
~pitch.set(\harmonics, v);
|
|
||||||
});
|
|
||||||
});
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider(
|
|
||||||
'/fx/filterfreq',
|
|
||||||
10000, TouchOSCScaleExp(100, 10000), { |v| ~filter.set(\freq, v) }
|
|
||||||
);
|
|
||||||
|
|
||||||
~to.slider('/fx/grainmix', 1.0, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\grains, v) } );
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider('/fx/filtermix', 0.8, TouchOSCScale(0, 1), { |v| ~filter.set(\amp, v) } );
|
|
||||||
|
|
||||||
~to.button('/fx/filtermoda', 1, { |v| ~filtermod.set(\a, v) });
|
|
||||||
~to.button('/fx/filtermodb', 0, { |v| ~filtermod.set(\b, v) });
|
|
||||||
~to.button('/fx/filtermodc', 0, { |v| ~filtermod.set(\c, v) });
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider('/fx/delay', 0.2,TouchOSCScale(0, 1), { |v| ~delay.set(\delaytime, v) } );
|
|
||||||
~to.slider('/fx/decay', 1, TouchOSCScale(0, 5), { |v| ~delay.set(\decaytime, v) } );
|
|
||||||
|
|
||||||
~to.slider('/fx/delaymix', 0.2, TouchOSCScale(0, 1), { |v| ~delay.set(\amp, v) } );
|
|
||||||
|
|
||||||
|
|
||||||
~to.slider('/fx/reverbwet', 0.33,TouchOSCScale(0, 1), { |v| ~reverb.set(\mix, v) } );
|
|
||||||
~to.slider('/fx/reverbroom', 0.5,TouchOSCScale(0, 1), { |v| ~reverb.set(\room, v) } );
|
|
||||||
~to.slider('/fx/reverbdamp', 0.5,TouchOSCScale(0, 1), { |v| ~reverb.set(\damp, v) } );
|
|
||||||
|
|
||||||
~to.slider('/fx/reverbmix', 0.2, TouchOSCScale(0, 1), { |v| ~reverb.set(\amp, v) } );
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// note - the three LFOs have different rate ranges
|
|
||||||
|
|
||||||
~to.slider('/lfos/afreq', 0.5,TouchOSCScale(0.001, 2), { |v| ~lfoa.set(\freq, v) } );
|
|
||||||
~to.slider('/lfos/aamp', 0, TouchOSCScale(0, 1), { |v| ~lfoa.set(\amp, v) });
|
|
||||||
|
|
||||||
~to.slider('/lfos/bfreq', 0.5,TouchOSCScale(0.01, 20), { |v| ~lfob.set(\freq, v) } );
|
|
||||||
~to.slider('/lfos/bamp', 0, TouchOSCScale(0, 1), { |v| ~lfob.set(\amp, v) });
|
|
||||||
|
|
||||||
~to.slider('/lfos/cfreq', 0.5,TouchOSCScale(0.1, 200), { |v| ~lfoc.set(\freq, v) } );
|
|
||||||
~to.slider('/lfos/camp', 0, TouchOSCScale(0, 1), { |v| ~lfoc.set(\amp, v) });
|
|
||||||
|
|
||||||
|
|
||||||
)
|
|
||||||
|
|
||||||
(
|
|
||||||
|
|
||||||
~posdisplay = Task.new({
|
|
||||||
{
|
|
||||||
~playbacklfob.get({ | v |
|
|
||||||
~to.v_('/grains/buffer', v)
|
|
||||||
});
|
|
||||||
0.02.wait;
|
|
||||||
}.loop;
|
|
||||||
});
|
|
||||||
|
|
||||||
|
|
||||||
~posdisplay.start;
|
|
||||||
)
|
|
||||||
|
|
||||||
~posdisplay.stop;
|
|
||||||
|
|
||||||
~pitch.set(\harmonics, 1.5);
|
|
||||||
|
|
||||||
~pitchb.scope
|
|
||||||
|
|
||||||
~trigger.set(\dust,0);
|
|
||||||
|
|
||||||
(
|
|
||||||
~testpitchb = Bus.control(s, 1);
|
|
||||||
|
|
||||||
~test = SynthDef(
|
|
||||||
\testpitch,
|
|
||||||
{
|
|
||||||
arg out, triggerb;
|
|
||||||
var csig, dsig, chor;
|
|
||||||
csig = Latch.kr(WhiteNoise.kr(), In.kr(triggerb));
|
|
||||||
//dsig = Latch.kr(WhiteNoise.kr(), In.kr(triggerb));
|
|
||||||
chor = 2.pow((csig * 2).round);
|
|
||||||
Out.kr(out, chor);
|
|
||||||
}
|
|
||||||
).play(s, [ \out, ~testpitchb, \triggerb, ~triggerb ]);
|
|
||||||
)
|
|
||||||
|
|
||||||
~test.free
|
|
||||||
|
|
||||||
2.pow(3)
|
|
||||||
-2.49.round
|
|
||||||
|
|
||||||
0.4.asFraction(3)
|
|
||||||
|
|
||||||
(
|
|
||||||
~trig2 = SynthDef(
|
|
||||||
\trig2,
|
|
||||||
{
|
|
||||||
arg out, freq=1, dust=0;
|
|
||||||
Out.kr(out, Impulse.kr(freq) * (1 - dust)) + (Dust.kr(freq) * dust);
|
|
||||||
}
|
|
||||||
).play(s, [ \out, ~triggerb, \freq, 120, \dust, 0 ]);
|
|
||||||
|
|
||||||
|
|
||||||
~frippbuffer.write("/Users/mike/Music/SuperCollider Recordings/slow.aiff");
|
|
||||||
|
|
||||||
(
|
|
||||||
~monitor = SynthDef(
|
|
||||||
\monitor_synth,
|
|
||||||
{
|
|
||||||
arg in=2, out=0;
|
|
||||||
Out.ar(out, In.ar(in, 2))
|
|
||||||
}
|
|
||||||
).play(s, [\in, ~fxb, \out, 0 ], \addToTail);
|
|
||||||
|
|
||||||
)
|
|
||||||
|
|
||||||
~monitor.set(\in, ~reverbb)
|
|
||||||
|
|
||||||
~monitor.free
|
|
||||||
|
|
||||||
~pitchb.scope()
|
|
||||||
|
|
||||||
// s.sync(); // this needs to be done in a routine because it calls yield
|
|
||||||
// sidebar -
|
|
||||||
|
|
|
@ -0,0 +1,40 @@
|
||||||
|
|
||||||
|
(
|
||||||
|
~modes = [
|
||||||
|
[ "saw", \pos_saw ],
|
||||||
|
[ "reverse", \pos_reverse ],
|
||||||
|
[ "sine", \pos_sine ],
|
||||||
|
[ "step", \pos_step ],
|
||||||
|
[ "random", \pos_random ]
|
||||||
|
];
|
||||||
|
|
||||||
|
~granulators = Array.new(4);
|
||||||
|
~posb = Array.new(4);
|
||||||
|
~possynths = Array.new(4);
|
||||||
|
|
||||||
|
(0..3).do({
|
||||||
|
var pb = Bus.control(s, 1), ps;
|
||||||
|
~posb.add(pb);
|
||||||
|
ps = Synth(\pos_saw, [ \out, pb, \speed, 1 / ~buflen ]);
|
||||||
|
~possynths.add(ps);
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
(0..3).do({ |i|
|
||||||
|
var pb = ~posb.at(i);
|
||||||
|
~granulators.add(Granulator.new(~buflen, ~recordb, ~fxb, pb, ~triggerb, ~pitchb));
|
||||||
|
});
|
||||||
|
|
||||||
|
~setmode = {
|
||||||
|
arg track, mode;
|
||||||
|
var synth = ~modes[mode][1];
|
||||||
|
~possynths[track].get(\speed, { | speed |
|
||||||
|
~possynths[track].free;
|
||||||
|
~possynths[track] = Synth(synth, [\out, ~posb[track], \speed, speed]);
|
||||||
|
});
|
||||||
|
~granulators[track].mode_(mode);
|
||||||
|
};
|
||||||
|
|
||||||
|
"Granulator running".postln;
|
||||||
|
|
||||||
|
)
|
|
@ -0,0 +1,53 @@
|
||||||
|
(
|
||||||
|
|
||||||
|
~fuzzbox = SynthDef(
|
||||||
|
\fuzzbox,
|
||||||
|
{
|
||||||
|
arg in=2, out=4, distort=0.1, decay=0.999;
|
||||||
|
var raw, cross, pf;
|
||||||
|
raw = In.ar(in, 1).softclip;
|
||||||
|
cross = CrossoverDistortion.ar(raw, 0.5, 0.5);
|
||||||
|
pf = PeakFollower.ar(raw, decay);
|
||||||
|
Out.ar(out, ((1 - distort) * raw) + (distort * pf * cross));
|
||||||
|
}
|
||||||
|
).play(s, [\in, ~usbinput, \out, ~recordb, \distort, 0 ]);
|
||||||
|
|
||||||
|
// ~decimator = SynthDef(
|
||||||
|
// \decimator,
|
||||||
|
// {
|
||||||
|
// arg in=2, out=4, modb, rate=10000, smooth=0.5;
|
||||||
|
// var raw, mod, decimated;
|
||||||
|
// raw = In.ar(in, 1);
|
||||||
|
// mod = In.kr (modb, 1);
|
||||||
|
// decimated = SmoothDecimator.ar(raw, rate + (0.2 * rate * mod), smooth);
|
||||||
|
// Out.ar(out, decimated);
|
||||||
|
// }
|
||||||
|
// ).play(s, [\in, ~usbinput, \out, ~recordb, \modb, ~lfob, \rate, 10000 ]);
|
||||||
|
//
|
||||||
|
|
||||||
|
// ~localmax = SynthDef(
|
||||||
|
// \localmax,
|
||||||
|
// {
|
||||||
|
// arg in=2, out=4, threshold=25;
|
||||||
|
// var chain;
|
||||||
|
// chain = FFT(LocalBuf(2048), In.ar(in, 1).distort);
|
||||||
|
// chain = PV_LocalMax(chain, threshold);
|
||||||
|
// Out.ar(out, IFFT.ar(chain));
|
||||||
|
// }
|
||||||
|
// ).play(s, [\in, ~usbinput, \out, ~recordb, \threshold, 25 ]);
|
||||||
|
//
|
||||||
|
|
||||||
|
// ~scramble = SynthDef(
|
||||||
|
// \scramble,
|
||||||
|
// {
|
||||||
|
// arg in=2, out=4, shift=1;
|
||||||
|
// var chain;
|
||||||
|
// chain = FFT(LocalBuf(2048), In.ar(in, 1).distort);
|
||||||
|
// chain = PV_BinScramble(chain, 0.5, 0.2, Impulse.kr(shift));
|
||||||
|
// Out.ar(out, IFFT.ar(chain));
|
||||||
|
// }
|
||||||
|
// ).play(s, [\in, ~usbinput, \out, ~recordb, \shift, 1 ]);
|
||||||
|
//
|
||||||
|
|
||||||
|
|
||||||
|
)
|
|
@ -0,0 +1,143 @@
|
||||||
|
|
||||||
|
// FIXME: the touchosc stuff is crashing on intialisation
|
||||||
|
|
||||||
|
(
|
||||||
|
~to = TouchOSC("192.168.0.209", 9000);
|
||||||
|
|
||||||
|
|
||||||
|
~tracknum = 0;
|
||||||
|
~granulator = ~granulators[0];
|
||||||
|
|
||||||
|
OSCdef.freeAll;
|
||||||
|
|
||||||
|
|
||||||
|
~to.button('/reset', 0, { | v |
|
||||||
|
if( v > 0, {
|
||||||
|
var sp = ~to.v('/grains/speed')[0];
|
||||||
|
~buflen = ~to.v('/grains/buflen');
|
||||||
|
(0..3).do({|i|
|
||||||
|
var speed = ~to.v('/grains/speed' ++ i);
|
||||||
|
~granulators[i].reset(~buflen);
|
||||||
|
~possynths[i].set(\speed, speed / ~buflen);
|
||||||
|
});
|
||||||
|
});
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
// note: ~buflen is the variable for buffer length, which only gets set to
|
||||||
|
// ~to.v('/grains/buflen') when the buffer is reset with the clear button
|
||||||
|
|
||||||
|
~to.slider('/grains/buflen', ~buflen, TouchOSCScale(0.1, 10.0), {});
|
||||||
|
|
||||||
|
~to.button('/grains/record0', 0, { | v | ~granulators[0].record_(v) });
|
||||||
|
~to.button('/grains/record1', 0, { | v | ~granulators[1].record_(v) });
|
||||||
|
~to.button('/grains/record2', 0, { | v | ~granulators[2].record_(v) });
|
||||||
|
~to.button('/grains/record3', 0, { | v | ~granulators[3].record_(v) });
|
||||||
|
|
||||||
|
~to.button('/grains/mode0', 0, { |v| ~granulators[0].mode_(v); ~setmode.value(0, v) });
|
||||||
|
~to.button('/grains/mode1', 0, { |v| ~granulators[1].mode_(v); ~setmode.value(1, v) });
|
||||||
|
~to.button('/grains/mode2', 0, { |v| ~granulators[2].mode_(v); ~setmode.value(2, v) });
|
||||||
|
~to.button('/grains/mode3', 0, { |v| ~granulators[3].mode_(v); ~setmode.value(3, v) });
|
||||||
|
|
||||||
|
~to.slider('/grains/speed0', 1, TouchOSCScale(0, 2), { |v| ~possynths[0].set(\speed, v / ~buflen); });
|
||||||
|
~to.slider('/grains/speed1', 1, TouchOSCScale(0, 2), { |v| ~possynths[1].set(\speed, v / ~buflen); });
|
||||||
|
~to.slider('/grains/speed2', 1, TouchOSCScale(0, 2), { |v| ~possynths[2].set(\speed, v / ~buflen); });
|
||||||
|
~to.slider('/grains/speed3', 1, TouchOSCScale(0, 2), { |v| ~possynths[3].set(\speed, v / ~buflen); });
|
||||||
|
|
||||||
|
~to.slider('/grains/passthrough', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) });
|
||||||
|
|
||||||
|
~to.slider('/grains/mix0', 0.5, TouchOSCScale(0, 1), { | v | ~granulators[0].gain_(v) });
|
||||||
|
~to.slider('/grains/mix1', 0.5, TouchOSCScale(0, 1),{ | v | ~granulators[1].gain_(v) });
|
||||||
|
~to.slider('/grains/mix2', 0.5, TouchOSCScale(0, 1),{ | v | ~granulators[2].gain_(v) });
|
||||||
|
~to.slider('/grains/mix3', 0.5, TouchOSCScale(0, 1),{ | v | ~granulators[3].gain_(v) });
|
||||||
|
|
||||||
|
~to.button('/grains/speedquant', 0, { |v| });
|
||||||
|
|
||||||
|
|
||||||
|
// Page 2: track
|
||||||
|
|
||||||
|
|
||||||
|
~to.xy('/track/triggersize', [ 120, 0.1 ], TouchOSCScale(0, 640), TouchOSCScale(0, 0.5), { |v|
|
||||||
|
~granulator.trigger_(v[0]);
|
||||||
|
~granulator.size_(v[1]);
|
||||||
|
});
|
||||||
|
|
||||||
|
~to.slider('/track/blur', 0, TouchOSCScale(0, 0.25), { |v| ~granulator.blur_(v) });
|
||||||
|
|
||||||
|
~to.button('/track/dust', 0, { |v| ~granulator.dust_(v) });
|
||||||
|
~to.button('/track/back', 0, { |v| ~granulator.back_(v)});
|
||||||
|
~to.button('/track/slope', 1, { |v| ~granulator.slope_(v) });
|
||||||
|
|
||||||
|
~to.button('/track/chorus', 0, { |v| ~granulator.chorus_(v) });
|
||||||
|
~to.slider('/track/detune', 0, TouchOSCScale(0, 0.059), { |v| ~granulator.detune_(v) });
|
||||||
|
~to.slider('/track/pitch', 0, TouchOSCScale(-2, 2), { |v| ~granulator.pitch_(v.round) });
|
||||||
|
|
||||||
|
~to.slider('/track/mix', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.mix_(v); });
|
||||||
|
~to.slider('/track/pan', 0, TouchOSCScale(-1, 1), { |v| ~granulator.pan_(v) });
|
||||||
|
~to.slider('/track/track', 0.5, TouchOSCScale(-1, 1), { |v| ~granulator.track_(v) });
|
||||||
|
~to.slider('/track/jitter', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.jitter_(v) });
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
~to.button('/trackselect', 0, { |v|
|
||||||
|
~tracknum = v.asInteger;
|
||||||
|
~granulator = ~granulators[~tracknum];
|
||||||
|
|
||||||
|
~to.v_('/track/triggersize', [~granulator.trigger, ~granulator.size]);
|
||||||
|
~to.v_('/track/blur', ~granulator.blur);
|
||||||
|
~to.v_('/track/mix', ~granulator.mix);
|
||||||
|
~to.v_('/track/pan', ~granulator.pan);
|
||||||
|
~to.v_('/track/track', ~granulator.track);
|
||||||
|
~to.v_('/track/jitter', ~granulator.jitter);
|
||||||
|
~to.v_('/track/dust', ~granulator.dust);
|
||||||
|
~to.v_('/track/slope', ~granulator.slope);
|
||||||
|
~to.v_('/track/back', ~granulator.back);
|
||||||
|
~to.v_('/track/chorus', ~granulator.chorus);
|
||||||
|
~to.v_('/track/detune', ~granulator.detune);
|
||||||
|
~to.v_('/track/pitch', ~granulator.pitch);
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
~to.slider(
|
||||||
|
'/fx/filterfreq',
|
||||||
|
10000, TouchOSCScaleExp(100, 10000), { |v| ~filter.set(\freq, v) }
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
~to.slider('/fx/grainmix', 1.0, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\grains, v) } );
|
||||||
|
~to.slider('/fx/filtermix', 0.8, TouchOSCScale(0, 1), { |v| ~filter.set(\amp, v) } );
|
||||||
|
~to.button('/fx/filtermoda', 1, { |v| ~filtermod.set(\a, v) });
|
||||||
|
~to.button('/fx/filtermodb', 0, { |v| ~filtermod.set(\b, v) });
|
||||||
|
~to.button('/fx/filtermodc', 0, { |v| ~filtermod.set(\c, v) });
|
||||||
|
|
||||||
|
|
||||||
|
~to.slider('/fx/delay', 0.2,TouchOSCScale(0, 1), { |v| ~delay.set(\delaytime, v) } );
|
||||||
|
~to.slider('/fx/decay', 1, TouchOSCScale(0, 5), { |v| ~delay.set(\decaytime, v) } );
|
||||||
|
|
||||||
|
~to.slider('/fx/delaymix', 0.2, TouchOSCScale(0, 1), { |v| ~delay.set(\amp, v) } );
|
||||||
|
|
||||||
|
|
||||||
|
~to.slider('/fx/reverbwet', 0.33,TouchOSCScale(0, 1), { |v| ~reverb.set(\mix, v) } );
|
||||||
|
~to.slider('/fx/reverbroom', 0.5,TouchOSCScale(0, 1), { |v| ~reverb.set(\room, v) } );
|
||||||
|
~to.slider('/fx/reverbdamp', 0.5,TouchOSCScale(0, 1), { |v| ~reverb.set(\damp, v) } );
|
||||||
|
|
||||||
|
~to.slider('/fx/reverbmix', 0.2, TouchOSCScale(0, 1), { |v| ~reverb.set(\amp, v) } );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// note - the three LFOs have different rate ranges
|
||||||
|
|
||||||
|
~to.slider('/lfos/afreq', 0.5,TouchOSCScale(0.001, 2), { |v| ~lfoa.set(\freq, v) } );
|
||||||
|
~to.slider('/lfos/aamp', 0, TouchOSCScale(0, 1), { |v| ~lfoa.set(\amp, v) });
|
||||||
|
|
||||||
|
~to.slider('/lfos/bfreq', 0.5,TouchOSCScale(0.01, 20), { |v| ~lfob.set(\freq, v) } );
|
||||||
|
~to.slider('/lfos/bamp', 0, TouchOSCScale(0, 1), { |v| ~lfob.set(\amp, v) });
|
||||||
|
|
||||||
|
~to.slider('/lfos/cfreq', 0.5,TouchOSCScale(0.1, 200), { |v| ~lfoc.set(\freq, v) } );
|
||||||
|
~to.slider('/lfos/camp', 0, TouchOSCScale(0, 1), { |v| ~lfoc.set(\amp, v) });
|
||||||
|
|
||||||
|
|
||||||
|
)
|
||||||
|
|
|
@ -0,0 +1,27 @@
|
||||||
|
// Execute this before booting the server
|
||||||
|
|
||||||
|
(
|
||||||
|
Server.default.options.inDevice_("Scarlett 2i2 USB");
|
||||||
|
Server.default.options.hardwareBufferSize_(1024);
|
||||||
|
//Server.default.options.outDevice_("Scarlett 2i2 USB");
|
||||||
|
)
|
||||||
|
Server.killAll;
|
||||||
|
|
||||||
|
(
|
||||||
|
Routine.run({
|
||||||
|
|
||||||
|
("./synths.scd").loadRelative;
|
||||||
|
Granulator.init(s);
|
||||||
|
|
||||||
|
s.sync;
|
||||||
|
|
||||||
|
"Synths loaded".postln;
|
||||||
|
|
||||||
|
("./control.scd").loadRelative;
|
||||||
|
("./effects.scd").loadRelative;
|
||||||
|
("./granulator.scd").loadRelative;
|
||||||
|
s.sync;
|
||||||
|
("./interface.scd").loadRelative;
|
||||||
|
});
|
||||||
|
)
|
||||||
|
|
|
@ -0,0 +1,36 @@
|
||||||
|
~frippbuffers[~currentfripp].write("/Users/mike/Music/SuperCollider Recordings/test.aiff");
|
||||||
|
|
||||||
|
~frippbuffer.write("/Users/mike/Music/SuperCollider Recordings/slow.aiff");
|
||||||
|
~frippbuffer.isNil;
|
||||||
|
|
||||||
|
|
||||||
|
(
|
||||||
|
~monitor = SynthDef(
|
||||||
|
\monitor_synth,
|
||||||
|
{
|
||||||
|
arg in=2, out=0;
|
||||||
|
Out.ar(out, In.ar(in, 2))
|
||||||
|
}
|
||||||
|
).play(s, [\in, ~fxb, \out, 0 ], \addToTail);
|
||||||
|
|
||||||
|
)
|
||||||
|
|
||||||
|
~monitor.set(\in, ~reverbb)
|
||||||
|
|
||||||
|
~monitor.free
|
||||||
|
|
||||||
|
~pitchb.scope()
|
||||||
|
|
||||||
|
~frippbuffers.plot;
|
||||||
|
|
||||||
|
~bufrecorder.set(\buffer, ~frippbuffers[1]);
|
||||||
|
|
||||||
|
|
||||||
|
~granulators[0].get(\buffer, {|v| v.postln});
|
||||||
|
|
||||||
|
(
|
||||||
|
~frippbuffers.do({
|
||||||
|
|b, i|
|
||||||
|
b.write("/Users/mike/Music/SuperCollider Recordings/buffer" ++ i.asString ++ ".aiff");
|
||||||
|
});
|
||||||
|
)
|
|
@ -0,0 +1,41 @@
|
||||||
|
(
|
||||||
|
|
||||||
|
~usbinput = 2;
|
||||||
|
~usbinput1 = 2;
|
||||||
|
~usbinput2 = 3;
|
||||||
|
|
||||||
|
~buflen = 4.0;
|
||||||
|
~beatsperbar = 4;
|
||||||
|
|
||||||
|
SynthDef(\pos_sine, {
|
||||||
|
arg out, speed=1;
|
||||||
|
Out.kr(out, 0.5 + SinOsc.kr(speed * 0.5, 0, 0.5));
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\pos_saw, {
|
||||||
|
arg out, speed=1;
|
||||||
|
Out.kr(out, 0.5 + LFSaw.kr(speed, 0, 0.5));
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\pos_reverse, {
|
||||||
|
arg out, speed=1;
|
||||||
|
Out.kr(out, 0.5 - LFSaw.kr(speed, 0, 0.5));
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\pos_step, {
|
||||||
|
arg out, speed=1, steps=8;
|
||||||
|
var stepwise = LFSaw.kr(speed, 0.0, 0.5 * steps, 0.5 * steps).floor;
|
||||||
|
Out.kr(out, stepwise / steps);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\pos_random, {
|
||||||
|
arg out=5, speed=1;
|
||||||
|
Out.kr(out, 0.5 + WhiteNoise.kr(0.5));
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef( \lfo, {
|
||||||
|
arg out, freq=1, amp=0;
|
||||||
|
Out.kr(out, SinOsc.kr(freq, 0, amp));
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
)
|
Loading…
Reference in New Issue