caosperclib/CaosKick.sc at master · josecaos/caosperclib · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
//written by @mixfuckedup
//Simple two amp kick
//Part of CaosPercLib v1.2.3

CaosKick : CaosEnv {

	*new {

		^super.new;

	}

	*ar {|att=0.01,rel=0.5,modFreq=1,modbw=0.5,freq1=60,freq2=56,lowcutfreq=40,gate=1,amp1=0.75,amp2=0.25,pan=0,doneAction=2|
		var sig,env;

		sig = this.signal(modFreq,modbw,freq1,freq2,lowcutfreq,amp2,amp1);
		sig = this.comp(sig);
		env = this.envKR(att,rel,gate,doneAction);

		^Pan2.ar(sig*env,pan);
	}

	ar {|att= 0.01,rel=0.5,modFreq=1,modbw=0.5,freq1=60,freq2=62,lowcutfreq=40,gate=1,amp1=0.75, amp2=0.25,pan=0,doneAction=2|
		var sig,env;

		sig = this.signal(modFreq,modbw,freq1,freq2,lowcutfreq,amp1,amp2);
		sig = this.comp(sig);
		env = this.envKR(att,rel,gate,doneAction);

		^Pan2.ar(sig*env,pan);
	}

	*robot {|att=0.01,rel=0.25,modFreq=2,modbw=0.5,freq1=60,freq2=60,lowcutfreq=58,amp1=0.75,amp2=0.25,pan=0,t=1,tp=0,doneAction=0|
		var sig,env;

		sig = this.signal(modFreq,modbw,freq1,freq2,lowcutfreq,amp1,amp2);
		sig = this.comp(sig);
		env = this.envKR(att,rel,Impulse.kr(t,tp),doneAction);

		^Pan2.ar(sig*env,pan);

	}

	// *signal {|modFreq,modbw,freq1,freq2,lowcutfreq,amp1,amp2|

	// 	^RHPF.ar(
	// 		LFTri.ar(
	// 			Pulse.ar(modFreq,modbw,freq1,freq2),
	// 		0,amp1) +
	// 		LFTri.ar(
	// 			Pulse.ar(modFreq,modbw,freq1,freq2),
	// 		0,amp2),
	// 	lowcutfreq,0.95);
	// }

	// signal {|modFreq,modbw,freq1,freq2,lowcutfreq,amp1,amp2|

	// 	^RHPF.ar(
	// 		LFTri.ar(
	// 			Pulse.ar(modFreq,modbw,freq1,freq2),
	// 		0,amp1) +
	// 		LFTri.ar(
	// 			Pulse.ar(modFreq,modbw,freq1,freq2),
	// 		0,amp2),
	// 	lowcutfreq,0.95);

	// }

	// Debug
	*signal {|modFreq,modbw,freq1,freq2,lowcutfreq,amp1,amp2|
    var mod, sig1, sig2, sig;

	mod = Pulse.ar(modFreq, modbw, mul: 1, add: 0);
    sig1 = LFTri.ar(freq1 * mod, 0, amp1);
    sig2 = LFTri.ar(freq2 * mod, 0, amp2);
    sig = LeakDC.ar(sig1 + sig2);

    ^RHPF.ar(sig, lowcutfreq, 0.95);
}

signal {|modFreq,modbw,freq1,freq2,lowcutfreq,amp1,amp2|
    var mod, sig1, sig2, sig;

    mod = Pulse.ar(modFreq, modbw, mul: 1, add: 0);
    sig1 = LFTri.ar(freq1 * mod, 0, amp1);
    sig2 = LFTri.ar(freq2 * mod, 0, amp2);
    sig = LeakDC.ar(sig1 + sig2);

    ^RHPF.ar(sig, lowcutfreq, 0.9);
}

}