«Re: Dark sea horns» by Schemawound

on 06 Mar'12 12:54 in sctweetambientfeedbacknoisecode fork

Something I put together a while back by forking Dark Sea Horns

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
(
	Ndef(\x,	{
		var output;
		var delayTime;
		var delayMax = 0.2;
		var delayAdd = 0.1;
		var pulseFreq = 0.5;
		var proxyMul = 2;
		var pulseMin = 40;
		var pulseMax = 130;
		var numOfEchos = 2;

		var mainPulse = LFPulse.ar(pulseFreq, 0, 0.5).range(pulseMin, pulseMax);
		var proxy = Ndef(\x).ar * proxyMul;
		var ampModFreq = SinOsc.ar(0.01, 0).range(0.3, 30);
		var ampMod = LFNoise1.ar(ampModFreq, 6);
		output = SinOsc.ar(mainPulse + proxy, 0, ampMod).tanh;
		numOfEchos.do{
			delayTime = {delayMax.rand + delayAdd}!2;
			output = AllpassL.ar(output, 0.1, delayTime, 5);
		};
	output.tanh;
	}).play
)
raw 631 chars (focus & ctrl+a+c to copy)
reception
comments
beryann.parker user 26 Mar'12 08:28

Nice one!! a little bit too loud (on the sub)on my FW1184 Tascam and i have changed the level of output from 0.1 to 0.07 and delay time to 2(and the number of echoes too) ...but it's not so "profound"...!!