From bc8d4bcab370eb9042489cb760023e8f259b9cc1 Mon Sep 17 00:00:00 2001 From: Cyrille Henry Date: Mon, 9 Apr 2012 19:57:36 +0000 Subject: adding possilbity to have non integer probability svn path=/trunk/externals/nusmuk/; revision=16111 --- puremapping/probabilizer.pd | 50 ++++++++++++++++++++++++--------------------- 1 file changed, 27 insertions(+), 23 deletions(-) diff --git a/puremapping/probabilizer.pd b/puremapping/probabilizer.pd index 9ca119d..bb6009d 100644 --- a/puremapping/probabilizer.pd +++ b/puremapping/probabilizer.pd @@ -1,7 +1,7 @@ -#N canvas 160 279 607 730 10; +#N canvas 1178 201 607 730 10; #X obj 109 54 inlet; -#X obj 152 669 outlet; -#N canvas 1 91 450 300 list_summ 0; +#X obj 152 699 outlet; +#N canvas 1 98 450 300 list_summ 0; #X obj 56 13 inlet; #X obj 80 76 list split 1; #X obj 52 198 outlet; @@ -26,24 +26,24 @@ #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 obj 109 324 until; +#X obj 109 419 list split 1; +#X obj 109 400 list; +#X obj 109 551 sel 0 1; +#X obj 170 580 list length; +#X obj 152 601 f; +#X obj 109 489 +; +#X obj 148 489 f; +#X msg 343 409 0; +#X obj 109 297 t b f b; +#X obj 109 173 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; +#X obj 345 449 f; +#X obj 205 608 list length; +#X obj 152 675 -; +#X msg 152 654 \$2 \$1; +#X obj 152 633 pack f f; #N canvas 1 84 450 300 strict 0; #X obj 89 77 t f f; #X obj 78 241 f; @@ -61,14 +61,16 @@ #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 restore 109 149 pd strict moses 0; +#X obj 109 513 >; +#X obj 141 195 * 100000; +#X obj 109 270 / 100000; #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 4 0 26 0; #X connect 5 0 7 0; #X connect 6 0 11 0; #X connect 6 1 9 0; @@ -86,7 +88,7 @@ #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 15 1 25 0; #X connect 17 0 7 1; #X connect 17 0 19 0; #X connect 18 0 24 1; @@ -96,3 +98,5 @@ #X connect 22 0 21 0; #X connect 23 0 15 0; #X connect 24 0 8 0; +#X connect 25 0 4 1; +#X connect 26 0 14 0; -- cgit v1.2.1