[linux-audio-user] Boggle oggle drum track

[Florian Schmidt]

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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: foo.rack
Type: application/x-gzip
Size: 481 bytes
Desc: not available
Url : http://lists.linuxaudio.org/pipermail/linux-audio-user/attachments/20061029/c686b1be/attachment.bin