You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
988 B
42 lines
988 B
(
|
|
s.boot;
|
|
)
|
|
|
|
(
|
|
s.stop;
|
|
)
|
|
|
|
// modulate a sine frequency and a noise amplitude with another sine
|
|
// whose frequency depends on the horizontal mouse pointer position
|
|
(
|
|
{
|
|
var x = SinOsc.ar(MouseX.kr(1, 100));
|
|
SinOsc.ar(300 * x + 800, 0, 0.1) + PinkNoise.ar(0.1 * x + 0.1)
|
|
}.play;
|
|
)
|
|
|
|
// simple synth definition using the Atari2600 UGen:
|
|
(
|
|
SynthDef(
|
|
\atari2600, {
|
|
|out=0, gate=1, tone0=5, tone1=8, freq0=10, freq1=20, amp=1, pan=0|
|
|
var e, z;
|
|
e = EnvGen.kr(Env.asr(0.01, amp, 0.05), gate, doneAction: 2);
|
|
z = Atari2600.ar(tone0, tone1, freq0, freq1, 15, 15);
|
|
Out.ar(out, Pan2.ar(z * e, pan));
|
|
}).add
|
|
)
|
|
|
|
// and a pattern to play it:
|
|
(
|
|
Pbind(
|
|
\instrument, \atari2600,
|
|
\dur, Pseq([0.25, 0.25, 0.25, 0.45], inf),
|
|
\amp, 0.8,
|
|
\tone0, Pseq([Pseq([2, 5], 32), Pseq([3, 5], 32)], inf),
|
|
\tone1, 14,
|
|
\freq0, Pseq([Pbrown(28, 31, 1, 32), Pbrown(23, 26, 3, 32)], inf),
|
|
\freq1, Pseq([Pn(10, 16), Pn(11, 16)], inf)
|
|
).play
|
|
)
|