Forums > MaxMSP

Shepard Tone

January 10, 2008 | 6:54 am

Hi all,

Still on my Risset kick, and I figure I will be for a while. I’ve built a Shepard / Risset circular tone patch and would like any feedback that anyone may have.

Thanks!,
Brennon

max v2;
#N vpatcher 3 48 536 254;
#P origin 0 3;
#P window setfont "Sans Serif" 9.;
#P hidden newex 164 57 46 196617 / 1000.;
#P hidden newex 164 238 47 196617 * 1000.;
#P button 42 77 15 0;
#P hidden newex 365 2 48 196617 loadbang;
#P hidden newex 365 31 44 196617 f 3000.;
#P hidden newex 315 246 45 196617 s metro;
#P hidden newex 315 219 41 196617 * 100.;
#P hidden newex 294 2 48 196617 loadbang;
#P hidden newex 294 31 55 196617 f -4.8283;
#P hidden newex 147 2 48 196617 loadbang;
#P hidden newex 147 31 50 196617 f 22050.;
#P hidden newex 209 2 48 196617 loadbang;
#P hidden newex 209 31 50 196617 f 60000.;
#P hidden newex 220 219 69 196617 s curveWidth;
#P flonum 220 77 77 9 -13.6 0. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 317 301 60 196617 s ampLine1;
#P hidden newex 317 274 114 196617 sprintf set 0.\, 10. %f;
#P hidden newex 164 274 144 196617 sprintf set 0.\, 6.931024 %f;
#P flonum 164 77 35 9 10. 70. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 164 301 55 196617 s freqLine;
#P flonum 73 77 68 9 5500. 22050. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 73 101 57 196617 s fundFreq;
#P toggle 303 69 32 0;
#N vpatcher 704 163 1270 552;
#P window setfont "Sans Serif" 9.;
#P flonum 152 77 58 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 104 26 45 196617 r metro;
#P button 495 200 15 0;
#P button 446 200 15 0;
#P button 403 206 15 0;
#P button 354 200 15 0;
#P button 308 200 15 0;
#P button 264 200 15 0;
#P button 222 196 15 0;
#P button 166 198 15 0;
#P button 119 196 15 0;
#P button 63 191 15 0;
#P number 76 126 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 50 288 35 196617 *~ 1.;
#P outlet 50 326 15 0;
#P window linecount 1;
#P newex 50 50 64 196617 metro 3000;
#N counter 1 10;
#X flags 0 0;
#P newobj 50 91 68 196617 counter 1 10;
#P newex 50 153 481 196617 select 1 2 3 4 5 6 7 8 9 10;
#N vpatcher 357 178 832 719;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 330 69 196617 r curveWidth;
#P newex 378 351 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 473 244 49 196617 p tone10;
#N vpatcher 211 133 773 703;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 333 69 196617 r curveWidth;
#P newex 378 354 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 426 244 43 196617 p tone9;
#N vpatcher 470 157 951 705;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 329 69 196617 r curveWidth;
#P newex 378 350 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 379 244 43 196617 p tone8;
#N vpatcher 470 157 952 739;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 333 69 196617 r curveWidth;
#P newex 378 354 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 332 244 43 196617 p tone7;
#N vpatcher 26 72 507 645;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 333 69 196617 r curveWidth;
#P newex 378 354 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 285 244 43 196617 p tone6;
#N vpatcher 132 101 624 681;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 331 69 196617 r curveWidth;
#P newex 378 352 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 238 244 43 196617 p tone5;
#N vpatcher 158 128 653 676;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 331 69 196617 r curveWidth;
#P newex 378 352 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 74 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 191 244 43 196617 p tone4;
#N vpatcher 783 157 1254 708;
#P origin -78 -47;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 371 319 69 196617 r curveWidth;
#P newex 371 340 55 196617 f -4.8283;
#P flonum 150 180 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 169 433 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 15 288 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 95 198 57 196617 r fundFreq;
#P inlet 95 45 15 0;
#P newex 134 243 60 196617 r ampLine1;
#P newex 95 77 55 196617 r freqLine;
#P newex 95 248 29 196617 * 1.;
#P message 134 270 74 196617 0. , 10. 60000.;
#P newex 134 291 47 196617 line 0. 1;
#P newex 134 370 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 95 171 29 196617 t b f;
#P newex 95 452 35 196617 *~ 0.;
#P flonum 95 221 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 95 426 40 196617 cycle~;
#P message 95 102 104 196617 0. , 6.931024 60000.;
#P newex 95 126 47 196617 line 0. 1;
#P newex 95 149 79 196617 expr exp(-$f1);
#P outlet 95 474 15 0;
#P fasten 11 0 16 0 100 276 20 276;
#P fasten 14 0 3 0 100 71 90 71 90 99 100 99;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P connect 15 0 5 0;
#P fasten 7 0 5 0 100 193 91 193 91 218 100 218;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 119 193 155 193 155 239 119 239;
#P fasten 8 0 6 1 139 446 125 446;
#P fasten 14 0 10 0 100 71 211 71 211 265 139 265;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 139 401 174 401;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 144 244 43 196617 p tone3;
#N vpatcher 673 136 1161 683;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 378 326 69 196617 r curveWidth;
#P newex 378 347 55 196617 f -4.8283;
#P flonum 157 187 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 176 440 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 22 295 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 102 205 57 196617 r fundFreq;
#P inlet 102 52 15 0;
#P newex 141 250 60 196617 r ampLine1;
#P newex 102 84 55 196617 r freqLine;
#P newex 102 255 29 196617 * 1.;
#P message 141 277 65 196617 0. , 10. 60000.;
#P newex 141 298 47 196617 line 0. 1;
#P newex 141 377 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 102 178 29 196617 t b f;
#P newex 102 459 35 196617 *~ 0.;
#P flonum 102 228 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 102 433 40 196617 cycle~;
#P message 102 109 104 196617 0. , 6.931024 60000.;
#P newex 102 133 47 196617 line 0. 1;
#P newex 102 156 79 196617 expr exp(-$f1);
#P outlet 102 481 15 0;
#P fasten 11 0 16 0 107 283 27 283;
#P fasten 14 0 3 0 107 78 97 78 97 106 107 106;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 107 200 98 200 98 225 107 225;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 126 200 162 200 162 246 126 246;
#P fasten 8 0 6 1 146 453 132 453;
#P fasten 14 0 10 0 107 78 218 78 218 272 146 272;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 146 408 181 408;
#P connect 20 0 19 0;
#P connect 19 0 8 1;
#P pop;
#P newobj 97 244 43 196617 p tone2;
#N vpatcher 856 140 1254 689;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 285 308 69 196617 r curveWidth;
#P newex 285 329 55 196617 f -4.8283;
#P flonum 145 169 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 164 422 112 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 10 277 78 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 0;
#P newex 90 187 57 196617 r fundFreq;
#P inlet 90 34 15 0;
#P newex 129 232 60 196617 r ampLine1;
#P newex 90 66 55 196617 r freqLine;
#P newex 90 237 29 196617 * 1.;
#P message 129 259 74 196617 0. , 10. 60000.;
#P newex 129 280 47 196617 line 0. 1;
#P newex 129 359 247 196617 expr exp($f2*(1.-cos(2.*3.14159*($f1-5.)/10.)));
#P newex 90 160 29 196617 t b f;
#P newex 90 441 35 196617 *~ 0.;
#P flonum 90 210 47 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 90 415 40 196617 cycle~;
#P message 90 91 2548 196617 0. , 6.931024 60000.;
#P newex 90 115 47 196617 line 0. 1;
#P newex 90 138 79 196617 expr exp(-$f1);
#P outlet 90 463 15 0;
#P fasten 11 0 16 0 95 265 15 265;
#P fasten 14 0 3 0 95 60 85 60 85 88 95 88;
#P connect 12 0 3 0;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P fasten 7 0 5 0 95 182 86 182 86 207 95 207;
#P connect 15 0 5 0;
#P connect 5 0 11 0;
#P connect 11 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 0 0;
#P fasten 7 1 11 1 114 182 150 182 150 228 114 228;
#P fasten 8 0 6 1 134 435 120 435;
#P fasten 14 0 10 0 95 60 206 60 206 254 134 254;
#P connect 13 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 8 0 17 0 134 390 169 390;
#P connect 20 0 19 0;
#P fasten 19 0 8 1 290 355 371 355;
#P pop;
#P newobj 50 244 43 196617 p tone1;
#P inlet 50 26 15 0;
#P connect 0 0 13 0;
#P connect 13 0 12 0;
#P connect 12 0 11 0;
#P fasten 13 0 11 0 55 80 41 80 41 135 55 135;
#P connect 11 0 1 0;
#P fasten 3 0 15 0 149 273 55 273;
#P connect 1 0 15 0;
#P fasten 2 0 15 0 102 273 55 273;
#P fasten 4 0 15 0 196 273 55 273;
#P fasten 5 0 15 0 243 273 55 273;
#P fasten 6 0 15 0 290 273 55 273;
#P fasten 7 0 15 0 337 273 55 273;
#P fasten 8 0 15 0 384 274 55 274;
#P fasten 9 0 15 0 431 274 55 274;
#P fasten 10 0 15 0 478 273 55 273;
#P connect 15 0 14 0;
#P connect 11 0 17 0;
#P connect 12 0 16 0;
#P connect 11 1 2 0;
#P connect 27 0 13 1;
#P connect 11 1 18 0;
#P connect 11 2 3 0;
#P connect 27 0 28 0;
#P connect 11 2 19 0;
#P connect 11 3 4 0;
#P connect 11 3 20 0;
#P connect 11 4 5 0;
#P connect 11 4 21 0;
#P fasten 11 5 6 0 290 243;
#P connect 11 5 22 0;
#P connect 11 6 7 0;
#P connect 11 6 23 0;
#P connect 11 7 8 0;
#P connect 11 7 24 0;
#P connect 11 8 9 0;
#P connect 11 8 25 0;
#P connect 11 9 10 0;
#P connect 11 9 26 0;
#P pop;
#P hidden newobj 303 109 131 196617 p toneBank;
#P flonum 342 78 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 303 131 49 196617 *~ 0.4;
#P user ezdac~ 295 154 339 187 0;
#P window linecount 2;
#P comment 29 95 42 196617 Reset Defaults;
#P comment 76 95 62 196617 Fundamental Frequency;
#P window linecount 3;
#P comment 159 95 50 196617 Gliss Duration (Seconds);
#P window linecount 2;
#P comment 227 95 57 196617 Width of Amp Curve;
#P window linecount 1;
#P comment 286 53 68 196617 Tones On/Off;
#P comment 385 79 100 196617 Overall Amplitude;
#P window linecount 2;
#P comment 343 158 38 196617 Sound On/Off;
#P window setfont "AGaramond Semibold" 36.;
#P window linecount 1;
#P comment 24 9 482 954269732 Shepard / Risset Circular Scale;
#P hidden fasten 24 0 14 0 152 71 78 71;
#P hidden fasten 24 0 13 0 152 97 78 97;
#P hidden connect 14 0 13 0;
#P hidden fasten 32 0 24 0 47 98 36 98 36 -15 137 -15 137 25 152 25;
#P hidden connect 25 0 24 0;
#P hidden fasten 22 0 34 0 214 53 169 53;
#P hidden connect 34 0 16 0;
#P hidden connect 16 0 33 0;
#P hidden fasten 22 0 17 0 214 266 169 266;
#P hidden connect 33 0 17 0;
#P hidden connect 17 0 15 0;
#P hidden fasten 32 0 22 0 47 98 36 98 36 -15 201 -15 201 25 214 25;
#P hidden connect 23 0 22 0;
#P hidden fasten 26 0 20 0 299 72 225 72;
#P hidden fasten 26 0 21 0 299 100 225 100;
#P hidden connect 20 0 21 0;
#P hidden fasten 32 0 26 0 47 98 36 98 36 -15 285 -15 285 24 299 24;
#P hidden connect 27 0 26 0;
#P hidden connect 9 0 8 0;
#P hidden connect 12 0 11 0;
#P hidden connect 11 0 9 0;
#P hidden fasten 16 0 28 0 169 213 320 213;
#P hidden connect 28 0 29 0;
#P hidden fasten 30 0 29 0 370 240 320 240;
#P hidden fasten 22 0 18 0 214 266 322 266;
#P hidden fasten 33 0 18 0 169 267 322 267;
#P hidden connect 18 0 19 0;
#P hidden fasten 9 0 8 1 308 153 334 153;
#P hidden connect 10 0 9 1;
#P hidden fasten 32 0 30 0 47 98 36 98 36 -15 358 -15 358 24 370 24;
#P hidden connect 31 0 30 0;
#P pop;


November 22, 2008 | 8:13 pm

This patch looks like really great engineering, but does a shepard risset patch need to be this complicated?
I would love to understand what is going on here, and start to customize it, but this looks like being way over my head…

I thought something like this could be simple, like a couple of sinewaves and a bell curved amplitude/pitch envelope, but that is probably not going to sound right.

Cheers & thanks for a cool patch !


November 22, 2008 | 8:17 pm

This actual patch was not so compicated, I was probably looking at an older version that looked like rocket science.

Cheers


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