bombinans
/
Granulator
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Hacked looping as a separate method if you want it

main
bombinans 2023-10-26 10:55:22 +11:00
parent 5ba3416b1f
commit 1ce69c48b6
1 changed files with 38 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
classes/Granulator.sc
View File

@ -1,32 +1,22 @@
Granulator { Granulator {
var <buflen, <inb, <outb, <>posb, <triggerb, <pitchb, <rectriggerb, <modb, <buffer, <recorder, <grains, <triggersynth, <pitchsynth, <loopsynth, server, mode, record, gain, mix, speed, trigger, size, blur, dust, slope, back, chorus, harmonics, depth, crate, detune, pitch, pan, track, jitter, loop, grainamp; var <buflen, <inb, <outb, <>posb, <triggerb, <pitchb, <rectriggerb, <modb, <buffer, <recorder, <grains, <triggersynth, <pitchsynth, <loopsynth, server, record, gain, mix, speed, trigger, size, blur, dust, slope, back, chorus, harmonics, depth, crate, detune, pitch, pan, track, jitter, amp, loopamp;
*init { *init {
SynthDef( SynthDef(
\grain_record, \grain_record,
{ {
arg in = 2, triggerb = 0, buffer = 0, mix = 0.5, record = 0.0; arg in = 2, rectriggerb = 0, buffer = 0, mix = 0.5, record = 0.0;
var insig = record * In.ar(in, 1), trigsig = In.kr(triggerb, 1); var insig = record * In.ar(in, 1), rectrigsig = In.kr(rectriggerb, 1);
RecordBuf.ar(insig, buffer, 0, mix, 1 - mix, loop: 1, trigger: trigsig) RecordBuf.ar(insig, buffer, 0, mix, 1 - mix, loop: 1, trigger: rectrigsig)
}
).add();
SynthDef(
\grain_looper,
{
arg out = 2, triggerb = 0, buffer = 0, speed = 1, amp = 0, pan = 0;
var trigsig = In.kr(triggerb, 1), playsig;
playsig = PlayBuf.ar(1, buffer, speed, trigsig, 0.0, 1.0);
Out.ar(out, Pan2.ar(playsig, pan, amp));
} }
).add(); ).add();
SynthDef( SynthDef(
\grain_play, \grain_play,
{ {
arg out=0, buffer, blen, pitchb, triggerb, posb, rectriggerb, modb, size=0.1, amp=0.5, pan=0, track=0.25, jitter=0, blur=0.0; arg out=0, buffer, blen, pitchb, triggerb, posb, modb, size=0.1, amp=0.5, pan=0, track=0.25, jitter=0, blur=0.0;
var pitch, trigger, pos, pans, grains; var pitch, trigger, pos, pans, grains;
trigger = In.kr(triggerb); trigger = In.kr(triggerb);
pitch = In.kr(pitchb); pitch = In.kr(pitchb);
@ -59,6 +49,15 @@ Granulator {
Out.kr(out, (Impulse.kr(freq) * (1 - dust)) + (Dust.kr(freq) * dust)); Out.kr(out, (Impulse.kr(freq) * (1 - dust)) + (Dust.kr(freq) * dust));
} }
).add(); ).add();
SynthDef(
\grain_looper, {
arg out = 2, rectriggerb = 0, buffer = 0, speed = 1, amp = 0, pan = 0;
var trigsig = In.kr(rectriggerb, 1), playsig;
playsig = PlayBuf.ar(1, buffer, speed, trigsig, 0.0, 1.0);
Out.ar(out, Pan2.ar(playsig, pan, amp));
}
).add();
} }
*new { | buflen, inb, outb, posb, rectriggerb | *new { | buflen, inb, outb, posb, rectriggerb |
@ -75,13 +74,12 @@ Granulator {
posb = aposb; posb = aposb;
rectriggerb = arectriggerb; rectriggerb = arectriggerb;
server = Server.default; server = Server.default;
mode = 0;
blur = 0; blur = 0;
size = 0.1; size = 0.1;
trigger = 120; trigger = 120;
dust = 0; dust = 0;
back = 0; back = 0;
slope = 0; slope = 1;
chorus = 0; chorus = 0;
harmonics = 2; harmonics = 2;
depth = 2; depth = 2;
@ -92,8 +90,9 @@ Granulator {
pan = 0; pan = 0;
track = 0.5; track = 0.5;
jitter = 0.25; jitter = 0.25;
loop = 0.0; amp = 0.75;
grainamp = 0.75; loopamp = 0;
speed = 1;
triggerb = Bus.control(server, 1); triggerb = Bus.control(server, 1);
pitchb = Bus.control(server, 1); pitchb = Bus.control(server, 1);
buffer = Buffer.alloc(server, server.sampleRate * buflen, 1); buffer = Buffer.alloc(server, server.sampleRate * buflen, 1);
@ -101,7 +100,7 @@ Granulator {
\in, inb, \in, inb,
\buffer, buffer, \buffer, buffer,
\record, 0, \record, 0,
\triggerb, rectriggerb \rectriggerb, rectriggerb
], server, \addToTail); ], server, \addToTail);
triggersynth = Synth.new(\grain_trigger, [ \out, triggerb ]); triggersynth = Synth.new(\grain_trigger, [ \out, triggerb ]);
pitchsynth = Synth.new(\grain_pitch, [ \out, pitchb, \triggerb, triggerb, \posb, posb ]); pitchsynth = Synth.new(\grain_pitch, [ \out, pitchb, \triggerb, triggerb, \posb, posb ]);
@ -116,27 +115,34 @@ Granulator {
\pitchb, pitchb, \pitchb, pitchb,
\modb, modb, \modb, modb,
\size, size, \size, size,
\amp, grainamp \amp, amp
], ],
server); server);
// loopsynth = Synth.new( }
// \grain_looper, [
// \out, outb, \buffer, buffer, \triggerb, triggerb,
// \speed, speed, \pan, pan, \amp, loop
// ],
// server);
looping { | amp |
loopamp = amp;
loopsynth = Synth.new(
\grain_looper, [
\out, outb,
\buffer, buffer,
\rectriggerb, ~rectriggerb,
\speed, speed, \pan, pan, \amp, loopamp
],
server
);
} }
reset { | newbuflen | reset { | newbuflen |
var newbuf = Buffer.alloc(server, server.sampleRate * newbuflen, 1), oldbuf = buffer; var newbuf = Buffer.alloc(server, server.sampleRate * newbuflen, 1), oldbuf = buffer;
"reset was called".postln;
recorder.set(\buffer, newbuf); recorder.set(\buffer, newbuf);
grains.set(\buffer, newbuf); grains.set(\buffer, newbuf);
loopsynth.set(\buffer, newbuf);
buffer = newbuf; buffer = newbuf;
oldbuf.free; oldbuf.free;
} }
mode { ^mode }
record { ^record } record { ^record }
mix { ^mix } mix { ^mix }
gain { ^gain } gain { ^gain }
@ -156,10 +162,9 @@ Granulator {
pan { ^pan } pan { ^pan }
track { ^track } track { ^track }
jitter { ^jitter } jitter { ^jitter }
loop { ^loop } amp { ^amp }
grainamp { ^grainamp } loopamp { ^loopamp }
mode_ { | v | mode = v; } // todo - playback mode in this class?
record_ { | v | record = v; recorder.set(\record, v);} record_ { | v | record = v; recorder.set(\record, v);}
mix_ { | v | mix = v; recorder.set(\mix, v); } mix_ { | v | mix = v; recorder.set(\mix, v); }
gain_ { | v | gain = v; grains.set(\amp, v); } gain_ { | v | gain = v; grains.set(\amp, v); }
@ -179,6 +184,6 @@ Granulator {
crate_ { | v | crate = v; pitchsynth.set(\crate, v); } crate_ { | v | crate = v; pitchsynth.set(\crate, v); }
detune_ { | v | detune = v; pitchsynth.set(\detune, v); } detune_ { | v | detune = v; pitchsynth.set(\detune, v); }
pitch_ { | v | pitch = v; pitchsynth.set(\pitch, v); } pitch_ { | v | pitch = v; pitchsynth.set(\pitch, v); }
loop_ { | v | loop = v; loopsynth.set(\amp, v); } amp_ { | v | amp = v; grains.set(\amp, v); }
grainamp_ { | v | grainamp = v; grains.set(\amp, v); } loopamp_ { | v | loopamp = v; loopsynth.set(\amp, v); }
} }