diff --git a/lmms/recover.mmp b/lmms/recover.mmp deleted file mode 100644 index 5c71877..0000000 --- a/lmms/recover.mmp +++ /dev/null @@ -1,151 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


]]>
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
diff --git a/scd/looper.scd b/scd/looper.scd deleted file mode 100644 index 8408f94..0000000 --- a/scd/looper.scd +++ /dev/null @@ -1,80 +0,0 @@ - - -/* -fooloop is inspired by chunk-recorder.scd -This looper records from SoundIn and writes/replaces buffers directly to the SuperDirt soundLibrary. -Copyright (C) 2019 Michael Hauck (f00b455) -This program is free software: you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation, either version 3 of the License, or -(at your option) any later version. -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. -You should have received a copy of the GNU General Public License -along with this program. If not, see . -How to use in Tidal: --- record and replace round robin -d1 $ sound "fooloopRec" --- stop recording and replacing -d1 $ silence --- play recorded loop 3 (bufnamePrefix++counter) -d5 $ sound "fooloop3" # gain "0.7" --- reset buffers. -once $ sound "fooloopReset" -*/ -( -var functions = (); // make a dictionary of functions -var recSynth, recBufs, counter = 0, recording = false; -var whichOrbit = ~dirt.orbits[0]; -var maxTime = 24; // allow a maximum of four seconds, adjust to your needs -var lat = s.latency + 0.02; // finetune -var numBuffers = 8; // number of buffers -var bufnamePrefix = "fooloop"; // soundname prefix -var soundIn = Array.with(0); - -~recBufs.do(_.free); // free them if they are left over (this is why we keep it in the environment variable) -~recBufs = recBufs = { Buffer.alloc(~dirt.server, ~dirt.server.sampleRate * maxTime, soundIn.size) } ! numBuffers; - -// recorder writes audio from SoundIn to a bufnum -SynthDef(\fooRecord, { |bufnum| - var in = SoundIn.ar(soundIn) * EnvGen.ar(Env.linen(0.003, 23, 0.003, 1, \sine), doneAction: 0); - RecordBuf.ar(in, bufnum, loop:0, doneAction:2); -}).add; - -// start recording round robin to buffers -functions[\fooloopRec] = { - if(recording) { functions[\fooloopAdd].value }; - counter = counter + 1; - if(counter > recBufs.lastIndex, {counter = 0}); - ~server.makeBundle(lat, { - recSynth = Synth(\fooRecord, [bufnum: (recBufs @ counter)], ~server); - recording = true; - }) -}; -// add new buffer and free synth -functions[\fooloopAdd] = { - var name = bufnamePrefix ++ counter.asString; - if(recording) { - ~server.makeBundle(lat, { - ~dirt.soundLibrary.addBuffer(name, (recBufs @@ counter), false ); - recSynth.free; - recording = false; - }) - } -}; -// reset all buffers -functions[\fooloopReset] = { - "reset".postln; - ~recBufs.do(_.free); - ~recBufs = recBufs = { Buffer.alloc(~dirt.server, ~dirt.server.sampleRate * maxTime, soundIn.size) } ! numBuffers; - for(0,numBuffers-1, { |i| ~dirt.soundLibrary.addBuffer(bufnamePrefix++i, (recBufs @@ i), false )}); - counter = 0; - recording = false; -}; - -// add these functions to the dirt soundLibrary -functions.keysValuesDo{ |key, func| ~dirt.soundLibrary.addSynth( key, (play: func)) }; - -) diff --git a/scd/test.scd b/scd/test.scd deleted file mode 100644 index c73b49f..0000000 --- a/scd/test.scd +++ /dev/null @@ -1,60 +0,0 @@ -s.boot; -a= RedSampler(s); -a.prepareForPlay(\snd1, Platform.resourceDir +/+ "sounds/a11wlk01-44_1.aiff"); -a.play(\snd1); -a.free; - -~sound = {Resonz.ar(Pulse.ar([4,5]), 1500, 0.005)}; -~sound.play -~sound.stop - -~a = {PinkNoise.ar(0.15)!2}; -~a.play; -~a.stop(1); - -~a.clear -~a.ar - -~note.play; -~note.stop(3); - -~note = {SinOscFB.ar(120*[1,1.01], 0.15)*0.05} - -~noise = {Resonz.ar(WhiteNoise.ar(0.5), Array.exprand(4, 120, 2500), 0,1).sum !2}; -~noise.play(FadeTime:2) - -~freq = {LFClipNoise.kr(3,6)}; -~sound.set(\freq, ~freq) -~sound.stop - - - -~sound = {Resonz.ar(Pulse.ar(\freq.kr(4)), Array.exprand(4, 120, 2500), 0.005). sum !2}; -~sound.play(fadeTime: 2) -~sound.stop(2.5) -~sound.fadeTime_(2.5); -~sound.set(\freq, 5) -~sound.xset(\freq, 1.5) -~sound.pause -sound.resume -~sound.play -~freq = {LFClipNoise.kr(3,1,3)}; -~sound.set(\freq, ~freq) -~sound.stop(2.5); -~sine = {SinOsc.ar(200*[1,1.01]+\freq.kr(1))*0.07}; -~sine.play(fadeTime:2); -~sine.xset(\freq, ~freq); - - - -~sound.stop -~noise.stop -~sine.stop -s.reboot - - - - -p = ProxySpace.new.push; -~sig.play; -~sig = {SinOsc.ar([440,443] * -5.midiratio) * -20.dbamp} -~sig.free \ No newline at end of file