add generation of random frames

svn path=/trunk/externals/ffext/; revision=13849

1 files changed, 85 insertions, 40 deletions

diff --git a/tms5220~/tms5220~-help.pd b/tms5220~/tms5220~-help.pd
index 9950bb9..d1dcbd0 100644
--- a/tms5220~/tms5220~-help.pd
+++ b/tms5220~/tms5220~-help.pd
@@ -1,29 +1,23 @@
-#N canvas 2 50 590 524 10;
-#X obj 283 192 tms5220~;
-#X floatatom 298 271 5 0 0 0 - - -;
-#X floatatom 313 248 5 0 0 0 - - -;
-#X floatatom 328 225 5 0 0 0 - - -;
-#X obj 283 376 dac~;
-#X obj 350 329 hsl 128 15 0 1 0 0 empty empty OUTPUT_LEVEL -2 -8 0
-10 -262144 -1 -1 0 1;
-#X obj 283 328 *~ 0;
-#X msg 347 369 \; pd dsp 1;
-#X text 379 224 <-- interrupt;
-#X text 377 246 <-- ready;
-#X text 376 269 <-- status bits;
-#X msg 283 123 write \$1;
-#X msg 310 152 reset;
+#N canvas 4 100 590 524 10;
+#X obj 283 167 tms5220~;
+#X obj 283 456 dac~;
+#X obj 350 409 hsl 128 15 0 1 0 0 empty empty OUTPUT_LEVEL -2 -8 0
+10 -262144 -1 -1 12700 1;
+#X obj 283 408 *~ 0;
+#X msg 347 449 \; pd dsp 1;
+#X text 377 199 <-- interrupt;
+#X text 376 221 <-- ready;
+#X text 376 244 <-- status bits;
+#X msg 310 127 reset;
 #X text 43 473 (C) Federico Ferri - 2010;
 #X obj 47 316 * 16;
 #X msg 47 79 0;
 #X text 85 76 nop;
-#X obj 283 94 r \$0.byte;
 #X text 133 43 (check the TMS5220 datasheet for description of commands)
 ;
-#X obj 47 443 s \$0.byte;
 #X obj 47 357 |;
 #X obj 139 221 vradio 8 1 0 16 empty empty empty 0 -8 0 10 -262144
--1 -1 0;
+-1 -1 4;
 #X text 162 274 << address;
 #X msg 47 99 1;
 #X msg 47 119 2;
@@ -40,25 +34,76 @@
 #X text 85 196 speak external;
 #X text 85 216 reset;
 #X text 46 45 COMMANDS:;
-#X connect 0 0 6 0;
-#X connect 0 1 1 0;
-#X connect 0 2 2 0;
-#X connect 0 3 3 0;
-#X connect 5 0 6 1;
-#X connect 5 0 7 0;
-#X connect 6 0 4 0;
-#X connect 6 0 4 1;
-#X connect 11 0 0 0;
-#X connect 12 0 0 0;
-#X connect 14 0 20 0;
-#X connect 15 0 14 0;
-#X connect 17 0 11 0;
-#X connect 20 0 19 0;
-#X connect 21 0 20 1;
-#X connect 23 0 14 0;
-#X connect 24 0 14 0;
-#X connect 25 0 14 0;
-#X connect 26 0 14 0;
-#X connect 27 0 14 0;
-#X connect 28 0 14 0;
-#X connect 29 0 14 0;
+#X obj 298 242 t a a a;
+#X obj 298 339 & 16;
+#X obj 317 300 & 32;
+#X obj 337 261 & 64;
+#X obj 328 196 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 313 219 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 337 280 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 64
+64;
+#X obj 317 319 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 32
+32;
+#X obj 298 358 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X text 368 280 <-- talk_status;
+#X text 348 318 <-- buffer_low;
+#X text 327 359 <-- buffer_empty;
+#N canvas 761 102 450 299 rand.test 0;
+#X obj 50 37 inlet;
+#X obj 52 162 random 16;
+#X obj 51 125 until;
+#X obj 62 270 outlet;
+#X msg 138 105 96;
+#X obj 54 188 | 64;
+#X msg 54 101 9;
+#X obj 57 68 t b b b;
+#X msg 181 105 reset;
+#X msg 47 221 write \$1;
+#X connect 0 0 7 0;
+#X connect 1 0 5 0;
+#X connect 2 0 1 0;
+#X connect 4 0 9 0;
+#X connect 5 0 9 0;
+#X connect 6 0 2 0;
+#X connect 7 0 6 0;
+#X connect 7 1 4 0;
+#X connect 7 2 8 0;
+#X connect 8 0 3 0;
+#X connect 9 0 3 0;
+#X restore 77 411 pd rand.test;
+#X obj 77 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 283 69 r \$0.in;
+#X obj 47 443 s \$0.in;
+#X connect 0 0 3 0;
+#X connect 0 1 32 0;
+#X connect 0 2 37 0;
+#X connect 0 3 36 0;
+#X connect 2 0 3 1;
+#X connect 2 0 4 0;
+#X connect 3 0 1 0;
+#X connect 3 0 1 1;
+#X connect 8 0 0 0;
+#X connect 10 0 14 0;
+#X connect 11 0 10 0;
+#X connect 14 0 47 0;
+#X connect 15 0 14 1;
+#X connect 17 0 10 0;
+#X connect 18 0 10 0;
+#X connect 19 0 10 0;
+#X connect 20 0 10 0;
+#X connect 21 0 10 0;
+#X connect 22 0 10 0;
+#X connect 23 0 10 0;
+#X connect 32 0 33 0;
+#X connect 32 1 34 0;
+#X connect 32 2 35 0;
+#X connect 33 0 40 0;
+#X connect 34 0 39 0;
+#X connect 35 0 38 0;
+#X connect 44 0 47 0;
+#X connect 45 0 44 0;
+#X connect 46 0 0 0;