From 5239e4f9250a990bfb068c9c1e1e9c6a2a211817 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 3 Oct 2006 09:11:29 +0000 Subject: abstraction-implementation of [sum] svn path=/trunk/externals/zexy/; revision=6065 --- abs/sum-help.pd | 13 +++++++++++++ abs/sum.pd | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 46 insertions(+) create mode 100644 abs/sum-help.pd create mode 100644 abs/sum.pd diff --git a/abs/sum-help.pd b/abs/sum-help.pd new file mode 100644 index 0000000..1be9378 --- /dev/null +++ b/abs/sum-help.pd @@ -0,0 +1,13 @@ +#N canvas 231 541 421 294 10; +#X floatatom 72 206 4 0 0 0 - - -; +#X text 324 19 part of zexy; +#X obj 72 186 sum; +#X obj 77 40 sum; +#X text 109 41 sum the elements of a list; +#X msg 72 79 1; +#X msg 83 108 1 2 3 4 5 6 7 8 9 10; +#X msg 93 141 1000 3 2 -100 2 12; +#X connect 2 0 0 0; +#X connect 5 0 2 0; +#X connect 6 0 2 0; +#X connect 7 0 2 0; diff --git a/abs/sum.pd b/abs/sum.pd new file mode 100644 index 0000000..d089258 --- /dev/null +++ b/abs/sum.pd @@ -0,0 +1,33 @@ +#N canvas 300 91 450 300 10; +#X obj 43 29 inlet; +#X obj 46 229 outlet; +#X obj 59 103 list split 1; +#X obj 59 67 until; +#X obj 59 85 list append; +#X obj 126 120 bang; +#X obj 59 138 route float; +#X obj 59 171 +; +#X obj 59 188 t f f; +#X obj 46 206 f; +#X msg 92 154 0; +#X obj 43 48 t b b l b; +#X text 289 21 part of zexy; +#X text 37 11 sum up a list of floats; +#X text 212 87 requires pd>=0.39; +#X connect 0 0 11 0; +#X connect 2 0 6 0; +#X connect 2 1 4 1; +#X connect 2 2 5 0; +#X connect 3 0 4 0; +#X connect 4 0 2 0; +#X connect 5 0 3 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 1; +#X connect 8 1 7 1; +#X connect 9 0 1 0; +#X connect 10 0 8 0; +#X connect 11 0 9 0; +#X connect 11 1 3 0; +#X connect 11 2 4 1; +#X connect 11 3 10 0; -- cgit v1.2.1