Forums > MaxMSP

realtime slow effect

April 13, 2008 | 3:55 pm

hia all, how can i make a realtime "slow" effect (like vinyl stop) on a audio in source…
i tried something like the patch below, but i’m not satisfied at all..any help…

max v2;
#N vpatcher 10 59 665 674;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 418 106 30 196617 t b b;
#N comlet slow time;
#P inlet 124 46 15 0;
#N vpatcher 300 271 900 671;
#P outlet 76 254 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 76 220 32 196617 line~;
#P inlet 52 39 15 0;
#P message 52 58 70 196617 setdomain $1;
#N vpreset 1;
#P preset 220 81 47 27;
#P user function 13 82 213 182 1 1 0 0;
#X frgb 82 82 82;
#X brgb 204 204 204;
#X rgb2 85 85 85;
#X rgb3 255 255 255;
#X rgb4 0 0 0;
#X rgb5 0 0 0;
#X add 0. 1. 0;
#X add 223. 0. 0;
#X domain 223.;
#X range 0. 1.;
#X done;
#P inlet 13 39 15 0;
#P connect 0 0 1 0;
#P connect 3 0 1 0;
#P connect 4 0 3 0;
#P connect 1 1 5 0;
#P connect 5 0 6 0;
#P pop;
#P newobj 94 175 40 196617 p pitch;
#P newex 72 130 59 196617 t 0 b b 1;
#P newex 72 205 92 196617 groove~ $0_buf 2;
#P newex 192 207 91 196617 record~ $0_buf 2;
#P newex 191 234 116 196617 buffer~ $0_buf 3000 2;
#N comlet on/bypass;
#P inlet 403 59 15 0;
#P newex 403 84 41 196617 sel 0 1;
#P inlet 50 47 15 0;
#P inlet 28 46 15 0;
#P newex 451 442 48 196617 loadbang;
#P message 437 484 51 196617 ramp 10.;
#P message 308 485 127 196617 0 0 0 , 1 1 0 , 2 0 1 , 3 1 1;
#P message 176 485 127 196617 0 0 1 , 1 1 1 , 2 0 0 , 3 1 0;
#P newex 28 517 77 196617 matrix~ 4 2 1.;
#P outlet 61 569 15 0;
#P outlet 28 570 15 0;
#P connect 7 0 2 0;
#P fasten 5 0 2 0 442 503 33 503;
#P fasten 4 0 2 0 313 513 33 513;
#P fasten 3 0 2 0 181 510 33 510;
#P connect 2 0 0 0;
#P connect 8 0 2 1;
#P connect 2 1 1 0;
#P fasten 17 1 14 0 443 128 396 128 396 117 77 117;
#P connect 15 0 13 0;
#P connect 14 0 13 0;
#P connect 13 0 2 2;
#P fasten 14 1 15 0 93 162 99 162;
#P fasten 13 1 2 3 118 369 99 369;
#P connect 16 0 15 1;
#P fasten 6 0 3 0 456 469 181 469;
#P fasten 9 0 3 0 408 407 181 407;
#P fasten 7 0 12 0 33 173 197 173;
#P fasten 14 3 12 0 125 154 197 154;
#P fasten 8 0 12 1 55 168 224 168;
#P fasten 17 0 4 0 423 446 313 446;
#P connect 10 0 9 0;
#P connect 9 1 17 0;
#P fasten 6 0 5 0 456 469 442 469;
#P pop;


April 13, 2008 | 4:24 pm

It is easy, there are many possibilities.
Here’s one with [play~] :

max v2;
#N vpatcher 259 44 999 670;
#P origin 0 -9;
#P window setfont "Sans Serif" 18.;
#P window linecount 1;
#P comment 218 203 20 196626 3;
#P comment 79 60 20 196626 2;
#P window setfont "Sans Serif" 9.;
#P newex 155 177 80 196617 / 3.;
#P newex 77 143 105 196617 info~ playme;
#P message 155 207 56 196617 1. , 0. $1;
#P newex 112 244 32 196617 line~;
#P newex 113 500 29 196617 dac~;
#P message 496 441 27 196617 stop;
#P message 425 441 65 196617 startwindow;
#P newex 112 352 41 196617 +~ 500;
#P newex 112 327 42 196617 *~ 500;
#P newex 112 304 44 196617 phasor~;
#P message 77 92 43 196617 replace;
#P newex 77 120 104 196617 buffer~ playme 1000;
#P newex 113 452 92 196617 play~ playme;
#B color 5;
#P comment 425 426 100 196617 • start audio;
#P window linecount 0;
#P comment 73 471 41 196617;
#P user panel 414 422 123 43;
#X brgb 255 255 255;
#X frgb 100 202 30;
#X border 2;
#X rounded 0;
#X shadow 0;
#X done;
#P window setfont "Sans Serif" 18.;
#P window linecount 1;
#P comment 386 434 20 196626 1;
#P connect 6 0 5 0;
#P fasten 5 1 15 0 176 139 82 139;
#P fasten 14 0 13 0 160 232 117 232;
#P connect 13 0 7 0;
#P connect 7 0 8 0;
#P connect 8 0 9 0;
#P connect 9 0 4 0;
#P connect 4 0 12 0;
#P fasten 11 0 12 0 501 492 118 492;
#P fasten 10 0 12 0 430 492 118 492;
#P fasten 4 0 12 1 118 477 137 477;
#P connect 15 6 16 0;
#P connect 16 0 14 0;
#P pop;


April 13, 2008 | 5:18 pm

well..mmhmm..i know there are many possibility to slow down the riproduction of a stored file..i’m asking something different here
thanks


April 13, 2008 | 5:37 pm

that’s what i mean..i want to know if someone did something similar in any better, efficient way..(tapin tapout..?)
ciao

max v2;
#N vpatcher 371 99 1087 779;
#P origin 0 -9;
#P inlet 9 75 15 0;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 95 460 77 196617 matrix~ 2 1 1.;
#P message 196 202 26 196617 500;
#P message 98 240 65 196617 0 0 0 , 1 0 1;
#P message 109 322 65 196617 0 0 1 , 1 0 0;
#P user ezdac~ 86 516 130 549 0;
#P toggle 138 71 15 0;
#P message 73 71 64 196617 open , loop 1;
#N sfplay~ 1 120960 0 ;
#P newobj 81 93 44 196617 sfplay~;
#P message 262 126 14 196617 1;
#P newex 191 107 40 196617 t b b b;
#P newex 264 152 81 196617 record~ playme;
#P button 191 81 15 0;
#P message 216 262 56 196617 1. , 0. $1;
#P newex 173 299 32 196617 line~;
#P newex 173 382 42 196617 *~ 500;
#P newex 173 359 44 196617 phasor~;
#P newex 354 151 104 196617 buffer~ playme 1000;
#P newex 173 411 92 196617 play~ playme;
#B color 5;
#P comment 212 80 100 196617 bang to slow down;
#P window linecount 2;
#P comment 8 44 58 196617 audio source;
#P connect 14 0 12 0;
#P connect 13 0 12 0;
#P connect 19 0 15 0;
#P connect 20 0 19 0;
#P connect 16 0 19 0;
#P connect 17 0 19 0;
#P connect 12 0 19 0;
#P connect 10 1 17 0;
#P connect 6 1 16 0;
#P connect 19 0 15 1;
#P connect 2 0 19 1;
#P fasten 7 0 6 0 221 287 178 287;
#P connect 6 0 4 0;
#P connect 4 0 5 0;
#P connect 5 0 2 0;
#P connect 8 0 10 0;
#P connect 10 0 18 0;
#P connect 18 0 7 0;
#P connect 10 2 11 0;
#P connect 20 0 9 0;
#P connect 12 0 9 0;
#P connect 11 0 9 0;
#P pop;


April 13, 2008 | 8:01 pm

without more explanations, an other patch would not do the trick anymore …

As you said, tapout with var del could be an other one.


Viewing 5 posts - 1 through 5 (of 5 total)