SF.net SVN: pure-data: [9714] trunk/abstractions/senderfruit/core - Pd-cvs

17 Apr 2008

Revision: 9714
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9714&view=rev
Author:   lukeiannini
Date:     2008-04-16 16:08:33 -0700 (Wed, 16 Apr 2008)
Log Message:
-----------
list-proc-insert, two more ds-abs
Added Paths:
-----------
    trunk/abstractions/senderfruit/core/ds-first-help.pd
    trunk/abstractions/senderfruit/core/ds-first.pd
    trunk/abstractions/senderfruit/core/ds-idx-only-help.pd
    trunk/abstractions/senderfruit/core/ds-idx-only.pd
    trunk/abstractions/senderfruit/core/list-proc-insert-help.pd
    trunk/abstractions/senderfruit/core/list-proc-insert.pd
Added: trunk/abstractions/senderfruit/core/ds-first-help.pd
===================================================================

--- trunk/abstractions/senderfruit/core/ds-first-help.pd	                        (rev 0)
+++ trunk/abstractions/senderfruit/core/ds-first-help.pd	2008-04-16 23:08:33 UTC (rev 9714)
@@ -0,0 +1,84 @@
+#N struct datatemplatered float x float y;
+#N struct datatemplateblue float x float y;
+#N canvas 0 22 450 300 10;
+#X obj 360 250 ds-first;
+#X obj 55 86 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 11 30 Right outlet bangs at end of data.;
+#N canvas 963 339 134 109 $0data 1;
+#X scalar datatemplatered 30 10 ;;
+#X scalar datatemplatered 40 20 ;;
+#X scalar datatemplatered 50 30 ;;
+#X scalar datatemplatered 60 40 ;;
+#X scalar datatemplateblue 10 10 ;;
+#X scalar datatemplateblue 20 20 ;;
+#X scalar datatemplateblue 30 30 ;;
+#X scalar datatemplateblue 40 40 ;;
+#X restore 321 56 pd $0data;
+#X obj 55 110 t a b;
+#X obj 55 200 list-extend;
+#X obj 55 224 prepent set;
+#X text 269 260 2008 Luke Iannini;
+#X text 272 274 proyekto.net;
+#X obj 298 142 bng 15 250 50 0 empty empty end 17 7 0 10 -262144 -1
+-1;
+#X msg 55 251 30;
+#N canvas 10 355 450 300 datatemplateblue 0;
+#X msg 190 198 traverse pd-$1data , bang;
+#X obj 190 224 pointer;
+#X obj 163 128 loadbang;
+#X msg 17 208 10 10 , 20 20 , 30 30 , 40 40;
+#X obj 144 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 190 175 $0;
+#X msg 229 153 clear;
+#X obj 229 176 s pd-$0data;
+#X obj 48 18 struct datatemplateblue float x float y;
+#X obj 79 279 append datatemplateblue x y;
+#X obj 48 41 drawpolygon 9 3 0 0 0 10 10 10 10 0 0 0;
+#X obj 163 153 t b b b b;
+#X obj 89 153 s $0makeRed;
+#X connect 0 0 1 0;
+#X connect 1 0 9 2;
+#X connect 2 0 11 0;
+#X connect 3 0 9 0;
+#X connect 4 0 11 0;
+#X connect 5 0 0 0;
+#X connect 6 0 7 0;
+#X connect 11 0 12 0;
+#X connect 11 1 3 0;
+#X connect 11 2 5 0;
+#X connect 11 3 6 0;
+#X restore 322 81 pd datatemplateblue;
+#N canvas 10 355 450 300 datatemplatered 0;
+#X msg 190 198 traverse pd-$1data , bang;
+#X obj 190 224 pointer;
+#X obj 144 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 190 175 $0;
+#X obj 79 279 append datatemplatered x y;
+#X obj 48 18 struct datatemplatered float x float y;
+#X obj 48 41 drawpolygon 900 3 0 0 0 10 10 10 10 0 0 0;
+#X msg 17 208 30 10 , 40 20 , 50 30 , 60 40;
+#X obj 163 152 t b b;
+#X obj 163 128 r $0makeRed;
+#X connect 0 0 1 0;
+#X connect 1 0 4 2;
+#X connect 2 0 8 0;
+#X connect 3 0 0 0;
+#X connect 7 0 4 0;
+#X connect 8 0 7 0;
+#X connect 8 1 3 0;
+#X connect 9 0 8 0;
+#X restore 322 101 pd datatemplatered;
+#X obj 55 174 get datatemplatered x;
+#X text 12 13 Outputs first encountered pointer of a template.;
+#X obj 55 141 ds-first pd-$0data datatemplatered;
+#X connect 1 0 4 0;
+#X connect 4 0 15 0;
+#X connect 4 1 5 1;
+#X connect 5 0 6 0;
+#X connect 6 0 10 0;
+#X connect 13 0 5 0;
+#X connect 15 0 13 0;
+#X connect 15 1 9 0;
Added: trunk/abstractions/senderfruit/core/ds-first.pd
===================================================================
--- trunk/abstractions/senderfruit/core/ds-first.pd	                        (rev 0)
+++ trunk/abstractions/senderfruit/core/ds-first.pd	2008-04-16 23:08:33 UTC (rev 9714)
@@ -0,0 +1,27 @@
+#N canvas 540 376 450 300 10;
+#X obj 182 135 until;
+#X msg 182 156 next;
+#X obj 56 90 list append $1;
+#X obj 56 113 prepent traverse;
+#X obj 56 53 loadbang;
+#X obj 182 22 inlet;
+#X obj 209 242 outlet;
+#X obj 336 242 outlet;
+#X obj 182 179 pointer $2;
+#X obj 182 206 t b a;
+#X obj 182 52 t b b;
+#X obj 297 50 t b b;
+#X connect 0 0 1 0;
+#X connect 1 0 8 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 4 0 2 0;
+#X connect 5 0 10 0;
+#X connect 8 0 9 0;
+#X connect 8 2 11 0;
+#X connect 9 0 11 0;
+#X connect 9 1 6 0;
+#X connect 10 0 0 0;
+#X connect 10 1 2 0;
+#X connect 11 0 7 0;
+#X connect 11 1 0 1;
Added: trunk/abstractions/senderfruit/core/ds-idx-only-help.pd
===================================================================
--- trunk/abstractions/senderfruit/core/ds-idx-only-help.pd	                        (rev 0)
+++ trunk/abstractions/senderfruit/core/ds-idx-only-help.pd	2008-04-16 23:08:33 UTC (rev 9714)
@@ -0,0 +1,23 @@
+#N canvas 0 22 450 300 10;
+#X text 16 11 ds-idx-only;
+#X text 274 254 2008 Luke Iannini;
+#X obj 105 89 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 123 88 bang for last used index;
+#X msg 54 88 10;
+#X obj 54 126 ds-idx-only pd-$0data datatemplate5 3;
+#X obj 273 153 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 16 35 outputs the nth pointer of a certain template type ,
+or a bang from the right outlet if the nth pointer does not exist.
+;
+#X obj 54 170 get datatemplate5 x;
+#X obj 70 198 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X floatatom 54 223 5 0 0 0 - - -;
+#X connect 2 0 5 0;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 5 1 6 0;
+#X connect 8 0 9 0;
+#X connect 8 0 10 0;
Added: trunk/abstractions/senderfruit/core/ds-idx-only.pd
===================================================================
--- trunk/abstractions/senderfruit/core/ds-idx-only.pd	                        (rev 0)
+++ trunk/abstractions/senderfruit/core/ds-idx-only.pd	2008-04-16 23:08:33 UTC (rev 9714)
@@ -0,0 +1,56 @@
+#N canvas 869 295 378 463 10;
+#X obj 197 233 sel $3;
+#X obj 197 210 f;
+#X obj 221 210 + 1;
+#X obj 116 289 pointer;
+#X obj 162 346 once;
+#X msg 183 325 reset;
+#X obj 162 426 outlet;
+#X obj 240 75 list append $1;
+#X obj 240 98 prepent traverse;
+#X msg 212 187 0;
+#X obj 38 85 until;
+#X msg 38 109 next;
+#X obj 127 102 t b;
+#X obj 224 161 route bang;
+#X obj 38 131 pointer $2;
+#X obj 144 8 inlet;
+#X obj 128 172 t b p;
+#X obj 197 255 t b b;
+#X obj 183 138 t b b a;
+#X obj 144 37 t b b a;
+#X obj 127 80 r $0stop;
+#X obj 224 278 s $0stop;
+#X obj 162 375 route bang;
+#X obj 232 426 outlet;
+#X connect 0 0 17 0;
+#X connect 1 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 1;
+#X connect 3 0 4 0;
+#X connect 4 0 22 0;
+#X connect 5 0 4 1;
+#X connect 7 0 8 0;
+#X connect 8 0 14 0;
+#X connect 9 0 1 1;
+#X connect 10 0 11 0;
+#X connect 11 0 14 0;
+#X connect 12 0 10 1;
+#X connect 13 1 0 1;
+#X connect 14 0 16 0;
+#X connect 14 2 12 0;
+#X connect 14 2 4 0;
+#X connect 15 0 19 0;
+#X connect 16 0 1 0;
+#X connect 16 1 3 1;
+#X connect 17 0 3 0;
+#X connect 17 1 21 0;
+#X connect 18 0 5 0;
+#X connect 18 1 9 0;
+#X connect 18 2 13 0;
+#X connect 19 0 10 0;
+#X connect 19 1 7 0;
+#X connect 19 2 18 0;
+#X connect 20 0 12 0;
+#X connect 22 0 23 0;
+#X connect 22 1 6 0;
Added: trunk/abstractions/senderfruit/core/list-proc-insert-help.pd
===================================================================
--- trunk/abstractions/senderfruit/core/list-proc-insert-help.pd	                        (rev 0)
+++ trunk/abstractions/senderfruit/core/list-proc-insert-help.pd	2008-04-16 23:08:33 UTC (rev 9714)
@@ -0,0 +1,43 @@
+#N canvas 246 385 587 311 10;
+#X obj 58 181 list-proc-insert;
+#X msg 58 96 a b c d e f g;
+#X obj 182 181 list-len;
+#X obj 104 130 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0
+8 -262144 -1 -1 0;
+#X floatatom 104 155 5 0 0 0 - - -;
+#X obj 58 216 print NEW_LIST;
+#X text 9 65 Argument: default POS;
+#X text 8 45 POS is zerobased. Negative POS will count from the end.
+;
+#X text 10 268 based on list-insert by frank barknecht;
+#X text 429 268 2008 Luke Iannini;
+#X text 235 122 POS defaults to 0 , meaning it will prepend the result
+to the original list.;
+#N canvas 0 22 322 281 how_to_append 0;
+#X obj 58 181 list-proc-insert;
+#X msg 58 66 a b c d e f g;
+#X obj 58 97 t a a;
+#X obj 58 216 print NEW_LIST2;
+#X obj 85 134 list-len;
+#X obj 183 189 f;
+#X obj 213 189 + 1;
+#X obj 183 168 t b;
+#X connect 0 0 3 0;
+#X connect 0 1 7 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 2 1 4 0;
+#X connect 4 0 0 1;
+#X connect 5 0 0 2;
+#X connect 5 0 6 0;
+#X connect 6 0 5 1;
+#X connect 7 0 5 0;
+#X restore 310 185 pd how_to_append;
+#X text 7 6 list-proc-insert: call user-defined process on incoming
+list and insert result into original list at position POS.;
+#X connect 0 0 5 0;
+#X connect 0 1 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 2;
+#X connect 3 0 4 0;
+#X connect 4 0 0 1;
Added: trunk/abstractions/senderfruit/core/list-proc-insert.pd
===================================================================
--- trunk/abstractions/senderfruit/core/list-proc-insert.pd	                        (rev 0)
+++ trunk/abstractions/senderfruit/core/list-proc-insert.pd	2008-04-16 23:08:33 UTC (rev 9714)
@@ -0,0 +1,14 @@
+#N canvas 433 22 275 240 10;
+#X obj 35 34 inlet;
+#X obj 75 34 inlet;
+#X obj 35 147 list-insert $1;
+#X obj 35 62 t a a;
+#X obj 176 175 outlet;
+#X obj 178 39 inlet;
+#X obj 35 174 outlet;
+#X connect 0 0 3 0;
+#X connect 1 0 2 1;
+#X connect 2 0 6 0;
+#X connect 3 0 4 0;
+#X connect 3 1 2 2;
+#X connect 5 0 2 0;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

    