Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11450
Added Files: list-map2-help.pd list-map2.pd Log Message: list-map2: convenience variation on list-map
--- NEW FILE: list-map2.pd --- #N canvas 470 232 489 423 10; #X obj 86 33 inlet; #X obj 300 34 inlet; #X obj 151 352 outlet; #X obj 169 269 outlet; #X obj 151 317 list; #X obj 300 215 list prepend; #X obj 379 185 t a; #X obj 86 58 route bang; #X obj 86 83 b; #X obj 151 84 t b a; #X obj 151 124 list; #X obj 169 215 list-drip2; #X obj 169 243 list; #X obj 258 33 inlet; #X obj 234 192 list; #X obj 151 155 t b a a b b; #X connect 0 0 7 0; #X connect 1 0 5 0; #X connect 4 0 2 0; #X connect 5 0 6 0; #X connect 5 0 4 1; #X connect 6 0 5 1; #X connect 7 0 8 0; #X connect 7 1 9 0; #X connect 8 0 10 0; #X connect 9 0 10 0; #X connect 9 1 10 1; #X connect 10 0 15 0; #X connect 11 0 12 0; #X connect 11 1 12 1; #X connect 12 0 3 0; #X connect 13 0 14 1; #X connect 14 0 11 1; #X connect 15 0 4 0; #X connect 15 1 11 0; #X connect 15 2 4 1; #X connect 15 3 14 0; #X connect 15 4 5 1;
--- NEW FILE: list-map2-help.pd --- #N canvas 344 108 758 698 10; #X obj 135 320 spigot; #X obj 171 303 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X msg 67 276 0 1 2 3; #X obj 67 386 print MAIN; #X obj 381 349 print SERIALIZED; #X obj 323 378 print MAIN; #X msg 67 255 bang; #X msg 131 276 a b c; #X msg 323 244 bang; #X msg 72 447 0 1 2 3; #X obj 72 536 list trim; #X obj 72 516 list prepend set; #X msg 72 558 0 a -|- 1 b -|- 2 c -|- 3 d -|-; #X obj 158 471 list append -|-; #X msg 227 541 set; #X msg 71 421 bang; #X obj 325 532 list trim; #X obj 325 512 list prepend set; #X msg 325 445 1 2 3 4 5; #X msg 325 554 2 0 0 0 0; #X obj 323 312 list-map2; #X obj 411 312 +; #X msg 352 289 10 20 30 40; #X msg 323 268 1 2 3 4; #X msg 130 449 a b c d; #X obj 67 320 list-map2; #X obj 325 490 list-map2; #X obj 72 471 list-map2; #X msg 354 466 2 0; #X obj 397 490 *; #X text 64 72 Calls a user-defined operation for each pair of elements of two incoming lists and returns a list of the return values.; #X obj 125 359 print SERIALIZED_PAIRS; #X text 64 120 [list-map2] is a helper abstraction to make element-wise operations on two lists easy to patch. The basic idea is to bundle two list-serializers and a list-repacker into one object. Then you connect whatever operation should be applied on every pair of list items to the right outlet and send the modified items back to the right inlet. Here the modified elements get packed into a list again and sent to the left outlet of [list-map2].; #N canvas 239 121 843 692 more-examples 0; #N canvas 0 0 450 300 (subpatch) 0; #X array $0-in1 64 float 0; #X coords 0 1 63 -1 128 60 1; #X restore 366 91 graph; #N canvas 0 0 450 300 (subpatch) 0; #X array $0-in2 64 float 0; #X coords 0 1 63 -1 128 60 1; #X restore 508 91 graph; #X msg 68 83 bang; #N canvas 0 0 297 280 noise 0; #X obj 33 115 random 1000; #X obj 33 88 t b a; #X obj 33 143 / 500; #X obj 33 163 - 1; #X msg 33 44 64; #N canvas 0 0 450 300 countto 0; #X obj 163 151 f 0; #X obj 190 151 + 1; #X obj 163 109 until; #X msg 205 111 0; #X obj 163 180 outlet; #X obj 163 39 inlet; #X obj 163 87 t a b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 5 0 6 0; #X connect 6 0 2 0; #X connect 6 1 3 0; #X restore 33 66 pd countto; #X obj 33 21 inlet; #X obj 33 194 tabwrite $0-in2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 7 1; #X connect 2 0 3 0; #X connect 3 0 7 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X connect 6 0 4 0; #X restore 508 52 pd noise; #X msg 508 28 make noise; #X msg 527 184 const 0; #X obj 527 280 s $0-out; #X text 586 168 impulse; #X obj 149 164 list-map2; #N canvas 414 307 598 380 tabdump-ins 0; #X obj 187 213 list prepend; #X obj 278 213 t a; #X obj 125 254 list; #X obj 125 23 inlet; #X obj 125 279 outlet; #X msg 187 92 64; #N canvas 0 0 450 300 countto 0; #X obj 163 151 f 0; #X obj 190 151 + 1; #X obj 163 109 until; #X msg 205 111 0; #X obj 163 180 outlet; #X obj 163 39 inlet; #X obj 163 87 t a b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 5 0 6 0; #X connect 6 0 2 0; #X connect 6 1 3 0; #X restore 187 114 pd countto; #X obj 187 136 t a a; #X obj 320 213 list prepend; #X obj 411 213 t a; #X obj 320 190 tabread $0-in2; #X obj 187 190 tabread $0-in1; #X obj 187 256 list; #X obj 187 281 outlet; #X obj 125 46 t b b b b b; #X connect 0 0 2 1; #X connect 0 0 1 0; #X connect 1 0 0 1; #X connect 2 0 4 0; #X connect 3 0 14 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 7 1 10 0; #X connect 8 0 9 0; #X connect 8 0 12 1; #X connect 9 0 8 1; #X connect 10 0 8 0; #X connect 11 0 0 0; #X connect 12 0 13 0; #X connect 14 0 2 0; #X connect 14 1 12 0; #X connect 14 2 5 0; #X connect 14 3 0 1; #X connect 14 4 8 1; #X restore 149 134 pd tabdump-ins; #N canvas 0 0 450 300 (subpatch) 0; #X array $0-out-max 64 float 0; #X coords 0 1 63 -1 128 60 1; #X restore 363 174 graph; #X obj 149 192 list prepend 0; #X obj 527 225 s $0-in1; #X msg 588 184 const 0 , 16 1; #X obj 231 165 max; #X obj 527 249 s $0-in2; #N canvas 0 0 450 300 (subpatch) 0; #X array $0-out-min 64 float 0; #X coords 0 1 63 -1 128 60 1; #X restore 364 274 graph; #N canvas 0 0 450 300 (subpatch) 0; #X array $0-out-mul 64 float 0; #X coords 0 1 63 -1 128 60 1; #X restore 364 398 graph; #X obj 150 277 list-map2; #X obj 150 305 list prepend 0; #X obj 150 327 s $0-out-min; #X obj 232 278 min; #X obj 150 390 list-map2; #X obj 150 418 list prepend 0; #X obj 232 391 *; #X obj 150 440 s $0-out-mul; #X obj 149 214 s $0-out-max; #N canvas 414 307 598 380 tabdump-ins 0; #X obj 187 213 list prepend; #X obj 278 213 t a; #X obj 125 254 list; #X obj 125 23 inlet; #X obj 125 279 outlet; #X msg 187 92 64; #N canvas 0 0 450 300 countto 0; #X obj 163 151 f 0; #X obj 190 151 + 1; #X obj 163 109 until; #X msg 205 111 0; #X obj 163 180 outlet; #X obj 163 39 inlet; #X obj 163 87 t a b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 5 0 6 0; #X connect 6 0 2 0; #X connect 6 1 3 0; #X restore 187 114 pd countto; #X obj 187 136 t a a; #X obj 320 213 list prepend; #X obj 411 213 t a; #X obj 320 190 tabread $0-in2; #X obj 187 190 tabread $0-in1; #X obj 187 256 list; #X obj 187 281 outlet; #X obj 125 46 t b b b b b; #X connect 0 0 2 1; #X connect 0 0 1 0; #X connect 1 0 0 1; #X connect 2 0 4 0; #X connect 3 0 14 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 7 1 10 0; #X connect 8 0 9 0; #X connect 8 0 12 1; #X connect 9 0 8 1; #X connect 10 0 8 0; #X connect 11 0 0 0; #X connect 12 0 13 0; #X connect 14 0 2 0; #X connect 14 1 12 0; #X connect 14 2 5 0; #X connect 14 3 0 1; #X connect 14 4 8 1; #X restore 150 252 pd tabdump-ins; #N canvas 414 307 598 380 tabdump-ins 0; #X obj 187 213 list prepend; #X obj 278 213 t a; #X obj 125 254 list; #X obj 125 23 inlet; #X obj 125 279 outlet; #X msg 187 92 64; #N canvas 0 0 450 300 countto 0; #X obj 163 151 f 0; #X obj 190 151 + 1; #X obj 163 109 until; #X msg 205 111 0; #X obj 163 180 outlet; #X obj 163 39 inlet; #X obj 163 87 t a b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 5 0 6 0; #X connect 6 0 2 0; #X connect 6 1 3 0; #X restore 187 114 pd countto; #X obj 187 136 t a a; #X obj 320 213 list prepend; #X obj 411 213 t a; #X obj 320 190 tabread $0-in2; #X obj 187 190 tabread $0-in1; #X obj 187 256 list; #X obj 187 281 outlet; #X obj 125 46 t b b b b b; #X connect 0 0 2 1; #X connect 0 0 1 0; #X connect 1 0 0 1; #X connect 2 0 4 0; #X connect 3 0 14 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 7 1 10 0; #X connect 8 0 9 0; #X connect 8 0 12 1; #X connect 9 0 8 1; #X connect 10 0 8 0; #X connect 11 0 0 0; #X connect 12 0 13 0; #X connect 14 0 2 0; #X connect 14 1 12 0; #X connect 14 2 5 0; #X connect 14 3 0 1; #X connect 14 4 8 1; #X restore 150 365 pd tabdump-ins; #N canvas 0 0 450 300 (subpatch) 0; #X array $0-out-xfade 64 float 0; #X coords 0 1 63 -1 128 60 1; #X restore 365 534 graph; #X obj 151 582 list-map2; #X obj 151 610 list prepend 0; #N canvas 414 307 598 380 tabdump-ins 0; #X obj 187 213 list prepend; #X obj 278 213 t a; #X obj 125 254 list; #X obj 125 23 inlet; #X obj 125 279 outlet; #X msg 187 92 64; #N canvas 0 0 450 300 countto 0; #X obj 163 151 f 0; #X obj 190 151 + 1; #X obj 163 109 until; #X msg 205 111 0; #X obj 163 180 outlet; #X obj 163 39 inlet; #X obj 163 87 t a b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 5 0 6 0; #X connect 6 0 2 0; #X connect 6 1 3 0; #X restore 187 114 pd countto; #X obj 187 136 t a a; #X obj 320 213 list prepend; #X obj 411 213 t a; #X obj 320 190 tabread $0-in2; #X obj 187 190 tabread $0-in1; #X obj 187 256 list; #X obj 187 281 outlet; #X obj 125 46 t b b b b b; #X connect 0 0 2 1; #X connect 0 0 1 0; #X connect 1 0 0 1; #X connect 2 0 4 0; #X connect 3 0 14 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 7 1 10 0; #X connect 8 0 9 0; #X connect 8 0 12 1; #X connect 9 0 8 1; #X connect 10 0 8 0; #X connect 11 0 0 0; #X connect 12 0 13 0; #X connect 14 0 2 0; #X connect 14 1 12 0; #X connect 14 2 5 0; #X connect 14 3 0 1; #X connect 14 4 8 1; #X restore 151 529 pd tabdump-ins; #X obj 151 632 s $0-out-xfade; #X obj 154 487 hsl 64 15 0 1 0 0 empty empty crossfade_0-1 -2 -8 1 10 -262144 -1 -1 6300 1; #X obj 151 506 t b a; #N canvas 0 0 450 300 xfade 0; #X obj 54 131 -; #X obj 54 155 * 0.5; #X obj 54 182 +; #X obj 104 48 inlet; #X obj 54 48 inlet; #X obj 54 206 outlet; #X obj 54 81 unpack 0 0; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 5 0; #X connect 3 0 1 1; #X connect 4 0 6 0; #X connect 6 0 0 0; #X connect 6 1 0 1; #X connect 6 1 2 1; #X restore 234 582 pd xfade; #X obj 258 520 hsl 64 15 0 1 0 0 empty empty crossfade_0-1 -2 -8 1 10 -262144 -1 -1 6300 1; #X obj 255 539 t b a; #X obj 298 640 list-inter; #X text 272 622 this is similar to:; #X connect 2 0 9 0; #X connect 2 0 27 0; #X connect 2 0 28 0; #X connect 2 0 32 0; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 5 0 12 0; #X connect 5 0 15 0; #X connect 8 0 11 0; #X connect 8 1 14 0; #X connect 9 0 8 0; #X connect 9 1 8 1; #X connect 11 0 26 0; #X connect 13 0 12 0; #X connect 14 0 8 2; #X connect 18 0 19 0; #X connect 18 1 21 0; #X connect 19 0 20 0; #X connect 21 0 18 2; #X connect 22 0 23 0; #X connect 22 1 24 0; #X connect 23 0 25 0; #X connect 24 0 22 2; #X connect 27 0 18 0; #X connect 27 1 18 1; #X connect 28 0 22 0; #X connect 28 1 22 1; #X connect 30 0 31 0; #X connect 30 1 36 0; #X connect 31 0 33 0; #X connect 32 0 30 0; #X connect 32 1 30 1; #X connect 34 0 35 0; #X connect 35 0 32 0; #X connect 35 1 36 1; #X connect 36 0 30 2; #X connect 37 0 38 0; #X connect 38 0 30 0; #X connect 38 1 36 1; #X restore 69 595 pd more-examples; #X text 67 237 bang will redo the last two lists; #X text 324 411 If the second list is too short , its final element will be repeated:; #X text 65 32 [list-map2] - map an operation on element pairs from two lists.; #X text 67 626 2007 Frank Barknecht; #X connect 0 0 25 2; #X connect 1 0 0 1; #X connect 2 0 25 0; #X connect 6 0 25 0; #X connect 7 0 25 1; #X connect 8 0 20 0; #X connect 9 0 27 0; #X connect 10 0 12 0; #X connect 11 0 10 0; #X connect 13 0 27 2; #X connect 14 0 12 0; #X connect 15 0 27 0; #X connect 16 0 19 0; #X connect 17 0 16 0; #X connect 18 0 26 0; #X connect 20 0 5 0; #X connect 20 1 4 0; #X connect 20 1 21 0; #X connect 21 0 20 2; #X connect 22 0 20 1; #X connect 23 0 20 0; #X connect 24 0 27 1; #X connect 25 0 3 0; #X connect 25 1 0 0; #X connect 25 1 31 0; #X connect 26 0 17 0; #X connect 26 1 29 0; #X connect 27 0 11 0; #X connect 27 1 13 0; #X connect 28 0 26 1; #X connect 29 0 26 2;