forked from patricksebastien/mtl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
alindx~.pd
133 lines (133 loc) · 3.29 KB
/
alindx~.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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
#N canvas 0 82 1366 662 10;
#X obj 58 400 outlet~;
#X obj 52 187 inlet~;
#X obj 112 187 inlet~;
#X obj 118 400 outlet~;
#X obj 481 204 inlet params;
#X obj 185 374 tof/param /wet 0 /g slider 0 1;
#X obj 481 250 print PARAM_NOTFOUND;
#X obj 58 375 tof/crossfade~ 2;
#X msg 222 404 \$1 5;
#X obj 222 428 line~;
#X obj 481 226 tof/param route;
#X obj 477 349 b;
#X obj 478 378 tof/param gui;
#N canvas 550 186 730 557 crank 0;
#X obj 134 234 *~;
#X obj 134 184 clip~ 0 1;
#X obj 50 184 clip~ -1 0;
#X obj 50 209 *~ -1;
#X obj 50 233 *~;
#X obj 50 344 -~ 1;
#X obj 134 279 *~ -1;
#X obj 134 376 +~ 1;
#X obj 134 256 expr~ exp(-($v1*1000)/100);
#X obj 50 318 expr~ exp(-($v1*1000)/100);
#X obj 134 411 /~;
#X obj 122 159 inlet~;
#X obj 134 473 outlet~;
#X obj 195 359 expr~ 1 - exp(-($v1*1000)/100);
#X obj 287 201 vline~;
#X text 220 58 This is an s-abstraction based completely on the work
of Tristan Chambers http://mbass.sf.net/pd-resources;
#X text 221 89 Any mistakes are mine \, not his!;
#X text 220 36 Args: [name];
#X obj 287 137 + 1;
#X obj 287 156 / 80;
#X obj 287 178 pack f 10;
#X obj 287 110 inlet crank;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 6 0;
#X connect 9 0 5 0;
#X connect 10 0 12 0;
#X connect 11 0 2 0;
#X connect 11 0 1 0;
#X connect 13 0 10 1;
#X connect 14 0 0 1;
#X connect 14 0 4 1;
#X connect 14 0 13 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 14 0;
#X connect 21 0 18 0;
#X restore 82 328 pd crank;
#N canvas 550 186 730 557 crank 0;
#X obj 134 234 *~;
#X obj 134 184 clip~ 0 1;
#X obj 50 184 clip~ -1 0;
#X obj 50 209 *~ -1;
#X obj 50 233 *~;
#X obj 50 344 -~ 1;
#X obj 134 279 *~ -1;
#X obj 134 376 +~ 1;
#X obj 134 256 expr~ exp(-($v1*1000)/100);
#X obj 50 318 expr~ exp(-($v1*1000)/100);
#X obj 134 411 /~;
#X obj 122 159 inlet~;
#X obj 134 473 outlet~;
#X obj 195 359 expr~ 1 - exp(-($v1*1000)/100);
#X obj 287 201 vline~;
#X text 220 58 This is an s-abstraction based completely on the work
of Tristan Chambers http://mbass.sf.net/pd-resources;
#X text 221 89 Any mistakes are mine \, not his!;
#X text 220 36 Args: [name];
#X obj 287 137 + 1;
#X obj 287 156 / 80;
#X obj 287 178 pack f 10;
#X obj 287 110 inlet crank;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 6 0;
#X connect 9 0 5 0;
#X connect 10 0 12 0;
#X connect 11 0 2 0;
#X connect 11 0 1 0;
#X connect 13 0 10 1;
#X connect 14 0 0 1;
#X connect 14 0 4 1;
#X connect 14 0 13 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 14 0;
#X connect 21 0 18 0;
#X restore 165 327 pd crank;
#X obj 178 192 tof/param /crank 0 /g slider 0 127;
#X obj 361 12 initbang;
#X obj 361 42 del;
#X obj 359 82 \$3;
#X obj 399 93 \$4;
#X connect 1 0 7 0;
#X connect 1 0 13 0;
#X connect 2 0 7 1;
#X connect 2 0 14 0;
#X connect 4 0 10 0;
#X connect 5 0 8 0;
#X connect 7 0 0 0;
#X connect 7 1 3 0;
#X connect 8 0 9 0;
#X connect 9 0 7 4;
#X connect 10 0 6 0;
#X connect 11 0 12 0;
#X connect 13 0 7 2;
#X connect 14 0 7 3;
#X connect 15 0 13 1;
#X connect 15 0 14 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 8 0;
#X connect 19 0 13 1;
#X connect 19 0 14 1;