diff options
Diffstat (limited to 'abs/mtx_linsweep.pd')
-rw-r--r-- | abs/mtx_linsweep.pd | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/abs/mtx_linsweep.pd b/abs/mtx_linsweep.pd new file mode 100644 index 0000000..027625b --- /dev/null +++ b/abs/mtx_linsweep.pd @@ -0,0 +1,64 @@ +#N canvas 724 186 552 611 10; +#X obj 94 57 inlet; +#X obj 143 57 inlet; +#X obj 190 57 inlet; +#X obj 231 56 loadbang; +#X obj 94 228 mtx_cumsum; +#X text 187 209 instantaneous frequency; +#X text 188 229 time dependent phase-angle argument; +#X text 191 316 sweeped cos-oscillation; +#N canvas 0 0 661 488 smooth_switches 0; +#X obj 165 30 inlet; +#X obj 165 368 outlet; +#X obj 248 275 mtx_linspace; +#X obj 248 254 pack f f f; +#X obj 317 101 mtx_size; +#X obj 283 123 t f f; +#X obj 283 175 mtx; +#X obj 235 174 mtx; +#X obj 272 79 t b a a a; +#X obj 165 50 t a a; +#X obj 165 301 mtx_-; +#X msg 283 150 element 1 \$1; +#X msg 235 101 element 1 1; +#X obj 283 213 expr -int($f1/3.14159265)*3.14159265+$f1; +#X text 397 192 modulo pi; +#X connect 0 0 9 0; +#X connect 2 0 10 1; +#X connect 3 0 2 0; +#X connect 4 1 5 0; +#X connect 5 0 11 0; +#X connect 5 1 3 2; +#X connect 6 0 13 0; +#X connect 7 0 3 0; +#X connect 8 0 12 0; +#X connect 8 1 4 0; +#X connect 8 2 7 1; +#X connect 8 3 6 1; +#X connect 9 0 10 0; +#X connect 9 1 8 0; +#X connect 10 0 1 0; +#X connect 11 0 6 0; +#X connect 12 0 7 0; +#X connect 13 0 3 1; +#X restore 94 284 pd smooth_switches (on and off zero-phase); +#X text 189 261 force zero-crossing at start and end; +#X obj 94 441 outlet; +#X text 103 422 sweep vector; +#X text 185 396 forming matrix with blocksize columns for playback +; +#X text 102 38 wstart; +#X text 147 36 wstop; +#X text 195 35 len; +#X obj 94 117 pack \$1 \$2 \$3; +#X obj 94 315 mtx_sin; +#X obj 94 208 mtx_linspace; +#X connect 0 0 16 0; +#X connect 1 0 16 1; +#X connect 2 0 16 2; +#X connect 3 0 16 0; +#X connect 4 0 8 0; +#X connect 8 0 17 0; +#X connect 16 0 18 0; +#X connect 17 0 10 0; +#X connect 18 0 4 0; |