curve.pd


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

#N canvas 709 238 508 486 10;
#X obj 106 325 pow 1;
#X obj 62 10 inlet;
#X obj 357 9 inlet;
#X obj 106 405 outlet;
#X obj 271 243 exp;
#X msg 287 177 2;
#X obj 287 198 log;
#X obj 271 221 *;
#X obj 62 248 moses 0;
#X obj 62 283 * -1;
#X obj 62 325 pow 1;
#X obj 62 352 * -1;
#X obj 257 30 loadbang;
#X obj 257 50 any_argument \$1;
#X obj 257 70 route float;
#X obj 257 155 t f b;
#N canvas 784 233 470 320 process 0;
#X obj 96 30 inlet;
#X obj 132 283 outlet;
#X obj 97 100 moses 0;
#X obj 96 128 * -1;
#X obj 96 180 * -1;
#X obj 96 69 * 2;
#X obj 142 128 pow 3;
#X obj 96 153 pow 3;
#X text 22 4 this is just a guess \, there is probably a better formula
for this.;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 4 0;
#X restore 257 117 pd process curve value;
#X connect 0 0 3 0;
#X connect 1 0 8 0;
#X connect 2 0 13 1;
#X connect 4 0 0 1;
#X connect 4 0 10 1;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 9 0;
#X connect 8 1 0 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 3 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 7 0;
#X connect 15 1 5 0;
#X connect 16 0 15 0;