.

svn path=/trunk/externals/tclpd/; revision=12407

1 files changed, 134 insertions, 0 deletions

diff --git a/bitmap-madness.pd b/bitmap-madness.pd
new file mode 100644
index 0000000..49a9dd3
--- /dev/null
+++ b/bitmap-madness.pd
@@ -0,0 +1,134 @@
+#N canvas 5 140 311 321 10;
+#N canvas 322 138 514 645 in 1;
+#X obj 20 462 outlet;
+#X obj 51 8 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X obj 44 60 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#N canvas 3 94 332 662 for_X_Y 0;
+#X obj 61 60 inlet;
+#X obj 71 223 until;
+#X msg 125 177 0;
+#X obj 72 261 f;
+#X obj 106 260 + 1;
+#X obj 68 141 t b b;
+#X obj 78 418 until;
+#X msg 132 372 0;
+#X obj 79 456 f;
+#X obj 113 455 + 1;
+#X obj 75 336 t b b;
+#X obj 73 297 t b f;
+#X obj 82 502 pack f f;
+#X msg 77 528 \$2 \$1;
+#X obj 74 589 outlet;
+#X msg 72 177 32;
+#X msg 79 372 32;
+#X connect 0 0 5 0;
+#X connect 1 0 3 0;
+#X connect 2 0 3 1;
+#X connect 3 0 4 0;
+#X connect 3 0 11 0;
+#X connect 4 0 3 1;
+#X connect 5 0 15 0;
+#X connect 5 1 2 0;
+#X connect 6 0 8 0;
+#X connect 7 0 8 1;
+#X connect 8 0 9 0;
+#X connect 8 0 12 0;
+#X connect 9 0 8 1;
+#X connect 10 0 16 0;
+#X connect 10 1 7 0;
+#X connect 11 0 10 0;
+#X connect 11 1 12 1;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 15 0 1 0;
+#X connect 16 0 6 0;
+#X restore 50 125 pd for_X_Y;
+#X obj 78 270 sin;
+#X obj 78 227 / 64;
+#X obj 51 154 unpack f f;
+#X obj 107 190 t f f;
+#X obj 21 422 pack f f f;
+#X msg 21 442 setcell \$1 \$2 \$3;
+#X obj 76 297 + 0.5;
+#X obj 151 277 sin;
+#X obj 149 255 / 16;
+#X obj 79 321 +;
+#X obj 49 189 t f f f;
+#X obj 79 249 +;
+#X obj 228 155 f;
+#X obj 263 154 + 0.1;
+#X obj 49 94 t b b;
+#X obj 78 360 wrap;
+#X obj 77 401 i;
+#X obj 148 230 expr sqrt(pow(sin($f3)*32-$f1 \, 2)+pow(cos($f3)*34-$f2
+\, 2));
+#X obj 79 380 * 1.8;
+#X obj 79 341 * 1.2;
+#X obj 151 299 + 0.6;
+#X obj 52 35 metro 40;
+#X connect 1 0 25 0;
+#X connect 2 0 18 0;
+#X connect 3 0 6 0;
+#X connect 4 0 10 0;
+#X connect 5 0 15 0;
+#X connect 6 0 14 0;
+#X connect 6 1 7 0;
+#X connect 7 0 8 1;
+#X connect 7 1 21 1;
+#X connect 8 0 9 0;
+#X connect 9 0 0 0;
+#X connect 10 0 13 0;
+#X connect 11 0 24 0;
+#X connect 12 0 11 0;
+#X connect 13 0 23 0;
+#X connect 14 0 8 0;
+#X connect 14 1 5 0;
+#X connect 14 2 21 0;
+#X connect 15 0 4 0;
+#X connect 16 0 17 0;
+#X connect 16 0 21 2;
+#X connect 17 0 16 1;
+#X connect 18 0 3 0;
+#X connect 18 1 16 0;
+#X connect 19 0 22 0;
+#X connect 20 0 8 2;
+#X connect 21 0 12 0;
+#X connect 22 0 20 0;
+#X connect 23 0 19 0;
+#X connect 24 0 13 1;
+#X connect 25 0 18 0;
+#X restore 17 10 pd in;
+#X obj 17 34 bitmap 8 32 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1
+1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1
+1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+1 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0
+0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
+0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
+0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
+0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
+0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
+0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0
+0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
+1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1
+1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 1 1 1 1
+1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 0
+0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
+0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
+0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0
+0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1;
+#X connect 0 0 1 0;