-
Notifications
You must be signed in to change notification settings - Fork 1
/
dkincwrite~.pd
145 lines (145 loc) · 3.44 KB
/
dkincwrite~.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
134
135
136
137
138
139
140
141
142
143
144
145
#N canvas 849 99 893 702 10;
#X obj 118 102 timer;
#X obj 117 125 < 3500;
#X obj 99 22 inlet;
#X obj 49 46 inlet~;
#X obj 48 312 *~ 0;
#X msg 75 81 1;
#X obj 131 195 f;
#X obj 125 142 sel 0;
#X obj 131 217 change;
#X msg 137 167 0;
#X obj 131 239 t f f;
#X obj 84 286 pack 0 5;
#X obj 211 253 sel 1 0;
#X obj 203 311 timer;
#X obj 84 308 line;
#X obj 145 354 samplerate~;
#X obj 203 385 *;
#X obj 203 332 t b f;
#X obj 207 468 + 1;
#X obj 200 433 f;
#X msg 332 327 0;
#X obj 205 407 t b f;
#X obj 247 282 t b b;
#X msg 273 483 stop;
#X obj 172 495 % 882000;
#X msg 90 568 start \$1;
#X obj 126 521 f;
#X obj 162 276 t b b;
#X obj 111 625 tabwrite~ \$1;
#X obj 615 47 inlet;
#X obj 694 123 moses 5;
#X msg 666 145 75;
#X obj 340 19 loadbang;
#X obj 618 113 metro;
#X obj 374 102 f \$2;
#X obj 374 124 moses 1;
#X msg 374 146 882000;
#X obj 679 93 f \$4;
#X obj 239 106 f \$3;
#X obj 239 128 moses 1;
#X msg 239 150 3500;
#X text 639 27 start/stop;
#X text 156 44 incoming bangs;
#X obj 472 29 inlet;
#X msg 480 245 set \$1;
#X text 526 326 arg1: array to write to;
#X text 524 343 arg2: array length;
#X text 523 364 arg3: time threshold (ms);
#X text 521 382 arg4: rate to check thresh (ms);
#X text 514 432 in1: sig~;
#X text 511 453 in2: incominbg bangs;
#X text 517 520 in4: on off;
#X text 516 577 defaults: array len: 88200 \, time thresh: 3500 \,
rate: 75;
#X text 39 6 INCWRITE~: incremental tabwriter;
#X text 519 643 DEREK KWAN \, 2016;
#X obj 122 73 t b b;
#X obj 90 668 outlet;
#X msg 624 239 \; \$1 const 0;
#X obj 628 211 symbol \$1;
#X text 512 470 in3: thresh (time thresh) \, setarray (array to write
to) \, setlen(array len) \, rate (rate to check thresh) \, clear (to
clear array);
#X obj 243 671 outlet;
#X obj 109 47 spigot;
#X obj 542 39 t f b;
#X obj 229 363 / 1000;
#X obj 451 190 route thresh setarray setlen rate clear reset;
#X obj 711 226 s \$0-resettimer;
#X obj 200 207 r \$0-resettimer;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 61 0;
#X connect 3 0 4 0;
#X connect 4 0 28 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 6 0;
#X connect 10 0 12 0;
#X connect 10 1 11 0;
#X connect 11 0 14 0;
#X connect 12 0 27 0;
#X connect 12 1 22 0;
#X connect 13 0 17 0;
#X connect 14 0 4 1;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 15 0;
#X connect 17 1 63 0;
#X connect 18 0 24 0;
#X connect 19 0 18 0;
#X connect 20 0 19 1;
#X connect 20 0 26 1;
#X connect 21 0 19 0;
#X connect 21 1 18 1;
#X connect 22 0 13 1;
#X connect 22 1 23 0;
#X connect 23 0 28 0;
#X connect 23 0 56 0;
#X connect 24 0 19 1;
#X connect 24 0 26 1;
#X connect 25 0 28 0;
#X connect 25 0 56 0;
#X connect 26 0 25 0;
#X connect 26 0 60 0;
#X connect 27 0 13 0;
#X connect 27 1 26 0;
#X connect 29 0 33 0;
#X connect 29 0 62 0;
#X connect 30 0 31 0;
#X connect 30 1 33 1;
#X connect 31 0 33 1;
#X connect 32 0 34 0;
#X connect 32 0 37 0;
#X connect 32 0 38 0;
#X connect 33 0 0 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 35 1 24 1;
#X connect 36 0 24 1;
#X connect 37 0 30 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 1 1 1;
#X connect 40 0 1 1;
#X connect 43 0 64 0;
#X connect 44 0 28 0;
#X connect 55 0 0 0;
#X connect 55 1 5 0;
#X connect 58 0 57 0;
#X connect 61 0 55 0;
#X connect 62 0 61 1;
#X connect 62 1 23 0;
#X connect 62 1 20 0;
#X connect 63 0 16 1;
#X connect 64 0 38 0;
#X connect 64 1 44 0;
#X connect 64 2 34 0;
#X connect 64 3 37 0;
#X connect 64 4 58 0;
#X connect 64 5 65 0;
#X connect 66 0 13 0;