diff --git a/interface.scd b/interface.scd new file mode 100644 index 0000000..a942b59 --- /dev/null +++ b/interface.scd @@ -0,0 +1,186 @@ +( +~to = TouchOSC("192.168.0.209", 9000); + + +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'); + ~granulators.do({|g, i| g.reset(~buflen) } + ~playbacklfo.set(\speed, sp / ~buflen); + }); +}); + + +~to.button('/track', 0, { |v| + var buffer = ~frippbuffers[v]; + if( buffer.isNil.not, { + [ "set track to", v, buffer ].postln; + ~bufrecorder.set(\record, 0.0); + ~bufrecorder.set(\mix, 0.0); // stop unselected track fading out + ~bufrecorder = ~bufrecorders[v]; + ~bufrecorder.set(\record, ~to.v('/record')); + ~granulator = ~granulators[v]; + ~to.v_('/grainfx/mix', 0); // will always be 0 because we turned it off + // ~granulator.get(\amp, { | v | ~to.v_('/grainfx/gain', v) }); + // ~granulator.get(\blur, { | v | ~to.v_('/grains/blur', v) }); + // ~granulator.get(\size, { | v | ~to.v_('/grains/size', v) }); + // ~granulator.get(\pan, { | v | ~to.v_('/grainfx/pan', v) }); + // ~granulator.get(\track, { | v | ~to.v_('/grainfx/track', v) }); + // ~granulator.get(\jitter, { | v | ~to.v_('/grainfx/jitter', v) }); + // todo - set the grainmode based on what this one has + }, { + [ "Bad track index", v ].postln; + }); +}); + + + +~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 is", ~granulator ].postln; + ~granulator.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/speedquant', 0, { |v| +}); + +~to.slider('/grains/step', 4, TouchOSCScale(1, 8), { |v| + ~grainstep.set(\steps, v.floor); +}); + + + +~to.button('/grains/dust', 0, { |v| ~trigger.set(\dust, v) }); +~to.slider('/grains/blur', 0, TouchOSCScale(0, 0.25), { |v| ~granulator.blur_(v) }); +~to.slider('/grains/size', 0.1, TouchOSCScale(0, 0.5),{ |v| ~granulator.size_(v) }); + +// Page 2: grainfx + +~to.slider('/grainfx/mix', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.mix_(v); +}); +~to.slider('/grainfx/gain', 0.5, TouchOSCScale(0, 1), { |v| ~granulator.gain_(v) } ); +~to.slider('/grainfx/pt', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) } ); + +~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.pan_(v) }); +~to.slider('/grainfx/track', 0.5, TouchOSCScale(-1, 1), { |v| ~granulator.track_(v) }); +~to.slider('/grainfx/jitter', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.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); + // just re-call the value setter for harmonics when toggled + ~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) }); + + +) + diff --git a/main.scd b/main.scd index 4f6fb34..ad48d70 100644 --- a/main.scd +++ b/main.scd @@ -9,53 +9,9 @@ Server.killAll; ~frippbuffer.isNil; -( -~to = TouchOSC("192.168.0.209", 9000); - -~usbinput = 2; -~usbinput1 = 2; -~usbinput2 = 3; - -~buflen = 4.0; -~beatsperbar = 4; - -~posb0 = Bus.control(s, 1); -~posb1 = Bus.control(s, 1); -~posb2 = Bus.control(s, 1); -~posb3 = Bus.control(s, 1); - -SynthDef(\pos_sin, { - 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_rand, { - 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; - -) +("./synths.scd").loadRelative; +("./control.scd").loadRelative; +("./effects.scd").loadRelative; ~modes = [ [ "saw", \pos_saw ], @@ -66,70 +22,6 @@ SynthDef( \lfo, { ]; -( -// 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]); - -~granulatorb = 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 ]); - -// 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; - 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]); - - -) Granulator.init(s) @@ -187,208 +79,6 @@ Granulator.init(s) -( - - -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'); - ~granulators.do({|g, i| g.reset(~buflen) } - ~playbacklfo.set(\speed, sp / ~buflen); - }); -}); - - -~to.button('/track', 0, { |v| - var buffer = ~frippbuffers[v]; - if( buffer.isNil.not, { - [ "set track to", v, buffer ].postln; - ~bufrecorder.set(\record, 0.0); - ~bufrecorder.set(\mix, 0.0); // stop unselected track fading out - ~bufrecorder = ~bufrecorders[v]; - ~bufrecorder.set(\record, ~to.v('/record')); - ~granulator = ~granulators[v]; - ~to.v_('/grainfx/mix', 0); // will always be 0 because we turned it off - // ~granulator.get(\amp, { | v | ~to.v_('/grainfx/gain', v) }); - // ~granulator.get(\blur, { | v | ~to.v_('/grains/blur', v) }); - // ~granulator.get(\size, { | v | ~to.v_('/grains/size', v) }); - // ~granulator.get(\pan, { | v | ~to.v_('/grainfx/pan', v) }); - // ~granulator.get(\track, { | v | ~to.v_('/grainfx/track', v) }); - // ~granulator.get(\jitter, { | v | ~to.v_('/grainfx/jitter', v) }); - // todo - set the grainmode based on what this one has - }, { - [ "Bad track index", v ].postln; - }); -}); - - - -~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 is", ~granulator ].postln; - ~granulator.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/speedquant', 0, { |v| -}); - -~to.slider('/grains/step', 4, TouchOSCScale(1, 8), { |v| - ~grainstep.set(\steps, v.floor); -}); - - - -~to.button('/grains/dust', 0, { |v| ~trigger.set(\dust, v) }); -~to.slider('/grains/blur', 0, TouchOSCScale(0, 0.25), { |v| ~granulator.blur_(v) }); -~to.slider('/grains/size', 0.1, TouchOSCScale(0, 0.5),{ |v| ~granulator.size_(v) }); - -// Page 2: grainfx - -~to.slider('/grainfx/mix', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.mix_(v); -}); -~to.slider('/grainfx/gain', 0.5, TouchOSCScale(0, 1), { |v| ~granulator.gain_(v) } ); -~to.slider('/grainfx/pt', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) } ); - -~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.pan_(v) }); -~to.slider('/grainfx/track', 0.5, TouchOSCScale(-1, 1), { |v| ~granulator.track_(v) }); -~to.slider('/grainfx/jitter', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.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); - // just re-call the value setter for harmonics when toggled - ~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) }); - - -) - -// old, slow buffer position display - to-do- this would be better in a GUI element -// on the laptop - -( - -~posdisplay = Task.new({ - { - ~playbacklfob.get({ | v | - ~to.v_('/grains/buffer', v) - }); - 0.02.wait; - }.loop; -}); - - -~posdisplay.start; -)