Re: [PD] FFT and curve3d?

2009-03-12 Thread Roman Haefeli 
On Wed, 2009-03-11 at 00:37 +, Claude Heiland-Allen wrote:
 Hans-Christoph Steiner wrote:
  
  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
 
 I just knocked the attached together, doesn't use curve3d thogh..
 

beautiful!

this is the kind of stuff, that triggers me to want to explore (in my
perspective) undiscovered fields, such as (in this case) the gemGL*
classes.
very illustrative. 

roman



___ 
Telefonate ohne weitere Kosten vom PC zum PC: http://messenger.yahoo.de


___
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management - 
http://lists.puredata.info/listinfo/pd-list

Re: [PD] FFT and curve3d?

2009-03-11 Thread IOhannes m zmoelnig 

Hans-Christoph Steiner wrote:


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.



[pix_sig2pix~] was originally created by gg to create waterfall diagrams 
  in combination with [imageVert].
[pix_sig2pix~] has changed a bit since then which requires to use heavy 
overlapping in order to produce waterfall diagrams.


iirc there was a thread about this a couple of years ago.

fgas,drt
IOhannes


smime.p7s
Description: S/MIME Cryptographic Signature
___
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management - 
http://lists.puredata.info/listinfo/pd-list

Re: [PD] FFT and curve3d?

2009-03-11 Thread cyrille henry 

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~ ;
#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

Re: [PD] FFT and curve3d?

2009-03-11 Thread Hans-Christoph Steiner 


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@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~ ;
#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



___
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management - 
http://lists.puredata.info/listinfo/pd-list

[PD] FFT and curve3d?

2009-03-10 Thread Hans-Christoph Steiner 


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

Re: [PD] FFT and curve3d?

2009-03-10 Thread Claude Heiland-Allen 

Hans-Christoph Steiner wrote:


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


I just knocked the attached together, doesn't use curve3d though..

Claude
--
http://claudiusmaximus.goto10.org
#N canvas 0 0 450 405 10;
#X obj 20 14 adc~;
#X obj 12 108 table \$0-window 1024;
#N canvas 0 0 450 300 \$0-make-window 0;
#X obj 31 18 loadbang;
#X obj 10 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 31 50 f 1024;
#X obj 31 80 until;
#X obj 30 104 f 0;
#X obj 77 101 + 1;
#X obj 77 121 mod 1024;
#X obj 30 156 / 512;
#X obj 30 177 * 3.14159;
#X obj 30 209 cos;
#X obj 30 230 * -0.5;
#X obj 30 256 + 0.5;
#X obj 29 279 tabwrite \$0-window;
#X obj 31 135 t f f;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 7 0;
#X connect 13 1 12 1;
#X restore 13 80 pd \$0-make-window;
#N canvas 0 238 450 300 \$0-fft-analysis 0;
#X obj 18 18 inlet~;
#X obj 86 121 block~ 1024 4 1;
#X obj 18 67 rfft~;
#X obj 18 98 *~;
#X obj 18 42 *~;
#X obj 45 98 *~;
#X obj 18 124 +~;
#X obj 17 177 sqrt~;
#X obj 65 43 tabreceive~ \$0-window;
#X obj 17 209 tabsend~ \$0-fft;
#X obj 18 151 /~ 1024;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 5 0;
#X connect 2 1 5 1;
#X connect 3 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 9 0;
#X connect 8 0 4 1;
#X connect 10 0 7 0;
#X restore 27 47 pd \$0-fft-analysis;
#X obj 12 128 table \$0-fft 256;
#X obj 26 234 gemwin;
#X obj 26 189 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 52 191 create;
#X msg 55 211 destroy;
#X obj 192 27 gemhead;
#X obj 193 61 t a a a;
#X obj 182 90 GEMglEnd;
#X obj 238 89 GEMglBegin;
#X obj 295 62 GLdefine GL_LINES;
#X obj 295 32 loadbang;
#X obj 274 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 211 230 gemlist;
#X obj 212 144 f 256;
#X obj 211 170 until;
#X obj 210 194 t b b;
#X obj 295 192 + 1;
#X obj 212 118 t b b a;
#X obj 278 168 f 0;
#X obj 264 191 f;
#X obj 212 269 GEMglVertex2f;
#X obj 297 242 tabread \$0-fft;
#X obj 212 309 GEMglVertex2f;
#X obj 297 282 * -1;
#X obj 265 217 / 32;
#X obj 263 242 - 4;
#X connect 0 0 3 0;
#X connect 0 1 3 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 21 0;
#X connect 10 2 12 0;
#X connect 13 0 12 1;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 16 0;
#X connect 19 1 23 0;
#X connect 20 0 23 1;
#X connect 21 0 17 0;
#X connect 21 1 22 0;
#X connect 21 2 16 1;
#X connect 22 0 23 1;
#X connect 23 0 20 0;
#X connect 23 0 25 0;
#X connect 23 0 28 0;
#X connect 24 0 26 0;
#X connect 25 0 24 2;
#X connect 25 0 27 0;
#X connect 27 0 26 2;
#X connect 28 0 29 0;
#X connect 29 0 24 1;
#X connect 29 0 26 1;
___
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management - 
http://lists.puredata.info/listinfo/pd-list

Re: [PD] FFT and curve3d?

2009-03-10 Thread Hans-Christoph Steiner 


That's quite nice, you are quite the Gem master.  I was thinking of a  
3D view that incorporates time.  That's where the curve3d comes in.


.hc

On Mar 10, 2009, at 8:37 PM, Claude Heiland-Allen wrote:


Hans-Christoph Steiner wrote:
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


I just knocked the attached together, doesn't use curve3d though..

Claude
--
http://claudiusmaximus.goto10.org
#N canvas 0 0 450 405 10;
#X obj 20 14 adc~;
#X obj 12 108 table \$0-window 1024;
#N canvas 0 0 450 300 \$0-make-window 0;
#X obj 31 18 loadbang;
#X obj 10 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 31 50 f 1024;
#X obj 31 80 until;
#X obj 30 104 f 0;
#X obj 77 101 + 1;
#X obj 77 121 mod 1024;
#X obj 30 156 / 512;
#X obj 30 177 * 3.14159;
#X obj 30 209 cos;
#X obj 30 230 * -0.5;
#X obj 30 256 + 0.5;
#X obj 29 279 tabwrite \$0-window;
#X obj 31 135 t f f;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 7 0;
#X connect 13 1 12 1;
#X restore 13 80 pd \$0-make-window;
#N canvas 0 238 450 300 \$0-fft-analysis 0;
#X obj 18 18 inlet~;
#X obj 86 121 block~ 1024 4 1;
#X obj 18 67 rfft~;
#X obj 18 98 *~;
#X obj 18 42 *~;
#X obj 45 98 *~;
#X obj 18 124 +~;
#X obj 17 177 sqrt~;
#X obj 65 43 tabreceive~ \$0-window;
#X obj 17 209 tabsend~ \$0-fft;
#X obj 18 151 /~ 1024;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 5 0;
#X connect 2 1 5 1;
#X connect 3 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 9 0;
#X connect 8 0 4 1;
#X connect 10 0 7 0;
#X restore 27 47 pd \$0-fft-analysis;
#X obj 12 128 table \$0-fft 256;
#X obj 26 234 gemwin;
#X obj 26 189 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 52 191 create;
#X msg 55 211 destroy;
#X obj 192 27 gemhead;
#X obj 193 61 t a a a;
#X obj 182 90 GEMglEnd;
#X obj 238 89 GEMglBegin;
#X obj 295 62 GLdefine GL_LINES;
#X obj 295 32 loadbang;
#X obj 274 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 211 230 gemlist;
#X obj 212 144 f 256;
#X obj 211 170 until;
#X obj 210 194 t b b;
#X obj 295 192 + 1;
#X obj 212 118 t b b a;
#X obj 278 168 f 0;
#X obj 264 191 f;
#X obj 212 269 GEMglVertex2f;
#X obj 297 242 tabread \$0-fft;
#X obj 212 309 GEMglVertex2f;
#X obj 297 282 * -1;
#X obj 265 217 / 32;
#X obj 263 242 - 4;
#X connect 0 0 3 0;
#X connect 0 1 3 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 21 0;
#X connect 10 2 12 0;
#X connect 13 0 12 1;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 16 0;
#X connect 19 1 23 0;
#X connect 20 0 23 1;
#X connect 21 0 17 0;
#X connect 21 1 22 0;
#X connect 21 2 16 1;
#X connect 22 0 23 1;
#X connect 23 0 20 0;
#X connect 23 0 25 0;
#X connect 23 0 28 0;
#X connect 24 0 26 0;
#X connect 25 0 24 2;
#X connect 25 0 27 0;
#X connect 27 0 26 2;
#X connect 28 0 29 0;
#X connect 29 0 24 1;
#X connect 29 0 26 1;








Programs should be written for people to read, and only incidentally  
for machines to execute.

 - from Structure and Interpretation of Computer Programs


___
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management - 
http://lists.puredata.info/listinfo/pd-list