From efed3833da03cda6df11163e2ffccc52072ba099 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jo=C3=A3o=20Pais?= <jmmmp@users.sourceforge.net>
Date: Fri, 9 Jul 2010 08:32:33 +0000
Subject: svn path=/trunk/abstractions/jmmmp/; revision=13700

---
 array+.pd | 204 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 204 insertions(+)
 create mode 100644 array+.pd

(limited to 'array+.pd')

diff --git a/array+.pd b/array+.pd
new file mode 100644
index 0000000..78c3b5d
--- /dev/null
+++ b/array+.pd
@@ -0,0 +1,204 @@
+#N struct 1015-graph float x float y float dist float resol float width
+float stres array 1015-boxes 1015-box;
+#N struct 1015-box float y float width;
+#N canvas 330 25 920 794 10;
+#N canvas 651 507 450 300 \$0-box 0;
+#X obj 40 83 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X obj 22 26 struct \$0-box float y float width;
+#X obj 28 114 drawpolygon 0 2 0 0 width 0;
+#X connect 0 0 2 0;
+#X restore 753 114 pd \$0-box;
+#N canvas 600 79 615 150 \$0-graph 1;
+#X obj 19 21 struct \$0-graph float x float y float dist float resol
+float width float stres array \$0-boxes \$0-box;
+#X obj 30 100 plot -y y(0:4)(4:0)(1) \$0-boxes 0 0 0 0 dist;
+#X restore 753 134 pd \$0-graph;
+#X obj 20 203 pointer;
+#X obj 107 454 setsize \$0-graph \$0-boxes;
+#X obj 119 163 pointer;
+#X obj 119 123 \$0;
+#X obj 124 424 set \$0-graph dist;
+#X obj 124 404 expr 10/$f1;
+#X obj 133 534 element \$0-graph \$0-boxes;
+#X msg 139 96 clear;
+#X obj 20 183 append \$0-graph x;
+#X obj 40 554 set \$0-box width;
+#X obj 40 424 until;
+#X obj 40 444 f+;
+#X obj 40 404 t f b f;
+#X obj 79 484 expr 10/$f1;
+#X obj 40 504 f;
+#X obj 40 464 t b f;
+#X obj 20 163 0;
+#X obj 98 46 t b b b b;
+#X obj 464 144 element \$0-graph \$0-boxes;
+#X obj 464 164 get \$0-box y;
+#X msg 149 76 donecanvasdialog 1 -1 2 0 0 10 4 100 70 0 0;
+#X obj 511 536 element \$0-graph \$0-boxes;
+#X obj 442 466 until;
+#X obj 442 486 f+;
+#X obj 442 506 t b f;
+#X obj 442 556 set \$0-box y;
+#X obj 442 426 f;
+#X obj 442 526 0;
+#X obj 90 374 t f f f f;
+#X obj 442 446 t f b;
+#X obj 98 25 loadbang;
+#X obj 611 124 r \$0-pointer-aux;
+#X text 356 14 komisches workaround \, weil gop nicht richtig funktioniert
+;
+#X obj 175 28 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 51 334 \$2;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array array1 100 float 3;
+#A 0 0.157144 0.17143 0.17143 0.17143 0.17143 0.17143 0.17143 0.17143
+0.17143 0.17143 0.17143 0.17143 0.17143 0.185715 0.228573 0.242859
+0.261907 0.280954 0.300002 0.328574 0.34286 0.361907 0.380955 0.400003
+0.414289 0.44286 0.457146 0.471432 0.485718 0.500004 0.528575 0.542861
+0.571433 0.585719 0.600004 0.61429 0.657148 0.671433 0.685719 0.685719
+0.685719 0.700005 0.700005 0.700005 0.692862 0.685719 0.671433 0.66429
+0.657148 0.628576 0.600004 0.571433 0.542861 0.521432 0.500004 0.485718
+0.471432 0.44286 0.433336 0.423812 0.414289 0.407146 0.400003 0.39286
+0.385717 0.378574 0.371431 0.364288 0.357145 0.353574 0.350002 0.346431
+0.34286 0.34286 0.342859 0.338098 0.333336 0.328574 0.321431 0.314288
+0.300002 0.300002 0.27143 0.228573 0.17143 0.157144 0.128572 0.100001
+0.0857147 0.0428572 0.0285714 -0.0428577 -0.100001 0.0857148 0.0833339
+0.0809529 0.0785719 0.076191 0.07381 0.071429;
+#X coords 0 1 99 -1 200 140 1;
+#X restore 707 269 graph;
+#X msg 730 418 \; array1 0 1 1 1 1 -1 -1 -1;
+#X obj 51 354 moses 1;
+#N canvas 35 70 367 459 \$0-array 0;
+#X scalar 1015-graph 0 0 0.5 0 0 2 \; 2.05714 0.5 \; 3.8 0.5 \; 3.7
+0.5 \; 3.3 0.5 \; 2.9 0.5 \; 2.7 0.5 \; 2.5 0.5 \; 2.3 0.5 \; 1.8 0.5
+\; 0.9 0.5 \; 0.1 0.5 \; 0 0.5 \; 0 0.5 \; 0.4 0.5 \; 1.7 0.5 \; 1.9
+0.5 \; 2.2 0.5 \; 1 0.5 \; 4 0.5 \; 3 0.5 \; \;;
+#X coords 0 0 10 4 100 70 1;
+#X restore 753 30 pd \$0-array;
+#X obj 149 116 s pd-\$0-array;
+#X msg 120 143 traverse pd-\$1-array \, bang;
+#X obj 20 223 s \$0-pointer-array;
+#X obj 565 506 r \$0-pointer-array;
+#X obj 187 504 r \$0-pointer-array;
+#X obj 312 246 inlet;
+#X text 449 124 [inlet];
+#X floatatom 21 303 5 0 0 0 - - -;
+#N canvas 55 71 450 300 list-populate 0;
+#X obj 26 19 inlet;
+#X obj 168 93 r \$0-reset-aux;
+#X obj 158 73 r \$0-reset;
+#X obj 201 251 element \$0-graph \$0-boxes;
+#X obj 132 201 f+;
+#X obj 132 271 set \$0-box y;
+#X obj 158 118 f;
+#X obj 158 138 t f b;
+#X obj 255 221 r \$0-pointer-array;
+#X obj 26 39 list split 1;
+#X obj 26 99 drip;
+#X obj 26 79 list;
+#X obj 26 59 t b f;
+#X obj 41 139 t b f;
+#X connect 0 0 9 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 5 1;
+#X connect 4 0 3 0;
+#X connect 6 0 7 0;
+#X connect 7 1 4 1;
+#X connect 8 0 3 1;
+#X connect 9 0 12 0;
+#X connect 9 1 11 1;
+#X connect 10 0 13 0;
+#X connect 11 0 10 0;
+#X connect 12 0 11 0;
+#X connect 12 1 4 1;
+#X connect 13 0 4 0;
+#X connect 13 1 5 0;
+#X restore 365 286 pd list-populate;
+#X msg 372 246 10 -1 1 -1 0.5 -0.5 0.5 -0.2 0.2 -0.2 0.1 -0.1 0;
+#X obj 78 96 t b b b;
+#X obj 127 675 moses 1;
+#X obj 262 695 r \$0-pointer-array;
+#X obj 127 655 \$3;
+#X text 610 632 \$1 - array name;
+#X text 609 651 \$2 - array size;
+#X text 608 669 \$3 - step resolution;
+#X msg 127 695 1;
+#X obj 157 715 set \$0-graph stres;
+#X floatatom 84 646 5 0 0 0 - - -;
+#X text 97 735 usar uma variavel para o step nao e possivel???;
+#X obj 418 306 f;
+#X obj 418 326 outlet;
+#X obj 312 266 route resize list arraysize const;
+#X obj 442 396 t b f;
+#X text 482 396 const;
+#X text 448 217 read / write / rename / bounds / labels / ticks / gop-size
+;
+#X connect 2 0 43 0;
+#X connect 4 0 10 1;
+#X connect 5 0 42 0;
+#X connect 7 0 6 0;
+#X connect 8 0 11 1;
+#X connect 9 0 41 0;
+#X connect 10 0 2 0;
+#X connect 12 0 13 0;
+#X connect 13 0 17 0;
+#X connect 14 0 12 0;
+#X connect 14 1 13 1;
+#X connect 14 2 15 0;
+#X connect 15 0 16 1;
+#X connect 16 0 11 0;
+#X connect 17 0 16 0;
+#X connect 17 1 8 0;
+#X connect 18 0 10 0;
+#X connect 19 0 51 0;
+#X connect 19 1 5 0;
+#X connect 19 2 9 0;
+#X connect 19 3 22 0;
+#X connect 20 0 21 0;
+#X connect 22 0 41 0;
+#X connect 23 0 27 1;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 29 0;
+#X connect 26 1 23 0;
+#X connect 28 0 31 0;
+#X connect 29 0 27 0;
+#X connect 30 0 14 0;
+#X connect 30 1 3 0;
+#X connect 30 2 7 0;
+#X connect 30 3 28 1;
+#X connect 31 0 24 0;
+#X connect 31 1 25 1;
+#X connect 32 0 19 0;
+#X connect 33 0 20 1;
+#X connect 35 0 19 0;
+#X connect 36 0 39 0;
+#X connect 36 0 62 1;
+#X connect 39 1 30 0;
+#X connect 42 0 4 0;
+#X connect 44 0 23 1;
+#X connect 45 0 8 1;
+#X connect 45 0 3 1;
+#X connect 45 0 6 1;
+#X connect 46 0 64 0;
+#X connect 48 0 36 0;
+#X connect 50 0 64 0;
+#X connect 51 0 54 0;
+#X connect 51 1 36 0;
+#X connect 51 2 18 0;
+#X connect 52 0 58 0;
+#X connect 52 1 59 0;
+#X connect 53 0 59 1;
+#X connect 54 0 52 0;
+#X connect 58 0 59 0;
+#X connect 60 0 52 0;
+#X connect 62 0 63 0;
+#X connect 64 0 36 0;
+#X connect 64 1 49 0;
+#X connect 64 2 62 0;
+#X connect 64 3 65 0;
+#X connect 65 0 28 0;
+#X connect 65 1 29 0;
-- 
cgit v1.2.1