abstraction-implementation of [sum]

svn path=/trunk/externals/zexy/; revision=6065

2 files changed, 46 insertions, 0 deletions

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;