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@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;
_______________________________________________
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management ->
http://lists.puredata.info/listinfo/pd-list
