/
d-tabcp~.pd
49 lines (49 loc) · 1.24 KB
/
d-tabcp~.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
#N canvas 85 360 635 299 10;
#X obj 131 183 del;
#X msg 132 215 stop;
#X obj 40 16 inlet;
#X text 276 113 copysection <srcstart> <len> <targstart>;
#X obj 37 65 unpack f f f;
#X obj 65 183 f;
#X obj 37 84 t a b;
#X msg 64 215 start \$1;
#X obj 57 144 tabplay~ \$1;
#X obj 57 242 tabwrite~ \$2;
#X text 235 60 args: srctable targtable;
#X text 235 92 messages:;
#X text 294 127 copy <len> samples starting at <srcstart>;
#X text 294 139 to target starting at <targstart>;
#X text 218 31 utility to copy contents of tables using tabread~/write~
;
#X text 219 13 d-tabcp~;
#X msg 129 86 0;
#X msg 159 86 start 0;
#X obj 37 40 route copysection copy;
#X text 273 159 copy;
#X text 290 175 copy everything from src to target;
#X obj 368 260 print;
#X obj 411 261 print;
#X obj 454 262 print;
#X obj 369 240 unpack f f f;
#X msg 372 206 23 32;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 2 0 18 0;
#X connect 4 0 6 0;
#X connect 4 1 0 1;
#X connect 4 2 5 1;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 6 1 0 0;
#X connect 6 1 5 0;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 16 0 8 0;
#X connect 17 0 9 0;
#X connect 18 0 4 0;
#X connect 18 1 16 0;
#X connect 18 1 17 0;
#X connect 24 0 21 0;
#X connect 24 1 22 0;
#X connect 24 2 23 0;
#X connect 25 0 24 0;