Skip to content
Permalink
Browse files
more updates
  • Loading branch information
hamilr4 committed Jun 10, 2020
1 parent 8e76681 commit f898313b1836b91f43d837843d7ee5187bf3b780
Show file tree
Hide file tree
Showing 8 changed files with 1,510 additions and 11 deletions.
1,241 hamilr4.pd

Large diffs are not rendered by default.

@@ -0,0 +1,17 @@
#N canvas 0 23 573 657 12;
#X msg 104 55 bang;
#X obj 62 108 symbol \$1;
#X obj 156 104 f \$2;
#X obj 62 84 t b b;
#X obj 61 131 pack symbol float;
#X msg 61 157 six \$1 \$2;
#X obj 61 184 print;
#X obj 61 29 inlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 4 1;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 3 0;
@@ -66,7 +66,7 @@
#X obj 354 199 metro 500;
#X obj 354 220 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 354 182 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
#X obj 354 182 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 658 82 send hamilr4_control;
#X msg 657 25 1 2 3 4 5;
@@ -141,6 +141,7 @@ the outlet for now.;
#X obj 514 87 r global_tempo_ms;
#X obj 414 57 r global_tempo_bpm;
#X obj 354 33 r global_tempo_onoff;
#X floatatom 612 183 5 0 0 0 - - -;
#X connect 20 0 21 0;
#X connect 21 0 19 0;
#X connect 22 0 20 0;
@@ -0,0 +1,69 @@
#N canvas 0 22 615 578 12;
#X obj 353 490 t b;
#X obj 353 437 f;
#X obj 353 515 f;
#X msg 467 514 0;
#X obj 353 467 moses 1;
#X obj 467 486 t b f;
#X obj 433 447 moses 1;
#X obj 29 97 dbtorms;
#X obj 85 170 inlet~;
#X msg 299 310 \; pd dsp 1;
#X obj 29 170 line~;
#X obj 64 242 *~;
#X obj 64 272 dac~;
#X obj 29 127 pack 0 50;
#X text 121 146 audio in;
#X text 138 464 test if less than 1 -->;
#X text 104 491 if true convert to bang -->;
#X text 100 96 <-- convert from dB to linear units;
#X floatatom 323 219 3 0 100 0 dB - -;
#X obj 350 240 bng 15 250 50 0 empty empty mute -38 7 0 12 -262144
-1 -1;
#X text 118 126 <-- make a ramp to avoid clicks or zipper noise;
#X obj 148 170 inlet~;
#X obj 154 241 *~;
#X text 373 378 MUTE logic:;
#X obj 323 174 r \$0-master-lvl;
#X obj 353 541 s \$0-master-lvl;
#X obj 323 279 s \$0-master-out;
#X obj 29 71 r \$0-master-out;
#X obj 433 418 r \$0-master-out;
#X text 60 10 Level control abstraction \, used in many of the Pd example
patches. The "level" and "mute" controls show up on the parent \, calling
patch.;
#X text 66 517 previous nonzero master-lvl -->;
#X text 138 421 recall previous;
#X text 138 439 value of master-lvl -->;
#X text 39 319 automatically start DSP -->;
#X obj 85 192 hip~ 3;
#X obj 147 192 hip~ 3;
#X obj 281 174 inlet;
#X text 278 152 volume;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 25 0;
#X connect 3 0 25 0;
#X connect 4 0 0 0;
#X connect 4 1 5 0;
#X connect 5 0 3 0;
#X connect 6 1 2 1;
#X connect 7 0 13 0;
#X connect 8 0 34 0;
#X connect 10 0 22 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 10 0;
#X connect 18 0 9 0;
#X connect 18 0 26 0;
#X connect 19 0 1 0;
#X connect 21 0 35 0;
#X connect 22 0 12 1;
#X connect 24 0 18 0;
#X connect 27 0 7 0;
#X connect 28 0 1 1;
#X connect 28 0 6 0;
#X connect 34 0 11 1;
#X connect 35 0 22 1;
#X connect 36 0 18 0;
#X coords 0 0 1 1 65 55 1 300 200;
@@ -0,0 +1,76 @@
#N canvas 18 78 880 448 12;
#X obj 465 234 sqrt;
#X text 17 88 trigger;
#X text 33 175 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 17 113 r trigger;
#X obj 465 180 float \$1;
#X obj 249 235 r duration;
#X obj 39 226 r frequency;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X obj 17 368 throw~ sum;
#X obj 17 140 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X obj 17 279 + \$4;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 226 211 float \$2;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 17 200 float \$3;
#X obj 17 252 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 20 396 add to global;
#X text 19 415 summing bus;
#X text 21 45 This patch is used as an abstraction in the additive
synthesis example \, D06.additive.pd;
#X text 25 4 partial -- sinusoidal partial for additive synthesis;
#X text 631 12 arguments:;
#X text 605 37 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X connect 0 0 8 0;
#X connect 3 0 15 0;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 1;
#X connect 7 0 4 0;
#X connect 8 0 17 0;
#X connect 9 0 16 0;
#X connect 10 0 19 0;
#X connect 11 0 30 1;
#X connect 12 0 33 1;
#X connect 13 0 18 0;
#X connect 13 1 10 0;
#X connect 16 0 13 0;
#X connect 16 0 32 0;
#X connect 17 0 4 0;
#X connect 18 0 29 0;
#X connect 19 0 0 0;
#X connect 20 0 34 0;
#X connect 29 0 30 0;
#X connect 30 0 7 0;
#X connect 32 0 33 0;
#X connect 33 0 20 0;
#X connect 34 0 3 0;
@@ -0,0 +1,109 @@
#N canvas 177 182 999 656 10;
#X obj 58 278 hip~ 5;
#X text -119 277 high pass filter to cut DC;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-sample 62079 float 0;
#X coords 0 1.02 62078 -1.02 200 130 1;
#X restore -80 408 graph;
#X obj 58 211 line~;
#X floatatom 57 75 0 0 0 0 - - -;
#X text -214 162 convert to SAMPLES (441 samples in 0.01 sec);
#X text -80 241 read from the table;
#X text -170 255 (the input is the index in samples);
#X text -74 561 (one second plus three extra;
#X text -72 580 for 4-point interpolation);
#X text 424 310 message to read a soundfile into the table (automatically
sent when you load this patch by the "loadbang" object.);
#X text -145 210 convert smoothly to audio signal;
#X text -211 87 (range is 0-100.) YOU ONLY HEAR OUTPUT;
#X text -210 103 WHEN THIS IS 0-100 AND ACTIVELY CHANGING.;
#X text -81 539 --- 44103 samples ---;
#X obj 444 290 soundfiler;
#X obj 58 310 outlet~;
#X obj 58 246 tabread4~ \$0-sample;
#X obj 483 47 inlet;
#X obj 444 192 prepend;
#X obj 444 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 57 22 inlet;
#X obj 393 233 print;
#X obj 444 122 f \$0;
#X msg 444 147 \$1-sample;
#X floatatom 16 21 5 0 0 0 - - -;
#X obj 97 22 inlet;
#X floatatom 97 45 0 0 0 0 - - -;
#X obj 57 48 % 100;
#X obj 137 22 inlet;
#X obj 57 102 + 0;
#X floatatom 57 135 0 0 0 0 - - -;
#X floatatom 82 102 5 0 0 0 - - -;
#X obj 483 85 prepend read -resize;
#X obj 194 89 soundfile_info;
#X obj 194 64 prepend read;
#X msg 194 113 \$3;
#X text 225 112 length of loaded file (samples);
#X floatatom 208 140 5 0 0 0 - - -;
#X obj 195 178 / 100;
#X floatatom 207 223 5 0 0 0 - - -;
#X text -223 73 read point in 100ths of a second;
#X obj 193 304 snapshot~;
#X floatatom 193 332 15 0 0 0 - - -;
#X obj 194 276 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 193 377 print;
#X obj 273 187 / 100;
#X obj 273 216 * 1;
#X text 314 186 calc percentage;
#X text 314 198 of file length;
#X floatatom 280 254 5 0 0 0 - - -;
#X obj 58 162 * 441;
#X obj 58 186 pack 0 100;
#X obj 289 396 % 44100;
#X floatatom 289 422 15 0 0 0 - - -;
#X obj 328 369 * 441;
#X obj 234 505 sig~;
#X obj 283 459 sig~;
#X connect 0 0 16 0;
#X connect 3 0 42 0;
#X connect 3 0 17 0;
#X connect 4 0 30 0;
#X connect 17 0 0 0;
#X connect 18 0 33 0;
#X connect 18 0 35 0;
#X connect 19 0 22 0;
#X connect 19 0 15 0;
#X connect 20 0 23 0;
#X connect 21 0 28 0;
#X connect 23 0 24 0;
#X connect 24 0 19 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;
#X connect 27 0 55 0;
#X connect 28 0 4 0;
#X connect 29 0 30 1;
#X connect 30 0 31 0;
#X connect 31 0 51 0;
#X connect 32 0 30 1;
#X connect 33 0 19 1;
#X connect 33 0 20 0;
#X connect 34 0 36 0;
#X connect 35 0 34 0;
#X connect 36 0 38 0;
#X connect 36 0 39 0;
#X connect 38 0 46 0;
#X connect 39 0 27 0;
#X connect 39 0 40 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 53 0;
#X connect 44 0 42 0;
#X connect 46 0 47 0;
#X connect 47 0 50 0;
#X connect 51 0 52 0;
#X connect 52 0 3 0;
#X connect 52 0 44 0;
#X connect 53 0 54 0;
#X connect 54 0 45 0;
#X connect 54 0 57 0;
#X connect 55 0 53 1;
@@ -0,0 +1,6 @@
#N canvas 0 23 450 300 12;
#X obj 37 37 inlet;
#X obj 37 61 f \$1;
#X obj 37 85 print;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
BIN +121 KB voice.wav
Binary file not shown.

0 comments on commit f898313

Please sign in to comment.