Cycling 74 » Topic: additive synthesis

additive synthesis

Eric Sheffield — Mon, 03 Mar 2008 22:43:23 +0000

Hello, all.
I’m trying to imitate the sounds of specific, non-pitched metal objects. The additive synthesis stuff (from MSP tutorial #7) is exactly what I’m using. It works just fine with a LOT of tweaking. The problem for me is getting the analysis process to be a little more user-friendly.
Right now I’m using fiddle~ with lbyl. Obviously, the most fiddle~ will give me in terms of sinusoidal component analysis is 3 outputs. The sounds I’m trying to reproduce work as well as I’d like once there’s more like 5 sinusoidal components being used.
Because of the way fiddle~ jumps around, even with lbyl, I’m recording the sound, playing it through fiddle~ a few times, and watching the numbers as they change, keeping note of the unique ranges I see (i.e. ‘around’ 282hz, 425hz, 1186hz, etc.). These numbers come and go as I watch, so I really am lost as to how I can automatically keep track of them all. Then, even when I get the right freqs, I’d like to get at least close to the unique envelope characteristics of each one. Fiddle~ sort of accomplishes this since it gives you an amplitude with the sinusoidal component output, but as I mentioned, that jumps around and isn’t really reliable. What I’d REALLY like is if, once fiddle~ detected a freq, it focused only on that (and two other ones) and gave a reliable amplitude envelope for that specific frequency.
Perhaps I don’t know how to effectively use fiddle~. Any suggestions?

Re: additive synthesis

vze1mk7d — Tue, 04 Mar 2008 03:06:40 +0000

Hi. I have a patch I made a while ago that I think does exactly what you want. So here it is:

#P window setfont “Sans Serif” 14.;
#P window linecount 2;
#P comment 508 99 78 196622 Original Source;
#P user gain~ 523 141 24 100 158 0 1.071519 7.94321 1000.;
#P window linecount 1;
#P comment 591 114 78 196622 Resynth 1;
#P window setfont “Sans Serif” 9.;
#N vpatcher 20 74 801 237;
#P window setfont “Sans Serif” 9.;
#P newex 653 71 49 196617 *~ 0.1;
#P newex 586 71 49 196617 *~ 0.1;
#P newex 519 71 49 196617 *~ 0.1;
#P newex 452 71 49 196617 *~ 0.1;
#P newex 385 71 49 196617 *~ 0.1;
#P newex 318 71 49 196617 *~ 0.1;
#P newex 251 71 49 196617 *~ 0.1;
#P newex 184 71 49 196617 *~ 0.1;
#P newex 117 71 49 196617 *~ 0.1;
#P newex 50 71 41 196617 *~ 0.1;
#P newex 653 50 70 196617 receive~ 10a;
#P newex 586 50 65 196617 receive~ O9;
#P newex 519 50 65 196617 receive~ O8;
#P newex 452 50 65 196617 receive~ O7;
#P newex 385 50 65 196617 receive~ O6;
#P newex 318 50 65 196617 receive~ O5;
#P newex 251 50 65 196617 receive~ O4;
#P newex 184 50 65 196617 receive~ O3;
#P newex 117 50 65 196617 receive~ O2;
#P newex 50 50 65 196617 receive~ O1;
#P outlet 378 106 15 0;
#P connect 1 0 11 0;
#P connect 2 0 12 0;
#P connect 3 0 13 0;
#P connect 4 0 14 0;
#P connect 5 0 15 0;
#P connect 16 0 0 0;
#P connect 11 0 0 0;
#P connect 12 0 0 0;
#P connect 13 0 0 0;
#P connect 14 0 0 0;
#P connect 15 0 0 0;
#P connect 17 0 0 0;
#P connect 18 0 0 0;
#P connect 19 0 0 0;
#P connect 20 0 0 0;
#P connect 6 0 16 0;
#P connect 7 0 17 0;
#P connect 8 0 18 0;
#P connect 9 0 19 0;
#P connect 10 0 20 0;
#P pop;
#P hidden newobj 615 120 88 196617 p receive_freqs1;
#P user gain~ 615 141 24 100 158 0 1.071519 7.94321 1000.;
#P user meter~ 109 48 122 106 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P user umenu 12 42 90 196647 1 64 58 1;
#X add select source;
#X add sfplay;
#X add live input;
#N vpatcher 361 364 803 610;
#P window setfont “Sans Serif” 9.;
#N vpatcher 527 149 698 386;
#P user gain~ 23 67 22 56 158 0 1.071519 7.94321 10.;
#P user meter~ 31 151 111 164 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P user meter~ 31 51 111 64 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P window setfont “Sans Serif” 9.;
#P newex 23 30 40 196617 adc~ 1;
#P outlet 23 171 15 0;
#P hidden newex 71 94 48 196617 loadbang;
#P hidden newex 71 124 27 196617 128;
#P hidden newex 80 187 45 196617 s meter;
#P connect 4 0 7 0;
#P hidden connect 1 0 7 0;
#P connect 7 0 3 0;
#P connect 4 0 5 0;
#P connect 7 0 6 0;
#P hidden connect 2 0 1 0;
#P hidden connect 7 0 0 0;
#P pop;
#P newobj 102 90 63 196617 p live_input;
#N vpatcher 142 252 1316 641;
#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P newex 1070 295 27 196617 f;
#P newex 961 295 27 196617 f;
#P newex 852 295 27 196617 f;
#P newex 743 295 27 196617 f;
#P newex 634 295 27 196617 f;
#P newex 525 295 27 196617 f;
#P newex 416 295 27 196617 f;
#P newex 307 295 27 196617 f;
#P newex 198 295 27 196617 f;
#P newex 89 295 27 196617 f;
#P newex 1070 315 43 196617 s A010;
#P newex 961 315 37 196617 s A09;
#P newex 852 315 37 196617 s AO8;
#P newex 743 315 37 196617 s AO7;
#P newex 634 315 37 196617 s AO6;
#P newex 525 315 37 196617 s AO5;
#P newex 416 315 37 196617 s AO4;
#P newex 307 315 37 196617 s AO3;
#P newex 198 315 37 196617 s AO2;
#P newex 89 315 37 196617 s AO1;
#P newex 1006 295 27 196617 f;
#P newex 897 295 27 196617 f;
#P newex 788 295 27 196617 f;
#P newex 679 295 27 196617 f;
#P newex 570 295 27 196617 f;
#P newex 461 295 27 196617 f;
#P newex 352 295 27 196617 f;
#P newex 243 295 27 196617 f;
#P newex 134 295 27 196617 f;
#P newex 25 295 27 196617 f;
#P newex 1006 315 35 196617 s F10;
#P newex 897 315 29 196617 s F9;
#P newex 788 315 29 196617 s F8;
#P newex 679 315 29 196617 s F7;
#P newex 570 315 29 196617 s F6;
#P newex 461 315 29 196617 s F5;
#P newex 352 315 29 196617 s F4;
#P newex 243 315 29 196617 s F3;
#P newex 134 315 29 196617 s F2;
#P newex 25 315 29 196617 s F1;
#P comment 176 245 206 196617 This one resynths a snapshot of the sample;
#P newex 1006 269 74 196617 unpack 0. 0.;
#P newex 897 269 74 196617 unpack 0. 0.;
#P newex 788 269 74 196617 unpack 0. 0.;
#P newex 679 269 74 196617 unpack 0. 0.;
#P newex 570 269 74 196617 unpack 0. 0.;
#P newex 461 269 74 196617 unpack 0. 0.;
#P newex 352 269 74 196617 unpack 0. 0.;
#P newex 243 269 74 196617 unpack 0. 0.;
#P newex 134 269 74 196617 unpack 0. 0.;
#P newex 25 235 144 196617 route 1 2 3 4 5 6 7 8 9 10;
#P newex 25 269 74 196617 unpack 0. 0.;
#P newex 1035 155 74 196617 unpack 0. 0.;
#P newex 926 155 74 196617 unpack 0. 0.;
#P newex 817 155 74 196617 unpack 0. 0.;
#P newex 708 155 74 196617 unpack 0. 0.;
#P newex 599 155 74 196617 unpack 0. 0.;
#P newex 490 155 74 196617 unpack 0. 0.;
#P newex 381 155 74 196617 unpack 0. 0.;
#P newex 272 155 74 196617 unpack 0. 0.;
#P newex 163 155 74 196617 unpack 0. 0.;
#P newex 1099 178 27 196617 f;
#P newex 990 178 27 196617 f;
#P newex 881 178 27 196617 f;
#P newex 772 178 27 196617 f;
#P newex 663 178 27 196617 f;
#P newex 554 178 27 196617 f;
#P newex 445 178 27 196617 f;
#P newex 336 178 27 196617 f;
#P newex 227 178 27 196617 f;
#P newex 118 178 27 196617 f;
#P newex 1099 198 43 196617 s A010;
#P newex 990 198 37 196617 s A09;
#P newex 881 198 37 196617 s AO8;
#P newex 772 198 37 196617 s AO7;
#P newex 663 198 37 196617 s AO6;
#P newex 554 198 37 196617 s AO5;
#P newex 445 198 37 196617 s AO4;
#P newex 336 198 37 196617 s AO3;
#P newex 227 198 37 196617 s AO2;
#P newex 118 198 37 196617 s AO1;
#P newex 1035 178 27 196617 f;
#P newex 926 178 27 196617 f;
#P newex 817 178 27 196617 f;
#P newex 708 178 27 196617 f;
#P newex 599 178 27 196617 f;
#P newex 490 178 27 196617 f;
#P newex 381 178 27 196617 f;
#P newex 272 178 27 196617 f;
#P newex 163 178 27 196617 f;
#P newex 54 178 27 196617 f;
#P newex 1035 198 35 196617 s F10;
#P newex 926 198 29 196617 s F9;
#P newex 817 198 29 196617 s F8;
#P newex 708 198 29 196617 s F7;
#P newex 599 198 29 196617 s F6;
#P newex 490 198 29 196617 s F5;
#P newex 381 198 29 196617 s F4;
#P newex 272 198 29 196617 s F3;
#P newex 163 198 29 196617 s F2;
#P newex 54 198 29 196617 s F1;
#P inlet 25 82 15 0;
#P window linecount 0;
#P newex 54 121 144 196617 route 1 2 3 4 5 6 7 8 9 10;
#P newex 54 155 74 196617 unpack 0. 0.;
#P comment 206 119 270 196617 This is used to Reset the cycles~ or if you like you can use this to resynth in realtime in realtime;
#P newex 523 275 54 196617 r Resynth;
#P newex 84 79 32 196617 sel 1;
#P message 84 99 319 196617 1 0 0 , 2 0 0 , 3 0 0 , 4 0 0 , 5 0 0 , 6 0 0 , 7 0 0 , 8 0 0 , 9 0 0 , 10 0 0;
#P newex 84 32 43 196617 r Reset;
#P newex 84 52 27 196617 1;
#P comment 407 92 100 196617 this resets the values;
#P connect 9 0 60 0;
#P connect 60 0 59 0;
#P connect 5 0 81 0;
#P connect 81 0 71 0;
#P fasten 59 0 81 1 30 290 47 290;
#P fasten 3 0 8 0 89 117 59 117;
#P connect 8 0 7 0;
#P connect 7 0 20 0;
#P connect 20 0 10 0;
#P connect 2 0 1 0;
#P connect 1 0 4 0;
#P connect 4 0 3 0;
#P connect 5 0 101 0;
#P connect 101 0 91 0;
#P fasten 59 1 101 1 94 290 111 290;
#P connect 7 1 40 0;
#P connect 40 0 30 0;
#P fasten 60 1 61 0 43 260 139 260;
#P connect 5 0 82 0;
#P connect 82 0 72 0;
#P fasten 61 0 82 1 139 290 156 290;
#P fasten 8 1 50 0 72 146 168 146;
#P connect 50 0 21 0;
#P connect 21 0 11 0;
#P connect 5 0 102 0;
#P connect 102 0 92 0;
#P fasten 61 1 102 1 203 290 220 290;
#P connect 50 1 41 0;
#P connect 41 0 31 0;
#P fasten 60 2 62 0 56 260 248 260;
#P connect 5 0 83 0;
#P connect 83 0 73 0;
#P fasten 62 0 83 1 248 290 265 290;
#P fasten 8 2 51 0 85 146 277 146;
#P connect 51 0 22 0;
#P connect 22 0 12 0;
#P connect 5 0 103 0;
#P connect 103 0 93 0;
#P fasten 62 1 103 1 312 290 329 290;
#P connect 51 1 42 0;
#P connect 42 0 32 0;
#P fasten 60 3 63 0 69 260 357 260;
#P connect 5 0 84 0;
#P connect 84 0 74 0;
#P fasten 63 0 84 1 357 290 374 290;
#P fasten 8 3 52 0 98 146 386 146;
#P connect 52 0 23 0;
#P connect 23 0 13 0;
#P connect 5 0 104 0;
#P connect 104 0 94 0;
#P fasten 63 1 104 1 421 290 438 290;
#P connect 52 1 43 0;
#P connect 43 0 33 0;
#P fasten 60 4 64 0 82 260 466 260;
#P connect 5 0 85 0;
#P connect 85 0 75 0;
#P fasten 64 0 85 1 466 290 483 290;
#P fasten 8 4 53 0 111 146 495 146;
#P connect 53 0 24 0;
#P connect 24 0 14 0;
#P connect 5 0 105 0;
#P connect 105 0 95 0;
#P fasten 64 1 105 1 530 290 547 290;
#P connect 53 1 44 0;
#P connect 44 0 34 0;
#P fasten 60 5 65 0 95 260 575 260;
#P connect 5 0 86 0;
#P connect 86 0 76 0;
#P fasten 65 0 86 1 575 290 592 290;
#P fasten 8 5 54 0 124 146 604 146;
#P connect 54 0 25 0;
#P connect 25 0 15 0;
#P connect 5 0 106 0;
#P connect 106 0 96 0;
#P fasten 65 1 106 1 639 290 656 290;
#P connect 54 1 45 0;
#P connect 45 0 35 0;
#P fasten 60 6 66 0 108 260 684 260;
#P connect 5 0 87 0;
#P connect 87 0 77 0;
#P fasten 66 0 87 1 684 290 701 290;
#P fasten 8 6 55 0 137 146 713 146;
#P connect 55 0 26 0;
#P connect 26 0 16 0;
#P connect 5 0 107 0;
#P connect 107 0 97 0;
#P fasten 66 1 107 1 748 290 765 290;
#P connect 55 1 46 0;
#P connect 46 0 36 0;
#P fasten 60 7 67 0 121 260 793 260;
#P connect 5 0 88 0;
#P connect 88 0 78 0;
#P fasten 67 0 88 1 793 290 810 290;
#P fasten 8 7 56 0 150 146 822 146;
#P connect 56 0 27 0;
#P connect 27 0 17 0;
#P connect 5 0 108 0;
#P connect 108 0 98 0;
#P fasten 67 1 108 1 857 290 874 290;
#P connect 56 1 47 0;
#P connect 47 0 37 0;
#P fasten 60 8 68 0 134 260 902 260;
#P connect 5 0 89 0;
#P connect 89 0 79 0;
#P fasten 68 0 89 1 902 290 919 290;
#P fasten 8 8 57 0 163 146 931 146;
#P connect 57 0 28 0;
#P connect 28 0 18 0;
#P connect 5 0 109 0;
#P connect 109 0 99 0;
#P fasten 68 1 109 1 966 290 983 290;
#P connect 57 1 48 0;
#P connect 48 0 38 0;
#P fasten 60 9 69 0 147 260 1011 260;
#P connect 5 0 90 0;
#P connect 90 0 80 0;
#P fasten 69 0 90 1 1011 290 1028 290;
#P fasten 8 9 58 0 176 146 1040 146;
#P connect 58 0 29 0;
#P connect 29 0 19 0;
#P connect 5 0 110 0;
#P connect 110 0 100 0;
#P fasten 69 1 110 1 1075 290 1092 290;
#P connect 58 1 49 0;
#P connect 49 0 39 0;
#P pop;
#P newobj 269 156 70 196617 p frequencies;
#P message 99 49 43 196617 loop $1;
#N sfplay~ 1 120960 0 ;
#P newobj 76 69 44 196617 sfplay~;
#P newex 65 134 217 196617 pitch~ 2048 512 4096 blackman70 0 1 60 30;
#P newex 50 153 73 196617 send~ original;
#P inlet 76 49 15 0;
#P inlet 99 29 15 0;
#P newex 50 111 62 196617 selector~ 2;
#P inlet 50 90 15 0;
#P newex 167 -104 32 196617 print;
#P connect 1 0 2 0;
#P connect 2 0 5 0;
#P connect 2 0 6 0;
#P connect 4 0 7 0;
#P fasten 8 0 7 0 104 66 81 66;
#P connect 7 0 2 1;
#P connect 3 0 8 0;
#P connect 10 0 2 2;
#P connect 6 4 9 0;
#P pop;
#P hidden newobj 12 151 80 196617 p play_controls;
#P comment 41 127 52 196617 play/stop;
#P toggle 95 121 23 0;
#P window setfont “Sans Serif” 18.;
#P comment 233 42 162 196626 Additive Controls;
#P button 203 78 35 0;
#P button 324 78 35 0;
#P window setfont “Sans Serif” 9.;
#P hidden newex 521 50 47 196617 pcontrol;
#P window setfont “Sans Serif” 14.;
#P message 521 26 107 196622 open Additive;
#P window setfont “Sans Serif” 9.;
#N vpatcher 95 407 1261 646;
#P origin 36 -2;
#P window setfont “Sans Serif” 9.;
#P comment 1063 79 50 196617 amplitude;
#P comment 958 79 50 196617 amplitude;
#P comment 844 79 50 196617 amplitude;
#P comment 741 79 50 196617 amplitude;
#P comment 629 79 50 196617 amplitude;
#P comment 523 79 50 196617 amplitude;
#P comment 418 79 50 196617 amplitude;
#P comment 311 79 50 196617 amplitude;
#P comment 201 79 50 196617 amplitude;
#P comment 1017 79 41 196617 Freq 10;
#P comment 912 79 35 196617 Freq 9;
#P comment 805 79 35 196617 Freq 8;
#P comment 695 79 35 196617 Freq 7;
#P comment 583 79 35 196617 Freq 6;
#P comment 477 79 35 196617 Freq 5;
#P comment 372 79 35 196617 Freq 4;
#P comment 265 79 35 196617 Freq 3;
#P comment 155 79 35 196617 Freq 2;
#P hidden newex 1075 71 43 196617 r A010;
#P hidden newex 1003 181 56 196617 send~ 10a;
#P flonum 1063 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 1016 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 1075 71 31 196617 r A1;
#P hidden newex 1003 162 35 196617 *~ 0.;
#P hidden newex 1017 50 35 196617 r F10;
#P hidden newex 1003 129 40 196617 cycle~;
#P hidden newex 970 71 37 196617 r AO9;
#P hidden newex 897 181 51 196617 send~ O9;
#P flonum 958 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 908 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 970 71 31 196617 r A1;
#P hidden newex 897 162 35 196617 *~ 0.;
#P hidden newex 912 50 29 196617 r F9;
#P hidden newex 897 129 40 196617 cycle~;
#P hidden newex 856 71 37 196617 r AO8;
#P hidden newex 791 181 51 196617 send~ O8;
#P flonum 844 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 798 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 856 71 31 196617 r A1;
#P hidden newex 791 162 35 196617 *~ 0.;
#P hidden newex 805 50 29 196617 r F8;
#P hidden newex 791 129 40 196617 cycle~;
#P hidden newex 753 71 37 196617 r AO7;
#P hidden newex 685 181 51 196617 send~ O7;
#P flonum 741 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 685 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 753 71 31 196617 r A1;
#P hidden newex 685 162 35 196617 *~ 0.;
#P hidden newex 695 50 29 196617 r F7;
#P hidden newex 685 129 40 196617 cycle~;
#P hidden newex 641 71 37 196617 r AO6;
#P hidden newex 579 181 51 196617 send~ O6;
#P flonum 629 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 579 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 641 71 31 196617 r A1;
#P hidden newex 579 162 35 196617 *~ 0.;
#P hidden newex 583 50 29 196617 r F6;
#P hidden newex 579 129 40 196617 cycle~;
#P hidden newex 535 71 37 196617 r AO5;
#P hidden newex 473 181 51 196617 send~ O5;
#P flonum 523 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 473 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 535 71 31 196617 r A1;
#P hidden newex 473 162 35 196617 *~ 0.;
#P hidden newex 477 50 29 196617 r F5;
#P hidden newex 473 129 40 196617 cycle~;
#P hidden newex 430 71 37 196617 r AO4;
#P hidden newex 367 181 51 196617 send~ O4;
#P flonum 418 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 367 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 430 71 31 196617 r A1;
#P hidden newex 367 162 35 196617 *~ 0.;
#P hidden newex 372 50 29 196617 r F4;
#P hidden newex 367 129 40 196617 cycle~;
#P hidden newex 323 71 37 196617 r AO3;
#P hidden newex 261 181 51 196617 send~ O3;
#P flonum 311 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 261 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 323 71 31 196617 r A1;
#P hidden newex 261 162 35 196617 *~ 0.;
#P hidden newex 265 50 29 196617 r F3;
#P hidden newex 261 129 40 196617 cycle~;
#P hidden newex 213 71 37 196617 r AO2;
#P hidden newex 150 181 51 196617 send~ O2;
#P flonum 201 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 150 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 213 71 31 196617 r A1;
#P hidden newex 150 162 35 196617 *~ 0.;
#P hidden newex 150 49 29 196617 r F2;
#P hidden newex 150 129 40 196617 cycle~;
#P hidden newex 101 71 37 196617 r AO1;
#P hidden newex 42 181 51 196617 send~ O1;
#P flonum 89 91 40 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 42 91 44 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 101 71 31 196617 r A1;
#P hidden newex 42 162 35 196617 *~ 0.;
#P hidden newex 43 50 29 196617 r F1;
#P hidden newex 42 129 40 196617 cycle~;
#P comment 43 79 35 196617 Freq 1;
#P comment 89 79 50 196617 amplitude;
#P window setfont “Sans Serif” 18.;
#P hidden comment 536 27 100 196626 Additive 1;
#P hidden inlet 1054 50 15 0;
#P user panel 8 21 1131 131;
#X brgb 120 171 242;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P background;
#P hidden connect 6 0 9 0;
#P hidden connect 9 0 5 0;
#P hidden connect 5 0 7 0;
#P hidden connect 7 0 11 0;
#P hidden fasten 10 0 7 1 94 161 72 161;
#P hidden connect 12 0 10 0;
#P hidden connect 8 0 10 0;
#P hidden connect 14 0 17 0;
#P hidden connect 17 0 13 0;
#P hidden connect 13 0 15 0;
#P hidden connect 15 0 19 0;
#P hidden connect 18 0 15 1;
#P hidden connect 20 0 18 0;
#P hidden connect 16 0 18 0;
#P hidden connect 22 0 25 0;
#P hidden connect 25 0 21 0;
#P hidden connect 21 0 23 0;
#P hidden connect 23 0 27 0;
#P hidden connect 26 0 23 1;
#P hidden connect 28 0 26 0;
#P hidden connect 24 0 26 0;
#P hidden connect 30 0 33 0;
#P hidden connect 33 0 29 0;
#P hidden connect 29 0 31 0;
#P hidden connect 31 0 35 0;
#P hidden connect 34 0 31 1;
#P hidden connect 36 0 34 0;
#P hidden connect 32 0 34 0;
#P hidden connect 38 0 41 0;
#P hidden connect 41 0 37 0;
#P hidden connect 37 0 39 0;
#P hidden connect 39 0 43 0;
#P hidden connect 42 0 39 1;
#P hidden connect 44 0 42 0;
#P hidden connect 40 0 42 0;
#P hidden connect 46 0 49 0;
#P hidden connect 49 0 45 0;
#P hidden connect 45 0 47 0;
#P hidden connect 47 0 51 0;
#P hidden connect 50 0 47 1;
#P hidden connect 52 0 50 0;
#P hidden connect 48 0 50 0;
#P hidden connect 54 0 57 0;
#P hidden connect 57 0 53 0;
#P hidden connect 53 0 55 0;
#P hidden connect 55 0 59 0;
#P hidden connect 58 0 55 1;
#P hidden connect 60 0 58 0;
#P hidden connect 56 0 58 0;
#P hidden connect 65 0 61 0;
#P hidden connect 61 0 63 0;
#P hidden connect 63 0 67 0;
#P hidden connect 62 0 65 0;
#P hidden connect 66 0 63 1;
#P hidden connect 68 0 66 0;
#P hidden connect 64 0 66 0;
#P hidden connect 73 0 69 0;
#P hidden connect 69 0 71 0;
#P hidden connect 71 0 75 0;
#P hidden connect 70 0 73 0;
#P hidden connect 74 0 71 1;
#P hidden connect 76 0 74 0;
#P hidden connect 72 0 74 0;
#P hidden connect 81 0 77 0;
#P hidden connect 77 0 79 0;
#P hidden connect 79 0 83 0;
#P hidden connect 78 0 81 0;
#P hidden connect 82 0 79 1;
#P hidden connect 80 0 82 0;
#P hidden connect 84 0 82 0;
#P pop;
#P hidden newobj 521 69 54 196617 p Additive;
#P user ezdac~ 137 48 181 81 0;
#P window setfont “Sans Serif” 12.;
#P message 15 98 38 196620 open;
#P toggle 15 121 23 0;
#P window setfont “Sans Serif” 9.;
#P hidden newex 324 115 54 196617 s Resynth;
#P hidden newex 203 115 43 196617 s Reset;
#P window setfont “Sans Serif” 18.;
#P comment 362 83 80 196626 Resynth;
#P comment 242 82 72 196626 Reset;
#P window setfont “Sans Serif” 9.;
#P comment 119 127 63 196617 Loop on/off;
#P user panel 8 36 182 112;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P hidden newex 138 36 45 196617 r meter;
#P hidden newex 634 56 31 196617 dac~;
#P window setfont “Sans Serif” 14.;
#P message 634 26 91 196622 open DAC~;
#P window setfont “Sans Serif” 9.;
#P hidden newex 565 281 32 196617 *~ 2;
#P hidden newex 565 306 31 196617 dac~;
#P window setfont “Sans Serif” 14.;
#P window linecount 6;
#P comment 79 238 272 196622 Instructions: First select your input source from the drop down list in the top left corner. Then click “Resynth” to analyze and resynth the source sound. Click “Reset” to turn the oscillators off.;
#P user panel 8 36 458 112;
#X brgb 255 255 255;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P background;
#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P hidden newex 523 117 87 196617 receive~ original;
#P hidden connect 31 0 3 0;
#P hidden connect 31 0 3 1;
#P hidden connect 4 0 3 0;
#P hidden connect 4 0 3 1;
#P hidden connect 0 0 31 0;
#P hidden connect 5 0 6 0;
#P hidden connect 28 0 4 0;
#P hidden connect 29 0 28 0;
#P hidden connect 19 0 17 0;
#P hidden connect 18 0 19 0;
#P hidden connect 20 0 13 0;
#P hidden connect 21 0 12 0;
#P hidden connect 7 0 27 0;
#P hidden connect 23 0 25 2;
#P hidden connect 14 0 25 1;
#P hidden connect 15 0 25 1;
#P hidden connect 26 0 25 0;
#P window clipboard copycount 33;

-Theo

http://www.theopadouvas.com/

Re: additive synthesis

Eric Sheffield — Fri, 14 Mar 2008 03:09:49 +0000

Wow.
Hello. Sorry for the late reply. This helps immensely.
Especially since it introduced me to pitch~. I don’t know why I had never tried it before, but it seems to fit my needs much better than fiddle~.
Thanks!

Re: additive synthesis

vze1mk7d — Fri, 14 Mar 2008 03:19:55 +0000

Hey. I didn’t realize I used pitch~ in that patch. I have a more complicated version of that patch that uses fiddle~. The right outlet of pitch and fiddle are the same so you could easily just switch the objects.

Re: additive synthesis

Eric Sheffield — Fri, 14 Mar 2008 04:24:41 +0000

Hmm. I am confused.
I understand that pitch~ is based on fiddle~ and that the right outputs do the same thing.
However, doesn’t fiddle~ only output 3 sinusoidal peaks, while pitch~ does up to 100?
For me, having at least 8 is key.

Re: additive synthesis

Eric Sheffield — Fri, 14 Mar 2008 04:29:09 +0000

Whoops. Just double-checked fiddle~ help file. Guess I was wrong.
However, with fiddle~ I was usually lucky if I even got 3 peaks detected. Is pitch~ somehow better at this? When I’ve run the sounds that I need to synthesize through the pitch~ based patch that you posted, I was getting up to all 10 most of the time. Some were essentially at 0 amplitude, but there were still almost always 8 viable ones. Any ideas?

Re: additive synthesis

marius.schebella — Fri, 14 Mar 2008 05:30:04 +0000

I don’t know if someone already mentioned, there is also an external
called analyzer~ that can be useful. but if you are using pitch~
already, then I think I am telling you nothing new…
cheers,
marius.

Eric Sheffield wrote:
> Whoops. Just double-checked fiddle~ help file. Guess I was wrong.
> However, with fiddle~ I was usually lucky if I even got 3 peaks detected. Is pitch~ somehow better at this? When I’ve run the sounds that I need to synthesize through the pitch~ based patch that you posted, I was getting up to all 10 most of the time. Some were essentially at 0 amplitude, but there were still almost always 8 viable ones. Any ideas?
>

Re: additive synthesis

Eric Sheffield — Fri, 14 Mar 2008 13:57:48 +0000

Yeah. I saw analyzer~, but I’m not totally sure what all that other stuff does! It may come in handy for me, but at this point I feel pretty good about what I’m getting for pitch information.
Now I need to deal with capturing the envelope of the percussive sounds. Many people on the forums have suggested ways to follow envelopes, but I’m still not sure how to capture the envelope and use it for resynthesis. Table and capture have sort of worked. I’ve even tried feeding the numbers into function with a counter to provide X coordinates every 100 ms or so. I like this because then I can tweak function after the initial analysis, but all of these things have been quite cumbersome.
Any suggestions in this area? In a pinch, I’ve just used the amplitude straight from the samples themselves (through abs~ and slide~) and triggered the samples to open the envelope for synthesis, but this is kind of cheating. After the initial analysis, I’d really like all of the sounds created to be purely synthesized.

Re: additive synthesis

riccardo dapelo — Sat, 15 Mar 2008 13:00:20 +0000

Sorry,
fiddle~ outputs as many components as you specify in the third argument

here is a very rough example:

max v2;
#N vpatcher 258 257 944 869;
#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P comment 417 141 187 196617 # of peaks to output (default 0);
#P comment 417 127 187 196617 # of peaks to find (1-100 , default 20);
#P comment 417 113 187 196617 # of pitch outlets (1-3 , default 1);
#P comment 417 99 187 196617 window size (128-2048 , default 1024);
#P comment 477 85 61 196617 arguments:;
#P message 25 262 29 196617 stop;
#P message 20 239 67 196617 startwindow;
#P newex 77 306 31 196617 dac~;
#P toggle 34 52 15 0;
#P message 80 42 30 196617 open;
#N sfplay~ 1 120960 0 ;
#P newobj 84 79 44 196617 sfplay~;
#P flonum 534 371 62 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 452 371 76 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 492 309 62 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 410 309 76 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 444 253 62 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 364 253 76 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 452 349 64 196617 unpack 0. 0.;
#P newex 410 287 64 196617 unpack 0. 0.;
#P newex 364 227 64 196617 unpack 0. 0.;
#P comment 450 393 153 196617 individual sinusoidal components;
#P flonum 326 379 62 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 244 379 76 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 325 333 62 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 243 333 76 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 325 290 62 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 243 290 76 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 244 357 64 196617 unpack 0. 0.;
#P newex 243 311 64 196617 unpack 0. 0.;
#P newex 243 269 64 196617 unpack 0. 0.;
#P newex 284 166 142 196617 route 1 2 3 4 5 6;
#P newex 114 170 101 196617 fiddle~ 1024 1 20 6;
#P comment 431 43 100 196617 FROM fiddle help;
#P connect 27 0 25 0;
#P connect 26 0 25 0;
#P connect 24 0 22 0;
#P connect 23 0 22 0;
#P connect 22 0 1 0;
#P connect 2 0 3 0;
#P connect 3 0 6 0;
#P connect 2 1 4 0;
#P connect 4 0 8 0;
#P connect 2 2 5 0;
#P connect 5 0 10 0;
#P connect 1 4 2 0;
#P connect 3 1 7 0;
#P connect 4 1 9 0;
#P connect 5 1 11 0;
#P connect 2 3 13 0;
#P connect 13 0 16 0;
#P connect 2 4 14 0;
#P connect 14 0 18 0;
#P connect 13 1 17 0;
#P connect 2 5 15 0;
#P connect 15 0 20 0;
#P connect 14 1 19 0;
#P connect 15 1 21 0;
#P pop;

>
> Hmm. I am confused.
> I understand that pitch~ is based on fiddle~ and that the right
> outputs do the same thing.
> However, doesn’t fiddle~ only output 3 sinusoidal peaks, while
> pitch~ does up to 100?
> For me, having at least 8 is key.
>