taint~-help.pd 4.45 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147
#N canvas 417 69 677 443 10;
#X obj 167 237 *~ 1;
#X obj 167 289 dac~;
#X floatatom 190 218 5 0 0 0 - centerring-gain -;
#X msg 18 330 \; pd dsp \$1;
#X obj 18 313 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 17 207 hsl 128 15 0 1.5 0 0 centerring-gain empty output_gain
-2 -6 0 8 -79789 -1 -1 447 1;
#N canvas 0 22 523 358 messages 0;
#X obj 132 286 outlet;
#X text 302 155 turn on invert;
#X msg 132 223 pad \$1;
#X floatatom 132 112 5 0 0 0 - - -;
#X text 227 108 is turned on;
#X obj 281 156 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X msg 281 178 invert \$1;
#X text 227 94 pad affects the gain only when "invert";
#X obj 132 142 ampdb;
#X obj 132 67 loadbang;
#X msg 132 90 -32;
#X floatatom 132 167 5 0 0 0 - - -;
#X obj 257 256 fftease-system;
#X connect 2 0 0 0;
#X connect 3 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 10 0 3 0;
#X connect 11 0 2 0;
#X connect 12 0 0 0;
#X restore 448 167 pd messages;
#X obj 18 240 hsl 128 15 0.15 1 0 0 cod-scaling-exponent empty scaling_exponent
-2 -6 0 8 -88868 -1 -1 800 1;
#X floatatom 236 121 5 0 0 0 - cod-inverse-threshold -;
#X floatatom 236 163 5 0 0 0 - - -;
#N canvas 990 218 508 397 playsound1 0;
#X obj 31 194 soundfiler;
#X obj 31 160 openpanel;
#N canvas 0 22 450 300 graph1 0;
#X array taint-sound1 17642 float 2;
#X coords 0 1 17641 -1 200 140 1;
#X restore 237 13 graph;
#X msg 31 131 bang;
#X obj 227 284 outlet~;
#X msg 227 244 bang;
#X obj 348 228 spigot;
#X obj 385 205 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X text 63 132 open the sound;
#X text 133 244 then play it;
#X text 304 190 loop if you like;
#X text 316 205 comment;
#X msg 31 177 read -resize \$1 taint-sound1;
#X obj 227 268 tabplay~ taint-sound1;
#X connect 1 0 12 0;
#X connect 3 0 1 0;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 12 0 0 0;
#X connect 13 0 4 0;
#X connect 13 1 6 0;
#X restore 167 22 pd playsound1;
#N canvas 990 218 512 401 playsound2 0;
#X obj 31 194 soundfiler;
#X obj 31 160 openpanel;
#X msg 31 131 bang;
#X obj 227 284 outlet~;
#X msg 227 244 bang;
#X obj 348 228 spigot;
#X obj 385 205 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X text 63 132 open the sound;
#X text 133 244 then play it;
#X text 304 190 loop if you like;
#X text 316 205 comment;
#N canvas 0 22 450 300 graph2 0;
#X array taint-sound2 133504 float 2;
#X coords 0 1 133503 -1 200 140 1;
#X restore 216 15 graph;
#X msg 31 177 read -resize \$1 taint-sound2;
#X obj 227 268 tabplay~ taint-sound2;
#X connect 1 0 12 0;
#X connect 2 0 1 0;
#X connect 4 0 13 0;
#X connect 5 0 4 0;
#X connect 6 0 5 1;
#X connect 12 0 0 0;
#X connect 13 0 3 0;
#X connect 13 1 5 0;
#X restore 190 43 pd playsound2;
#X floatatom 213 91 5 0.35 2 0 - cod-scaling-exponent -;
#X obj 19 278 hsl 128 15 -90 0 0 0 cod-inverse-threshold empty inverse_threshold
-2 -6 0 8 -88868 -1 -1 6100 1;
#X text 280 136 but only when "invert" is turned on);
#X text 213 73 scaling exponent (lower values increase distortion)
;
#X text 294 31 <- load and loop two soundfiles to hear effect;
#X msg 14 123 0.1 0.3 -36;
#X obj 14 139 unpack f f f;
#X obj 14 107 loadbang;
#X text 275 120 inverse threshold (lower values intensify effect;
#N canvas 376 316 478 328 taint-block 0;
#X obj 163 185 outlet~;
#X obj 163 38 inlet~;
#X obj 269 107 inlet;
#X obj 201 81 inlet;
#X obj 221 98 inlet;
#X obj 182 65 inlet~;
#X obj 163 128 taint~;
#X obj 233 219 block~ 512;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 6 2;
#X connect 4 0 6 3;
#X connect 5 0 6 1;
#X connect 6 0 0 0;
#X restore 167 183 pd taint-block;
#X obj 236 141 ampdb;
#X text 221 262 taint~ multiplies the spectra of two input signals.
Multiplication of spectra can cause significant drops in the amplitude
of the output signal. The inverse option allows division of the input
spectra. Division requires the use of a threshold to avert division
by zero. Also \, signal division will cause massive amplitude gains.
Be careful of your ears and equipment. Start the amplitude very low
(-100dB) and slowly work up to an acceptable level. A pad is provided
to balance gain between normal and invert options.;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 2 0 0 1;
#X connect 4 0 3 0;
#X connect 6 0 21 4;
#X connect 8 0 22 0;
#X connect 9 0 21 3;
#X connect 10 0 21 0;
#X connect 11 0 21 1;
#X connect 12 0 21 2;
#X connect 17 0 18 0;
#X connect 18 0 5 0;
#X connect 18 1 7 0;
#X connect 18 2 13 0;
#X connect 19 0 17 0;
#X connect 21 0 0 0;
#X connect 22 0 9 0;