research, and more learning

chaos_201207
Luka Prinčič 3 years ago
parent 074982afc4
commit f49064448b
  1. 8
      LOG.md
  2. 116
      ark_d.scd

@ -104,4 +104,10 @@ Ndef(\ba,
)
)
)
```
```
\
\
\
\
## 10.apr, 2020

@ -10,13 +10,14 @@ Server.default.waitForBoot {
var smpPath = PathName(thisProcess.nowExecutingPath.dirname +/+ "smp");
// load samples //
"\n--- load samples: ...".postln;
~smpBuffers.do(_.free); //- free all buffers so we don't accumulate?
~smpBuffers = List();
smpPath.filesDo({ |smpfile|
smpPath.filesDo({ |smpfile,i|
// tell me what you are loading:
postln("~~~ loading >" + smpfile.fileName + "<");
postln(" " + i + smpfile.fileName );
// add a sample into a buffer, store object to List
~smpBuffers.add(Buffer.readChannel(s, smpfile.fullPath, channels:[0]));
@ -24,11 +25,12 @@ Server.default.waitForBoot {
// load libs //
"\n--- load libs: ...".postln;
// for each files in that lib folder
libPath.filesDo({|afile|
// tell me what you're executing:
postln(" ." + afile.fileName);
postln(" ." + afile.fileName);
// execute it:
this.executeFile(afile.fullPath);
@ -55,41 +57,84 @@ y.set(\gate, 0)
z = Synth(\bufPlayer, [\bufnum, ~smpBuffers.at(0)])
///////////////////////////////////////////////////////////////////////////////////////////
~smpBuffers[1].plot
(
SynthDef(\sinPulz, {
arg gate = 1, freq, out=0, amp = 1, attackTime=0.01, releaseTime=1, oscDetune=0.05, cutoff=1;
var snd, env;
Ndef(\bosc, {
var buffer = ~smpBuffers[2], freq = 30, oscDetune = 1.01, amp = 0.2;
BufRd.ar(1, bufnum:buffer, phase: LFSaw.ar([freq,freq*oscDetune]) * BufFrames.ir(buffer)) * amp
//+ SinOsc.ar(60.2) * 0.5;
} );
)
oscDetune = oscDetune * 0.1 + 1;
Ndef(\bosc).play
Ndef(\bosc).fadeTime=2;
Ndef(\bosc).clear
env = Linen.kr(gate, attackTime:attackTime, releaseTime:releaseTime, doneAction:2);
snd = SinOsc.ar([freq, freq*oscDetune]) ;
snd = snd + SinOsc.ar([freq*2, freq*oscDetune*2]) ;
snd = snd + Pulse.ar([freq/2,(freq/2)*oscDetune]) * LFNoise1.kr(0.5).exprange(2,40);
///////////////////////////////////////////////////////////////////////////////////////////////
// creating buffers and filling them with weird waveforms
snd = snd.softclip;
snd = RLPF.ar(snd, freq:
//LFNoise1.kr(0.01).exprange(4000,300),
freq * cutoff,
rq:0.4);
a = Harmonics.new(16); // just returns an instance of Harmonics with size
b = Buffer.alloc(s, 512, 1);
(
z = SynthDef("help-Osc",{ arg out=0,bufnum=0;
Out.ar(out,
LeakDC.ar(
Osc.ar(bufnum, [50,50.22], 0, 0.5)
)
)
});
)
snd = snd * env * amp * 0.4;
a.ramp(1.0, 2.0);
a.ramp(0.5, -0.025)
Out.ar(out, snd);
}).add;
(
b.sine2(
freqs: a.ramp(1,1).postln,
amps: a.ramp(0, 0.01).postln,
amps: [0.8,0,0.1,0,0,0.1,0,0,0.01,0,0.01,0,0.02,0,0,0].postln,
normalize:false, asWavetable:true, clearFirst:true);
)
b.plot
a.formant(6, 4);
(
b.sine2(
freqs: a.ramp(0,0.1).postln,
amps: a.ramp(1,0),
normalize:true, asWavetable:true, clearFirst:true).plot;
)
b.sine2(a.ramp(1.0,0.1).postln, a.geom(1.2), true, true, true);
c = b.plot;
y = z.play(s,[\out, 0, \bufnum, b]);
y.free;
// add a delay/reverb bus here?
{SinOsc.ar()}.play
// first press play :)
Ndef(\ba).play
///////////////////////////////////////////////////////////////////////////////////////////
~reverBus = Bus.audio(s,2);
Ndef(\ba).play(~reverBus, addAction: \addToHead)
~reverbDelay = Synth(\verbDelayFX, [\inBus, ~reverBus, \outBus, 0], addAction: \addAfter);
~reverbDelay.set(\revWet, 0);
~reverbDelay.set(\dlyWet, 1);
~reverbDelay.free
Ndef(\ba).fadeTime=0.01; // for Patterns we don't want crossfade, but quantization
// set default quant
Ndef(\ba).proxyspace.quant = 5;
Ndef(\ba).proxyspace.quant = 2;
(
Ndef(\ba,
@ -98,29 +143,30 @@ Ndef(\ba,
Pbind(
\octave, [4,5,7],
\amp, [0.1,0.2,0.005],
\degree, Pseq([0,3,4,2,6], inf),
\dur, Prand([1,0.5,2], inf),
\degree, Pseq([0,3,4,2,6,Prand([3,4,2,6])], inf),
\dur, Prand([1,0.5,2], 50),
),
Pbind(
\octave, [3,6],
\degree, Pseq([[0,-3],4,6,3,2], inf),
\dur, 3.5,
\amp, 0.2,
\dur, Pseq([3.5,5], 10),
\amp, 0.05,
\legato, 0.6,
\attackTime, 2,
\releaseTime, 2,
)]),
// common parameters
\instrument, \sinPulz,
\oscDetune, Prand([1,3,7]*0.01, inf),
\oscDetune, Prand([1,3,5,7]*0.01, inf),
\scale, Scale.minor.tuning_(\just),
\cutoff, Prand([1,2,3,4,5,6], inf)
)
)
\cutoff, Prand([0.5,1,1.5], inf),
\out, ~reverBus
))
)
Ndef(\ba).stop(1);
Ndef(\ba).clear;
////////////////////////////////////////////////////////////////////////////////////////////

Loading…
Cancel
Save