-
Notifications
You must be signed in to change notification settings - Fork 0
/
tape.pd
93 lines (93 loc) · 2.54 KB
/
tape.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
#N canvas 248 40 1026 834 10;
#X obj 39 139 r beat-clock;
#X obj 309 175 unpack f f f f f;
#X obj 310 297 pack f f;
#X text 189 675 Pitch \, velocity;
#X msg 312 676 set \$1 \$2;
#X msg 332 715 65 70;
#X obj 312 626 t a a;
#X text 428 653 Pitch \, note-off;
#X msg 412 676 set \$1 0;
#X msg 552 715 65 0;
#X obj 498 353 f;
#X text 543 353 Tape count \, initial value note duration;
#X obj 498 385 + 1;
#X obj 552 563 ==;
#X obj 552 621 t b;
#X obj 39 168 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 498 414 %;
#X obj 498 454 t f f f;
#X obj 479 508 sel 0;
#X obj 552 592 sel 1;
#X obj 39 282 spigot 0;
#X text 329 66 Receive pitch \, volume \, note duration \, tape duration
\, tape number (starts at 0).;
#X obj 239 66 r tape-\$2-\$1;
#X text 880 57 Tape number to stop;
#X obj 759 56 r tape-stop-\$1;
#X obj 759 84 select \$2;
#X text 830 85 Make sure it's our tape;
#X obj 786 182 s tape-\$2-spigot-\$1;
#X obj 759 209 s tape-\$2-note-off-\$1;
#X obj 139 191 s tape-\$2-spigot-\$1;
#X obj 92 244 r tape-\$2-spigot-\$1;
#X obj 39 322 s tape-\$2-count-left-\$1;
#X obj 427 212 s tape-\$2-tdur-\$1;
#X obj 417 240 s tape-\$2-ndur-\$1;
#X obj 389 297 r tape-\$2-count-left-\$1;
#X obj 563 296 r tape-\$2-count-right-\$1;
#X obj 549 385 r tape-\$2-tdur-\$1;
#X obj 573 486 s tape-\$2-count-right-\$1;
#X obj 573 523 r tape-\$2-ndur-\$1;
#X obj 579 676 r tape-\$2-note-off-\$1;
#X msg 786 156 0;
#X obj 759 115 t b b;
#X msg 139 165 1;
#X obj 239 120 t b a;
#X text 330 20 \$1 is pattern id. \$2 is tape number (starts at 0).
;
#X text 330 110 This receiver sets up a running tape. We initialise
it at the point of note off (beat count is the note duration).;
#X obj 557 270 r tape-\$2-ndur-\$1;
#X obj 430 778 outlet;
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 1 2 33 0;
#X connect 1 3 32 0;
#X connect 2 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 47 0;
#X connect 6 0 4 0;
#X connect 6 1 8 0;
#X connect 8 0 9 0;
#X connect 9 0 47 0;
#X connect 10 0 12 0;
#X connect 12 0 16 0;
#X connect 13 0 19 0;
#X connect 14 0 9 0;
#X connect 15 0 20 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 13 0;
#X connect 17 2 37 0;
#X connect 18 0 5 0;
#X connect 19 0 14 0;
#X connect 20 0 31 0;
#X connect 22 0 43 0;
#X connect 24 0 25 0;
#X connect 25 0 41 0;
#X connect 30 0 20 1;
#X connect 34 0 10 0;
#X connect 35 0 10 1;
#X connect 36 0 16 1;
#X connect 38 0 13 1;
#X connect 39 0 9 0;
#X connect 40 0 27 0;
#X connect 41 0 28 0;
#X connect 41 1 40 0;
#X connect 42 0 29 0;
#X connect 43 0 42 0;
#X connect 43 1 1 0;
#X connect 46 0 10 1;