29 Oct
2006
29 Oct
'06
2:02 a.m.
Hello,
I have deleted the original email, but whoever posted that wicked boggle
oggle track, I'd like to ask you more about the drums and how you made
them. Please let me know! I would like to make some drum sounds like
that myself.
Cheers,
Chris.
-------------------
chris(a)mccormick.cx
http://mccormick.cx
29 Oct
29 Oct
8:20 a.m.
On Sunday 29 October 2006 05:51, Chris McCormick wrote:
Hello,
I have deleted the original email, but whoever posted that wicked boggle
oggle track, I'd like to ask you more about the drums and how you made
them. Please let me know! I would like to make some drum sounds like
that myself.
Here you go (this is jst so ever slightly modified from the file that
generated boggle_oggle. You can hear it here
http://affenbande.org/~tapas/boggle_toggle.ogg
// ---------------- cut here -------------------------------
// =====================================================================
// SuperCollider Workspace
// =====================================================================
s.boot
s.quit
(
SynthDef (\foo3,
{
var out1, out2;
out1 = SinOsc.ar (freq: XLine.ar (Rand(30, 130), Rand(30, 150), Rand(0.01,
0.2)), mul: XLine.ar (Rand(0.1, 0.5), 0.0001, Rand(0.01, 10), doneAction:
2));
out2 = SinOsc.ar (freq: XLine.ar (Rand(30, 130), Rand(30, 150), Rand(0.01,
0.2)), mul: XLine.ar (Rand(0.1, 0.5), 0.0001, Rand(0.01, 10), doneAction:
2));
Out.ar (0, [out1,out2]);
}
).send(s)
)
(
SynthDef (\foo1,
{
var out1, out2;
out1 = RLPF.ar(in: Saw.ar (freq: Rand(28,300), mul: XLine.ar(Rand(0.01,
0.3), 0.001, Rand(0.1, 7.0), doneAction: 2)), freq: Rand(100, 3000),
rq:Rand(0.1, 0.9));
out2 = RLPF.ar(in: Saw.ar (freq: Rand(28,300), mul: XLine.ar(Rand(0.01,
0.3), 0.001, Rand(0.1, 7.0), doneAction: 2)), freq: Rand(100, 3000),
rq:Rand(0.1, 0.9));
Out.ar(0,[out1, out2]);
}
).send(s)
)
(
SynthDef (\foo2,
{
var out1, out2;
out1 = SinOsc.ar (freq: XLine.ar(Rand(28,10000), Rand(28,10000),
Rand(0.01,0.1)), mul: XLine.ar(Rand(0.01, 0.1), 0.001, Rand(0.1, 7.0),
doneAction: 2));
out2 = SinOsc.ar (freq: XLine.ar(Rand(28,10000), Rand(28,10000),
Rand(0.01,0.1)), mul: XLine.ar(Rand(0.01, 0.1), 0.001, Rand(0.1, 7.0),
doneAction: 2));
Out.ar(0,[out1, out2]);
}
).send(s)
)
(
SynthDef (\foo4,
{
var out1, out2;
out1 = SinOsc.ar (freq: XLine.ar(Rand(128,700), Rand(28,10000),
Rand(0.01,0.1)), mul: XLine.ar(Rand(0.01, 0.1), 0.001, Rand(0.1, 7.0),
doneAction: 2));
out2 = SinOsc.ar (freq: XLine.ar(Rand(128,700), Rand(28,10000),
Rand(0.01,0.1)), mul: XLine.ar(Rand(0.01, 0.1), 0.001, Rand(0.1, 7.0),
doneAction: 2));
Out.ar(0,[out1, out2]);
}
).send(s)
)
(
SynthDef (\hh,
{
var out;
out = WhiteNoise.ar (mul: XLine.ar (Rand(0.1, 0.2), 0.0001, Rand(0.03, 1),
doneAction: 2));
Out.ar (0, [out, out]);
}
).send(s)
)
(
SynthDef (\bd,
{
var out;
out = SinOsc.ar(freq: XLine.ar(100,40,0.1), phase: 1.55, mul:
XLine.ar(Rand(0.5,0.3), 0.01, Rand(0.1,1), doneAction: 2));
Out.ar(0,[out, out]);
}
).send(s)
)
(
s.freeAll;
t = TempoClock.new;
t.tempo = 7.9;
t.schedAbs (t.beats.ceil,
{
arg beat, sec;
// beat.postln;
if (beat % 8 == 0,
{
Synth.new (\bd);
if (1.0.rand > 0.5,
{
Synth.new(\foo3);
});
});
if (beat % 4 == 0,
{
if (1.0.rand > 0.8,
{
Synth.new(\foo1);
});
});
if (beat % 4 == 0,
{
if (1.0.rand > 0.7,
{
Synth.new(\bd);
});
});
if ((beat % 1 == 0) && (beat % 4 != 0),
{
if (1.0.rand > 0.9,
{
Synth.new(\bd);
});
});
if (1.0.rand > 0.8,
{
Synth.new(\foo2);
});
if (1.0.rand > 0.7,
{
Synth.new(\foo4);
});
if (1.0.rand > 0.2,
{
Synth.new(\hh);
});
1 });
)
// ---------------- cut here -------------------------------
Plus you need the jack-rack file from the attachment. Route output 1 and 2 of
SC through jack-rack, and do not connect SC directly to alsa_pcm:out... Don't
forget to enable all three plugins :)
Flo
--
Palimm Palimm!
http://tapas.affenbande.org
9:06 p.m.
Hey Florian,
Thanks so much for sharing this code. I am tempted to add Debian's
unstable repository and install supercollider, now. :) I really like
the sound of this track, especially the hh and bd components, and I am
keen to re-implement it in my environment of choice (Pd) so that I can
use it live with my electronic music duo (if that's ok with you). I was
wondering if you could talk me through some specific bits of the code,
or see if I have got them right below?
On Sun, Oct 29, 2006 at 01:21:18PM +0100, Florian Schmidt wrote:
(
SynthDef (\hh,
{
var out;
out = WhiteNoise.ar (mul: XLine.ar (Rand(0.1, 0.2), 0.0001, Rand(0.03, 1),
doneAction: 2));
Out.ar (0, [out, out]);
}
).send(s)
)
So this guy creates white noise and then randomly ramps the volume of it
downwards making longer and shorter sounds each time? It seems like the
initial ramp height is set randomly, and so is the decay time?
(
SynthDef (\bd,
{
var out;
out = SinOsc.ar(freq: XLine.ar(100,40,0.1), phase: 1.55, mul:
XLine.ar(Rand(0.5,0.3), 0.01, Rand(0.1,1), doneAction: 2));
Out.ar(0,[out, out]);
}
).send(s)
)
I am guessing this is a sine wave oscillator multiplied by a line (ramp)
which has random parameters? The initial volume and decay length is
set randomly? What is the significance of the phase 1.55? Is this just
starting the oscillator at a 'high' point in the wave form? That is a
cool trick.
(
s.freeAll;
t = TempoClock.new;
t.tempo = 7.9;
t.schedAbs (t.beats.ceil,
{
arg beat, sec;
// beat.postln;
if (beat % 8 == 0,
{
Synth.new (\bd);
});
Every eighth tick, play the bass drum.
if (beat % 4 == 0,
{
if (1.0.rand > 0.7,
{
Synth.new(\bd);
});
});
Every four ticks, if the random value is above 0.7 play the bass drum.
if ((beat % 1 == 0) && (beat % 4 != 0),
{
if (1.0.rand > 0.9,
{
Synth.new(\bd);
});
});
Every beat that isn't the fourth beat, play the bass drum if the random
value is above 0.9. (so very rarely)
if (1.0.rand > 0.2,
{
Synth.new(\hh);
});
Every beat, if the random value is above 0.2 play a hi hat.
Is that about it?
Best,
Chris.
-------------------
chris(a)mccormick.cx
http://mccormick.cx
6553
days inactive
6553
days old
linux-audio-user@lists.linuxaudio.org
2 comments
2 participants
participants (2)
-
Chris McCormick -
Florian Schmidt