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
|
#N canvas 388 216 809 559 12;
#X obj 422 321 sqrt;
#X text 242 160 trigger;
#X text 131 263 relative frequency, f 9;
#X obj 51 424 *~;
#X obj 220 419 line~;
#X obj 220 446 *~;
#X obj 220 473 *~;
#X msg 220 372 0 \$1;
#X obj 422 348 sqrt;
#X text 289 295 relative duration;
#X obj 220 159 bng 19 250 50 0 empty empty empty 0 -6 0 8 #dfdfdf #000000 #000000;
#X msg 422 375 \$1 5;
#X obj 220 268 del 5;
#X obj 422 294 * 0.1;
#X text 468 295 normalize to 0.1;
#X text 464 374 attack time 5 msec;
#X text 265 267 decay after 5 msec;
#X text 429 245 attack;
#X obj 220 345 *;
#X text 257 345 actual duration;
#X obj 51 335 *;
#X obj 51 397 osc~;
#X text 83 335 times global freq.;
#X text 111 385 plus detune;
#X obj 220 191 trigger bang bang;
#X text 257 371 decay msg to [line~];
#X obj 220 73 inlet;
#X obj 401 110 unpack f f f f;
#X obj 51 511 outlet~;
#X obj 496 135 v detune_\$0;
#X obj 51 362 expr $f1 + detune_\$0;
#X obj 432 187 v rdur_\$0;
#X obj 464 161 v rfreq_\$0;
#X obj 401 214 v amp_\$0;
#X obj 51 270 v rfreq_\$0;
#X obj 220 294 v rdur_\$0;
#X text 462 319 take fourth root (square root twice) because we'll raise [line~] output to fourth power, f 30;
#X obj 422 267 v amp_\$0;
#X obj 220 115 route bang;
#X obj 610 83 inlet;
#X obj 670 83 inlet;
#X obj 610 136 mtof;
#X obj 69 310 r \$0-frequency;
#X obj 610 178 s \$0-frequency;
#X obj 238 322 r \$0-duration;
#X obj 670 145 s \$0-duration;
#X text 107 16 partial -- sinusoidal partial for additive synthesis used as an abstraction in the additive synthesis example \, D07.additive.pd, f 64;
#X text 259 447 raise to fourth power for natural-sounding decay shape, f 29;
#X connect 0 0 8 0;
#X connect 3 0 28 0;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 1;
#X connect 7 0 4 0;
#X connect 8 0 11 0;
#X connect 10 0 24 0;
#X connect 10 0 34 0;
#X connect 11 0 4 0;
#X connect 12 0 35 0;
#X connect 13 0 0 0;
#X connect 18 0 7 0;
#X connect 20 0 30 0;
#X connect 21 0 3 0;
#X connect 24 0 12 0;
#X connect 24 1 37 0;
#X connect 26 0 38 0;
#X connect 27 0 33 0;
#X connect 27 1 31 0;
#X connect 27 2 32 0;
#X connect 27 3 29 0;
#X connect 30 0 21 0;
#X connect 34 0 20 0;
#X connect 35 0 18 0;
#X connect 37 0 13 0;
#X connect 38 0 10 0;
#X connect 38 1 27 0;
#X connect 39 0 41 0;
#X connect 40 0 45 0;
#X connect 41 0 43 0;
#X connect 42 0 20 1;
#X connect 44 0 18 1;
|
