From 779b45410e8c76b2984d26823e97310c7601b38f Mon Sep 17 00:00:00 2001 From: Cyrille Henry Date: Fri, 10 Apr 2009 17:52:07 +0000 Subject: initial commit of the puremapping abstraction collection svn path=/trunk/abstractions/nusmuk/; revision=11004 --- puremapping/min_n.pd | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 98 insertions(+) create mode 100644 puremapping/min_n.pd (limited to 'puremapping/min_n.pd') diff --git a/puremapping/min_n.pd b/puremapping/min_n.pd new file mode 100644 index 0000000..57c1fe6 --- /dev/null +++ b/puremapping/min_n.pd @@ -0,0 +1,98 @@ +#N canvas 26 291 365 247 10; +#X obj 64 175 outlet; +#X obj 64 27 inlet; +#X obj 144 26 inlet; +#N canvas 0 0 703 492 list-minimum 0; +#X obj 129 120 route float; +#X obj 106 366 f; +#X obj 106 393 outlet; +#X obj 106 10 inlet; +#N canvas 0 0 450 300 once 0; +#X obj 110 75 inlet; +#X obj 105 187 spigot 1; +#X obj 110 104 t b f; +#X msg 125 151 0; +#X msg 165 99 1; +#X obj 165 63 inlet; +#X obj 102 219 outlet; +#X connect 0 0 2 0; +#X connect 1 0 6 0; +#X connect 2 0 3 0; +#X connect 2 1 1 0; +#X connect 3 0 1 1; +#X connect 4 0 1 1; +#X connect 5 0 4 0; +#X restore 263 183 pd once; +#X obj 276 258 f; +#X obj 129 150 t a a a; +#X obj 106 30 t b a b; +#X text 324 183 prime [min] and [max] with first item once; +#N canvas 0 0 450 300 list-drip 0; +#X obj 63 84 t a a; +#X obj 63 241 spigot; +#X obj 102 149 bang; +#X obj 102 168 1; +#X obj 223 149 route bang; +#X obj 183 150 bang; +#X obj 183 169 0; +#X obj 102 114 list split 2; +#X obj 232 379 list split; +#X obj 299 328 list length; +#X obj 299 350 >> 1; +#X obj 63 260 t a a a a; +#X obj 63 446 list split; +#X obj 130 398 list length; +#X obj 130 423 >> 1; +#X obj 31 19 inlet; +#X obj 290 175 outlet; +#X text 73 19 Copyright 2009 by Mathieu Bouchard; +#X obj 31 53 t b a; +#X obj 465 119 outlet; +#X text 520 121 signal end of list; +#X text 381 23 made compatible with [list-drip]: fbar 2009; +#X connect 0 0 1 0; +#X connect 0 1 7 0; +#X connect 1 0 11 0; +#X connect 2 0 3 0; +#X connect 3 0 1 1; +#X connect 4 1 16 0; +#X connect 5 0 6 0; +#X connect 6 0 1 1; +#X connect 7 0 2 0; +#X connect 7 2 4 0; +#X connect 7 2 5 0; +#X connect 8 0 0 0; +#X connect 9 0 10 0; +#X connect 10 0 8 1; +#X connect 11 0 12 0; +#X connect 11 1 13 0; +#X connect 11 2 8 0; +#X connect 11 3 9 0; +#X connect 12 1 0 0; +#X connect 13 0 14 0; +#X connect 14 0 12 1; +#X connect 15 0 18 0; +#X connect 18 0 19 0; +#X connect 18 1 0 0; +#X restore 129 97 pd list-drip; +#X text 427 286 from foobar/list-abs; +#X obj 245 257 min; +#X connect 0 0 6 0; +#X connect 1 0 2 0; +#X connect 3 0 7 0; +#X connect 4 0 11 1; +#X connect 5 0 11 1; +#X connect 6 1 11 0; +#X connect 6 2 4 0; +#X connect 7 0 1 0; +#X connect 7 1 9 0; +#X connect 7 2 4 1; +#X connect 9 0 0 0; +#X connect 11 0 5 0; +#X connect 11 0 1 1; +#X restore 64 146 pd list-minimum; +#X obj 64 118 last_n \$1; +#X connect 1 0 4 0; +#X connect 2 0 4 1; +#X connect 3 0 0 0; +#X connect 4 0 3 0; -- cgit v1.2.1