[maxmsp] Re: drum machine

How about accurate (the triggering engine is based on signals), polyrhytms:

#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P hidden newex 505 257 48 9109513 zl group 4;
#P hidden newex 506 191 40 9109513 uzi 4;
#P hidden newex 505 235 32 9109513 / 512.;
#P hidden newex 505 213 57 9109513 random 513;
#P comment 368 58 100 9109513 bars multipliers;
#P hidden newex 76 84 19 9109513 t 1;
#P hidden newex 146 51 79 9109513 unpack i f f f f i;
#P hidden newex 148 28 115 9109513 loadmess 0 120 1. 1. 1. 8;
#P user ezdac~ 25 121 69 154 0;
#P user multiSlider 135 277 100 355 0. 1. 8 2936 15 0 0 2 2 0 0;
#M frgb 0 0 0;
#M brgb 255 255 255;
#M rgb2 127 127 127;
#M rgb3 0 0 0;
#M rgb4 109 118 48;
#M rgb5 74 105 182;
#M rgb6 112 158 18;
#M rgb7 149 211 110;
#M rgb8 187 9 201;
#M rgb9 224 62 37;
#M rgb10 7 114 128;
#P hidden newex 506 165 27 9109513 t b i;
#P number 540 74 35 9 1 256 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P user multiSlider 369 80 169 64 0. 4. 8 2681 47 0 0 2 0 0 0;
#M frgb 0 0 0;
#M brgb 255 255 255;
#M rgb2 127 127 127;
#M rgb3 0 0 0;
#M rgb4 37 52 91;
#M rgb5 74 105 182;
#M rgb6 112 158 18;
#M rgb7 149 211 110;
#M rgb8 187 9 201;
#M rgb9 224 62 37;
#M rgb10 7 114 128;
#P window linecount 2;
#P comment 306 89 58 9109513 master time signature;
#P flonum 330 118 35 9 1. 512. 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 296 118 35 9 1. 512. 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 1;
#P hidden newex 296 143 45 9109513 pak 1. 1.;
#P window linecount 2;
#P comment 225 125 58 9109513 master bpm multiplier;
#P window linecount 1;
#P comment 161 134 58 9109513 master bpm;
#P flonum 242 151 35 9 0. 100. 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 188 151 35 9 0. 10000. 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 135 119 15 0;
#N vpatcher 25 70 625 470;
#N comlet amount of bars;
#P inlet 221 48 14 0;
#P toggle 17 31 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 13 62 34 9109513 mute~;
#N vpatcher 141 92 935 757;
#N comlet mute;
#P inlet 258 49 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 486 417 58 9109513 + 1.;
#P newex 437 396 59 9109513 Leftgate 2 1;
#P newex 485 375 27 9109513 < 0.;
#P newex 437 353 27 9109513 - 0.;
#P newex 437 334 27 9109513 t f f;
#P newex 437 280 44 9109513 pong~ 1.;
#P newex 513 283 33 9109513 edge~;
#P newex 509 160 70 9109513 adstatus sigvs;
#B color 9;
#P newex 577 220 27 9109513 + 1;
#P newex 513 262 102 9109513 ==~ 32;
#P newex 513 241 73 9109513 count~ 1 33 1 1;
#P newex 437 312 67 9109513 snapshot~ 0 0;
#P newex 509 180 40 9109513 change;
#B color 9;
#P comment 439 466 72 9109513 progress delta;
#B color 1;
#N comlet progress delta;
#P outlet 437 449 15 0;
#P newex 17 31 45 9109513 loadbang;
#P message 17 158 18 9109513 60;
#P newex 500 85 46 9109513 change 0;
#P button 17 56 91 0;
#P newex 301 367 31 9109513 *~ -1.;
#P newex 301 253 27 9109513 -~;
#P newex 301 411 65 9109513 receive~ $0.d;
#B color 6;
#P newex 301 391 54 9109513 send~ $0.d;
#B color 6;
#P newex 301 347 28 9109513 *~ 0.;
#P newex 375 320 34 9109513 ==~ 1.;
#P newex 375 280 34 9109513 >=~ 1.;
#P newex 375 300 33 9109513 delta~;
#P newex 301 186 36 9109513 sig~ 1.;
#P newex 301 226 23 9109513 +=~;
#P newex 500 66 55 9109513 adstatus sr;
#P newex 385 66 52 9109513 unpack f f;
#P newex 427 87 57 9109513 prepend set;
#P flonum 284 103 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 417 109 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 379 109 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 340 109 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 301 140 103 9109513 pak 60. 1. 1. 1. 44100.;
#N comlet bpm multiplier;
#P inlet 343 47 15 0;
#P newex 301 162 167 9109513 expr (1/($f5-1))*($f1*$f2/60*($f3/$f4));
#N comlet time signature x y;
#P inlet 385 47 15 0;
#N comlet master bpm;
#P inlet 301 47 15 0;
#P user ezdac~ 19 189 63 222 0;
#P connect 26 0 23 0;
#P connect 23 0 25 0;
#P connect 25 0 9 0;
#P connect 9 0 5 0;
#P connect 1 0 5 0;
#P connect 5 0 3 0;
#P connect 3 0 14 0;
#P connect 42 0 14 0;
#P connect 14 0 13 0;
#P connect 23 0 13 0;
#P fasten 20 0 13 0 306 436 283 436 283 220 306 220;
#P lcolor 6;
#P connect 13 0 21 0;
#P connect 21 0 18 0;
#P connect 18 0 22 0;
#P connect 22 0 19 0;
#P connect 14 0 21 1;
#P fasten 17 0 18 1 380 342 324 342;
#P connect 6 0 5 1;
#P connect 4 0 5 1;
#P connect 7 0 5 2;
#P connect 11 0 5 2;
#P connect 8 0 5 3;
#P connect 10 0 5 3;
#P fasten 21 0 16 0 306 275 380 275;
#P connect 16 0 15 0;
#P connect 15 0 17 0;
#P connect 2 0 11 0;
#P connect 24 0 5 4;
#P connect 11 1 10 0;
#P fasten 21 0 36 0 306 275 442 275;
#P connect 35 0 30 0;
#P connect 36 0 30 0;
#P connect 30 0 37 0;
#P connect 37 1 38 0;
#P connect 38 0 40 0;
#P connect 40 0 27 0;
#P fasten 41 0 27 0 491 442 442 442;
#P connect 37 0 38 1;
#P fasten 38 0 39 0 442 373 490 373;
#P connect 39 0 40 1;
#P connect 40 1 41 0;
#P connect 12 1 24 0;
#P connect 34 1 29 0;
#P lcolor 10;
#P connect 31 0 32 0;
#P connect 32 0 35 0;
#P connect 33 0 31 1;
#P fasten 29 0 33 0 514 217 582 217;
#P lcolor 10;
#P fasten 29 0 32 1 514 216 610 216;
#P lcolor 10;
#P pop;
#P newobj 81 73 77 9109513 p delta.calc.HP~;
#P newex 90 146 31 9109513 Lmult;
#P newex 90 278 28 9109513 Ladd;
#P newex 108 250 48 9109513 Ltest < 0.;
#P newex 90 228 28 9109513 Lsub;
#P newex 108 200 48 9109513 Ltest > 1.;
#P newex 90 176 28 9109513 Ladd;
#N vpatcher 273 508 867 775;
#P window setfont "Sans Serif" 9.;
#P window linecount 0;
#P newex 30 53 27 9109513 t b i;
#P inlet 30 27 15 0;
#P newex 439 88 52 9109513 Lrepeat 32;
#N comlet lmult;
#P outlet 440 117 15 0;
#P window linecount 1;
#P newex 290 106 52 9109513 Lrepeat 32;
#P message 290 87 16 9109513 0.;
#P newex 278 29 45 9109513 loadbang;
#N comlet ladd;
#P outlet 288 138 15 0;
#P connect 6 0 7 0;
#P connect 7 0 1 0;
#P connect 3 0 0 0;
#P connect 1 0 2 0;
#P connect 2 0 3 0;
#P connect 7 1 3 1;
#P connect 1 0 5 0;
#P connect 5 0 4 0;
#P connect 7 1 5 1;
#P pop;
#P newobj 223 72 53 9109513 p loadbang;
#B color 9;
#N comlet slave engine bpm multipliers;
#P inlet 199 33 15 0;
#N comlet master time signature x/y;
#P inlet 140 31 15 0;
#N comlet master bpm multiplier;
#P inlet 113 31 15 0;
#N comlet master bpm;
#P inlet 86 31 15 0;
#N comlet bar positions;
#P outlet 90 354 15 0;
#N comlet mute 0/1;
#P inlet 59 31 15 0;
#P message 57 80 21 9109513 0.5;
#P connect 16 0 15 0;
#P connect 1 0 16 0;
#P connect 15 0 14 0;
#P connect 14 0 13 0;
#P connect 13 0 8 0;
#P connect 8 0 10 0;
#P connect 10 0 12 0;
#P connect 12 0 2 0;
#P connect 3 0 14 1;
#P fasten 12 0 8 1 95 300 68 300 68 171 113 171;
#P lcolor 6;
#P fasten 7 0 8 1 228 172 113 172;
#P lcolor 10;
#P fasten 8 0 9 0 95 196 113 196;
#P connect 9 0 10 1;
#P fasten 10 0 11 0 95 248 113 248;
#P connect 11 0 12 1;
#P connect 6 0 13 1;
#P fasten 7 1 13 1 271 141 116 141;
#P lcolor 10;
#P connect 4 0 14 2;
#P connect 5 0 14 3;
#P connect 17 0 7 0;
#P pop;
#P newobj 134 168 303 9109513 p clocker;
#P comment 127 102 100 9109513 on/off;
#P window linecount 4;
#P comment 240 305 100 9109513 bars progress //this multislider is the onlz cpu intesnive thing in this patch////;
#P window linecount 1;
#P comment 545 58 100 9109513 number of bars;
#P comment 465 469 100 9109513 ACTION;
#P button 434 362 239 0;
#P hidden fasten 0 0 20 0 153 27;
#P connect 6 0 5 0;
#P connect 7 0 5 1;
#P connect 8 0 5 2;
#P hidden connect 13 0 11 1;
#P hidden connect 12 0 11 0;
#P hidden connect 11 0 5 3;
#P connect 15 0 5 4;
#P connect 5 0 18 0;
#P hidden connect 21 5 16 0;
#P hidden connect 21 4 13 0;
#P hidden connect 21 3 12 0;
#P hidden connect 21 2 8 0;
#P hidden connect 21 1 7 0;
#P hidden connect 21 0 6 0;
#P connect 22 0 19 0;
#P hidden connect 24 0 25 0;
#P hidden connect 26 0 24 0;
#P hidden connect 25 0 27 0;
#P hidden connect 16 0 17 0;
#P hidden connect 16 0 5 5;
#P hidden connect 17 0 26 0;
#P hidden connect 27 0 15 0;
#P hidden connect 17 1 27 1;
#P hidden connect 17 1 26 1;
#P hidden connect 20 0 21 0;
#P hidden connect 20 0 22 0;
#P window clipboard copycount 28;