-
Notifications
You must be signed in to change notification settings - Fork 13
/
Copy pathcurve.mmb~.pd
70 lines (70 loc) · 1.67 KB
/
curve.mmb~.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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#N canvas 139 22 821 570 10;
#X obj 264 252 vline~;
#X obj 458 228 vline~;
#X obj 361 290 samphold~;
#N canvas 0 22 450 300 send 0;
#X obj 160 110 inlet~;
#X obj 166 165 send~ \$0-current;
#X connect 0 0 1 0;
#X restore 301 390 pd send;
#N canvas 0 22 450 300 receive 0;
#X obj 95 145 outlet~;
#X obj 93 99 receive~ \$0-current;
#X connect 1 0 0 0;
#X restore 323 249 pd receive;
#N canvas 0 22 450 300 trigger 0;
#X obj 126 222 vline~;
#X obj 193 40 loadbang;
#X obj 193 74 samplerate~;
#X obj 126 170 f;
#X obj 126 50 inlet;
#X obj 126 254 outlet~;
#X msg 269 44 bang;
#X obj 193 107 expr 1/($f1/1000);
#X msg 126 195 -1 0 0 \, 0 0 \$1;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 8 0;
#X connect 4 0 3 0;
#X connect 6 0 2 0;
#X connect 7 0 3 1;
#X connect 8 0 0 0;
#X restore 387 223 pd trigger;
#X obj 455 166 unpack f f f;
#X obj 555 230 vline~;
#X msg 264 223 0 \, 1 \$1;
#X obj 264 323 expr~ if($v4!=0 \, $v2+($v3-$v2)*(1-exp($v1*$v4))/(1-exp($v4)+($v4==0))
\, $v2*(1-$v1)+$v3*$v1);
#X obj 574 107 loadbang;
#X obj 574 135 f \$1;
#X obj 232 34 inlet;
#X obj 232 97 t l b l;
#X obj 542 34 inlet;
#X obj 195 145 list split 1;
#X obj 230 174 route bang;
#X msg 231 200 0;
#X obj 218 514 outlet~;
#X text 558 420 .mmb;
#X connect 0 0 9 0;
#X connect 1 0 9 2;
#X connect 2 0 9 1;
#X connect 4 0 2 0;
#X connect 5 0 2 1;
#X connect 6 0 1 0;
#X connect 6 2 7 0;
#X connect 7 0 9 3;
#X connect 8 0 0 0;
#X connect 9 0 3 0;
#X connect 9 0 18 0;
#X connect 10 0 11 0;
#X connect 11 0 7 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 13 1 5 0;
#X connect 13 2 6 0;
#X connect 14 0 7 0;
#X connect 15 1 16 0;
#X connect 16 0 17 0;
#X connect 16 1 8 0;
#X connect 17 0 8 0;