#N canvas 510 79 569 532 10;
#X obj 0 878 cnv 15 552 21 empty empty empty 20 12 0 14 -233017 -33289
0;
#X obj 0 543 cnv 3 550 3 empty empty inlets 8 12 0 13 -228856 -1 0
;
#N canvas 594 349 381 238 META 0;
#X text 0 19 LICENSE SIBSD;
#X text 0 114 LIBRARY cyclone;
#X text 0 57 INLET_0 signal set x;
#X text 0 0 KEYWORDS signal write table sample index;
#X text 0 38 DESCRIPTION write into a table using a signal sample index
;
#X text 0 76 INLET_1 float;
#X text 0 95 INLET_2 float;
#X text 0 134 VERSION 0.1-alpha57;
#X text 0 152 AUTHOR Krzysztof Czaja;
#X text 1 170 RELEASE_DATE 2002;
#X text 2 189 WEBSITE http://suita.chopin.edu.pl/~czaja/miXed/externs/cyclone.html
;
#X text 2 221 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 501 880 pd META;
#X obj 0 673 cnv 3 550 3 empty empty outlets 8 12 0 13 -228856 -1 0
;
#X obj 0 710 cnv 3 550 3 empty empty arguments 8 12 0 13 -228856 -1
0;
#X obj 0 770 cnv 3 550 3 empty empty more_info 8 12 0 13 -228856 -1
0;
#N canvas 317 478 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 restore 204 880 pd Related_objects;
#X obj 79 552 cnv 17 3 55 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X obj 79 620 cnv 17 3 17 empty empty 1 5 9 0 16 -228856 -162280 0
;
#X obj 0 0 cnv 15 552 40 empty empty poke~ 3 12 0 18 -204280 -1 0;
#X obj 503 9 poke~;
#X text 12 23 Write into a table using a signal sample index;
#X text 103 551 signal;
#X text 187 551 - signal to sample;
#X text 103 572 set x;
#X text 187 572 - change buffer to x;
#X text 103 620 float;
#X text 187 620 - index of value being recorded;
#X text 85 722 1) table;
#X text 187 722 - buffer to write to (required);
#X text 85 741 2) float;
#X text 187 741 - initial channel (optional \, default 1);
#X text 116 783 poke~ allows you to write samples into a buffer~ at
sample locations specified by a signal. Typically \, the signal will
increase in value by 1 with each sample to write successive values
into successive samples (like record~). If the index signal is negative
or larger than the size of the buffer~ \, no data is recorded.;
#X obj 79 645 cnv 17 3 17 empty empty 2 5 9 0 16 -228856 -162280 0
;
#X text 103 645 float;
#X text 187 645 - set channel of value being recorded;
#X text 103 682 remotely sent to table;
#X obj 34 217 soundfiler;
#X floatatom 34 240 8 0 0 0 - - -;
#X msg 34 262 range 0 \$1;
#X obj 34 285 s sliders;
#X obj 294 265 cyclone/count~ 25000 40000;
#X msg 306 149 bang;
#X msg 294 185 stop;
#X obj 284 416 cyclone/count~ 0 62079;
#X obj 284 477 output~;
#X msg 284 376 bang;
#X msg 323 376 stop;
#X obj 348 214 hsl 128 15 0 62079 0 0 empty sliders empty -2 -8 0 10
-262144 -1 -1 4092 1;
#X obj 348 234 hsl 128 15 0 62079 0 0 empty sliders empty -2 -8 0 10
-262144 -1 -1 7692 1;
#X msg 345 192 20000;
#X msg 408 193 37600;
#X text 52 150 reload wav;
#X text 460 194 start;
#X text 462 247 stop;
#X obj 267 70 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 585 367 450 300 beep 0;
#X obj 164 161 outlet~;
#X obj 164 103 cyclone/cycle~ 200;
#X obj 165 126 *~ 0.2;
#X obj 1 2 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X restore 213 270 pd beep;
#X obj 267 149 t b b;
#X obj 267 91 t b b;
#X obj 267 119 delay 500;
#X obj 345 150 loadbang;
#X text 103 593 bang;
#X text 187 593 - redraw array;
#X text 347 172 values to beep out 'soft and';
#X text 286 68 beep out selected range;
#X obj 34 152 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 34 190 read -resize voice.wav \$1-voice;
#X obj 267 318 cyclone/poke~ \$0-voice;
#X obj 285 445 tabread~ \$0-voice;
#X obj 34 170 f \$0;
#X obj 34 130 loadbang;
#X obj 63 375 hsl 195 140 0 127 0 0 eliminate_outlet eliminate_inlet
empty -2 -8 0 10 -262144 -262144 -262144 0 1;
#X text 41 369 1;
#X text 34 498 -1;
#N canvas 1 79 450 300 (subpatch) 0;
#X array \$0-voice 62079 float 2;
#X coords 0 1 62079 -1 200 140 1 0 0;
#X restore 60 375 graph;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 31 0 57 1;
#X connect 32 0 31 0;
#X connect 33 0 31 0;
#X connect 34 0 58 0;
#X connect 36 0 34 0;
#X connect 37 0 34 0;
#X connect 38 0 31 0;
#X connect 39 0 31 1;
#X connect 40 0 38 0;
#X connect 41 0 39 0;
#X connect 45 0 48 0;
#X connect 46 0 57 0;
#X connect 47 0 57 0;
#X connect 47 1 33 0;
#X connect 48 0 49 0;
#X connect 48 1 32 0;
#X connect 49 0 47 0;
#X connect 50 0 40 0;
#X connect 50 0 41 0;
#X connect 55 0 59 0;
#X connect 56 0 27 0;
#X connect 58 0 35 0;
#X connect 58 0 35 1;
#X connect 59 0 56 0;
#X connect 60 0 55 0;