diff options
author | Thomas O Fredericks <mrtof@users.sourceforge.net> | 2009-10-25 00:39:13 +0000 |
---|---|---|
committer | Thomas O Fredericks <mrtof@users.sourceforge.net> | 2009-10-25 00:39:13 +0000 |
commit | f18d063d9312c95e25294e0777bc135ee9a3fd8a (patch) | |
tree | 54763b4c61f53c8ec696be54bc1c0e8d816c05aa /examples/gems-fft~.pd |
Adding mtlsvn2git-root
svn path=/trunk/abstractions/mtl/; revision=12667
Diffstat (limited to 'examples/gems-fft~.pd')
-rw-r--r-- | examples/gems-fft~.pd | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/examples/gems-fft~.pd b/examples/gems-fft~.pd new file mode 100644 index 0000000..ae63fb3 --- /dev/null +++ b/examples/gems-fft~.pd @@ -0,0 +1,107 @@ +#N canvas 353 122 523 473 10; +#X declare -lib Gem; +#X declare -lib Gem; +#X text -7 -41 Description: FFT spectral graphical analysis; +#X obj -4 7 gemhead; +#X obj 57 111 t f f; +#X msg 145 281 \$1 0.5 1; +#X obj 283 -21 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj -4 66 mtl/gemsDuplicate 128; +#X obj 57 90 tof/increment; +#X obj 145 301 mtl/hsvToRgb; +#X obj -4 356 color; +#N canvas 0 63 968 641 fft 0; +#N canvas 997 194 427 326 fft 0; +#X obj 46 64 inlet~; +#X obj 46 94 rfft~; +#X obj 46 127 *~; +#X obj 77 127 *~; +#X obj 46 157 sqrt~; +#X obj 216 60 inlet; +#X obj 278 96 block~ 1024 1; +#X obj 53 204 clip~ 0 500; +#X obj 144 265 tabwrite~ \$0-fft; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 0 2 1; +#X connect 1 1 3 0; +#X connect 1 1 3 1; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 4 0 7 0; +#X connect 5 0 8 0; +#X connect 7 0 8 0; +#X restore 311 350 pd fft; +#X obj 312 75 inlet~; +#X obj 451 293 metro 20; +#X msg 456 224 1; +#X obj 456 204 loadbang; +#X obj 312 301 hip~ 50; +#X obj 312 321 *~ 1; +#X obj 300 452 table \$0-fft 128; +#X obj 193 196 tabread \$0-fft; +#X obj 194 173 clip 0 127; +#X obj 74 69 inlet tabread.index; +#X obj 125 522 outlet tabread.values; +#X connect 1 0 5 0; +#X connect 2 0 0 1; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 5 0 6 0; +#X connect 6 0 0 0; +#X connect 8 0 11 0; +#X connect 9 0 8 0; +#X connect 10 0 9 0; +#X restore 145 160 pd fft; +#X obj 283 1 mtl/gemsWin /dimen 640 480; +#X obj 57 157 - 1; +#X obj 57 134 / 64; +#X obj -4 378 rectangle 0.008 0.008; +#X obj 145 184 clip 0 100; +#X obj 145 236 + 0.5; +#X obj 145 258 maxlib/wrap 0 1; +#X obj 145 214 maxlib/scale 0 100 0 0.5; +#X obj 178 123 readsf~; +#X obj 178 78 openpanel; +#X obj 178 59 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X msg 178 100 open \$1 \, start; +#X obj 284 126 adc~; +#X text 201 56 <- read a soundfile; +#X text 319 124 <- talk into your mic; +#X obj -4 39 mtl/gemsFit fill 0.9; +#X obj -4 331 translateXYZ 0 0 0; +#X obj 249 259 maxlib/scale 0 100 0.001 1; +#X obj 374 -34 import Gem; +#X obj 252 159 mtl/out~; +#X text -9 -24 Authors: Alexandre Quessy and TOF; +#X connect 1 0 25 0; +#X connect 2 0 12 0; +#X connect 2 1 9 0; +#X connect 3 0 7 0; +#X connect 4 0 10 0; +#X connect 5 0 26 0; +#X connect 5 1 6 0; +#X connect 5 2 6 1; +#X connect 6 0 2 0; +#X connect 7 0 8 1; +#X connect 8 0 13 0; +#X connect 9 0 14 0; +#X connect 11 0 26 1; +#X connect 12 0 11 0; +#X connect 14 0 17 0; +#X connect 14 0 27 0; +#X connect 15 0 16 0; +#X connect 16 0 3 0; +#X connect 17 0 15 0; +#X connect 18 0 9 1; +#X connect 18 0 29 0; +#X connect 18 0 29 1; +#X connect 19 0 21 0; +#X connect 20 0 19 0; +#X connect 21 0 18 0; +#X connect 22 0 9 1; +#X connect 25 0 5 0; +#X connect 26 0 8 0; +#X connect 27 0 13 2; |