«risset bells» by Fredrik Olofsson

on 15 May'12 11:27 in metallicbell

an exact port of a pd (pure-data) example patch.

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
//additive synthesis bell
//port of the pure-data example: D07.additive.pd
(
s.waitForBoot{
	SynthDef(\risset, {|out= 0, 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];
		var src= Mix.fill(11, {|i|
			var env= EnvGen.ar(Env.perc(0.005, dur*durs[i], amps[i], -4.5), t_trig);
			SinOsc.ar(freq*frqs[i]+dets[i], 0, amp*env);
		});
		Out.ar(out, Pan2.ar(src, pan));
	}).add;
};
)

a= Synth(\risset, [\freq, 72.midicps, \dur, 4])
a.set(\t_trig, 1)
a.set(\freq, 100.midicps, \dur, 3, \t_trig, 1)
a.set(\freq, 60.midicps, \dur, 1, \t_trig, 1)
a.set(\freq, 90.midicps, \dur, 0.5, \t_trig, 1)
a.free

(
Routine({
	var a= Synth(\risset);
	20.do{
		var dur= 0.2.exprand(3.0);
		var fre= 60.0.exprand(5000.0);
		("dur:"+dur+"fre:"+fre).postln;
		a.set(\t_trig, 1, \freq, fre, \dur, dur);
		dur.wait;
	};
	a.free;
	"done".postln;
}).play;
)
raw 1137 chars (focus & ctrl+a+c to copy)
reception
comments
rukano user 21 May'12 21:08

The Synth is called \risset but you use \risset2, some specific reason...?

Fredrik Olofsson user 21 May'12 21:20

oops, no reason except for my sloppiness. sorry. thanks for spotting - now fixed.

computer.music.neix user 23 May'12 10:14

beautiful bells. take this opportunity to thank the conference on Monday in Barcelona, has been very inspiring