blob: 211993824d6a2ff0973d48dc0d982a801a4535b4 (
plain)
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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
#N canvas 499 79 568 531 10;
#X obj 0 779 cnv 15 552 21 empty empty empty 20 12 0 14 -233017 -33289
0;
#X obj 0 531 cnv 3 550 3 empty empty inlets 8 12 0 13 -228856 -1 0
;
#N canvas 621 318 349 250 META 0;
#X text 0 19 LICENSE SIBSD;
#X text 0 133 LIBRARY cyclone;
#X text 0 114 OUTLET_0 signal;
#X text 0 0 KEYWORDS signal read write sample record;
#X text 0 38 DESCRIPTION read and write sample values;
#X text 0 57 INLET_0 signal toggle set;
#X text 0 95 INLET_2 float;
#X text 0 76 INLET_1 float;
#X text 0 154 VERSION 0.1-alpha57;
#X text 0 172 AUTHOR Krzysztof Czaja;
#X text 1 190 RELEASE_DATE 2002;
#X text 2 209 WEBSITE http://suita.chopin.edu.pl/~czaja/miXed/externs/cyclone.html
;
#X text 2 241 HELP_PATCH_AUTHORS Christoph Kummerer. Revised by Jonathan
Wilkes for Pd-extended 0.42 to conform to the PDDP template. Alex Cleveland
updated this patch for Pd-l2ork version 2013.05.28. Fred Jan Kraan
adapted the patch to pd-extended 2015-02-02;
#X restore 502 781 pd META;
#X obj 0 680 cnv 3 550 3 empty empty outlets 8 12 0 13 -228856 -1 0
;
#X obj 0 717 cnv 3 550 3 empty empty arguments 8 12 0 13 -228856 -1
0;
#N canvas 299 459 428 109 Related_objects 0;
#X obj 0 0 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X text 6 1 Related Objects;
#X obj 14 30 tabwrite~;
#X restore 193 781 pd Related_objects;
#X obj 81 542 cnv 17 3 65 empty empty n 5 9 0 16 -228856 -162280 0
;
#X obj 81 621 cnv 17 3 17 empty empty n+1 5 9 0 16 -228856 -162280
0;
#X obj 0 0 cnv 15 552 40 empty empty record~ 3 12 0 18 -204280 -1 0
;
#X obj 491 10 record~;
#X text 11 23 read and write sample values;
#X text 124 575 toggle;
#X text 209 575 - start/stop recording;
#X text 111 689 signal;
#X text 196 689 - recorded signal;
#X text 124 557 signal;
#X text 209 557 - signal to record;
#X text 124 594 set <table>;
#X text 209 594 - change buffer for recording values;
#X obj 81 652 cnv 17 3 17 empty empty n+2 5 9 0 16 -228856 -162280
0;
#X text 124 621 float;
#X text 209 621 - startpoint in the table in msec;
#X obj 81 689 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X text 124 652 float;
#X text 209 652 - endpoint in the table in msec;
#X text 106 726 1) table;
#X text 196 726 - buffer to hold recorded date;
#X text 106 746 2) float;
#X text 196 746 - enable multichannel ( can be 1 \, 2 \, 4);
#X obj 264 57 tgl 15 0 record empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 283 466 metro 10;
#X floatatom 264 509 5 0 0 0 - - -;
#X obj 283 425 r record;
#X msg 294 112 append \$1;
#X obj 294 89 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 283 446 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X msg 312 160 loop \$1;
#X obj 312 137 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X msg 334 189 set table;
#X floatatom 352 296 5 0 0 0 - - -;
#X floatatom 441 296 5 0 0 0 - - -;
#X text 123 540 n = number of channels given by argument (1 \, 2 \,
or 4);
#N canvas 589 450 296 326 More... 0;
#X obj 55 122 adc~;
#X obj 38 93 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 24 71 optional int arg is nr of channels:;
#X text 172 165 can be 1 \, 2 or 4;
#X text 24 197 table naming convention is;
#X text 25 210 0...4-tablename:;
#X text 23 58 enable multichannel by using an;
#X obj 3 4 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X obj 151 248 hsl 75 60 0 127 0 0 eliminate_outlet eliminate_inlet
empty -2 -8 0 10 -262144 -262144 -262144 0 1;
#X obj 53 247 hsl 75 60 0 127 0 0 eliminate_outlet eliminate_inlet
empty -2 -8 0 10 -262144 -262144 -262144 0 1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 1-smp 22050 float 0;
#X coords 0 1 22049 -1 80 60 1 0 0;
#X restore 148 248 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array 0-smp 22050 float 0;
#X coords 0 1 22049 -1 80 60 1;
#X restore 50 247 graph;
#X text 134 241 1;
#X text 129 291 -1;
#X obj 38 166 cyclone/record~ smp 2;
#X text 6 5 multi channel;
#X connect 0 0 14 0;
#X connect 0 1 14 1;
#X connect 1 0 14 0;
#X restore 459 447 pd More...;
#X obj 264 487 cyclone/Snapshot~;
#X obj 264 381 cyclone/record~ \$0-recordTable;
#X obj 340 216 f \$0;
#X msg 339 239 set \$1-recordTable;
#X obj 373 217 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 176 241 osc~ 11;
#X obj 158 219 phasor~ 11;
#N canvas 1159 487 450 300 mux 0;
#X obj 194 67 inlet~;
#X obj 242 68 inlet~;
#X obj 126 69 inlet;
#X obj 195 232 outlet~;
#X obj 195 175 *~ 1;
#X obj 241 175 *~ 0;
#X obj 126 105 == 0;
#X obj 0 0 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X text 1 1 signal selector;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 2 0 5 1;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 4 1;
#X restore 142 288 pd mux;
#X obj 142 253 vradio 15 1 0 2 empty empty empty 0 -8 0 10 -262144
-1 -1 1;
#X text 100 250 phasor;
#X text 118 266 osc;
#X obj 519 495 dspSwitch~;
#X obj 29 385 hsl 195 140 0 127 0 0 eliminate_outlet eliminate_inlet
empty -2 -8 0 10 -262144 -262144 -262144 8100 1;
#X text 7 379 1;
#X text 0 508 -1;
#N canvas 1 80 450 300 (subpatch) 0;
#X array \$0-recordTable 44100 float 0;
#X coords 0 1 44099 -1 200 140 1;
#X restore 26 385 graph;
#X connect 29 0 44 0;
#X connect 30 0 43 0;
#X connect 32 0 35 0;
#X connect 33 0 44 0;
#X connect 34 0 33 0;
#X connect 35 0 30 0;
#X connect 36 0 44 0;
#X connect 37 0 36 0;
#X connect 38 0 44 0;
#X connect 39 0 44 1;
#X connect 40 0 44 2;
#X connect 43 0 31 0;
#X connect 44 0 43 0;
#X connect 45 0 46 0;
#X connect 46 0 44 0;
#X connect 47 0 45 0;
#X connect 48 0 50 2;
#X connect 49 0 50 1;
#X connect 50 0 44 0;
#X connect 51 0 50 0;
|
