-
Notifications
You must be signed in to change notification settings - Fork 0
/
octahedron.scd
72 lines (60 loc) · 2.33 KB
/
octahedron.scd
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
TempoClock.default.tempo_(120/160);
ServerOptions.inDevices.postln;
s.record(numChannels:2);
s.options.sampleRate =48000;
s.options.device_("Blutetooth");
s.options.numOutputBusChannels=12;
s.options.memSize = 65536;
s.options.memSize
s.options.numInputBusChannels=0;
s.record(numChannels:2) ;
s.options.numOutputBusChannels=12;
s.waitForBoot;
MIDIClient.init;
MIDIIn.connectAll;
~notes0=Array.newClear(128);
s.options.memSize = 32768;
(
///////////////////////////////////////////////////////
(SynthDef(\solidsc,{
arg a=8,a1=4,filter=3,rq=1,sweep=11,sweep1=11,attack1=0.01,decay1=1,attack2=0.01,decay2=1;
var x=0,y=1,freq,wave,partials=0,spat,scale=0,
x1=0,y1=1,freq1,wave1,spat1,scale1=0,partials1=0,
vectorbus1=4,ton=220,ton1=440,envelope1,bend,
vectorbus=4,elevation_1=1,elevation_2=1,elevation_3=1,elevation_4=1,elevation_5=1,elevation_6=1,
envelope,bus=1;
bend=[2,-3];
attack1=MouseX.kr(0.1,1);
decay1=MouseY.kr(1,6);
attack1=MouseX.kr(0.1,1);
decay2=MouseY.kr(1,6);
envelope=EnvGen.kr(Env.perc(attack1,decay1,1/2,bend),doneAction:2);
envelope1=EnvGen.kr(Env.perc(attack2,decay2,1/2,bend),doneAction:2);
3.do{ scale=scale+1; spat=scale/(scale+a); vectorbus=vectorbus+2;
2.do{ x=x+1; y= ((x+a)/x); freq=(y*ton);
wave=BLowPass.ar(SinOsc.ar(freq,mul:1/y),ton*filter,rq)*envelope1;
partials=(partials+wave)*envelope1};
Out.ar(vectorbus,PanAz.ar(2,partials*envelope1,LFSaw.ar(sweep*spat)))};
Out.ar(0,InFeedback.ar(6)*elevation_1*envelope);
Out.ar(1,InFeedback.ar(7)*elevation_2*envelope);
Out.ar(2,InFeedback.ar(8)*elevation_3*envelope);
Out.ar(3,InFeedback.ar(9)*elevation_4*envelope);
Out.ar(4,InFeedback.ar(10)*elevation_5*envelope);
Out.ar(5,InFeedback.ar(11)*elevation_6*envelope);
}).add
);
((f= Pdef(\pat2, Pbind(\instrument, \solidsc,
\dur,Pseq([1/4,1/4,1/4,1/8,1/8,1/8],inf),
\a,Pseq([2,4,1,5,6,4,5,3,6,1,3,2,5,3,4,2,1,3],inf),
\a1,Pseq([2,4,1,5,6,4,4,2,3,1,5,6,1,2,3,63,5],inf),
\elevation_1,Pexprand(1/6,1,inf),
\elevation_2,Pexprand(1/6,1,inf),
\elevation_3,Pexprand(1/6,1,inf),
\elevation_4,Pexprand(1/6,1,inf),
\elevation_5,Pexprand(1/6,1,inf),
\elevation_6,Pexprand(1/6,1,inf),
)).play(quant:1));
)
)
//////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////