help needed for some math

Aug 1, 2008 at 2:27pm

help needed for some math

hi,

i’m stuck.

i would like to do a series and i can’t figure out how to do.

here’s what i want :
- set a fondamental note
- set a mode
- set the level of series
- get this series.

ie: note 60 mode 0 4 7 (major)
level 1 -> 60 64 67
level 2 -> 60 64 67 64 68 71 67 71 74
level 3 -> 60 64 67 64 68 71 67 71 74 64 68 71 68 72 75 71 75 78 67 71 74 71 75 78 74 78 81

i did it like that and it works only until level 5 ’cause after that the list is to long.
so i tried with mxl lits management but without success.
maybe the method is wrong.
so i need your help.

thx.

here’s the previous patch (with zl) :

#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P newex 443 182 48 196617 loadbang;
#P newex 325 272 36 196617 zl reg;
#P newex 299 104 62 196617 t b l zlclear;
#P newex 248 184 27 196617 1;
#P newex 325 129 63 196617 t b b l;
#P newex 248 203 40 196617 t b i;
#P message 334 321 3660 196617 60 64 67;
#P newex 334 300 62 196617 prepend set;
#P newex 351 205 36 196617 zl reg;
#P newex 351 252 46 196617 zl group;
#P newex 351 186 83 196617 t b i;
#P newex 351 167 25 196617 iter;
#P newex 248 222 40 196617 uzi;
#P user kslider 299 46 54 0 36 48 31 12 0 128 128 128 128 128 128 255 255 255 0 0 0 0 0 0;
#P number 265 46 35 9 1 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 443 202 70 196617 scalarmode 1;
#P message 351 150 34 196617 0 4 7;
#P newex 351 224 83 196617 vexpr $i1+$i2;
#P fasten 16 0 13 0 330 298 316 298 316 126 330 126;
#P fasten 16 0 10 0 330 294 339 294;
#P connect 17 0 2 0;
#P connect 13 2 9 1;
#P connect 15 0 14 0;
#P connect 14 0 12 0;
#P connect 12 0 5 0;
#P connect 3 0 14 1;
#P connect 12 1 5 1;
#P connect 4 0 15 0;
#P connect 15 1 13 0;
#P connect 5 0 16 0;
#P connect 15 2 16 0;
#P connect 13 1 1 0;
#P connect 1 0 6 0;
#P connect 6 0 7 0;
#P connect 7 0 9 0;
#P connect 9 0 0 0;
#P connect 2 0 0 0;
#P connect 0 0 8 0;
#P fasten 13 0 8 0 330 247 356 247;
#P connect 8 0 16 1;
#P connect 10 0 11 0;
#P connect 7 1 0 1;
#P window clipboard copycount 18;

#39091
Aug 2, 2008 at 10:40am

hi,

i finally did it like this.
i’m sure it’s not the more efficient.
maybe somebody has a simpler solution.
thx.

#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P message 492 89 52 196617 refer arp;
#P message 429 89 62 196617 refer chord;
#P newex 429 70 48 196617 loadbang;
#P user jit.cellblock 429 106 579 748 3 9 5 10 45 17 0 1 1 0 1 1 1 0 1 0 0 0 255 255 255 0 0 0 0 0 0 191 191 191 0 0 0 215 215 240 1 1 1 0 4 0 0 0;
#P comment 67 53 74 196617 3 – 60 – 0 4 7;
#P comment 67 38 74 196617 2 – 60 – 0 4 7;
#P comment 143 53 410 196617 60 64 67 64 68 71 67 71 74 64 68 71 68 72 75 71 75 78 67 71 74 71 75 78 74 78 81;
#P comment 143 23 52 196617 60 64 67;
#P comment 143 38 142 196617 60 64 67 64 68 71 67 71 74;
#P comment 67 23 74 196617 1 – 60 – 0 4 7;
#P comment 269 90 36 196617 model;
#P number 67 104 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 146 103 20 196617 60;
#P message 269 104 34 196617 0 4 7;
#P message 308 377 14 196617 0;
#P message 358 377 33 196617 clear;
#P message 323 377 33 196617 set 0;
#P newex 146 154 80 196617 t b i b;
#P newex 102 492 48 196617 t dump b;
#P newex 240 414 32 196617 sel 0;
#N coll chord 1;
#T flags 1 0;
#P newobj 262 497 63 196617 coll chord 1;
#P newex 262 474 52 196617 pack;
#P newex 262 433 52 196617 t b 1 i;
#P newex 262 455 52 196617 accum;
#P newex 240 395 78 196617 peak;
#P newex 50 360 27 196617 1;
#P newex 72 417 40 196617 t b i;
#P newex 50 398 32 196617 sel 0;
#P number 130 437 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 116 417 33 196617 clear;
#P number 102 474 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 50 379 27 196617 – 1;
#P newex 72 436 40 196617 uzi;
#N vpatcher 14 59 614 459;
#P inlet 216 176 15 0;
#P inlet 175 257 15 0;
#P outlet 162 298 15 0;
#P inlet 91 153 15 0;
#P window setfont “Sans Serif” 9.;
#P number 216 197 35 9 20 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 162 197 45 196617 loadbang;
#P message 162 239 55 196617 1 , delete 1;
#P newex 162 218 64 196617 metro 1000;
#P newex 91 251 43 196617 pack;
#P newex 91 174 43 196617 t b i;
#P newex 91 232 27 196617 + 1;
#P message 91 193 35 196617 length;
#P newex 91 210 34 196617 grab;
#N coll ;
#P newobj 162 278 53 196617 coll;
#P connect 10 0 4 0;
#P connect 4 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 3 0;
#P connect 3 0 5 0;
#P connect 4 1 5 1;
#P connect 8 0 6 0;
#P connect 6 0 7 0;
#P connect 1 1 0 0;
#P connect 5 0 0 0;
#P connect 7 0 0 0;
#P connect 12 0 0 0;
#P connect 0 0 11 0;
#P connect 13 0 9 0;
#P connect 9 0 6 1;
#P pop;
#P newobj 102 455 39 196617 p slow;
#P message 140 511 33 196617 set 0;
#P newex 181 608 43 196617 pipe 10;
#P newex 216 197 63 196617 zl reg 0 4 7;
#P newex 181 553 52 196617 pack;
#P newex 181 509 52 196617 t b 1 i;
#P newex 181 534 52 196617 accum;
#P newex 181 266 36 196617 t b i;
#P newex 181 304 47 196617 t b b;
#P newex 181 342 36 196617 zl reg;
#P newex 216 218 27 196617 t l l;
#P newex 218 323 44 196617 zl reg;
#P newex 218 342 53 196617 zl nth;
#P newex 181 285 90 196617 uzi;
#P newex 233 239 34 196617 zl len;
#P newex 181 361 47 196617 +;
#N coll arp 1;
#T flags 1 0;
#P newobj 181 587 53 196617 coll arp 1;
#P inlet 146 137 15 0;
#P inlet 67 340 15 0;
#P inlet 269 179 15 0;
#P outlet 242 260 15 0;
#P comment 67 89 32 196617 level;
#P comment 146 89 29 196617 note;
#P fasten 55 0 52 0 497 105 434 105;
#P connect 54 0 52 0;
#P connect 53 0 54 0;
#P connect 3 0 19 1;
#P connect 4 0 30 1;
#P connect 31 0 36 0;
#P connect 36 1 33 0;
#P connect 33 0 32 0;
#P connect 32 0 34 0;
#P connect 34 0 35 0;
#P connect 33 1 32 1;
#P connect 33 2 34 1;
#P fasten 20 0 15 0 186 630 175 630 175 261 186 261;
#P connect 15 0 9 0;
#P connect 9 0 14 0;
#P connect 14 0 13 0;
#P connect 13 0 7 0;
#P fasten 21 0 16 0 145 530 186 530;
#P connect 17 0 16 0;
#P connect 16 0 18 0;
#P connect 18 0 6 0;
#P connect 6 0 20 0;
#P connect 17 1 16 1;
#P connect 15 1 13 1;
#P connect 14 1 11 0;
#P connect 11 0 10 0;
#P connect 10 0 7 1;
#P connect 17 2 18 1;
#P fasten 12 0 11 1 221 280 257 280;
#P connect 9 2 10 1;
#P connect 19 0 12 0;
#P connect 24 0 28 0;
#P connect 12 1 8 0;
#P connect 28 1 29 0;
#P connect 29 1 23 1;
#P connect 23 2 22 0;
#P connect 22 0 25 0;
#P connect 26 0 22 1;
#P connect 27 0 22 2;
#P connect 29 0 23 0;
#P connect 25 0 37 0;
#P fasten 37 0 6 0 107 583 186 583;
#P connect 37 1 21 0;
#P connect 5 0 38 0;
#P fasten 38 0 30 0 151 265 55 265;
#P connect 38 1 15 0;
#P connect 41 0 31 1;
#P connect 42 0 19 1;
#P connect 43 0 38 0;
#P connect 44 0 30 1;
#P connect 30 0 24 0;
#P fasten 7 0 31 0 186 386 245 386;
#P connect 7 0 17 0;
#P fasten 8 0 9 1 238 276 266 276;
#P fasten 8 0 2 0 238 258 247 258;
#P fasten 38 2 40 0 221 176 363 176;
#P fasten 38 2 39 0 221 176 328 176;
#P fasten 38 2 41 0 221 176 313 176;
#P connect 38 2 19 0;
#P fasten 39 0 32 0 328 452 267 452;
#P fasten 39 0 16 0 328 530 186 530;
#P fasten 40 0 35 0 363 494 267 494;
#P fasten 40 0 6 0 363 583 186 583;
#P window clipboard copycount 56;

#137166

You must be logged in to reply to this topic.