hysysk:old

this blog will not be updated.

火曜日, 3月 14, 2006

if_SC3

sc3でif文。%を使うとそれっぽいです何となく。
アルゴリズムで作曲することの面白さは、即興でも暗譜でもない
演奏が可能だということです。
このプログラムも、マッピング次第では人力で演奏できそうです。
(
SynthDef("sin", {arg freq = 440, amp = 0.8, pan = 0;
var src, env;
src=SinOsc.ar(freq, 0, amp);
env=EnvGen.ar(Env.new([0,0.8,0],[0.001,0.09]), doneAction:2);
Out.ar(0, Pan2.ar(src*env, pan));
}).send(s)
)

(
t = Task({
128.do({ arg i;
var freq=74, amp=0.5, pan=0;
if(i % 5 < 2, {
freq = freq + 4;
pan = 1;
},{amp = amp - 0.1;
});
if(i % 32 >= 12, {
freq = freq + 5;
pan = -1;
},{amp = amp + 0.2;
});
if(i % 64 >= 32, {
freq = freq + 2;
pan = 0;
},{amp = amp - 0.2;
});
Synth("sin", [\freq, freq.midicps, \amp, amp, \pan, pan]);
z = [0.1, 0.2, 0.25, 0.05, 0.5];
z.at(i%5).wait
});
});
)
t.start;
t.stop;