Permalink
Browse files

effet stereo-field-rotation

  • Loading branch information...
j-k-p committed Apr 4, 2011
1 parent f3e3bfc commit ea29271c075bf41f2695cede21995c0e1d26b1d9
Showing with 190 additions and 0 deletions.
  1. +29 −0 stereo-field-rotation~-help.pd
  2. +161 −0 stereo-field-rotation~.pd
@@ -0,0 +1,29 @@
+#N canvas 0 0 1272 714 10;
+#X obj -226 190 mtl/out~;
+#X text 544 264 tags: fx~;
+#X text 90 158 <-Click on the propeties menu to display params;
+#X obj 201 41 cnv 15 200 40 empty empty empty 20 12 0 14 -232576 -66577
+0;
+#X text 261 42 PARAM ENABLED;
+#X obj 212 222 cnv 15 200 20 empty empty /stereo-field-rotation/ 2
+12 0 8 -258401 -262144 0;
+#X obj 215 245 hsl 100 15 0 180 0 0 /stereo-field-rotation/width /stereo-field-rotation/width_
+width 105 7 0 8 -262144 -1 -1 5500 1;
+#X text 540 224 Description:;
+#X text 541 237 taken from music-dsp;
+#X text 544 251 by Michael Gruhn;
+#X text 616 223 Stereo-Width-Control;
+#X obj 236 61 tof/open_help tof/param;
+#X text 545 284 This work is hereby placed in the public domain for
+all purposes \, including use in commercial applications. 'width' is
+the stretch factor of the stereo field: width < 1: decrease in stereo
+width width = 1: no change width > 1: increase in stereo width width
+= 0: mono Code : // calculate scale coefficient coef_S = width*0.5
+\; // then do this per sample m = (in_left + in_right)*0.5 \; s = (in_right
+- in_left )*coef_S \; out_left = m - s \; out_right = m + s \;;
+#X obj -228 114 osc~ 250;
+#X obj -231 158 mtl/stereo-field-rotation~ /id stereo-field-rotation
+;
+#X connect 13 0 14 0;
+#X connect 14 0 0 0;
+#X connect 14 1 0 1;
View
@@ -0,0 +1,161 @@
+#N canvas 0 0 1272 685 10;
+#X obj 222 577 outlet~;
+#X obj 188 154 inlet~;
+#X obj 278 149 inlet~;
+#X obj 394 573 outlet~;
+#X obj 742 240 inlet params;
+#X obj 742 286 print PARAM_NOTFOUND;
+#X obj 742 262 tof/param route;
+#X obj 739 414 tof/param gui;
+#X obj 237 541 -~;
+#X obj 392 537 +~;
+#X obj 487 57 tof/param /width 0 /g slider 0 180;
+#X obj 252 441 *~;
+#X obj 389 439 *~;
+#X obj 327 442 *~;
+#X obj 447 443 *~;
+#N canvas 0 0 1251 714 init 0;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array \$0-tab-sin 180 float 1;
+#A 0 0.841471 0.0174436 0.0348818 0.0523094 0.0697212 0.0871117 0.104476
+0.121808 0.139103 0.156356 0.173561 0.190713 0.207808 0.224839 0.241802
+0.258691 0.275501 0.292228 0.308866 0.325409 0.341854 0.358194 0.374426
+0.390544 0.406543 0.422418 0.438164 0.453778 0.469253 0.484585 0.49977
+0.514803 0.529679 0.544394 0.558943 0.573323 0.587528 0.601554 0.615397
+0.629052 0.642516 0.655785 0.668854 0.68172 0.694378 0.706825 0.719057
+0.73107 0.742861 0.754425 0.76576 0.776862 0.787727 0.798353 0.808736
+0.818873 0.82876 0.838396 0.847776 0.856898 0.86576 0.874358 0.88269
+0.890753 0.898546 0.906065 0.913308 0.920273 0.926958 0.933361 0.939481
+0.945314 0.950859 0.956116 0.961081 0.965754 0.970133 0.974217 0.978004
+0.981494 0.984685 0.987576 0.990167 0.992456 0.994444 0.996129 0.997511
+0.998589 0.999363 0.999834 1 0.999861 0.999419 0.998672 0.997622 0.996268
+0.99461 0.99265 0.990388 0.987825 0.984961 0.981797 0.978335 0.974575
+0.970518 0.966166 0.96152 0.956581 0.951351 0.945832 0.940025 0.933932
+0.927555 0.920895 0.913955 0.906737 0.899243 0.891476 0.883437 0.87513
+0.866556 0.857718 0.84862 0.839263 0.829651 0.819786 0.809672 0.799311
+0.788707 0.777864 0.766783 0.755469 0.743926 0.732156 0.720163 0.707951
+0.695524 0.682884 0.670038 0.656987 0.643736 0.630289 0.616651 0.602825
+0.588816 0.574627 0.560263 0.545729 0.531029 0.516168 0.501149 0.485978
+0.470658 0.455196 0.439595 0.423861 0.407997 0.392009 0.375902 0.359681
+0.34335 0.326915 0.31038 0.29375 0.277032 0.260229 0.243347 0.22639
+0.209365 0.192276 0.175129 0.157929 0.14068 0.123388 0.106059 0.0886982
+0.0713097 0.0538998 0.0364732 0.00159255;
+#X coords 0 1 179 -1 200 140 1;
+#X restore 107 69 graph;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array \$0-tab-cos 180 float 1;
+#A 0 0.540302 0.999848 0.999391 0.998631 0.997567 0.996199 0.994527
+0.992554 0.990278 0.987701 0.984823 0.981646 0.97817 0.974396 0.970326
+0.96596 0.961301 0.956349 0.951106 0.945573 0.939753 0.933647 0.927257
+0.920584 0.913632 0.906401 0.898895 0.891115 0.883064 0.874744 0.866158
+0.857309 0.848198 0.83883 0.829206 0.81933 0.809204 0.798832 0.788218
+0.777363 0.766272 0.754948 0.743393 0.731613 0.71961 0.707388 0.694951
+0.682302 0.669446 0.656386 0.643126 0.629671 0.616024 0.602189 0.588172
+0.573975 0.559604 0.545062 0.530354 0.515485 0.50046 0.485282 0.469956
+0.454487 0.43888 0.423139 0.40727 0.391277 0.375164 0.358938 0.342602
+0.326162 0.309623 0.292989 0.276267 0.25946 0.242574 0.225615 0.208587
+0.191495 0.174345 0.157142 0.139892 0.122598 0.105268 0.087905 0.0705154
+0.0531045 0.0356776 0.0182396 0.000796274 -0.0166474 -0.034086 -0.0515143
+-0.0689268 -0.0863184 -0.103684 -0.121018 -0.138314 -0.155569 -0.172777
+-0.189932 -0.207029 -0.224063 -0.241029 -0.257922 -0.274736 -0.291466
+-0.308108 -0.324656 -0.341106 -0.357451 -0.373688 -0.389811 -0.405815
+-0.421696 -0.437449 -0.453068 -0.468549 -0.483888 -0.49908 -0.51412
+-0.529004 -0.543726 -0.558283 -0.57267 -0.586883 -0.600917 -0.614769
+-0.628433 -0.641906 -0.655184 -0.668262 -0.681137 -0.693805 -0.706262
+-0.718503 -0.730527 -0.742327 -0.753902 -0.765248 -0.77636 -0.787237
+-0.797873 -0.808267 -0.818416 -0.828314 -0.837961 -0.847353 -0.856488
+-0.865361 -0.873971 -0.882316 -0.890391 -0.898196 -0.905727 -0.912983
+-0.919961 -0.926659 -0.933075 -0.939208 -0.945054 -0.950613 -0.955882
+-0.960861 -0.965547 -0.969939 -0.974037 -0.977837 -0.981341 -0.984545
+-0.987451 -0.990055 -0.992358 -0.99436 -0.996059 -0.997454 -0.998546
+-0.999335 -0.999999;
+#X coords 0 1 179 -1 200 140 1;
+#X restore 106 271 graph;
+#X obj 807 63 loadbang;
+#X obj 701 420 f;
+#X obj 652 379 t f b;
+#X obj 881 420 f;
+#X obj 832 379 t f b;
+#X floatatom 897 452 5 0 0 0 - - -;
+#X floatatom 819 432 5 0 0 0 - - -;
+#X floatatom 776 241 0 0 0 0 - - -;
+#X obj 776 215 + 1;
+#X msg 776 111 bang;
+#X msg 685 169 stop;
+#X obj 776 189 float;
+#X obj 776 137 trigger bang bang;
+#X msg 890 169 0;
+#X text 934 166 first set value to zero;
+#X text 933 137 initialization is in two steps;
+#X text 934 185 (before starting the metronome);
+#X text 638 192 conditionally;
+#X text 638 209 stop the;
+#X text 639 223 metronome;
+#X text 813 110 <--- click here to start;
+#X obj 776 163 metro 1;
+#X obj 685 143 select 180;
+#X floatatom 676 272 5 0 0 0 - - -;
+#X floatatom 604 364 5 0 0 0 - - -;
+#X obj 645 318 expr (cos((3.14*$f1)/180));
+#X obj 817 319 expr (sin((3.14*$f1)/180));
+#X obj 623 489 tabwrite \$0-tab-cos;
+#X obj 774 489 tabwrite \$0-tab-sin;
+#X connect 2 0 14 0;
+#X connect 3 0 29 1;
+#X connect 4 0 29 0;
+#X connect 4 1 3 0;
+#X connect 5 0 7 0;
+#X connect 5 0 30 1;
+#X connect 6 0 8 0;
+#X connect 6 0 30 0;
+#X connect 6 1 5 0;
+#X connect 10 0 9 0;
+#X connect 10 0 13 1;
+#X connect 10 0 24 0;
+#X connect 10 0 3 1;
+#X connect 10 0 5 1;
+#X connect 10 0 27 0;
+#X connect 10 0 28 0;
+#X connect 11 0 14 0;
+#X connect 12 0 23 0;
+#X connect 13 0 10 0;
+#X connect 14 0 23 0;
+#X connect 14 1 15 0;
+#X connect 15 0 13 1;
+#X connect 23 0 13 0;
+#X connect 24 0 12 0;
+#X connect 25 0 27 0;
+#X connect 27 0 4 0;
+#X connect 27 0 26 0;
+#X connect 28 0 6 0;
+#X restore 800 104 pd init;
+#X obj 369 185 tabread \$0-tab-cos;
+#X obj 507 184 tabread \$0-tab-sin;
+#X obj 738 385 b;
+#X obj 367 230 line~;
+#X msg 367 208 \$1 100;
+#X obj 507 230 line~;
+#X msg 507 208 \$1 100;
+#X connect 1 0 11 0;
+#X connect 1 0 13 0;
+#X connect 2 0 12 0;
+#X connect 2 0 14 0;
+#X connect 4 0 6 0;
+#X connect 6 0 5 0;
+#X connect 8 0 0 0;
+#X connect 9 0 3 0;
+#X connect 10 0 16 0;
+#X connect 10 0 17 0;
+#X connect 11 0 8 0;
+#X connect 12 0 8 1;
+#X connect 13 0 9 0;
+#X connect 14 0 9 1;
+#X connect 16 0 20 0;
+#X connect 17 0 22 0;
+#X connect 18 0 7 0;
+#X connect 19 0 11 1;
+#X connect 19 0 14 1;
+#X connect 20 0 19 0;
+#X connect 21 0 12 1;
+#X connect 21 0 13 1;
+#X connect 22 0 21 0;

0 comments on commit ea29271

Please sign in to comment.