diff options
Diffstat (limited to 'sonogram~/rs-sonogram~.pd')
| -rw-r--r-- | sonogram~/rs-sonogram~.pd | 92 |
1 files changed, 48 insertions, 44 deletions
diff --git a/sonogram~/rs-sonogram~.pd b/sonogram~/rs-sonogram~.pd index 864666f..08274ae 100644 --- a/sonogram~/rs-sonogram~.pd +++ b/sonogram~/rs-sonogram~.pd @@ -1,11 +1,11 @@ -#N canvas 43 28 986 681 10; +#N canvas 7 13 986 674 10; #X msg 306 57 record; #X msg 19 34 bang; #X obj 19 54 openpanel; #X obj 21 152 soundfiler; #X msg 259 42 bang; #X obj 262 101 rfft~; -#X floatatom 59 171 10 0 0; +#X floatatom 59 171 10 0 0 0 - - -; #X msg 20 211 resize \$1; #X obj 19 74 t s b; #X obj 22 114 pack s s; @@ -40,7 +40,7 @@ #X text 919 110 100 %; #X text 783 76 Set portion of the sonogram to modify; #X msg 953 108 100; -#N canvas 309 22 600 544 modifications 0; +#N canvas 656 8 600 544 modifications 1; #X text 234 236 Filter a frequency; #X text 254 190 Enhance a frequency by 10% ( might be a range of frequencies with message 'enhance f1 f2 x' ); @@ -87,7 +87,6 @@ with message 'enhance f1 f2 x' ); -128992 0; #X msg 115 466 add \$1 \$1 -0.5; #X text 218 465 Sub a constant from a frequency; -#X msg 113 395 average 100; #X text 198 393 Average over 100 blocks ( smooth with some sounds ) ; #X obj 16 454 outlet; @@ -95,47 +94,48 @@ with message 'enhance f1 f2 x' ); #X msg 159 69 godown 5; #X msg 107 198 enhance \$1 \$1 1.1 0; #X msg 116 488 threshold \$1; -#X floatatom 208 489 5 0 0; +#X floatatom 208 489 5 0 0 0 - - -; #X msg 107 239 enhance \$1 \$1 0 0; #X text 249 488 Suppress all points below the threshold; #X text 159 91 Roll frequencies : same as above but without loss; -#X connect 3 0 38 0; +#X msg 113 395 average 10; +#X connect 3 0 37 0; #X connect 4 0 8 0; -#X connect 5 0 38 0; +#X connect 5 0 37 0; #X connect 6 0 5 0; #X connect 8 0 9 0; #X connect 9 0 6 1; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 6 0; -#X connect 13 0 41 0; -#X connect 14 0 44 0; -#X connect 16 0 38 0; -#X connect 17 0 38 0; -#X connect 20 0 38 0; -#X connect 22 0 38 0; -#X connect 23 0 38 0; -#X connect 26 0 38 0; +#X connect 13 0 40 0; +#X connect 14 0 43 0; +#X connect 16 0 37 0; +#X connect 17 0 37 0; +#X connect 20 0 37 0; +#X connect 22 0 37 0; +#X connect 23 0 37 0; +#X connect 26 0 37 0; #X connect 27 0 26 0; #X connect 30 0 31 0; -#X connect 31 0 38 0; +#X connect 31 0 37 0; #X connect 33 0 34 0; -#X connect 34 0 38 0; -#X connect 36 0 38 0; -#X connect 39 0 38 0; -#X connect 40 0 38 0; -#X connect 41 0 38 0; -#X connect 42 0 38 0; -#X connect 43 0 42 0; -#X connect 44 0 38 0; +#X connect 34 0 37 0; +#X connect 38 0 37 0; +#X connect 39 0 37 0; +#X connect 40 0 37 0; +#X connect 41 0 37 0; +#X connect 42 0 41 0; +#X connect 43 0 37 0; +#X connect 46 0 37 0; #X restore 861 131 pd modifications; #X text 513 609 Zoom factor (>1); #X msg 418 608 zoom 2; #X obj 256 79 tabplay~ \$0-sonosample; -#X obj 80 275 sonogram~ 463 1 1 1; +#X obj 114 263 sonogram~ 2452 1 1; #X msg 467 608 zoom 1; #X msg 484 99 readspeed \$1; -#X floatatom 617 99 5 0 0; +#X floatatom 617 99 5 0 0 0 - - -; #X text 487 121 Reading speed; #X obj 576 99 / 100; #X msg 661 99 100; @@ -146,7 +146,7 @@ with message 'enhance f1 f2 x' ); #X msg 780 207 start; #X msg 822 207 stop; #X msg 418 652 modstep \$1; -#X floatatom 499 652 5 0 0; +#X floatatom 499 652 5 0 0 0 - - -; #X obj 525 36 spigot; #X obj 573 36 tgl 15 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1 ; @@ -177,14 +177,13 @@ with message 'enhance f1 f2 x' ); #X text 785 57 Step 4 : modify parts of the sonogram; #X obj 260 126 rifft~; #X msg 418 630 refresh; -#X obj 829 571 block~ 256; #X text 239 10 Step 2 : Record the sonogram; #X obj 927 565 loadbang; #N canvas 0 1 682 488 envelop 0; #X obj 33 400 outlet; #X obj 46 327 tabread envelop; #X msg 23 263 bang; -#X floatatom 23 299 5 0 0; +#X floatatom 23 299 5 0 0 0 - - -; #X obj 71 280 + 1; #X msg 23 281 0; #X text 25 239 Apply envelop; @@ -195,7 +194,7 @@ with message 'enhance f1 f2 x' ); #X msg 425 349 bang; #X msg 370 374 \; envelop const 1; #X msg 203 381 refresh; -#X floatatom 160 280 5 0 0; +#X floatatom 160 280 5 0 0 0 - - -; #X msg 163 300 bang; #X obj 98 280 moses 127; #X msg 485 347 bang; @@ -231,7 +230,7 @@ with message 'enhance f1 f2 x' ); #X connect 20 0 13 0; #X restore 780 131 pd envelop; #X obj 310 174 / 100; -#X floatatom 309 147 5 0 0; +#X floatatom 309 147 5 0 0 0 - - -; #X obj 263 174 *~ 1; #X obj 261 149 /~ 256; #X text 332 129 Volume; @@ -241,6 +240,9 @@ with message 'enhance f1 f2 x' ); #X msg 488 630 undo; #X text 526 630 One level undo; #X obj 21 192 makefilename %d-sonosample; +#X msg 23 264 undo; +#X msg 17 317 zoom 1; +#X obj 829 571 block~ 256; #X connect 0 0 41 0; #X connect 1 0 2 0; #X connect 2 0 8 0; @@ -268,7 +270,7 @@ with message 'enhance f1 f2 x' ); #X connect 37 0 41 0; #X connect 39 0 41 0; #X connect 40 0 5 0; -#X connect 40 0 90 0; +#X connect 40 0 89 0; #X connect 41 0 82 0; #X connect 41 1 82 1; #X connect 41 3 53 0; @@ -290,18 +292,20 @@ with message 'enhance f1 f2 x' ); #X connect 56 0 15 0; #X connect 57 0 56 1; #X connect 62 0 64 0; -#X connect 63 0 98 0; +#X connect 63 0 97 0; #X connect 64 0 41 0; #X connect 78 0 36 0; -#X connect 82 0 91 0; +#X connect 82 0 90 0; #X connect 83 0 41 0; -#X connect 86 0 14 0; -#X connect 87 0 41 0; -#X connect 88 0 90 1; -#X connect 89 0 88 0; -#X connect 90 0 16 0; -#X connect 90 0 51 0; -#X connect 90 0 51 1; -#X connect 91 0 90 0; -#X connect 96 0 41 0; -#X connect 98 0 9 1; +#X connect 85 0 14 0; +#X connect 86 0 41 0; +#X connect 87 0 89 1; +#X connect 88 0 87 0; +#X connect 89 0 16 0; +#X connect 89 0 51 0; +#X connect 89 0 51 1; +#X connect 90 0 89 0; +#X connect 95 0 41 0; +#X connect 97 0 9 1; +#X connect 98 0 41 0; +#X connect 99 0 41 0; |