Something went wrong on our end
Select Git revision
bf-instrument-help.pd
-
BERTHAUT Florent authoredBERTHAUT Florent authored
myInstru.pd 7.83 KiB
#N canvas 3 538 954 539 10;
#X declare -path ..;
#X declare -path ../modules;
#X obj 441 452 dac~;
#X obj 448 435 *~;
#X obj 222 451 bf-instrument \$1;
#X obj 486 311 noise~;
#X obj 448 364 *~;
#X obj 486 367 *~;
#X obj 448 391 +~;
#N canvas 597 448 450 300 clock 0;
#X obj 49 51 inlet;
#X obj 48 136 phasor~;
#X obj 48 153 threshold~ 0.9 1 0.1 1;
#X obj 48 119 line~;
#X msg 48 102 \$1 10;
#X obj 49 68 unpack f f;
#X obj 48 175 outlet;
#X obj 48 85 expr ($f1*1000)/60;
#X obj 191 77 inlet;
#X msg 191 119 0;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 1 7 0;
#X connect 7 0 4 0;
#X connect 8 0 9 0;
#X connect 9 0 1 1;
#X restore 18 119 pd clock;
#N canvas 963 94 450 300 clock8 0;
#X obj 202 36 inlet;
#X obj 202 219 outlet;
#X obj 202 82 float 0;
#X obj 202 99 t f f;
#X obj 241 99 expr ($f1+1)%8;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X restore 218 7 pd clock8;
#N canvas 184 335 450 300 notes 0;
#X obj 117 105 mtof;
#X obj 116 147 line~;
#X obj 117 40 inlet;
#X obj 116 169 outlet~;
#X obj 117 62 * 110, f 6;
#X obj 117 84 + 10;
#X obj 238 50 inlet;
#X obj 117 130 pack f 5;
#X obj 229 101 expr $f1*50+5;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 1 0;
#X connect 8 0 7 1;
#X restore 446 201 pd notes;
#X floatatom 218 24 5 0 0 1 step - -, f 5;
#X obj 552 367 vline~;
#N canvas 160 92 450 300 declares 0;
#X obj 13 41 declare -path ..;
#X obj 14 14 declare -path ../modules;
#X restore 18 441 pd declares;
#X obj 591 158 route 0;
#N canvas 132 249 796 471 env 0;#X obj 122 261 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 1 256;
#X obj 235 278 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 20 256;
#X obj 122 302 pack f f;
#X obj 67 260 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 67 353 1 20;
#X msg 122 323 set \$1 \$2;
#X obj 122 84 inlet;
#X obj 67 85 inlet;
#X obj 80 426 outlet;
#X text 65 64 bang;
#X text 180 261 attack time (ms);
#X text 290 276 decay time (ms);
#X text 293 312 This generates a message to send to vline~ to create
an attack/decay envelope.;
#X obj 122 177 t f f;
#X obj 122 228 + 1;
#X text 120 62 duration;
#X obj 122 128 *;
#X obj 122 151 *;
#X obj 122 106 t f f f;
#X text 157 152 cube to get more resolution at low values;
#X obj 235 229 + 20;
#X obj 122 206 * 300;
#X msg 67 380 0.1 \$1 \, 0 \$2 \$1;
#X obj 235 207 * 3000;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 22 0;
#X connect 5 0 4 0;
#X connect 6 0 18 0;
#X connect 7 0 3 0;
#X connect 13 0 21 0;
#X connect 13 1 23 0;
#X connect 14 0 0 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 18 0 16 0;
#X connect 18 1 16 1;
#X connect 18 2 17 1;
#X connect 20 0 1 0;
#X connect 21 0 14 0;
#X connect 22 0 8 0;
#X connect 23 0 20 0;
#X restore 552 236 pd env;
#N canvas 0 119 696 421 squareosc 0;
#X obj 215 34 loadbang;
#X text 43 13 freq;
#X obj 44 102 phasor~;
#X obj 44 224 outlet~;
#X obj 44 129 *~ 1024;
#X text 141 320 A square wavetable oscillator;
#X obj 44 32 inlet~;
#X msg 234 119 sinesum 1027 1 0 0.333333 0 0.2 0 0.142857 0 0.111111
0 0.090909 0 0.076923;
#X msg 254 85 resize 1027;
#X msg 215 162 normalize;
#X obj 215 59 t b b b;
#X obj 286 209 array define \$0-osctable1;
#X text 385 97 Square wave with 13 harmonics;
#X obj 44 152 tabread4~ \$0-osctable1;
#X connect 0 0 10 0;
#X connect 2 0 4 0;
#X connect 4 0 13 0;
#X connect 6 0 2 0;
#X connect 7 0 11 0;#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 10 1 7 0;
#X connect 10 2 8 0;
#X connect 13 0 3 0;
#X restore 445 289 pd squareosc;
#X floatatom 244 338 7 0 0 1 cutoff_freq - -, f 7;
#N canvas 3 63 436 179 filtcalc 0;
#X obj 28 20 inlet;
#X obj 28 87 mtof;
#X obj 28 65 + 27;
#X text 107 23 map [0 \, 1] to useful filter cutoff frequencies;
#X floatatom 86 88 5 0 0 0 - - -, f 5;
#X obj 28 43 * 100;
#X msg 174 104 \$1 10;
#X obj 174 126 line~;
#X obj 173 149 outlet~;
#X obj 29 130 outlet;
#X connect 0 0 5 0;
#X connect 1 0 6 0;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X restore 244 312 pd filtcalc;
#X obj 204 295 route 0;
#N canvas 181 404 468 281 xfade 0;
#X obj 84 28 inlet;
#X obj 83 205 outlet~;
#X obj 83 127 line~;
#X msg 83 103 \$1 10;
#X obj 84 50 * 0.25;
#X obj 139 74 - 0.25;
#X obj 83 149 cos~;
#X obj 139 205 outlet~;
#X obj 139 127 line~;
#X msg 139 103 \$1 10;
#X obj 139 149 cos~;
#X text 154 22 constant power crossfade (cosine & sine);
#X text 187 75 - pi/2;
#X text 172 150 really sin~;
#X obj 81 178 *~ 0.5;
#X obj 141 178 *~ 0.5;
#X connect 0 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 6 0 14 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 15 0;
#X connect 14 0 1 0;
#X connect 15 0 7 0;
#X restore 640 271 pd xfade;
#X obj 640 249 route 0;
#X obj 448 413 *~;
#N canvas 3 68 495 329 gaincalc 0;
#X obj 57 19 inlet;
#X floatatom 78 103 5 0 0 0 - - -, f 5;
#X obj 78 168 dbtorms;
#X floatatom 155 168 5 0 0 0 - - -, f 5;
#X obj 78 55 sel 0;
#X msg 35 98 0;
#X obj 78 144 + 65;
#X obj 77 122 * 45;#X text 189 166 gain in dB (100 = 0 dbFS);
#X floatatom 155 202 5 0 0 0 - - -, f 5;
#X text 195 202 linear gain;
#X text 24 259 control volume over a useful range with an input that
is [0 \, 1];
#X obj 71 211 line~;
#X msg 71 194 \$1 10;
#X obj 71 228 outlet~;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 9 0;
#X connect 2 0 13 0;
#X connect 4 0 5 0;
#X connect 4 1 1 0;
#X connect 5 0 2 0;
#X connect 6 0 3 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X restore 204 418 pd gaincalc;
#X obj 403 329 vcf~ 3;
#X obj 446 184 float 0;
#X obj 18 52 bf-param \$1 tempo 1 cont;
#X obj 591 91 bf-param \$1 court-long 1 cont;
#X obj 640 186 bf-param \$1 note-bruit 1 cont;
#X obj 452 129 > 0;
#X obj 452 167 select 1;
#X obj 18 137 t b b;
#X obj 505 184 t b b b;
#X obj 218 42 bf-param \$1 hauteurs 8 cont;
#X obj 395 412 inlet;
#X obj 486 328 vcf~ 3;
#X obj 553 198 t f f;
#X obj 486 345 vcf~ 4;
#X obj 403 347 *~ 0.4;
#X obj 215 139 bf-output \$1 notes 1 cont;
#X msg 398 122 0 \$1;
#X obj 452 102 t f f f;
#X obj 803 152 loadbang;
#X msg 803 169 0 0;
#X obj 768 57 loadbang;
#X msg 768 74 0 0;
#X obj 351 201 loadbang;
#X msg 351 218 0 1;
#X obj 442 20 bf-param \$1 joue_prochaine 1 bang;
#X obj 204 364 expr if($f1>0.25 \, 1 \, $f1*4);
#X obj 204 235 bf-param \$1 filtre-volume 1 cont;
#X obj 204 312 t f f;
#X obj 498 119 moses 0.0001;
#X obj 443 80 t b b;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 2 0;
#X connect 3 0 34 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 21 0;
#X connect 7 0 30 0;
#X connect 8 0 10 0;
#X connect 8 0 32 1;
#X connect 9 0 15 0;
#X connect 9 0 36 1;
#X connect 11 0 21 1;
#X connect 13 0 35 0;
#X connect 14 0 11 0;
#X connect 15 0 23 0;
#X connect 17 0 16 0;
#X connect 17 1 23 1;
#X connect 17 1 34 1;#X connect 18 0 50 0;
#X connect 19 0 4 1;
#X connect 19 1 5 1;
#X connect 20 0 19 0;
#X connect 21 0 1 0;
#X connect 22 0 1 1;
#X connect 23 1 37 0;
#X connect 24 0 9 0;
#X connect 25 0 7 0;
#X connect 26 0 13 0;
#X connect 27 0 20 0;
#X connect 28 0 29 0;
#X connect 29 0 31 0;
#X connect 30 1 8 0;
#X connect 31 0 14 0;
#X connect 31 1 24 0;
#X connect 32 1 40 0;
#X connect 34 0 36 0;
#X connect 35 0 9 1;
#X connect 35 1 14 1;
#X connect 36 0 5 0;
#X connect 37 0 4 0;
#X connect 39 0 38 0;
#X connect 40 0 28 0;
#X connect 40 1 24 1;
#X connect 40 2 51 0;
#X connect 41 0 42 0;
#X connect 42 0 27 0;
#X connect 43 0 44 0;
#X connect 44 0 26 0;
#X connect 45 0 46 0;
#X connect 46 0 49 0;
#X connect 47 0 52 0;
#X connect 48 0 22 0;
#X connect 49 0 18 0;
#X connect 50 0 48 0;
#X connect 50 1 17 0;
#X connect 51 1 39 0;
#X connect 52 0 8 0;
#X connect 52 1 7 1;