.

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

2 files changed, 185 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;
diff --git a/slider2-help.pd b/slider2-help.pd
new file mode 100644
index 0000000..1f36ace
--- /dev/null
+++ b/slider2-help.pd
@@ -0,0 +1,51 @@
+#N canvas 79 235 731 505 10;
+#X obj 343 150 slider2 -width 15 -height 130 -headsz 3 -rangebottom
+0 -rangetop 127 -init 0 -initvalue 94 -jumponclick 0 -label norm -labelpos
+top -orient vertical -sendsymbol empty -receivesymbol empty -fgcolor
+#000000 -bgcolor #ffffff -lblcolor #000000;
+#X obj 401 150 slider2 -width 15 -height 130 -headsz 3 -rangebottom
+127 -rangetop 0 -init 0 -initvalue 63 -jumponclick 0 -label rev -labelpos
+top -orient vertical -sendsymbol empty -receivesymbol empty -fgcolor
+#000000 -bgcolor #ffffff -lblcolor #000000;
+#X obj 522 154 slider2 -width 130 -height 15 -headsz 3 -rangebottom
+0 -rangetop 127 -init 0 -initvalue 95 -jumponclick 0 -label norm -labelpos
+top -orient horizontal -sendsymbol empty -receivesymbol empty -fgcolor
+#000000 -bgcolor #ffffff -lblcolor #000000;
+#X obj 522 213 slider2 -width 130 -height 15 -headsz 3 -rangebottom
+127 -rangetop 0 -init 0 -initvalue 70 -jumponclick 0 -label rev -labelpos
+top -orient horizontal -sendsymbol empty -receivesymbol empty -fgcolor
+#000000 -bgcolor #ffffff -lblcolor #000000;
+#X floatatom 343 295 5 0 0 0 - - -;
+#X floatatom 401 295 5 0 0 0 - - -;
+#X floatatom 522 177 5 0 0 0 - - -;
+#X floatatom 522 236 5 0 0 0 - - -;
+#X text 324 109 -orient vertical;
+#X text 523 111 -orient horizontal;
+#X text 321 61 Output range test:;
+#X obj 46 174 slider2 -width 15 -height 130 -headsz 3 -rangebottom
+0 -rangetop 127 -init 0 -initvalue 10 -jumponclick 0 -label empty -labelpos
+top -orient vertical -sendsymbol empty -receivesymbol empty -fgcolor
+#000000 -bgcolor #ffffff -lblcolor #000000;
+#X msg 46 143 config -orient vertical;
+#X msg 46 113 config -orient horizontal;
+#X floatatom 46 321 5 0 0 0 - - -;
+#X obj 159 358 slider2 -width 130 -height 15 -headsz 3 -rangebottom
+0 -rangetop 255 -init 0 -initvalue 202.795 -jumponclick 0 -label empty
+-labelpos top -orient horizontal -sendsymbol \$0.sl-out -receivesymbol
+\$0.sl-in -fgcolor #000000 -bgcolor #20ca34 -lblcolor #000000;
+#X obj 45 358 r \$0.sl-out;
+#X obj 45 466 s \$0.sl-in;
+#X msg 45 439 config -bgcolor \$1;
+#X obj 45 412 makefilename #%6.6x;
+#X obj 45 385 expr (0x20 << 16) | ($f1 << 8) | (0xff - $f1);
+#X connect 0 0 4 0;
+#X connect 1 0 5 0;
+#X connect 2 0 6 0;
+#X connect 3 0 7 0;
+#X connect 11 0 14 0;
+#X connect 12 0 11 0;
+#X connect 13 0 11 0;
+#X connect 16 0 20 0;
+#X connect 18 0 17 0;
+#X connect 19 0 18 0;
+#X connect 20 0 19 0;