From 4d64e4cd434426234a5c313c151cd79b6afc299e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= Date: Sat, 6 Jul 2002 17:50:18 +0000 Subject: *** empty log message *** svn path=/trunk/Framestein/; revision=27 --- Patches/09 example-sonogram.pd | 74 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 74 insertions(+) create mode 100644 Patches/09 example-sonogram.pd (limited to 'Patches/09 example-sonogram.pd') diff --git a/Patches/09 example-sonogram.pd b/Patches/09 example-sonogram.pd new file mode 100644 index 0000000..5c99688 --- /dev/null +++ b/Patches/09 example-sonogram.pd @@ -0,0 +1,74 @@ +#N canvas 308 -3 605 676 12; +#X obj 13 40 fs.main; +#X msg 13 13 6001; +#X msg 64 12 reset; +#X obj 330 486 fs.sonogram; +#X msg 488 452 bang; +#X obj 488 419 fps 0; +#X floatatom 488 392 5 0 0; +#X msg 488 364 5; +#N canvas 0 0 608 408 play 0; +#X graph graph2 0 -1 114739 1 70 171 270 31; +#X array music 114740 float 0; +#X pop; +#X msg 341 137 read -resize \$1 music; +#X obj 341 168 soundfiler; +#X obj 333 70 inlet; +#X obj 341 103 symbol; +#X obj 193 242 phasor~ 1; +#X obj 203 290 *~; +#X obj 209 359 outlet~; +#X obj 203 320 tabread4~ music; +#X floatatom 193 213 5 0 0; +#X obj 92 214 osc~ 0.01; +#X obj 92 239 avg~; +#X connect 1 0 2 0; +#X connect 2 0 6 1; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 5 0 6 0; +#X connect 6 0 8 0; +#X connect 8 0 7 0; +#X connect 9 0 5 0; +#X connect 10 0 11 0; +#X connect 11 0 9 0; +#X restore 330 349 pd play; +#X msg 248 48 c:/fsrel/framestein/extract.wav; +#X obj 251 480 dac~; +#X msg 364 558 200x128 \, display 200x512; +#X floatatom 355 427 5 0 0; +#X obj 263 450 *~ 0.2; +#X text 348 403 amplify display; +#X obj 295 529 fs.framed example-sonogram 20+120; +#X msg 370 587 setbits 246; +#X msg 358 100 \; pd dsp 1; +#X obj 116 13 loadbang; +#X text 441 110 must be on ..; +#X text 453 332 start drawing; +#X text 242 23 correct path and click ..; +#X text 28 617 NOTE: fs.sonogram writes temporary files to your c:/. +; +#X text 77 636 modify fs.sonogram.pd for a proper temporary path.; +#X obj 330 451 *~ 4; +#X obj 479 592 init; +#X connect 1 0 0 0; +#X connect 1 0 2 0; +#X connect 2 0 0 1; +#X connect 3 0 15 0; +#X connect 4 0 3 1; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 8 0 13 0; +#X connect 8 0 24 0; +#X connect 9 0 8 0; +#X connect 11 0 15 0; +#X connect 12 0 24 1; +#X connect 13 0 10 0; +#X connect 13 0 10 0; +#X connect 13 0 10 1; +#X connect 16 0 15 0; +#X connect 18 0 2 0; +#X connect 24 0 3 0; +#X connect 25 0 11 0; +#X connect 25 0 16 0; -- cgit v1.2.1