adding a new object

svn path=/trunk/externals/nusmuk/; revision=16110

2 files changed, 156 insertions, 0 deletions

diff --git a/puremapping/probabilizer-help.pd b/puremapping/probabilizer-help.pd
new file mode 100644
index 0000000..8b3eaa5
--- /dev/null
+++ b/puremapping/probabilizer-help.pd
@@ -0,0 +1,58 @@
+#N canvas 588 358 775 528 10;
+#X obj 90 216 probabilizer;
+#X msg 120 113 0 0;
+#X msg 124 137 1 0;
+#X msg 139 180 0 0 1;
+#X obj 173 237 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 133 158 0 1;
+#X msg 103 64 1 1 1;
+#X obj 200 323 route 1 2 3;
+#X obj 199 357 f;
+#X obj 230 362 + 1;
+#X floatatom 199 395 5 0 0 0 - - -;
+#X obj 262 359 f;
+#X obj 293 364 + 1;
+#X floatatom 262 397 5 0 0 0 - - -;
+#X obj 336 365 f;
+#X obj 367 370 + 1;
+#X floatatom 336 403 5 0 0 0 - - -;
+#X obj 89 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X obj 89 21 metro 1;
+#X msg 356 323 0;
+#X floatatom 91 249 5 0 0 0 - - -;
+#X msg 89 42 1 2 3;
+#X msg 109 87 1 2 3 4 5 6;
+#X text 253 17 This object output a pseudo random value when receiving
+alist.;
+#X text 252 47 this value is between 1 and the element number of the
+received list.;
+#X text 257 75 The list correspond to statistical probability of the
+specific index to be output.;
+#X connect 0 0 7 0;
+#X connect 0 0 20 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 7 1 11 0;
+#X connect 7 2 14 0;
+#X connect 8 0 9 0;
+#X connect 8 0 10 0;
+#X connect 9 0 8 1;
+#X connect 11 0 12 0;
+#X connect 11 0 13 0;
+#X connect 12 0 11 1;
+#X connect 14 0 15 0;
+#X connect 14 0 16 0;
+#X connect 15 0 14 1;
+#X connect 17 0 18 0;
+#X connect 18 0 21 0;
+#X connect 19 0 8 1;
+#X connect 19 0 11 1;
+#X connect 19 0 14 1;
+#X connect 21 0 0 0;
+#X connect 22 0 0 0;
diff --git a/puremapping/probabilizer.pd b/puremapping/probabilizer.pd
new file mode 100644
index 0000000..9ca119d
--- /dev/null
+++ b/puremapping/probabilizer.pd
@@ -0,0 +1,98 @@
+#N canvas 160 279 607 730 10;
+#X obj 109 54 inlet;
+#X obj 152 669 outlet;
+#N canvas 1 91 450 300 list_summ 0;
+#X obj 56 13 inlet;
+#X obj 80 76 list split 1;
+#X obj 52 198 outlet;
+#X obj 84 147 +;
+#X msg 102 126 0;
+#X obj 115 147 f;
+#X obj 118 104 list;
+#X obj 53 176 f;
+#X obj 56 46 t b a b;
+#X connect 0 0 8 0;
+#X connect 1 0 3 0;
+#X connect 1 1 6 0;
+#X connect 3 0 5 0;
+#X connect 3 0 7 1;
+#X connect 4 0 3 1;
+#X connect 5 0 3 1;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 8 0 7 0;
+#X connect 8 1 1 0;
+#X connect 8 2 4 0;
+#X restore 109 111 pd list_summ;
+#X obj 109 83 t a a;
+#X obj 109 225 random;
+#X obj 109 294 until;
+#X obj 109 389 list split 1;
+#X obj 109 370 list;
+#X obj 109 521 sel 0 1;
+#X obj 170 550 list length;
+#X obj 152 571 f;
+#X obj 109 459 +;
+#X obj 148 459 f;
+#X msg 343 379 0;
+#X obj 109 267 t b f b;
+#X obj 109 203 t b f;
+#X floatatom 120 247 5 0 0 0 - - -;
+#X obj 324 112 t a;
+#X obj 345 419 f;
+#X obj 205 578 list length;
+#X obj 152 645 -;
+#X msg 152 624 \$2 \$1;
+#X obj 152 603 pack f f;
+#N canvas 1 84 450 300 strict 0;
+#X obj 89 77 t f f;
+#X obj 78 241 f;
+#X obj 85 110 > 0;
+#X obj 87 50 inlet;
+#X obj 80 267 outlet;
+#X obj 249 276 outlet;
+#X obj 91 148 sel 1;
+#X obj 181 182 t b;
+#X connect 0 0 2 0;
+#X connect 0 1 1 1;
+#X connect 1 0 4 0;
+#X connect 2 0 6 0;
+#X connect 3 0 0 0;
+#X connect 6 0 1 0;
+#X connect 6 1 7 0;
+#X connect 7 0 5 0;
+#X restore 111 149 pd strict moses 0;
+#X obj 109 483 >;
+#X connect 0 0 3 0;
+#X connect 2 0 23 0;
+#X connect 3 0 2 0;
+#X connect 3 1 17 0;
+#X connect 4 0 14 0;
+#X connect 4 0 16 0;
+#X connect 5 0 7 0;
+#X connect 6 0 11 0;
+#X connect 6 1 9 0;
+#X connect 6 1 7 1;
+#X connect 7 0 6 0;
+#X connect 8 1 5 1;
+#X connect 8 1 10 0;
+#X connect 9 0 10 1;
+#X connect 10 0 22 0;
+#X connect 11 0 12 0;
+#X connect 11 0 24 0;
+#X connect 12 0 11 1;
+#X connect 13 0 11 1;
+#X connect 14 0 5 0;
+#X connect 14 1 18 0;
+#X connect 14 2 13 0;
+#X connect 15 0 4 0;
+#X connect 15 1 4 1;
+#X connect 17 0 7 1;
+#X connect 17 0 19 0;
+#X connect 18 0 24 1;
+#X connect 19 0 22 1;
+#X connect 20 0 1 0;
+#X connect 21 0 20 0;
+#X connect 22 0 21 0;
+#X connect 23 0 15 0;
+#X connect 24 0 8 0;