#N canvas 35 131 916 691 10; #X obj 41 95 inlet; #X obj 86 649 outlet; #X obj 103 38 hsl 223 15 0 1 0 0 empty \$0-slider0 empty -2 -8 0 10 -128992 -257985 -1 0 1; #X text 286 78 k; #X text 402 78 n; #X text 428 78 phase; #X text 21 78 Step bang; #X text 533 78 reset; #X text 575 78 slide Y/N; #N canvas 0 0 450 300 (subpatch) 0; #X array \$0-0 16 float 3; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 1.5 16 -0.5 226 16 1; #X restore 101 38 graph; #X obj 104 95 inlet; #X obj 289 95 inlet; #X obj 389 95 inlet; #X obj 429 95 inlet; #X obj 532 95 inlet; #X obj 581 95 inlet; #N canvas 0 0 450 300 count 0; #X obj 144 182 f; #X obj 173 182 + 1; #X msg 180 159 0; #X obj 90 142 loadbang; #X obj 144 28 inlet; #X obj 144 254 outlet; #X obj 264 28 inlet; #X obj 264 142 t b; #X obj 248 208 f; #X obj 277 208 + 1; #X obj 323 210 sel 0; #X msg 264 185 0; #X obj 357 168 loadbang; #X obj 277 230 mod 12; #X obj 310 28 inlet; #X floatatom 405 247 5 0 0 0 - - -; #X obj 277 254 outlet; #X connect 0 0 1 0; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 2 0; #X connect 4 0 0 0; #X connect 4 0 8 0; #X connect 6 0 7 0; #X connect 7 0 2 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 10 0 11 0; #X connect 11 0 8 1; #X connect 12 0 11 0; #X connect 13 0 8 1; #X connect 13 0 10 0; #X connect 13 0 15 0; #X connect 13 0 16 0; #X connect 14 0 13 1; #X restore 41 319 pd count; #X obj 101 21 cnv 15 226 16 empty empty empty 20 12 0 14 -1 -66577 0; #X obj 138 22 nbx 3 14 1 64 0 0 empty empty N -8 8 0 10 -128992 -1 -257985 16 256; #X obj 208 22 nbx 3 14 0 64 0 0 empty empty K -8 8 0 10 -128992 -1 -257985 0 256; #X obj 280 22 nbx 3 14 -64 64 0 0 \$0-Phs empty Ph -12 8 0 10 -128992 -1 -257985 0 256; #X obj 407 432 until; #X msg 407 405 \$1; #X obj 407 302 f; #N canvas 0 0 450 300 count 0; #X obj 144 132 f; #X obj 173 132 + 1; #X msg 180 109 0; #X obj 180 88 loadbang; #X obj 144 28 inlet; #X obj 144 254 outlet; #X obj 354 28 inlet; #X obj 354 92 t b; #X obj 271 208 f; #X obj 300 208 + 1; #X obj 346 210 sel 0; #X msg 307 185 0; #X obj 307 164 loadbang; #X obj 300 230 mod 12; #X connect 0 0 1 0; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 2 0; #X connect 4 0 0 0; #X connect 6 0 7 0; #X connect 7 0 2 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 10 0 11 0; #X connect 11 0 8 1; #X connect 12 0 11 0; #X connect 13 0 8 1; #X connect 13 0 10 0; #X restore 407 454 pd count; #N canvas 0 0 507 414 euclicore--i--k--n--p 0; #X obj 59 58 inlet; #X obj 188 113 inlet; #X obj 116 92 inlet; #X obj 59 345 select 1; #X obj 59 377 outlet; #X obj 302 170 inlet; #X text 155 90 specify desired number of hits per bar; #X text 230 113 specify length of bar; #X text 340 169 rhythm offset/rotation; #X text 109 56 <-- send an integer to find out if there should be a hit on that beat; #X obj 59 280 % \$3; #X text 121 344 <-- bang out on each hit. (Silent on rest.); #X obj 59 247 * \$1; #X obj 59 313 < \$1; #X obj 59 121 i; #X obj 119 377 outlet; #X obj 59 185 + 0; #X obj 188 141 t f f; #X obj 59 215 - \$2; #X obj 188 168 i; #X obj 215 263 i; #X connect 0 0 14 0; #X connect 1 0 17 0; #X connect 2 0 12 1; #X connect 2 0 13 1; #X connect 3 0 4 0; #X connect 5 0 18 1; #X connect 10 0 13 0; #X connect 12 0 10 0; #X connect 13 0 3 0; #X connect 13 0 15 0; #X connect 14 0 16 0; #X connect 16 0 18 0; #X connect 17 0 19 0; #X connect 17 1 20 0; #X connect 18 0 12 0; #X connect 19 0 16 1; #X connect 20 0 10 1; #X restore 352 537 pd euclicore--i--k--n--p; #X msg 483 420 resize \$1; #X obj 407 383 t f b f; #X obj 407 492 t f f; #X obj 548 377 s \$0-slider0; #X obj 327 336 /; #X obj 548 353 spigot; #X obj 621 112 select 0; #X msg 621 169 0; #X obj 621 189 s \$0-slider0; #N canvas 134 30 450 300 no-overflow 0; #X obj 81 30 inlet; #X obj 81 257 outlet; #X obj 81 85 change; #X obj 292 30 inlet; #X text 333 31 in from inlet; #X obj 292 98 t b f b; #X obj 81 192 spigot 1; #X obj 292 66 change; #X msg 331 175 0; #X msg 126 134 1; #X obj 126 115 del 20; #X text 123 257 out to processes; #X text 120 30 in from number atom; #X obj 81 60 speedlim 125; #X obj 140 162 r \$0-spig; #X connect 0 0 13 0; #X connect 2 0 6 0; #X connect 3 0 7 0; #X connect 5 0 10 0; #X connect 5 1 1 0; #X connect 5 2 8 0; #X connect 6 0 1 0; #X connect 7 0 5 0; #X connect 8 0 6 1; #X connect 9 0 6 1; #X connect 10 0 9 0; #X connect 13 0 2 0; #X connect 14 0 6 1; #X restore 308 127 pd no-overflow; #N canvas 360 234 450 300 no-overflow 0; #X obj 81 257 outlet; #X obj 81 85 change; #X obj 292 30 inlet; #X text 333 31 in from inlet; #X obj 292 98 t b f b; #X obj 81 192 spigot 1; #X obj 292 66 change; #X msg 331 175 0; #X msg 126 134 1; #X obj 126 115 del 20; #X text 123 257 out to processes; #X text 140 40 in from number atom; #X obj 81 57 speedlim 125; #X obj 81 30 inlet; #X obj 137 158 r \$0-spig; #X connect 1 0 5 0; #X connect 2 0 6 0; #X connect 4 0 9 0; #X connect 4 1 0 0; #X connect 4 2 7 0; #X connect 5 0 0 0; #X connect 6 0 4 0; #X connect 7 0 5 1; #X connect 8 0 5 1; #X connect 9 0 8 0; #X connect 12 0 1 0; #X connect 13 0 12 0; #X connect 14 0 5 1; #X restore 208 127 pd no-overflow; #N canvas 134 30 450 300 no-overflow 0; #X obj 81 30 inlet; #X obj 81 257 outlet; #X obj 81 85 change; #X obj 292 30 inlet; #X text 333 31 in from inlet; #X obj 292 98 t b f b; #X obj 81 192 spigot 1; #X obj 292 66 change; #X msg 331 175 0; #X msg 126 134 1; #X obj 126 115 del 20; #X text 123 257 out to processes; #X text 120 30 in from number atom; #X obj 81 61 speedlim 125; #X obj 137 163 r \$0-spig; #X connect 0 0 13 0; #X connect 2 0 6 0; #X connect 3 0 7 0; #X connect 5 0 10 0; #X connect 5 1 1 0; #X connect 5 2 8 0; #X connect 6 0 1 0; #X connect 7 0 5 0; #X connect 8 0 6 1; #X connect 9 0 6 1; #X connect 10 0 9 0; #X connect 13 0 2 0; #X connect 14 0 6 1; #X restore 407 241 pd no-overflow; #X obj 407 36 speedlim 125; #X msg 618 336 1; #X obj 618 316 loadbang; #X obj 493 557 tabwrite \$0-0; #X obj 86 470 tabread \$0-0; #X obj 483 440 s \$0-0; #X obj 86 510 > 0; #X obj 86 540 select 1; #X obj 161 190 unpack f f f; #X obj 407 277 t b f; #X obj 208 285 t b f; #X obj 308 148 t b f f f; #X obj 195 213 t f f f; #X obj 483 400 change; #N canvas 0 0 450 416 refresh 0; #X obj 107 46 inlet; #X obj 107 75 unpack f f f; #X msg 203 155 0; #X msg 107 167 1; #X obj 107 148 del 20; #X obj 176 122 t f b; #X obj 107 196 s \$0-spig; #X obj 203 177 s \$0-spig; #X obj 176 232 outlet; #X obj 141 262 outlet; #X obj 134 292 outlet; #X obj 107 110 t b f; #X connect 0 0 1 0; #X connect 1 0 11 0; #X connect 1 1 9 0; #X connect 1 2 5 0; #X connect 2 0 7 0; #X connect 3 0 6 0; #X connect 4 0 3 0; #X connect 5 0 8 0; #X connect 5 1 2 0; #X connect 11 0 4 0; #X connect 11 1 10 0; #X restore 138 164 pd refresh; #X obj 711 95 inlet; #X text 711 78 print Y/N; #X obj 678 527 spigot; #X obj 748 490 loadbang; #X msg 748 510 0; #X obj 678 550 print; #X obj 104 122 route bang; #X obj 104 239 t b; #X obj 41 153 route bang; #X obj 98 281 t f f; #X obj 429 204 clip -16 16; #X obj 488 221 change; #X obj 460 184 * -1; #X obj 465 165 t f f; #X obj 727 144 print print; #X obj 492 36 loadbang; #X msg 492 110 16; #X obj 532 245 t b; #X obj 36 262 t b b; #X msg 36 453 0; #X text 94 79 Batch (ex calculate bng); #X text 170 596 This free code is released under Creative Commons 3 license.; #X text 170 623 http://puredata.hurleur.com; #X text 170 633 http://puredata.info; #X text 171 582 euclideanrhythmW.pd by Sumidero (2012); #X connect 0 0 61 0; #X connect 10 0 59 0; #X connect 11 0 36 1; #X connect 12 0 35 1; #X connect 13 0 63 0; #X connect 14 0 70 0; #X connect 15 0 31 1; #X connect 15 0 32 0; #X connect 16 1 30 0; #X connect 16 1 42 0; #X connect 18 0 35 0; #X connect 19 0 36 0; #X connect 20 0 38 0; #X connect 21 0 24 0; #X connect 22 0 21 0; #X connect 23 0 27 0; #X connect 23 0 16 2; #X connect 24 0 28 0; #X connect 25 1 41 0; #X connect 26 0 43 0; #X connect 27 0 22 0; #X connect 27 1 24 1; #X connect 27 2 25 2; #X connect 27 2 51 0; #X connect 28 0 25 0; #X connect 28 1 41 1; #X connect 30 0 31 0; #X connect 31 0 29 0; #X connect 32 0 33 0; #X connect 33 0 34 0; #X connect 35 0 18 0; #X connect 35 0 49 0; #X connect 36 0 19 0; #X connect 36 0 30 0; #X connect 36 0 48 0; #X connect 37 0 20 0; #X connect 37 0 47 0; #X connect 38 0 37 0; #X connect 39 0 31 1; #X connect 40 0 39 0; #X connect 42 0 44 0; #X connect 44 0 45 0; #X connect 44 0 55 0; #X connect 45 0 1 0; #X connect 46 0 48 0; #X connect 46 1 50 0; #X connect 46 2 25 3; #X connect 47 0 23 0; #X connect 47 1 25 3; #X connect 48 0 23 0; #X connect 48 1 25 1; #X connect 49 0 23 0; #X connect 49 1 16 2; #X connect 49 2 30 1; #X connect 49 3 23 1; #X connect 49 3 66 0; #X connect 50 0 16 2; #X connect 50 1 30 1; #X connect 50 2 23 1; #X connect 51 0 26 0; #X connect 52 0 18 0; #X connect 52 1 19 0; #X connect 52 2 20 0; #X connect 53 0 55 1; #X connect 53 0 67 0; #X connect 55 0 58 0; #X connect 56 0 57 0; #X connect 57 0 55 1; #X connect 59 0 60 0; #X connect 59 1 46 0; #X connect 59 1 52 0; #X connect 60 0 23 0; #X connect 61 0 16 0; #X connect 61 1 62 0; #X connect 62 0 42 0; #X connect 62 1 30 0; #X connect 63 0 64 0; #X connect 64 0 37 1; #X connect 65 0 63 1; #X connect 66 0 65 0; #X connect 66 1 63 2; #X connect 68 0 69 0; #X connect 69 0 35 1; #X connect 70 0 33 0; #X connect 70 0 71 0; #X connect 71 0 72 0; #X connect 71 1 16 1; #X connect 72 0 42 0; #X coords 0 -1 1 1 228 35 2 100 20;