path: root/pvgrain~-help.pd

#N canvas 772 607 490 340 10;
#N canvas 0 22 482 332 pvgrain-block 0;
#X obj 9 110 outlet;
#X obj 9 15 inlet~;
#X obj 94 15 inlet;
#X obj 8 140 block~ 256;
#X text 12 90 args: grains/frame \, odds \, topfreq \, overlap \, window-factor
;
#X obj 9 68 pvgrain~ 4 0.01 2000 4 2;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 5 0 0 0;
#X restore 13 103 pd pvgrain-block;
#X obj 220 158 dac~;
#X obj 13 172 print;
#X msg 110 242 \; pd dsp \$1;
#X obj 110 221 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#N canvas 368 141 902 629 messages 0;
#X obj 111 523 outlet;
#X msg 105 115 probability \$1;
#X obj 108 68 hsl 128 15 0 0.1 0 0 empty empty empty -2 -6 0 8 -43542
-1 -1 1270 1;
#X floatatom 105 94 5 0 0 0 - - -;
#X obj 198 179 hsl 128 15 200 10000 0 0 empty empty empty -2 -6 0 8
-43542 -1 -1 2333 1;
#X floatatom 195 205 5 0 0 0 - - -;
#X msg 195 226 topfreq \$1;
#X obj 439 388 hsl 128 15 0 20 0 0 empty empty empty -2 -6 0 8 -43542
-1 -1 5080 1;
#X floatatom 436 414 5 0 0 0 - - -;
#X msg 436 435 framegrains \$1;
#X obj 105 1 loadbang;
#X obj 283 284 hsl 128 15 0 1500 0 0 empty empty empty -2 -6 0 8 -43542
-1 -1 423 1;
#X floatatom 280 310 5 0 0 0 - - -;
#X msg 280 331 bottomfreq \$1;
#X obj 105 40 unpack f f f f;
#X msg 105 21 0.01 2000 50 8;
#X obj 300 492 fftease-system;
#X text 436 363 maximum data grains per FFT frame;
#X text 197 157 top frequency to listen to in source sound;
#X text 283 263 ditto for bottom frequency;
#X text 221 48 odds for a grain appearing from an active bin;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 0 0;
#X connect 14 0 2 0;
#X connect 14 1 4 0;
#X connect 14 2 11 0;
#X connect 14 3 7 0;
#X connect 15 0 14 0;
#X connect 16 0 0 0;
#X restore 120 62 pd messages;
#X obj 50 129 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 13 149 spigot;
#X text 69 131 see amp/freq info;
#X text 42 277 spectral granular (re)synthesis;
#N canvas 0 22 478 328 resynth-engine 0;
#X obj 12 28 inlet;
#N canvas 0 22 450 300 graph1 0;
#X array piano-sample 46383 float 2;
#X coords 0 1 46382 -1 200 140 1;
#X restore 215 4 graph;
#X obj 17 242 soundfiler;
#X msg 17 205 read -resize Piano.aif piano-sample;
#X obj 17 169 loadbang;
#N canvas 578 40 566 745 choir 0;
#X obj 79 103 inlet;
#X obj 79 141 t l b;
#X obj 25 199 float;
#X obj 25 228 + 1;
#X obj 25 252 % 8;
#X floatatom 25 276 5 0 0 0 - - -;
#X obj 47 367 pack f f f;
#X obj 79 315 unpack f f;
#X obj 47 395 route 0 1 2 3 4 5 6 7;
#X obj 112 343 / 261;
#X text 156 345 <- piano sample base frequency;
#N canvas 74 88 1066 749 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 47 430 pd playit;
#X obj 123 595 outlet~;
#X obj 123 572 *~ 0.25;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 64 451 pd playit;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 83 472 pd playit;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 101 493 pd playit;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 118 421 pd playit;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 135 442 pd playit;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 154 463 pd playit;
#N canvas 74 88 1062 745 playit 0;
#X obj 21 47 unpack f f;
#X obj 21 222 outlet~;
#X floatatom 131 120 5 0 0 0 - - -;
#X floatatom 88 118 5 0 0 0 - - -;
#X obj 21 119 impulse~;
#X obj 21 146 *~;
#X obj 21 80 t b f;
#X obj 21 182 player~ piano-sample;
#X obj 21 8 inlet;
#X connect 0 0 6 0;
#X connect 0 1 2 0;
#X connect 2 0 7 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 3 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X restore 172 484 pd playit;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 2 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 6 1;
#X connect 7 1 9 0;
#X connect 8 0 11 0;
#X connect 8 1 14 0;
#X connect 8 2 15 0;
#X connect 8 3 16 0;
#X connect 8 4 17 0;
#X connect 8 5 18 0;
#X connect 8 6 19 0;
#X connect 8 7 20 0;
#X connect 9 0 6 2;
#X connect 11 0 13 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X connect 17 0 13 0;
#X connect 18 0 13 0;
#X connect 19 0 13 0;
#X connect 20 0 13 0;
#X restore 12 97 pd choir;
#X obj 12 121 outlet~;
#X text 13 269 this is one example of what you can do with the analysis
data;
#X obj 12 63 spigot;
#X obj 49 44 inlet;
#X obj 113 27 loadbang;
#X msg 113 47 0;
#X connect 0 0 8 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 8 0 5 0;
#X connect 9 0 8 1;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X restore 220 119 pd resynth-engine;
#N canvas 408 408 482 332 sound-source 0;
#X obj -34 240 outlet~;
#X obj -34 215 *~ 0.3;
#X floatatom -34 72 5 0 0 0 - - -;
#X obj 149 119 * 1.5;
#X floatatom 51 142 5 0 0 0 - - -;
#X floatatom 149 143 5 0 0 0 - - -;
#X obj 51 161 phasor~ 586.6;
#X obj 149 161 phasor~ 660;
#X obj -34 161 phasor~ 440;
#X obj 51 119 * 1.25;
#X msg -34 41 440;
#X obj -34 15 loadbang;
#X text -18 262 a soundfile or live mic would be more interesting here
;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 2 0 9 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 2 0;
#X connect 11 0 10 0;
#X restore 13 41 pd sound-source;
#N canvas 180 51 470 320 what's-going-on-here? 0;
#X text 18 26 Input sound is analyzed and a certain number of bin snapshots
are taken \, based on the probability and framegrains parameters. Each
bin grain snapshot is sent out as a list with two members: [amplitude
\, frequency]. In this example the grain data is used to drive a sample
player. One could easily replace this with a synth or even drive an
external MIDI synth. This is something like a pitch-follower except
that it follows the entire spectrum (limited by the topfreq parameter)
rather than just looking for the fundamental. Since this is based on
FFT analysis the resolution is worse for lower frequencies. Frequency
resolution can be improved by upping the FFT size.;
#X restore 269 203 pd what's-going-on-here?;
#X obj 334 96 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 356 98 <- turn me on;
#X text 204 64 <- check me out;
#X connect 0 0 7 0;
#X connect 0 0 10 0;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 6 0 7 1;
#X connect 7 0 2 0;
#X connect 10 0 1 0;
#X connect 10 0 1 1;
#X connect 11 0 0 0;
#X connect 13 0 10 1;