[maxmsp] Re: Re: Re: Re: phase bashing

> I think I found the problem. It looks as though peek~ is
> not very good at doing audio rate playback. I think wave~ is
> what we really want to use in this case. I am also using a
> single cycle of a waveform to test with. I simplified the
> patch a bit an removed things that did not make sense.
>

for anybody still interested in this thread, here is a version  
modelled after the first part of the paper, which is about generating  
synthetic formants. no phase bashing is needed, since while creating  
the wavetable we can make sure that all partials are phase-aligned.

volker


#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P hidden newex 177 51 52 196617 t 100 1 b;
#P hidden newex 176 33 48 196617 loadbang;
#N vpatcher 20 74 620 474;
#P window setfont "Sans Serif" 9.;
#P newex 50 92 32 196617 line~;
#P message 50 72 43 196617 \$1 100;
#P inlet 50 30 15 0;
#P outlet 50 114 15 0;
#P connect 1 0 2 0;
#P connect 2 0 3 0;
#P connect 3 0 0 0;
#P pop;
#P newobj 189 117 30 196617 p;
#P message 236 250 25 196617 -40;
#P flonum 189 93 35 9 1. 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P user multiSlider 236 271 148 116 -40. -6. 12 2681 15 0 0 2 0 33 0;
#M frgb 79 47 37;
#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;
#N vpatcher 10 59 583 591;
#P window setfont "Sans Serif" 9.;
#P newex 383 45 48 196617 loadbang;
#P window linecount 1;
#P message 383 75 91 196617 sizeinsamps 1024;
#P newex 339 229 21 196617 t 0;
#P window linecount 0;
#P newex 339 207 46 196617 sel -40.;
#P newex 375 229 34 196617 dbtoa;
#N counter 1 1000;
#X flags 0 0;
#P newobj 246 249 80 196617 counter 1 1000;
#P newex 215 73 141 196617 t l b clear;
#P newex 90 340 54 196617 + 0.;
#P window linecount 1;
#P newex 90 314 45 196617 peek~ x;
#P window linecount 0;
#P newex 73 370 45 196617 peek~ x;
#P newex 215 157 29 196617 t b f;
#P newex 86 244 59 196617 uzi 1024 0;
#P newex 215 129 25 196617 iter;
#P newex 345 112 74 196617 buffer~ x 100;
#P newex 134 285 235 196617 expr sin(2*3.14159263*$i1*$f2/ 1024.) * $f3;
#P inlet 215 37 15 0;
#P fasten 4 2 6 0 139 268 78 268;
#P connect 5 0 4 0;
#P fasten 4 2 7 0 139 274 95 274;
#P connect 7 0 8 0;
#P connect 8 0 6 1;
#P connect 4 2 1 0;
#P connect 1 0 8 1;
#P connect 0 0 9 0;
#P connect 9 0 3 0;
#P connect 3 0 5 0;
#P connect 5 0 10 0;
#P connect 10 0 1 1;
#P connect 9 1 10 2;
#P connect 5 1 12 0;
#P connect 12 0 13 0;
#P connect 14 0 2 0;
#P connect 9 2 2 0;
#P connect 13 0 1 2;
#P connect 11 0 1 2;
#P connect 12 1 11 0;
#P connect 15 0 14 0;
#P pop;
#P newobj 236 392 48 196617 p wtable;
#N vpatcher 20 74 620 474;
#P window setfont "Sans Serif" 9.;
#P newex 50 92 32 196617 line~;
#P message 50 72 43 196617 \$1 100;
#P newex 50 50 29 196617 * 2.;
#P inlet 50 30 15 0;
#P outlet 50 114 15 0;
#P connect 1 0 2 0;
#P connect 2 0 3 0;
#P connect 3 0 4 0;
#P connect 4 0 0 0;
#P pop;
#P newobj 122 115 30 196617 p;
#N vpatcher 20 74 620 474;
#P outlet 113 206 15 0;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 113 164 27 196617 -~;
#P newex 130 130 30 196617 >~ 1;
#P window linecount 0;
#P newex 113 90 40 196617 +~ 0.5;
#P inlet 113 60 15 0;
#P connect 0 0 1 0;
#P connect 1 0 3 0;
#P connect 3 0 4 0;
#P connect 1 0 2 0;
#P connect 2 0 3 1;
#P pop;
#P newobj 134 180 57 196617 p shift180;
#N vpatcher 20 74 551 511;
#P inlet 327 38 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 261 88 32 196617 *~ 1;
#P newex 50 352 27 196617 *~;
#P user scope~ 273 161 403 291 256 3 128 -1. 1. 0 0. 0 0. 102 255 51  
135 135 135 0;
#P newex 261 115 61 196617 wave~ wnd;
#P newex 50 234 49 196617 wave~ x;
#P user scope~ 103 160 233 290 256 3 128 -1. 1. 0 0. 0 0. 102 255 51  
135 135 135 0;
#P newex 50 122 72 196617 pong~ 1 0. 1.;
#P newex 50 86 33 196617 *~ 2;
#P inlet 50 29 15 0;
#P inlet 112 26 15 0;
#P outlet 50 374 15 0;
#P connect 2 0 3 0;
#P connect 3 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 9 0;
#P connect 9 0 0 0;
#P fasten 7 0 9 1 266 311 72 311;
#P connect 1 0 3 1;
#P connect 4 0 5 0;
#P fasten 2 0 10 0 55 51 266 51;
#P connect 10 0 7 0;
#P connect 7 0 8 0;
#P connect 11 0 10 1;
#P pop;
#P newobj 134 202 123 196617 p gransamp;
#N vpatcher 20 74 551 511;
#P inlet 327 38 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 261 88 32 196617 *~ 1;
#P newex 50 352 27 196617 *~;
#P user scope~ 273 161 403 291 256 3 128 -1. 1. 0 0. 0 0. 102 255 51  
135 135 135 0;
#P newex 261 115 61 196617 wave~ wnd;
#P newex 50 234 49 196617 wave~ x;
#P user scope~ 103 160 233 290 256 3 128 -1. 1. 0 0. 0 0. 102 255 51  
135 135 135 0;
#P newex 50 122 72 196617 pong~ 1 0. 1.;
#P newex 50 86 33 196617 *~ 2;
#P inlet 50 29 15 0;
#P inlet 112 26 15 0;
#P outlet 50 374 15 0;
#P connect 2 0 3 0;
#P connect 3 0 4 0;
#P connect 4 0 6 0;
#P connect 6 0 9 0;
#P connect 9 0 0 0;
#P fasten 7 0 9 1 266 311 72 311;
#P connect 1 0 3 1;
#P connect 4 0 5 0;
#P fasten 2 0 10 0 55 51 266 51;
#P connect 10 0 7 0;
#P connect 7 0 8 0;
#P connect 11 0 10 1;
#P pop;
#P newobj 42 203 83 196617 p gransamp;
#N vpatcher 552 44 1001 321;
#P window setfont "Sans Serif" 9.;
#P newex 66 43 48 196617 loadbang;
#P window linecount 1;
#P newex 82 189 57 196617 peek~ wnd;
#P button 66 111 15 0;
#P window linecount 0;
#P newex 66 133 53 196617 uzi 512 0;
#P newex 108 162 224 196617 expr 0.5 - 0.5*cos(2*3.14159263*$i1/512.);
#P message 142 97 85 196617 sizeinsamps 512;
#P newex 143 126 86 196617 buffer~ wnd 100;
#P connect 6 0 4 0;
#P connect 4 0 3 0;
#P fasten 3 2 5 0 113 155 87 155;
#P connect 2 0 5 1;
#P connect 3 2 2 0;
#P connect 6 0 1 0;
#P connect 1 0 0 0;
#P pop;
#P newobj 358 155 39 196617 p wind;
#P user led 22 528 17 17 0 150;
#P newex 39 528 30 196617 dac~;
#P user gain~ 42 390 24 100 158 0 1.071519 7.94321 10.;
#P flonum 122 94 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 129 381 48 196617 loadbang;
#P hidden message 129 403 32 196617 set x;
#P user waveform~ 129 422 363 137 3 9;
#W mode select;
#W mouseoutput none;
#W clipdraw 1;
#W unit samples;
#W grid 22.675737;
#W ticks 0;
#W labels 1;
#W vlabels 0;
#W vticks 0;
#W bpm 120. 4.;
#W frgb 33 0 0;
#W brgb 60 178 173;
#W rgb2 0 95 255;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 146 179 217;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P newex 42 113 35 196617 * 0.5;
#P flonum 42 77 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 42 136 46 196617 phasor~;
#P comment 130 81 29 196617 S;
#P comment 197 80 47 196617 T;
#P comment 344 136 100 196617 hanning window;
#P window setfont "Sans Serif" 14.;
#P window linecount 2;
#P comment 390 313 100 196622 create a wavetable;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P comment 25 58 100 196617 fundamental freq;
#P hidden connect 12 0 13 0;
#P hidden connect 14 0 13 0;
#P hidden connect 26 0 6 0;
#P connect 6 0 7 0;
#P connect 7 0 5 0;
#P connect 5 0 16 0;
#P connect 16 0 12 0;
#P fasten 17 0 12 0 139 246 47 246;
#P hidden connect 12 0 13 1;
#P fasten 19 0 16 1 127 163 83 163;
#P fasten 24 0 16 2 194 144 119 144;
#P hidden connect 26 1 11 0;
#P connect 11 0 19 0;
#P hidden connect 10 0 9 0;
#P hidden connect 9 0 8 0;
#P connect 5 0 18 0;
#P connect 18 0 17 0;
#P hidden connect 25 0 26 0;
#P hidden connect 26 1 22 0;
#P connect 22 0 24 0;
#P fasten 19 0 17 1 127 163 195 163;
#P hidden connect 26 2 23 0;
#P connect 23 0 21 0;
#P connect 21 0 20 0;
#P fasten 24 0 17 2 194 144 251 144;
#P window clipboard copycount 27;