added chorus

svn path=/trunk/abstractions/rradical/; revision=2090

3 files changed, 358 insertions, 0 deletions

diff --git a/effects/rrad.chorus~-help.pd b/effects/rrad.chorus~-help.pd
new file mode 100644
index 0000000..619af1a
--- /dev/null
+++ b/effects/rrad.chorus~-help.pd
@@ -0,0 +1,44 @@
+#N canvas 243 295 803 324 10;
+#X obj 161 33 metro 1000;
+#X obj 164 10 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X msg 159 53 60 100;
+#X obj 166 84 pluck~;
+#X obj 321 263 ezdac~;
+#X obj 376 121 rrad.chorus~ /bla2;
+#X obj 408 71 vline~;
+#X obj 392 37 osc~ 0;
+#X obj 329 34 mtof;
+#X obj 381 87 *~;
+#X obj 576 93 tabwrite~ x;
+#X obj 583 138 table x;
+#X obj 513 61 t b;
+#X msg 461 23 0;
+#X msg 682 132 \; x resize 10000;
+#X msg 327 6 72;
+#X msg 492 35 0.3 50 \, 0 200 50;
+#X obj 159 119 rrad.chorus~-ng /bla;
+#X connect 0 0 2 0;
+#X connect 0 0 16 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 3 0 17 0;
+#X connect 5 0 4 0;
+#X connect 5 1 4 1;
+#X connect 5 2 4 0;
+#X connect 5 3 4 1;
+#X connect 6 0 9 1;
+#X connect 6 0 10 0;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 9 0 5 0;
+#X connect 13 0 6 0;
+#X connect 13 0 12 0;
+#X connect 15 0 8 0;
+#X connect 16 0 6 0;
+#X connect 16 0 12 0;
+#X connect 17 0 4 0;
+#X connect 17 1 4 1;
+#X connect 17 2 4 0;
+#X connect 17 3 4 1;
diff --git a/effects/rrad.chorus~-ng.pd b/effects/rrad.chorus~-ng.pd
new file mode 100644
index 0000000..82d9281
--- /dev/null
+++ b/effects/rrad.chorus~-ng.pd
@@ -0,0 +1,157 @@
+#N canvas 500 433 176 90 10;
+#X obj 2 17 cnv 15 170 70 empty \$0-background-cnv empty 20 12 1 14
+-225271 -66577 0;
+#X obj 377 2 inlet OSC;
+#N canvas 183 51 981 424 saves 0;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 47 55 r \$0-substate;
+#X obj 15 13 inlet substate;
+#X obj 15 35 route substate;
+#X obj 159 55 r \$0-copy;
+#X msg 159 76 copy;
+#X obj 243 50 r \$0-paste;
+#X msg 241 71 paste;
+#X text 154 15 This is the originator \, including some ready to use
+standard functionality.;
+#X text 507 56 Put your commun sends here \, if you like.;
+#X msg 15 91 setsub \$1;
+#X msg 249 184 svdir \$1;
+#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 250 163 savepanel;
+#X obj 152 189 outlet OSC;
+#X msg 108 214 svxdir /tmp/svdir.xml;
+#X msg 78 241 ldxdir /tmp/svdir.xml;
+#X obj 507 86 r \$0-freq;
+#X obj 507 110 commun /freq \$0;
+#X obj 507 135 s \$0-freq;
+#X obj 621 86 r \$0-mod;
+#X obj 621 135 s \$0-mod;
+#X obj 621 110 commun /mod \$0;
+#X connect 0 2 15 0;
+#X connect 1 0 0 1;
+#X connect 2 0 11 0;
+#X connect 3 0 4 0;
+#X connect 4 0 11 0;
+#X connect 4 1 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 21 0 23 0;
+#X connect 23 0 22 0;
+#X restore 315 1 pd saves;
+#N canvas 569 61 450 300 cnv.ctl 0;
+#X obj 90 188 s \$0-background-cnv;
+#X floatatom 108 59 5 100 1000 0 width - -;
+#X floatatom 112 83 4 50 500 0 height - -;
+#X obj 92 132 pack 0 0;
+#X msg 92 159 vis_size \$1 \$2;
+#X obj 110 106 t b f;
+#X connect 1 0 3 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 5 1 3 1;
+#X restore 240 1 pd cnv.ctl;
+#X obj 35 33 hsl 128 15 0 5 0 0 \$0-freq \$0-freq freq_0-5 -2 -6 0
+8 -261689 -1 -1 1800 1;
+#X obj 35 63 hsl 128 15 0 127 0 0 \$0-mod \$0-mod mod -2 -6 0 8 -261681
+-1 -1 900 1;
+#X obj 5 32 vradio 15 1 0 3 \$0-substate \$0-substate-r empty 0 -6
+0 8 -225280 -1 -1 0;
+#X text 106 2 look! ==>;
+#X obj 315 29 outlet OSC;
+#N canvas 131 66 756 534 engine 0;
+#X obj 84 199 cos~;
+#X obj 84 222 +~ 1;
+#X obj 171 143 +~ 0.25;
+#X obj 171 198 cos~;
+#X obj 171 221 +~ 1;
+#X obj 84 325 outlet~;
+#X obj 171 326 outlet~;
+#X obj 270 142 +~ 0.25;
+#X obj 270 197 cos~;
+#X obj 270 220 +~ 1;
+#X obj 365 140 +~ 0.25;
+#X obj 365 195 cos~;
+#X obj 365 218 +~ 1;
+#X obj 14 32 inlet~;
+#X obj 420 224 line~;
+#X obj 420 203 pack 0 50;
+#X obj 365 279 *~;
+#X obj 270 281 *~;
+#X obj 171 282 *~;
+#X obj 84 283 *~;
+#X obj 180 94 line~;
+#X obj 180 73 pack 0 50;
+#X obj 84 124 phasor~;
+#X obj 270 324 outlet~;
+#X obj 365 321 outlet~;
+#X text 424 135 modulation;
+#X text 174 28 frequence;
+#X obj 14 91 delwrite~ \$0-c 1000;
+#X obj 84 304 vd~ \$0-c;
+#X obj 171 304 vd~ \$0-c;
+#X obj 270 302 vd~ \$0-c;
+#X obj 365 300 vd~ \$0-c;
+#X text 451 45 taken from the abstrus collection;
+#X obj 180 48 r \$0-freq;
+#X obj 420 161 r \$0-mod;
+#X connect 0 0 1 0;
+#X connect 1 0 19 0;
+#X connect 2 0 3 0;
+#X connect 2 0 7 0;
+#X connect 3 0 4 0;
+#X connect 4 0 18 0;
+#X connect 7 0 8 0;
+#X connect 7 0 10 0;
+#X connect 8 0 9 0;
+#X connect 9 0 17 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 16 0;
+#X connect 13 0 27 0;
+#X connect 14 0 16 1;
+#X connect 14 0 17 1;
+#X connect 14 0 18 1;
+#X connect 14 0 19 1;
+#X connect 15 0 14 0;
+#X connect 16 0 31 0;
+#X connect 17 0 30 0;
+#X connect 18 0 29 0;
+#X connect 19 0 28 0;
+#X connect 20 0 22 0;
+#X connect 21 0 20 0;
+#X connect 22 0 0 0;
+#X connect 22 0 2 0;
+#X connect 28 0 5 0;
+#X connect 29 0 6 0;
+#X connect 30 0 23 0;
+#X connect 31 0 24 0;
+#X connect 33 0 21 0;
+#X connect 34 0 15 0;
+#X restore 198 27 pd engine;
+#X obj 198 2 inlet~;
+#X obj 179 58 outlet~;
+#X obj 200 80 outlet~;
+#X obj 225 103 outlet~;
+#X obj 254 129 outlet~;
+#X connect 1 0 2 1;
+#X connect 2 0 8 0;
+#X connect 9 0 11 0;
+#X connect 9 1 12 0;
+#X connect 9 2 13 0;
+#X connect 9 3 14 0;
+#X connect 10 0 9 0;
+#X coords 0 0 0.00568182 0.0111111 172 90 0;
diff --git a/effects/rrad.chorus~.pd b/effects/rrad.chorus~.pd
new file mode 100644
index 0000000..084b7e8
--- /dev/null
+++ b/effects/rrad.chorus~.pd
@@ -0,0 +1,157 @@
+#N canvas 500 433 176 90 10;
+#X obj 2 17 cnv 15 170 70 empty \$0-background-cnv empty 20 12 1 14
+-225271 -66577 0;
+#X obj 377 2 inlet OSC;
+#N canvas 183 51 981 424 saves 0;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 47 55 r \$0-substate;
+#X obj 15 13 inlet substate;
+#X obj 15 35 route substate;
+#X obj 159 55 r \$0-copy;
+#X msg 159 76 copy;
+#X obj 243 50 r \$0-paste;
+#X msg 241 71 paste;
+#X text 154 15 This is the originator \, including some ready to use
+standard functionality.;
+#X text 507 56 Put your commun sends here \, if you like.;
+#X msg 15 91 setsub \$1;
+#X msg 249 184 svdir \$1;
+#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 250 163 savepanel;
+#X obj 152 189 outlet OSC;
+#X msg 108 214 svxdir /tmp/svdir.xml;
+#X msg 78 241 ldxdir /tmp/svdir.xml;
+#X obj 507 86 r \$0-freq;
+#X obj 507 110 commun /freq \$0;
+#X obj 507 135 s \$0-freq;
+#X obj 621 86 r \$0-mod;
+#X obj 621 135 s \$0-mod;
+#X obj 621 110 commun /mod \$0;
+#X connect 0 2 15 0;
+#X connect 1 0 0 1;
+#X connect 2 0 11 0;
+#X connect 3 0 4 0;
+#X connect 4 0 11 0;
+#X connect 4 1 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 21 0 23 0;
+#X connect 23 0 22 0;
+#X restore 315 1 pd saves;
+#N canvas 569 61 450 300 cnv.ctl 0;
+#X obj 90 188 s \$0-background-cnv;
+#X floatatom 108 59 5 100 1000 0 width - -;
+#X floatatom 112 83 4 50 500 0 height - -;
+#X obj 92 132 pack 0 0;
+#X msg 92 159 vis_size \$1 \$2;
+#X obj 110 106 t b f;
+#X connect 1 0 3 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 5 1 3 1;
+#X restore 240 1 pd cnv.ctl;
+#X obj 35 33 hsl 128 15 0 5 0 0 \$0-freq \$0-freq freq_0-5 -2 -6 0
+8 -261689 -1 -1 6200 1;
+#X obj 35 63 hsl 128 15 0 127 0 0 \$0-mod \$0-mod mod -2 -6 0 8 -261681
+-1 -1 1800 1;
+#X obj 5 32 vradio 15 1 0 3 \$0-substate \$0-substate-r empty 0 -6
+0 8 -225280 -1 -1 0;
+#X text 106 2 look! ==>;
+#X obj 315 29 outlet OSC;
+#N canvas 131 66 756 534 engine 0;
+#X obj 84 199 cos~;
+#X obj 84 222 +~ 1;
+#X obj 171 143 +~ 0.25;
+#X obj 171 198 cos~;
+#X obj 171 221 +~ 1;
+#X obj 84 325 outlet~;
+#X obj 171 326 outlet~;
+#X obj 270 142 +~ 0.25;
+#X obj 270 197 cos~;
+#X obj 270 220 +~ 1;
+#X obj 365 140 +~ 0.25;
+#X obj 365 195 cos~;
+#X obj 365 218 +~ 1;
+#X obj 14 32 inlet~;
+#X obj 420 224 line~;
+#X obj 420 203 pack 0 50;
+#X obj 365 279 *~;
+#X obj 270 281 *~;
+#X obj 171 282 *~;
+#X obj 84 283 *~;
+#X obj 180 94 line~;
+#X obj 180 73 pack 0 50;
+#X obj 84 124 phasor~;
+#X obj 270 324 outlet~;
+#X obj 365 321 outlet~;
+#X text 424 135 modulation;
+#X text 174 28 frequence;
+#X obj 14 91 delwrite~ \$0-c 1000;
+#X obj 84 304 vd~ \$0-c;
+#X obj 171 304 vd~ \$0-c;
+#X obj 270 302 vd~ \$0-c;
+#X obj 365 300 vd~ \$0-c;
+#X text 451 45 taken from the abstrus collection;
+#X obj 180 48 r \$0-freq;
+#X obj 420 161 r \$0-mod;
+#X connect 0 0 1 0;
+#X connect 1 0 19 0;
+#X connect 2 0 3 0;
+#X connect 2 0 7 0;
+#X connect 3 0 4 0;
+#X connect 4 0 18 0;
+#X connect 7 0 8 0;
+#X connect 7 0 10 0;
+#X connect 8 0 9 0;
+#X connect 9 0 17 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 16 0;
+#X connect 13 0 27 0;
+#X connect 14 0 16 1;
+#X connect 14 0 17 1;
+#X connect 14 0 18 1;
+#X connect 14 0 19 1;
+#X connect 15 0 14 0;
+#X connect 16 0 31 0;
+#X connect 17 0 30 0;
+#X connect 18 0 29 0;
+#X connect 19 0 28 0;
+#X connect 20 0 22 0;
+#X connect 21 0 20 0;
+#X connect 22 0 0 0;
+#X connect 22 0 2 0;
+#X connect 28 0 5 0;
+#X connect 29 0 6 0;
+#X connect 30 0 23 0;
+#X connect 31 0 24 0;
+#X connect 33 0 21 0;
+#X connect 34 0 15 0;
+#X restore 198 27 pd engine;
+#X obj 198 2 inlet~;
+#X obj 179 58 outlet~;
+#X obj 200 80 outlet~;
+#X obj 225 103 outlet~;
+#X obj 254 129 outlet~;
+#X connect 1 0 2 1;
+#X connect 2 0 8 0;
+#X connect 9 0 11 0;
+#X connect 9 1 12 0;
+#X connect 9 2 13 0;
+#X connect 9 3 14 0;
+#X connect 10 0 9 0;
+#X coords 0 0 1 1 172 90 1;