Revision: 9671 http://pure-data.svn.sourceforge.net/pure-data/?rev=9671&view=rev Author: lukeiannini Date: 2008-04-01 03:52:21 -0700 (Tue, 01 Apr 2008)
Log Message: ----------- beat2frac and list-split-at
Modified Paths: -------------- trunk/abstractions/senderfruit/core/s2l-explode.pd
Added Paths: ----------- trunk/abstractions/senderfruit/core/beat2frac-help.pd trunk/abstractions/senderfruit/core/beat2frac.pd trunk/abstractions/senderfruit/core/list-split-at-help.pd trunk/abstractions/senderfruit/core/list-split-at.pd trunk/abstractions/senderfruit/core/s2l-explode-help.pd
Added: trunk/abstractions/senderfruit/core/beat2frac-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/beat2frac-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/beat2frac-help.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,34 @@ +#N canvas 452 388 367 355 10; +#X text 7 4 [beat2frac]; +#X text 8 27 Given a beat division , outputs the length as a fraction +of a quarter note , so that multiplied by 60secs/BPM gives length +in seconds of a beat of that division.; +#X msg 24 75 1/4; +#X floatatom 174 180 5 0 0 0 - - -; +#X msg 174 149 90; +#X obj 64 255 *; +#X obj 174 217 expr 60000 / $f1; +#X floatatom 64 294 8 0 0 0 ms - -; +#X msg 207 149 120; +#X msg 43 96 1/4T; +#X obj 64 146 beat2frac; +#X obj 64 234 f; +#X obj 89 234 t b a; +#X text 251 309 2008 Luke Iannini; +#X text 251 323 proyekto.net; +#X text 75 95 also accepts triplets (T or t); +#X text 211 171 Tempo; +#X text 97 116 accepts any arbitrary division; +#X msg 64 117 9/17; +#X connect 2 0 10 0; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 7 0; +#X connect 6 0 12 0; +#X connect 8 0 3 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 5 0; +#X connect 12 0 11 0; +#X connect 12 1 5 1; +#X connect 18 0 10 0;
Added: trunk/abstractions/senderfruit/core/beat2frac.pd =================================================================== --- trunk/abstractions/senderfruit/core/beat2frac.pd (rev 0) +++ trunk/abstractions/senderfruit/core/beat2frac.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,81 @@ +#N canvas 594 98 330 547 10; +#X obj 95 480 * 4; +#X obj 95 503 outlet; +#X obj 27 81 s2l-explode; +#X obj 27 19 inlet; +#X obj 163 172 list-splat -1; +#X obj 27 107 list-split-at /; +#X msg 84 130 reset; +#X obj 27 189 list-l2s; +#X obj 200 198 sel T t; +#X obj 200 249 s $0triplet?; +#X obj 163 277 list append; +#X obj 163 300 list-l2s; +#X obj 163 327 atoi; +#X obj 27 283 atoi; +#X obj 95 405 f; +#X obj 95 429 /; +#X obj 131 364 t b a; +#X msg 269 222 1; +#X obj 95 455 * 1; +#X obj 121 455 r $0triplet?; +#X obj 27 47 t a b; +#X obj 75 48 s $0reset; +#X obj 238 277 r $0reset; +#X msg 200 221 0.666667; +#N canvas 933 375 193 260 trigger 1; +#X obj 115 109 == 0; +#X obj 90 109 f 0; +#X msg 105 65 0; +#X obj 95 188 spigot; +#X obj 23 189 spigot; +#X obj 46 56 t a b; +#X obj 95 216 outlet; +#X obj 23 216 outlet; +#X obj 46 27 inlet; +#X obj 105 27 inlet; +#X obj 56 163 == 0; +#X connect 0 0 1 1; +#X connect 1 0 0 0; +#X connect 1 0 10 0; +#X connect 1 0 3 1; +#X connect 2 0 1 1; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 5 0 3 0; +#X connect 5 1 1 0; +#X connect 8 0 5 0; +#X connect 9 0 2 0; +#X connect 10 0 4 1; +#X restore 27 155 pd trigger; +#X connect 0 0 1 0; +#X connect 2 0 5 0; +#X connect 3 0 20 0; +#X connect 4 0 10 0; +#X connect 4 1 8 0; +#X connect 5 0 24 0; +#X connect 5 1 6 0; +#X connect 6 0 24 1; +#X connect 7 0 13 0; +#X connect 8 0 23 0; +#X connect 8 1 23 0; +#X connect 8 2 17 0; +#X connect 8 2 10 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 16 0; +#X connect 13 0 14 1; +#X connect 14 0 15 0; +#X connect 15 0 18 0; +#X connect 16 0 14 0; +#X connect 16 1 15 1; +#X connect 17 0 9 0; +#X connect 18 0 0 0; +#X connect 19 0 18 1; +#X connect 20 0 2 0; +#X connect 20 1 21 0; +#X connect 22 0 10 1; +#X connect 23 0 9 0; +#X connect 24 0 7 0; +#X connect 24 1 4 0;
Added: trunk/abstractions/senderfruit/core/list-split-at-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/list-split-at-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/list-split-at-help.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,33 @@ +#N canvas 741 82 388 382 10; +#X obj 49 128 list-split-at /; +#X msg 161 128 symbol |; +#X msg 161 158 symbol /; +#N canvas 0 22 450 300 display 0; +#X obj 120 112 prepent add; +#X obj 120 80 inlet; +#X obj 120 164 outlet; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X restore 49 199 pd display; +#X msg -1 128 set; +#X obj 49 100 t a b; +#X obj 136 203 bng 15 250 50 0 empty empty done 17 7 0 10 -262144 -4034 +-1; +#X text 8 330 note: due to limitations of [select] , the type of atom +sent to the right inlet must be the same as the type of the creation +argument (i.e. float>float or symbol>symbol); +#X msg 49 77 a b | c / d | e f g / h i j | k / l m | n o p; +#X text 11 12 [list-split-at] splits a list into multiple lists upon +encountering a delimiter; +#X msg 49 227; +#X text 271 289 2008 Luke Iannini; +#X text 271 303 proyekto.net; +#X connect 0 0 3 0; +#X connect 0 1 6 0; +#X connect 1 0 0 1; +#X connect 2 0 0 1; +#X connect 3 0 10 0; +#X connect 4 0 10 0; +#X connect 5 0 0 0; +#X connect 5 1 4 0; +#X connect 8 0 5 0;
Added: trunk/abstractions/senderfruit/core/list-split-at.pd =================================================================== --- trunk/abstractions/senderfruit/core/list-split-at.pd (rev 0) +++ trunk/abstractions/senderfruit/core/list-split-at.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,26 @@ +#N canvas 741 479 156 229 10; +#X obj 25 47 list-drip; +#X obj 50 130 list-extend; +#X obj 25 160 list; +#X obj 25 100 t b b; +#X obj 25 72 sel $1; +#X obj 25 5 inlet; +#X obj 25 182 outlet; +#X obj 106 55 inlet; +#X obj 25 25 t a b; +#X obj 76 159 t b b; +#X obj 76 182 outlet; +#X connect 0 0 4 0; +#X connect 0 1 9 0; +#X connect 1 0 2 1; +#X connect 2 0 6 0; +#X connect 3 0 2 0; +#X connect 3 1 1 1; +#X connect 4 0 3 0; +#X connect 4 1 1 0; +#X connect 5 0 8 0; +#X connect 7 0 4 1; +#X connect 8 0 0 0; +#X connect 8 1 1 1; +#X connect 9 0 10 0; +#X connect 9 1 2 0;
Added: trunk/abstractions/senderfruit/core/s2l-explode-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/s2l-explode-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/s2l-explode-help.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,10 @@ +#N canvas 854 366 442 210 10; +#X obj 44 81 s2l-explode; +#X text 2 6 [s2l-explode] splits a symbol into individual characters +; +#X msg 44 52 Supercalifragilisticexpialidocious; +#X obj 44 107 prepent set; +#X msg 44 142; +#X connect 0 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 4 0;
Modified: trunk/abstractions/senderfruit/core/s2l-explode.pd =================================================================== --- trunk/abstractions/senderfruit/core/s2l-explode.pd 2008-03-31 17:27:33 UTC (rev 9670) +++ trunk/abstractions/senderfruit/core/s2l-explode.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -4,7 +4,9 @@ #X msg 109 67 symbol; #X obj 46 41 inlet; #X obj 46 125 outlet; +#X obj 46 67 list; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 2 0 0 1; -#X connect 3 0 0 0; +#X connect 3 0 5 0; +#X connect 5 0 0 0;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.