Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7186
Modified Files: Tag: branch-v0-39-2-extended last-x.pd list-delete-help.pd list-delete.pd list-emath.pd list-len.pd list-math.pd list-minmax.pd list-rot-help.pd list-rot.pd Log Message: bugfixes to list abs added to pd-ext branch
Index: list-emath.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-emath.pd,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -d -r1.1 -r1.1.2.1 *** list-emath.pd 14 Nov 2005 09:54:35 -0000 1.1 --- list-emath.pd 28 May 2007 12:28:22 -0000 1.1.2.1 *************** *** 21,25 **** #X obj 341 76 symbol $1; #X obj 325 232 f; ! #X obj 78 322 expr $f1 $1 $f2; #X connect 0 0 14 0; #X connect 1 0 4 1; --- 21,25 ---- #X obj 341 76 symbol $1; #X obj 325 232 f; ! #X obj 78 322 $1; #X connect 0 0 14 0; #X connect 1 0 4 1;
Index: list-rot.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rot.pd,v retrieving revision 1.4 retrieving revision 1.4.2.1 diff -C2 -d -r1.4 -r1.4.2.1 *** list-rot.pd 15 Nov 2005 12:24:03 -0000 1.4 --- list-rot.pd 28 May 2007 12:28:22 -0000 1.4.2.1 *************** *** 1,20 **** ! #N canvas 158 147 575 357 10; ! #X obj 173 193 list prepend; #X obj 151 44 inlet; ! #X obj 259 115 inlet; ! #X text 311 115 how often to rotate; ! #X obj 151 220 list; ! #X text 198 43 list to rotate; ! #X obj 151 250 outlet; ! #X text 267 194 move right part of list to left.; ! #X obj 173 152 list-splat $1; ! #X obj 151 70 t b a b; #X connect 0 0 4 1; ! #X connect 1 0 9 0; ! #X connect 2 0 8 1; #X connect 4 0 6 0; ! #X connect 8 0 0 0; ! #X connect 8 1 0 1; ! #X connect 9 0 4 0; ! #X connect 9 1 8 0; ! #X connect 9 2 0 1; --- 1,28 ---- ! #N canvas 336 258 575 357 10; ! #X obj 170 253 list prepend; #X obj 151 44 inlet; ! #X obj 256 47 inlet; ! #X text 257 25 how often to rotate; ! #X obj 151 280 list; ! #X text 146 24 list to rotate; ! #X obj 151 310 outlet; ! #X text 278 232 move right part of list to left.; ! #X obj 256 174 mod $1; ! #X obj 256 152 f $1; ! #X obj 170 212 list split $1; ! #X obj 151 70 t b a b b a; ! #X obj 293 153 list-len; #X connect 0 0 4 1; ! #X connect 1 0 11 0; ! #X connect 2 0 9 0; #X connect 4 0 6 0; ! #X connect 8 0 10 1; ! #X connect 9 0 8 0; ! #X connect 10 0 0 0; ! #X connect 10 1 0 1; ! #X connect 11 0 4 0; ! #X connect 11 1 10 0; ! #X connect 11 2 0 1; ! #X connect 11 3 9 0; ! #X connect 11 4 12 0; ! #X connect 12 0 8 1;
Index: list-minmax.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-minmax.pd,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -d -r1.1 -r1.1.2.1 *** list-minmax.pd 1 Nov 2005 12:41:16 -0000 1.1 --- list-minmax.pd 28 May 2007 12:28:22 -0000 1.1.2.1 *************** *** 1,12 **** ! #N canvas 499 299 571 374 10; ! #X obj 128 37 list-drip; ! #X obj 128 60 route float; ! #X obj 128 204 f; ! #X obj 112 284 outlet; ! #X obj 171 259 f; ! #X obj 171 286 outlet; ! #X obj 40 198 t b b; ! #X obj 128 13 inlet; ! #X obj 112 256 f; #N canvas 0 0 450 300 once 0; #X obj 110 75 inlet; --- 1,12 ---- ! #N canvas 385 204 676 470 10; ! #X obj 128 97 list-drip; ! #X obj 128 120 route float; ! #X obj 159 256 f; ! #X obj 106 394 outlet; ! #X obj 165 369 f; ! #X obj 165 396 outlet; ! #X obj 106 305 t b b; ! #X obj 106 10 inlet; ! #X obj 106 366 f; #N canvas 0 0 450 300 once 0; #X obj 110 75 inlet; *************** *** 24,60 **** #X connect 4 0 1 1; #X connect 5 0 4 0; ! #X restore 218 112 pd once; ! #X obj 128 90 t f f f; ! #X obj 218 59 s $0-end; ! #X obj 262 87 r $0-end; ! #X obj 40 174 r $0-end; ! #X obj 128 146 <=; ! #X obj 128 168 select 1; ! #X obj 244 205 f; ! #X obj 244 169 select 1; ! #X obj 244 147 >=; #X connect 0 0 1 0; ! #X connect 0 1 11 0; ! #X connect 1 0 10 0; ! #X connect 2 0 8 1; ! #X connect 2 0 14 1; #X connect 4 0 5 0; #X connect 6 0 8 0; #X connect 6 1 4 0; ! #X connect 7 0 0 0; #X connect 8 0 3 0; ! #X connect 9 0 14 1; ! #X connect 9 0 18 1; ! #X connect 10 0 14 0; ! #X connect 10 0 18 0; ! #X connect 10 1 16 1; ! #X connect 10 1 2 1; ! #X connect 10 2 9 0; ! #X connect 12 0 9 1; ! #X connect 13 0 6 0; ! #X connect 14 0 15 0; ! #X connect 15 0 2 0; ! #X connect 16 0 4 1; ! #X connect 16 0 18 1; ! #X connect 17 0 16 0; ! #X connect 18 0 17 0; --- 24,53 ---- #X connect 4 0 1 1; #X connect 5 0 4 0; ! #X restore 260 183 pd once; ! #X obj 275 258 f; ! #X obj 244 257 max; ! #X obj 128 256 min; ! #X obj 128 150 t a a a; ! #X obj 106 30 t b a b; ! #X text 321 183 prime [min] and [max] with first item once; #X connect 0 0 1 0; ! #X connect 1 0 13 0; ! #X connect 2 0 12 1; #X connect 4 0 5 0; #X connect 6 0 8 0; #X connect 6 1 4 0; ! #X connect 7 0 14 0; #X connect 8 0 3 0; ! #X connect 9 0 11 1; ! #X connect 9 0 12 1; ! #X connect 10 0 11 1; ! #X connect 11 0 10 0; ! #X connect 11 0 4 1; ! #X connect 12 0 2 0; ! #X connect 12 0 8 1; ! #X connect 13 0 12 0; ! #X connect 13 1 11 0; ! #X connect 13 2 9 0; ! #X connect 14 0 6 0; ! #X connect 14 1 0 0; ! #X connect 14 2 9 1;
Index: list-math.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-math.pd,v retrieving revision 1.4 retrieving revision 1.4.2.1 diff -C2 -d -r1.4 -r1.4.2.1 *** list-math.pd 13 Sep 2006 18:40:41 -0000 1.4 --- list-math.pd 28 May 2007 12:28:22 -0000 1.4.2.1 *************** *** 1,40 **** ! #N canvas 424 89 624 640 10; ! #X msg 119 113 1 2 3 4 a b c; ! #X text 251 117 <- click to test; ! #X obj 196 386 list; ! #X obj 77 499 list; ! #X obj 100 271 route float; ! #X obj 100 385 list prepend; ! #X floatatom 248 273 5 0 0 0 - - -; ! #X obj 78 150 t b a b; ! #X text 254 314 Do math only on float elements; ! #X text 260 177 clear result list; ! #X text 175 242 "Drip" (serialize) the list; ! #X text 258 389 Repack the list (think of the counter); ! #X text 124 496 Final result is built here; ! #X obj 78 81 inlet; ! #X obj 100 307 expr $f1 $1 $f2; ! #X obj 200 273 inlet; ! #X obj 77 530 outlet; ! #X text 182 32 Use as "list-math operator" where operator is some binary operator , expr can understand.; ! #X obj 290 266 loadbang; ! #X obj 290 287 f $2; ! #X obj 100 242 list-drip; ! #X connect 0 0 7 0; ! #X connect 2 0 5 1; ! #X connect 3 0 16 0; ! #X connect 4 0 14 0; ! #X connect 4 1 5 0; ! #X connect 5 0 2 0; ! #X connect 5 0 3 1; ! #X connect 6 0 14 1; ! #X connect 7 0 3 0; ! #X connect 7 1 20 0; ! #X connect 7 2 5 1; ! #X connect 13 0 7 0; ! #X connect 14 0 5 0; ! #X connect 15 0 14 1; ! #X connect 18 0 19 0; ! #X connect 19 0 14 1; ! #X connect 20 0 4 0; --- 1,16 ---- ! #N canvas 424 89 462 324 10; ! #X obj 55 58 inlet; ! #X obj 55 235 outlet; ! #X text 44 16 Use as "list-math operator" where operator is some binary operator , expr can understand.; ! #X obj 55 136 list-map; ! #X obj 152 208 $1 $2; ! #X obj 182 134 inlet; ! #X obj 152 97 route float; ! #X connect 0 0 3 0; ! #X connect 3 0 1 0; ! #X connect 3 1 6 0; ! #X connect 4 0 3 1; ! #X connect 5 0 4 1; ! #X connect 6 0 4 0; ! #X connect 6 1 3 1;
Index: list-delete.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-delete.pd,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -d -r1.1 -r1.1.2.1 *** list-delete.pd 6 Nov 2005 11:48:18 -0000 1.1 --- list-delete.pd 28 May 2007 12:28:22 -0000 1.1.2.1 *************** *** 1,11 **** ! #N canvas 0 0 450 300 10; #X obj 151 149 list-splat $1; ! #X obj 237 52 inlet; ! #X text 235 32 pos; ! #X obj 151 53 inlet; ! #X text 135 31 orig. list; ! #X obj 194 177 list split 1; ! #X obj 151 216 list; ! #X obj 151 245 outlet; #X connect 0 0 6 0; #X connect 0 1 5 0; --- 1,17 ---- ! #N canvas 18 49 525 309 10; #X obj 151 149 list-splat $1; ! #X obj 237 50 inlet; ! #X text 235 30 pos; ! #X obj 151 51 inlet; ! #X text 135 29 orig. list; ! #X obj 194 217 list split 1; ! #X obj 151 256 list; ! #X obj 151 285 outlet; ! #X obj 302 127 moses 1; ! #X obj 302 50 inlet; ! #X obj 327 78 loadbang; ! #X text 299 30 how many items to delete; ! #X obj 302 106 f $2; ! #X msg 302 149 1; #X connect 0 0 6 0; #X connect 0 1 5 0; *************** *** 15,16 **** --- 21,28 ---- #X connect 5 1 6 1; #X connect 6 0 7 0; + #X connect 8 0 13 0; + #X connect 8 1 5 1; + #X connect 9 0 12 0; + #X connect 10 0 12 0; + #X connect 12 0 8 0; + #X connect 13 0 5 1;
Index: last-x.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/last-x.pd,v retrieving revision 1.2 retrieving revision 1.2.2.1 diff -C2 -d -r1.2 -r1.2.2.1 *** last-x.pd 8 Nov 2005 09:15:45 -0000 1.2 --- last-x.pd 28 May 2007 12:28:22 -0000 1.2.2.1 *************** *** 1,10 **** #N canvas 417 318 464 379 10; ! #X obj 244 149 inlet; #X obj 179 149 inlet; #X obj 179 253 outlet; - #X obj 179 206 list-lastx; #X text 54 77 This is just a backwards compatibility wrapper around list-lastx; ! #X connect 0 0 3 1; ! #X connect 1 0 3 0; ! #X connect 3 0 2 0; --- 1,10 ---- #N canvas 417 318 464 379 10; ! #X obj 265 147 inlet; #X obj 179 149 inlet; #X obj 179 253 outlet; #X text 54 77 This is just a backwards compatibility wrapper around list-lastx; ! #X obj 179 206 list-lastx $1; ! #X connect 0 0 4 1; ! #X connect 1 0 4 0; ! #X connect 4 0 2 0;
Index: list-len.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-len.pd,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -d -r1.1 -r1.1.2.1 *** list-len.pd 1 Nov 2005 12:41:16 -0000 1.1 --- list-len.pd 28 May 2007 12:28:22 -0000 1.1.2.1 *************** *** 1,25 **** #N canvas 0 0 534 321 10; #X obj 126 70 inlet; ! #X obj 82 144 list-drip; ! #X obj 161 209 + 1; ! #X obj 82 172 b; ! #X obj 116 249 f; ! #X obj 116 276 outlet; ! #X obj 148 183 1; ! #X obj 132 211 f 1; ! #X obj 206 213 0; ! #X obj 126 104 t a b b; #X text 37 37 list-len: calculate length of a list.; ! #X connect 0 0 9 0; ! #X connect 1 0 3 0; ! #X connect 1 1 4 0; ! #X connect 2 0 7 1; ! #X connect 3 0 7 0; ! #X connect 4 0 5 0; ! #X connect 6 0 7 1; ! #X connect 7 0 2 0; ! #X connect 7 0 4 1; ! #X connect 8 0 4 1; ! #X connect 9 0 1 0; ! #X connect 9 1 6 0; ! #X connect 9 2 8 0; --- 1,9 ---- #N canvas 0 0 534 321 10; #X obj 126 70 inlet; ! #X obj 126 271 outlet; #X text 37 37 list-len: calculate length of a list.; ! #X obj 126 149 list length; ! #X obj 126 125 list; ! #X connect 0 0 4 0; ! #X connect 3 0 1 0; ! #X connect 4 0 3 0;
Index: list-delete-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-delete-help.pd,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -d -r1.1 -r1.1.2.1 *** list-delete-help.pd 6 Nov 2005 11:48:18 -0000 1.1 --- list-delete-help.pd 28 May 2007 12:28:22 -0000 1.1.2.1 *************** *** 1,15 **** ! #N canvas 395 302 450 300 10; ! #X obj 237 151 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0 ! 8 -262144 -1 -1 0; ! #X floatatom 237 171 5 0 0 0 - - -; ! #X msg 151 109 0 1 2 3 4; ! #X obj 151 227 print; ! #X obj 151 198 list-delete 2; ! #X text 36 72 Argument: Default POS to delete.; #X text 36 55 Negative POS counts from the end of the list.; #X text 35 26 list-delete: delete element at position POS from list. ; #X connect 0 0 1 0; ! #X connect 1 0 4 1; ! #X connect 2 0 4 0; ! #X connect 4 0 3 0; --- 1,30 ---- ! #N canvas 330 168 572 423 10; ! #X obj 85 190 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0 8 ! -262144 -1 -1 2; ! #X floatatom 85 210 5 0 0 0 - - -; ! #X msg 49 160 0 1 2 3 4; ! #X obj 49 288 print; #X text 36 55 Negative POS counts from the end of the list.; #X text 35 26 list-delete: delete element at position POS from list. ; + #X floatatom 121 239 5 0 0 1 how_many - -; + #X msg 293 170 0 1 2 3 4; + #X obj 293 288 print; + #X text 322 211 arguments: <pos> <bodycount>; + #X obj 49 258 list-delete; + #X text 38 79 Arguments; + #X text 51 102 1: Default POS to delete.; + #X text 51 123 2: How many items to delete (cannot be less than 1) + ; + #X floatatom 343 239 5 0 0 0 - - -; + #X floatatom 393 240 5 0 0 0 - - -; + #X obj 293 259 list-delete 2 3; #X connect 0 0 1 0; ! #X connect 1 0 10 1; ! #X connect 2 0 10 0; ! #X connect 6 0 10 2; ! #X connect 7 0 16 0; ! #X connect 10 0 3 0; ! #X connect 14 0 16 1; ! #X connect 15 0 16 2; ! #X connect 16 0 8 0;
Index: list-rot-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rot-help.pd,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -d -r1.1 -r1.1.2.1 *** list-rot-help.pd 1 Nov 2005 12:41:16 -0000 1.1 --- list-rot-help.pd 28 May 2007 12:28:22 -0000 1.1.2.1 *************** *** 7,11 **** #X text 64 61 Rotate a list (move ROT# elements from front to back) ; ! #X text 63 81 ROT# has to be positive , negative ROT# will not rotate! ; #X connect 0 0 3 0; --- 7,11 ---- #X text 64 61 Rotate a list (move ROT# elements from front to back) ; ! #X text 63 81 Negative ROT# will rotate elements from back to front. ; #X connect 0 0 3 0;