Permalink
Show file tree
Hide file tree
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Showing
8 changed files
with
1,510 additions
and
11 deletions.
There are no files selected for viewing
1,241
hamilr4.pd
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -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; |