[PD] FFT and curve3d?

Hans-Christoph Steiner hans at eds.org
Wed Mar 11 15:47:19 CET 2009


I was thinking more about the look of it, rather than the speed of  
it.  Any of you mind if I turn these into Gem examples and commit them?

.hc

On Mar 11, 2009, at 4:57 AM, cyrille henry wrote:

> curve3d will be to slow.
>
> here is mine, made with openGL primitive.
> like Claude one, but with a log for the frequency +  a time filter  
> for the curve to be better.
>
> i think the best would be to add some feedback effect to create a  
> kind of 3d effect.
>
> c
>
>
> Hans-Christoph Steiner a écrit :
>> Anyone know of a patch that maps an FFT over time to something like  
>> a curve3d in Gem?  I remember a while back people posted something  
>> like that, but I can't find it.
>> .hc
>> ---------------------------------------------------------------------------- All 
>>  mankind is of one author, and is one volume; when one man dies,  
>> one chapter is not torn out of the book, but translated into a  
>> better language; and every chapter must be so translated.... -John  
>> Donne
>> _______________________________________________
>> Pd-list at iem.at mailing list
>> UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
> #N canvas 830 500 450 300 10;
> #N canvas 607 37 645 663 osc~ 0;
> #X obj 12 133 pack~;
> #X obj 14 7 inlet~;
> #X text 269 6 change block size;
> #X msg 77 379 0;
> #X obj 47 403 f;
> #X obj 63 428 + 1;
> #X obj 17 379 t a b;
> #X obj 16 245 gemhead;
> #X text 72 7 audio input;
> #X obj 13 29 rfft~;
> #X obj 13 51 *~;
> #X obj 53 53 *~;
> #X obj 173 6 block~ 4096 4;
> #X obj 12 75 /~ 4096;
> #X obj 12 95 log~;
> #X obj 12 114 *~ 0.05;
> #X obj 12 152 list prepend 0;
> #X obj 12 173 s \$0-fft;
> #X obj 172 26 table \$0-fft 2048;
> #X obj 172 46 table \$0-fft-lop 2048;
> #X obj 401 13 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
> -1;
> #X obj 401 31 t b b;
> #X obj 400 71 until;
> #X msg 401 52 2048;
> #X msg 443 74 0;
> #X obj 400 96 f;
> #X obj 415 119 + 1;
> #X obj 400 163 tabread \$0-fft;
> #X obj 494 163 tabread \$0-fft-lop;
> #X obj 400 213 +;
> #X obj 400 256 tabwrite \$0-fft-lop;
> #X obj 400 138 t f f f;
> #X obj 424 7 bang~;
> #X obj 400 235 / 8;
> #X obj 495 187 * 7;
> #X obj 77 494 tabread \$0-fft-lop;
> #X obj 30 589 loadbang;
> #X obj 47 451 t f f;
> #X obj 98 591 l;
> #X obj 22 224 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
> 1;
> #X obj 97 560 t l b;
> #X obj 18 659 curve 2;
> #X obj 46 519 pack f f f;
> #X floatatom 36 296 5 0 0 0 - - -;
> #X floatatom 78 297 5 0 0 0 - - -;
> #X obj 17 334 t a b;
> #X floatatom 72 250 5 0 0 0 - - -;
> #X floatatom 114 251 5 0 0 0 - - -;
> #X obj 17 358 repeat 2048;
> #X obj 14 277 translateXYZ -4 0 0;
> #X obj 47 471 log;
> #X obj 17 314 scaleXYZ 1.04 6 0;
> #X msg 30 611 res 2;
> #X connect 0 0 16 0;
> #X connect 1 0 9 0;
> #X connect 3 0 4 0;
> #X connect 4 0 5 0;
> #X connect 4 0 37 0;
> #X connect 5 0 4 1;
> #X connect 6 0 41 0;
> #X connect 6 1 4 0;
> #X connect 7 0 49 0;
> #X connect 9 0 10 0;
> #X connect 9 0 10 1;
> #X connect 9 1 11 0;
> #X connect 9 1 11 1;
> #X connect 10 0 13 0;
> #X connect 11 0 13 0;
> #X connect 13 0 14 0;
> #X connect 14 0 15 0;
> #X connect 15 0 0 0;
> #X connect 16 0 17 0;
> #X connect 20 0 21 0;
> #X connect 21 0 23 0;
> #X connect 21 1 24 0;
> #X connect 22 0 25 0;
> #X connect 23 0 22 0;
> #X connect 24 0 25 1;
> #X connect 25 0 26 0;
> #X connect 25 0 31 0;
> #X connect 26 0 25 1;
> #X connect 27 0 29 0;
> #X connect 28 0 34 0;
> #X connect 29 0 33 0;
> #X connect 31 0 27 0;
> #X connect 31 1 28 0;
> #X connect 31 2 30 1;
> #X connect 32 0 21 0;
> #X connect 33 0 30 0;
> #X connect 34 0 29 1;
> #X connect 35 0 42 1;
> #X connect 36 0 52 0;
> #X connect 37 0 50 0;
> #X connect 37 1 35 0;
> #X connect 38 0 41 2;
> #X connect 39 0 7 0;
> #X connect 40 0 38 1;
> #X connect 40 1 38 0;
> #X connect 42 0 40 0;
> #X connect 42 0 41 1;
> #X connect 43 0 51 1;
> #X connect 44 0 51 2;
> #X connect 45 0 48 0;
> #X connect 45 1 3 0;
> #X connect 46 0 49 1;
> #X connect 47 0 49 2;
> #X connect 48 0 6 0;
> #X connect 49 0 51 0;
> #X connect 50 0 42 0;
> #X connect 51 0 45 0;
> #X connect 52 0 41 0;
> #X restore 138 152 pd osc~;
> #X msg 301 135 reset \, create \, 1;
> #X msg 307 157 0 \, destroy;
> #X floatatom 137 50 5 0 0 0 - - -;
> #X obj 301 179 gemwin 60;
> #X msg 299 97 \; pd dsp 1 \;;
> #X obj 153 120 osc~ 333;
> #X obj 137 98 osc~ 3333;
> #X obj 137 73 mtof;
> #X floatatom 177 79 9 0 0 0 - - -;
> #X obj 77 102 adc~;
> #X connect 1 0 4 0;
> #X connect 2 0 4 0;
> #X connect 3 0 8 0;
> #X connect 8 0 7 0;
> #X connect 8 0 9 0;
> #X connect 10 0 0 0;
> #X connect 10 1 0 0;



----------------------------------------------------------------------------

There is no way to peace, peace is the way.       -A.J. Muste






More information about the Pd-list mailing list