namor
Joined: Mar 31, 2016 Posts: 1 Location: zurich
|
Posted: Thu Mar 31, 2016 8:24 am Post subject:
strange periodical distortion when recording sound Subject description: 36 sinus oscillators in d-dur |
 |
|
dear everybody
we're experiencing strange sound recordings with the code below (something seams to produce interference and it's not coming from the data behind as it happens also with simple 1, 0, 0, 1, 0, 0 ... files:
ist there any known issue with 36 parallel sinus oscillators?
https://drive.google.com/file/d/0B0iLw9bRs9SGZk5waDg1MnFYSW8/view?usp=sharing
(
{
s.bootSync;
s.waitForBoot({
"SERVER HAS BOOTED.".postln();
SynthDef(\blauton, {
var freqs = NamedControl.kr(\freqs, #[220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880, 220, 440, 880]);
var amps = NamedControl.kr(\amps, #[0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0]);
var phases = NamedControl.kr(\phases, #[0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0]);
var sig;
sig = DynKlang.ar(`[freqs, amps, phases]);
Out.ar([0,1], sig);
}).add;
~root = 38;
~scale = Scale.major(\just);
~freqs = 36.collect({arg d; ~scale.degreeToFreq(d, ~root.midicps, 0)});
~freqs.postln;
y = Synth(\blauton);
y.set(\freqs, ~freqs);
s.prepareForRecord(thisProcess.nowExecutingPath.dirname +/+ ("recordings/" "REC_0007_GBR_e2_mbp" ".aiff"));
s.record();
~data = thisProcess.nowExecutingPath.dirname +/+ "/" "REC_0007_1x12_5000/" "data.sc";
~data.postln;
f = CSVFileReader.read(~data, true, true);
f[0].postln;
t = Task {
f.size.do { arg i;
var e = f[i].asFloat;
e = e.lincurve(0.0, 1.0, 0.0, 1.0, 2.0);
e = e / 36;
y.set(\amps, e);
0.04.wait; // 25 Hz
//(i % 615 + " amps "+e).postln;
};
"DONE.".postln();
s.stopRecording;
}.play;
})
}.fork;
)
Server.killAll |
|