poly~ : need help

Jan 31, 2006 at 11:30am

poly~ : need help

Hello,

I still have some problems sometimes when i use poly~ to play multiple
voices. I think only a glance from someone else would point me to
something obvious that i don’t see myself; so i post my poly_player
patches here, in hope for someone to correct them.

Thanks in advance. It would be very nice if it could definitely work…

best regards

f.e

nb: the send/receive and “busyquery” routines are just here to update an
UI that shows the state of the poly~ outside the patch.

:::::::::::::::::::main patcher:::::::fe.polysndplayer // put in a
patcher with arg1=buffer name, arg2=sndname or snd path. Then just send
a bang to play

max v2;
#N vpatcher 312 37 888 729;
#P origin 0 -41;
#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P newex 34 199 43 9109513 sel bang;
#P newex 425 540 74 9109513 r $1_busyquery;
#P message 366 570 55 9109513 mutemap 1;
#P newex 366 540 33 9109513 del 10;
#P message 205 524 36 9109513 steal 1;
#P newex 254 636 70 9109513 s $1_busymap;
#N comlet (list) ADSR;
#P inlet 428 410 15 0;
#P newex 254 453 45 9109513 loadbang;
#P outlet 197 650 15 0;
#P outlet 141 651 15 0;
#P newex 332 97 54 9109513 unpack s s;
#P newex 332 69 57 9109513 patcherargs;
#P newex 163 165 74 9109513 prepend replace;
#N comlet (message) soundfile name;
#P inlet 163 123 15 0;
#P message 50 355 26 9109513 53 0;
#P newex 34 233 59 9109513 sel 1 0 bang;
#N comlet (bang) bang / (everything else) to poly~;
#P inlet 34 122 15 0;
#P button 105 306 35 0;
#P newex 105 378 95 9109513 makenote 127 16922;
#P number 241 263 96 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 163 225 105 9109513 info~ $1;
#P message 105 355 36 9109513 53 127;
#P newex 163 193 149 9109513 buffer~ $1 “badday pad.wav” -1 2;
#P newex 105 413 50 9109513 poly 2 1;
#P newex 254 523 27 9109513 t l b;
#P newex 254 495 67 9109513 pak 0. 0. 1. 0.;
#P message 105 485 73 9109513 target $1 , $2 $3;
#P newex 105 451 51 9109513 pack 0 0 0;
#P message 163 571 39 9109513 target 0;
#P newex 142 601 122 9109513 poly~ snd_player 5 args $1;
#B color 5;
#P comment 142 318 42 9109513 trigger;
#P comment 322 497 100 9109513 init ADSR;
#P connect 15 0 31 0;
#P connect 31 0 16 0;
#P connect 16 1 17 0;
#P fasten 16 2 14 0 71 296 110 296;
#P connect 14 0 10 0;
#P fasten 16 0 10 0 39 348 110 348;
#P connect 10 0 13 0;
#P fasten 17 0 13 0 55 375 110 375;
#P connect 13 0 8 0;
#P connect 8 0 4 0;
#P connect 4 0 5 0;
#P connect 8 1 4 1;
#P connect 2 0 22 0;
#P fasten 27 0 2 0 210 548 147 548;
#P fasten 5 0 2 0 110 554 147 554;
#P fasten 3 0 2 0 168 597 147 597;
#P fasten 29 0 2 0 371 597 147 597;
#P fasten 13 1 8 1 195 403 150 403;
#P connect 8 2 4 2;
#P connect 18 0 19 0;
#P fasten 21 1 19 0 381 150 168 150;
#P connect 19 0 9 0;
#P fasten 9 1 11 0 307 218 168 218;
#P fasten 7 1 3 0 276 554 168 554;
#P fasten 12 0 13 2 246 313 194 313;
#P connect 2 1 23 0;
#P connect 7 0 2 1;
#P fasten 24 0 27 0 259 484 210 484;
#P connect 11 6 12 0;
#P connect 24 0 6 0;
#P connect 6 0 7 0;
#P fasten 25 0 7 0 433 519 259 519;
#P fasten 31 1 2 2 72 225 21 225 21 561 259 561;
#P connect 2 2 26 0;
#P connect 20 0 21 0;
#P fasten 24 0 28 0 259 484 371 484;
#P fasten 30 0 29 0 430 565 371 565;
#P connect 28 0 29 0;
#P pop;

::::::::::::::::::::::::::::subpatcher::::::::::snd_player

max v2;
#N vpatcher 395 40 887 757;
#P origin 4 0;
#P window setfont “Sans Serif” 9.;
#P window linecount 2;
#P comment 351 46 81 9109513 messages to poly~;
#P window linecount 1;
#N in 3;
#P newobj 425 48 23 9109513 in 3;
#P newex 324 279 76 9109513 s $1_busyquery;
#P newex 324 252 19 9109513 t b;
#N out 1;
#P newobj 364 631 29 9109513 out 1;
#P objectname (list);
#P message 192 559 50 9109513 mute 1;
#P newex 192 536 50 9109513 loadbang;
#P comment 117 133 31 9109513 pitch;
#P newex 170 162 39 9109513 / 127.;
#N in 2;
#X comment adsr-list;
#P newobj 198 102 34 9109513 in 2;
#P comment 176 85 47 9109513 adsr-list;
#P newex 220 132 160 9109513 unpack 15 100 0.707 500;
#P comment 180 230 31 9109513 play;
#P newex 141 591 30 9109513 *~;
#N vpatcher 10 59 138 187;
#P outlet 41 65 15 0;
#P inlet 41 43 15 0;
#P connect 0 0 1 0;
#P pop;
#P newobj 38 560 35 9109513 p thru;
#N out~ 2;
#X comment audio out R;
#P newobj 141 632 39 9109513 out~ 2;
#N out~ 1;
#X comment audio out L;
#P newobj 61 632 39 9109513 out~ 1;
#N in 1;
#X comment pitch velocity;
#P newobj 56 55 31 9109513 in 1;
#P newex 192 590 50 9109513 thispoly~;
#P newex 61 591 30 9109513 *~;
#P newex 56 126 59 9109513 swap;
#P comment 95 56 81 9109513

;
#P newex 81 254 34 9109513 i;
#P comment 8 134 45 9109513 velocity;
#P comment 143 230 35 9109513 0 -> 1;
#P newex 81 229 56 9109513 edge~;
#P newex 170 193 211 9109513 adsr~;
#B color 14;
#P comment 299 612 167 9109513 needed to output mute states;
#P window linecount 2;
#P comment 117 251 112 9109513 pitch chills in int until it’s time to play.;
#P window linecount 1;
#P comment 216 381 216 9109513 SI ON DOIT MODIFIER LE PITCH DU LARSEN…;
#B color 4;
#P message 195 356 27 9109513 stop;
#P newex 110 421 27 9109513 sig~;
#P newex 110 400 63 9109513 transRatio;
#P newex 110 379 28 9109513 – 53;
#P newex 81 355 39 9109513 t 0 i;
#P comment 100 334 68 9109513 note-on pitch;
#P newex 195 476 63 9109513 groove~ $1 2;
#P comment 142 381 70 9109513 < - original pitch;
#P comment 213 334 100 9109513 optional stop bang;
#P fasten 12 0 24 0 175 217 43 217;
#P connect 21 0 18 0;
#P fasten 24 0 19 0 43 582 66 582;
#P connect 19 0 22 0;
#P fasten 12 1 13 0 242 220 86 220;
#P connect 13 0 16 0;
#P lcolor 15;
#P connect 16 0 4 0;
#P connect 2 0 19 1;
#P connect 18 1 16 1;
#P connect 4 1 5 0;
#P connect 5 0 6 0;
#P connect 6 0 7 0;
#P fasten 24 0 25 0 43 582 146 582;
#P connect 25 0 23 0;
#P connect 2 1 25 1;
#P fasten 18 0 30 0 61 150 175 150;
#P lcolor 7;
#P connect 30 0 12 0;
#P lcolor 7;
#P connect 32 0 33 0;
#P fasten 12 2 20 0 309 583 197 583;
#P connect 33 0 20 0;
#P fasten 24 0 20 0 43 582 197 582;
#P fasten 4 0 2 0 86 469 200 469;
#P connect 8 0 2 0;
#P fasten 7 0 2 0 115 457 200 457;
#P fasten 29 0 27 0 203 122 225 122;
#P connect 27 0 12 1;
#P connect 27 1 12 2;
#P connect 27 2 12 3;
#P fasten 12 2 35 0 309 231 329 231;
#P connect 35 0 36 0;
#P connect 27 3 12 4;
#P pop;

#24184
Jan 31, 2006 at 3:27pm

#69534
Feb 1, 2006 at 5:35pm

#69535

You must be logged in to reply to this topic.