ProcSC/Ex8_GUI.scd at master · peppemanzi/ProcSC · 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

// ------ GUI -----------

(
SynthDef(\risset, { arg out= 0, effectOut = 0, direct = 0.5, pan= 0, freq= 400, amp= 0.1, dur= 2, t_trig=1;
	var amps= [1, 0.67, 1, 1.8, 2.67, 1.67, 1.46, 1.33, 1.33, 1, 1.33];
	var durs= [1, 0.9, 0.65, 0.55, 0.325, 0.35, 0.25, 0.2, 0.15, 0.1, 0.075];
	var frqs= [0.56, 0.56, 0.92, 0.92, 1.19, 1.7, 2, 2.74, 3, 3.76, 4.07];
	var dets= [0, 1, 0, 1.7, 0, 0, 0, 0, 0, 0, 0];    // Detune
	var src= Mix.fill(11, {|i|
		var env= EnvGen.ar(Env.perc(0.005, dur*durs[i], amps[i], -4.5),gate:t_trig);
		SinOsc.ar(freq*frqs[i]+dets[i], 0, amp*env);
	});
	Out.ar(out, Pan2.ar(src, pan));
	Out.ar(effectOut, Pan2.ar(src, pan));
}).add;
)


(
SynthDef(\effect, { arg outBus = 0, inBus, pan = 0, mix=1, room=1;
	var input,out;

	input = In.ar(inBus, 1);

	out = FreeVerb.ar(input,mix:mix,room:room);
	Out.ar(outBus, Pan2.ar(out, pan))
}).add;
)


(
y = Routine({
	a= Synth.before(x,\risset,[\effectOut,b]);
	50.do{
		var dur= 0.2.exprand(3.0);
		var fre= 60.0.exprand(5000.0);
		("dur:"+dur+"fre:"+fre).postln;
		a.set(\freq, fre, \dur, dur, \t_trig,1);
		dur.wait;
	};
	a.free;
	"done".postln;
})//.play;
)


(
var w, btnPlay, dryWetKnob, roomKnob, panSlider;

w = Window("My Window", Rect(100,100,250,200));

b = Bus.audio(s,1); // this will be our effects bus
x = Synth(\effect, [\inBus, b]);


/* ---- btnPlay -----*/
btnPlay = Button(w, Rect(20, 160, 210, 30));
btnPlay.string = "play";

btnPlay.action_({ arg butt;
	butt.value.asBoolean.not.postln;
	y.play;
});


/* ---- dryWetKnob -----*/
g = ControlSpec.new(0, 1, \lin);
dryWetKnob = EZKnob(w,Rect(10,10,100,100),"dry/web",g,initVal:0.5);

dryWetKnob.action_({
	x.set(\mix,dryWetKnob.value);
});


/* ---- roomKnob -----*/
g = ControlSpec.new(0, 1, \lin);
roomKnob = EZKnob(w,Rect(130,10,100,100),"room",g,initVal:0.5);

roomKnob.action_({
	x.set(\room,roomKnob.value);
});


w.front;

w.onClose={x.free;};	//action which stops running synth when the window close button is pressed
)