From bef3c6a0fbce25dcb07a8738f99ac675d2810d42 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Sat, 9 Oct 2004 15:31:09 +0000
Subject: blabla: new files

svn path=/trunk/abstractions/rradical/; revision=2089
---
 effects/rrad.adsr4~.pd | 206 +++++++++++++++++++++++++++++++++++++++++++++++++
 effects/rrad.sc4~.pd   | 204 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 410 insertions(+)
 create mode 100644 effects/rrad.adsr4~.pd
 create mode 100644 effects/rrad.sc4~.pd

(limited to 'effects')

diff --git a/effects/rrad.adsr4~.pd b/effects/rrad.adsr4~.pd
new file mode 100644
index 0000000..2aa32e1
--- /dev/null
+++ b/effects/rrad.adsr4~.pd
@@ -0,0 +1,206 @@
+#N canvas 500 433 157 126 10;
+#X obj 2 15 cnv 15 150 100 empty \$0-background-cnv empty 20 12 1 14
+-228905 -66577 0;
+#X obj 433 -3 inlet OSC;
+#N canvas 127 377 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 538 176 s \$0-ain;
+#X obj 610 176 s \$0-din;
+#X obj 682 176 s \$0-sin;
+#X obj 776 179 s \$0-rin;
+#X obj 536 107 r \$0-a;
+#X obj 630 105 r \$0-d;
+#X obj 698 106 r \$0-s;
+#X obj 769 106 r \$0-r;
+#X obj 772 142 commun /r \$0;
+#X obj 682 142 commun /s \$0;
+#X obj 582 141 commun /d \$0;
+#X obj 496 137 commun /a \$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 22 0 29 0;
+#X connect 23 0 28 0;
+#X connect 24 0 27 0;
+#X connect 25 0 26 0;
+#X connect 26 0 21 0;
+#X connect 27 0 20 0;
+#X connect 28 0 19 0;
+#X connect 29 0 18 0;
+#X restore 371 -4 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 296 -4 pd cnv.ctl;
+#X obj 117 34 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271
+-1 -1;
+#X obj 117 62 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472
+-1 -1;
+#X text 184 -4 look! ==>;
+#X obj 371 17 outlet OSC;
+#X obj 10 37 vsl 8 64 0 100 0 0 \$0-a \$0-ain a 0 -8 1 8 -355 -260818
+-143491 0 1;
+#X obj 29 37 vsl 8 64 0 127 0 0 \$0-d \$0-din d 0 -8 1 8 -355 -260818
+-143491 0 1;
+#X obj 49 37 vsl 8 64 0 127 0 0 \$0-s \$0-sin s 0 -8 1 8 -355 -260818
+-143491 0 1;
+#X obj 69 37 vsl 8 64 0 127 0 0 \$0-r \$0-rin r 0 -8 1 8 -355 -260818
+-143491 0 1;
+#X obj 189 21 inlet;
+#X obj 189 72 outlet~;
+#N canvas 0 0 600 400 envelope 0;
+#X obj 173 134 r \$0-level;
+#X obj 252 35 r \$0-a;
+#X obj 293 85 r \$0-d;
+#X obj 315 139 r \$0-s;
+#X obj 413 132 r \$0-r;
+#X obj 25 119 inlet;
+#X obj 174 346 outlet~;
+#N canvas 231 224 600 400 adsr 0;
+#X text 52 50 This patch is used as an abstraction in 25.envelope.pd
+;
+#X obj 95 108 inlet;
+#X obj 298 111 inlet;
+#X text 91 79 trigger;
+#X obj 95 138 sel 0;
+#X obj 144 138 t b;
+#X obj 104 359 pack 0 \$2;
+#X obj 362 112 inlet;
+#X obj 309 301 del \$2;
+#X obj 338 324 f \$4;
+#X obj 371 369 pack 0 \$3;
+#X obj 410 112 inlet;
+#X obj 459 111 inlet;
+#X obj 504 111 inlet;
+#X msg 95 191 stop;
+#X obj 517 360 pack 0 \$5;
+#X text 378 86 Traditional A \, D \, S \, R;
+#X text 296 88 level;
+#X text 32 302 ATTACK;
+#X obj 371 465 outlet~;
+#X text 7 325 recall level;
+#X text 7 345 and pack with;
+#X text 8 365 attack time;
+#X text 28 124 if zero;
+#X text 29 141 release;
+#X text 17 183 and cancel;
+#X text 17 199 decay;
+#X text 148 120 bang if attack;
+#X text 183 294 on attack \, set a;
+#X text 147 307 delay to go to sustain;
+#X text 189 324 recall sustain value;
+#X text 185 347 multiply by overall level;
+#X text 220 370 pack with decay time;
+#X text 510 386 on release ramp;
+#X text 511 403 back to zero;
+#X text 63 12 adsr - arguments: level \, attack time \, decay time
+\, sustain level \, release time;
+#X text 17 487 When you send this patch a nonzero trigger it schedules
+a line~ to do an attack and decay \, and if zero \, it starts the release
+ramp.;
+#X text 18 533 Objects such as f and pack can be given dollar sign
+arguments to initialize their contents from adsr's creation arguments.
+Inlets are supplied to update them on the fly.;
+#X obj 104 334 f;
+#X obj 364 346 * 1;
+#X obj 371 426 sqrt;
+#X obj 371 405 sqrt;
+#X obj 371 445 vline~;
+#X connect 1 0 4 0;
+#X connect 2 0 38 0;
+#X connect 2 0 39 1;
+#X connect 4 0 14 0;
+#X connect 4 0 15 0;
+#X connect 4 1 5 0;
+#X connect 5 0 8 0;
+#X connect 6 0 41 0;
+#X connect 7 0 6 1;
+#X connect 7 0 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 39 0;
+#X connect 10 0 41 0;
+#X connect 11 0 10 1;
+#X connect 12 0 9 1;
+#X connect 13 0 15 1;
+#X connect 14 0 8 0;
+#X connect 15 0 41 0;
+#X connect 38 0 6 0;
+#X connect 39 0 10 0;
+#X connect 40 0 42 0;
+#X connect 41 0 40 0;
+#X connect 42 0 19 0;
+#X restore 174 292 pd adsr -----------;
+#X obj 100 181 s \$0-level;
+#X obj 253 62 rrad.scale 0 127 0 200;
+#X obj 308 164 rrad.scale 0 127 0 1;
+#X obj 289 119 rrad.scale 0 127 0 200;
+#X obj 172 168 rrad.scale 0 127 0 1;
+#X obj 366 202 rrad.scale 0 127 0 1000;
+#X obj 74 149 select 0;
+#X connect 0 0 12 0;
+#X connect 1 0 9 0;
+#X connect 2 0 11 0;
+#X connect 3 0 10 0;
+#X connect 4 0 13 0;
+#X connect 5 0 14 0;
+#X connect 5 0 7 0;
+#X connect 7 0 6 0;
+#X connect 9 0 7 2;
+#X connect 10 0 7 4;
+#X connect 11 0 7 3;
+#X connect 12 0 7 1;
+#X connect 13 0 7 5;
+#X connect 14 1 8 0;
+#X restore 189 47 pd envelope;
+#X text 23 -1 Graphical ADSR;
+#X obj 95 37 vsl 8 64 0 127 0 0 empty \$0-level lvl 0 -8 1 8 -62784
+-262144 -258699 0 1;
+#X obj 116 90 nbx 2 14 -1e+37 1e+37 0 0 \$0-substate \$0-parentstate
+preset 0 -6 0 8 -261681 -1 -1 0 256;
+#X connect 1 0 2 1;
+#X connect 2 0 7 0;
+#X connect 12 0 14 0;
+#X connect 14 0 13 0;
+#X coords 0 0 1 1 152 115 1;
diff --git a/effects/rrad.sc4~.pd b/effects/rrad.sc4~.pd
new file mode 100644
index 0000000..7062180
--- /dev/null
+++ b/effects/rrad.sc4~.pd
@@ -0,0 +1,204 @@
+#N canvas 404 482 252 143 10;
+#X obj 3 21 cnv 15 247 118 empty \$0-background-cnv empty 20 12 1 14
+-228992 -66577 0;
+#X obj 434 3 inlet OSC;
+#N canvas 183 51 1015 676 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 698 157 s \$0-p;
+#X obj 507 90 r \$0-att;
+#X msg 698 135 control #2 \$1;
+#X obj 507 112 scale-commun /att \$0 1.5 400;
+#X obj 508 134 s \$0-att;
+#X obj 685 225 s \$0-p;
+#X obj 508 159 r \$0-rel;
+#X obj 508 202 s \$0-rel;
+#X msg 685 204 control #3 \$1;
+#X obj 508 180 scale-commun /rel \$0 2 800;
+#X obj 685 294 s \$0-p;
+#X obj 508 228 r \$0-thresh;
+#X obj 508 271 s \$0-thresh;
+#X msg 685 273 control #4 \$1;
+#X obj 508 249 scale-commun /thresh \$0 -30 -1e-04;
+#X obj 681 364 s \$0-p;
+#X msg 681 343 control #5 \$1;
+#X obj 504 298 r \$0-ratio;
+#X obj 504 341 s \$0-ratio;
+#X obj 504 319 scale-commun /ratio \$0 1 20;
+#X obj 680 440 s \$0-p;
+#X obj 503 374 r \$0-knee;
+#X obj 504 415 s \$0-knee;
+#X msg 680 419 control #6 \$1;
+#X obj 503 395 scale-commun /knee \$0 1 10;
+#X obj 682 513 s \$0-p;
+#X msg 682 492 control #7 \$1;
+#X obj 505 446 r \$0-makeup;
+#X obj 505 496 s \$0-makeup;
+#X floatatom 720 472 5 0 0 0 - - -;
+#X obj 505 468 scale-commun /makeup \$0 0 24;
+#X obj 710 184 s \$0-rel-n;
+#X obj 756 257 s \$0-thresh-n;
+#X obj 718 324 s \$0-ratio-n;
+#X obj 700 396 s \$0-knee-n;
+#X obj 628 542 s \$0-makeup-n;
+#X obj 362 430 s \$0-p;
+#X obj 171 362 r \$0-rms-peak;
+#X obj 172 407 s \$0-rms-peak;
+#X msg 362 408 control #1 \$1;
+#X obj 391 354 s \$0-rms-n;
+#X obj 171 385 scale-commun /rms-peak \$0 0.001 1;
+#X obj 725 113 s \$0-att-n;
+#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 19 0 21 0;
+#X connect 20 0 18 0;
+#X connect 21 0 22 0;
+#X connect 21 1 20 0;
+#X connect 21 1 60 0;
+#X connect 24 0 27 0;
+#X connect 26 0 23 0;
+#X connect 27 0 25 0;
+#X connect 27 1 26 0;
+#X connect 27 1 49 0;
+#X connect 29 0 32 0;
+#X connect 31 0 28 0;
+#X connect 32 0 30 0;
+#X connect 32 1 31 0;
+#X connect 32 1 50 0;
+#X connect 34 0 33 0;
+#X connect 35 0 37 0;
+#X connect 37 0 36 0;
+#X connect 37 1 34 0;
+#X connect 37 1 51 0;
+#X connect 39 0 42 0;
+#X connect 41 0 38 0;
+#X connect 42 0 40 0;
+#X connect 42 1 41 0;
+#X connect 42 1 52 0;
+#X connect 44 0 43 0;
+#X connect 45 0 48 0;
+#X connect 47 0 44 0;
+#X connect 48 0 46 0;
+#X connect 48 1 44 0;
+#X connect 48 1 53 0;
+#X connect 55 0 59 0;
+#X connect 57 0 54 0;
+#X connect 59 0 56 0;
+#X connect 59 1 57 0;
+#X connect 59 1 58 0;
+#X restore 372 2 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 297 2 pd cnv.ctl;
+#X obj 220 25 vradio 15 1 0 3 \$0-substate \$0-substate-r empty 0 -6
+0 8 -260818 -1 -1 0;
+#X obj 220 116 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271
+-1 -1;
+#X obj 220 87 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472
+-1 -1;
+#X text 185 2 look! ==>;
+#X obj 372 23 outlet OSC;
+#N canvas 0 0 450 300 engine 0;
+#X obj 137 106 plugin~ sc4;
+#X msg 131 80 print;
+#X obj 178 27 inlet~;
+#X obj 231 27 inlet~;
+#X obj 182 146 outlet~;
+#X obj 236 147 outlet~;
+#X obj 77 83 r \$0-p;
+#X obj 53 206 print plug;
+#X obj 52 141 spigot;
+#X obj 79 181 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X connect 0 1 4 0;
+#X connect 0 2 5 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 1;
+#X connect 3 0 0 2;
+#X connect 6 0 0 0;
+#X connect 6 0 8 0;
+#X connect 8 0 7 0;
+#X connect 9 0 8 1;
+#X restore 261 59 pd engine;
+#X obj 249 32 inlet~;
+#X obj 305 36 inlet~;
+#X obj 253 87 outlet~;
+#X obj 309 93 outlet~;
+#X obj 10 36 vsl 12 64 0 127 0 0 \$0-rms-peak \$0-rms-peak rms-peak
+0 -8 0 8 -233017 -1 -1 0 1;
+#X obj 30 47 vsl 12 64 0 127 0 0 \$0-att \$0-att att 0 -8 0 8 -195568
+-1 -1 707 1;
+#X obj 54 48 vsl 12 64 0 127 0 0 \$0-rel \$0-rel rel 0 -8 0 8 -166441
+-1 -1 2100 1;
+#X obj 82 42 vsl 12 64 0 127 0 0 \$0-thresh \$0-thresh thresh 0 -8
+0 8 -261681 -1 -1 600 1;
+#X obj 108 53 vsl 12 64 0 127 0 0 \$0-ratio \$0-ratio ratio 0 -8 0
+8 -241291 -1 -1 5328 1;
+#X obj 139 61 vsl 12 64 0 127 0 0 \$0-knee \$0-knee knee 0 -8 0 8 -225271
+-1 -1 3736 1;
+#X obj 169 44 vsl 12 64 0 127 0 0 \$0-makeup \$0-makeup makeup 0 -8
+0 8 -257472 -1 -1 2400 1;
+#X obj 4 115 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-rms-n empty 0 -6 0
+8 -233017 -1 -1 0.334 256;
+#X obj 28 127 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-att-n empty 0 -6
+0 8 -195568 -1 -1 46.2206 256;
+#X obj 56 118 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-rel-n empty 0 -6
+0 8 -195568 -1 -1 268 256;
+#X obj 77 127 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-thresh-n empty 0
+-6 0 8 -261681 -1 -1 -27.1429 256;
+#X obj 109 129 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-ratio-n empty 0
+-6 0 8 -241291 -1 -1 17.0686 256;
+#X obj 147 130 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-knee-n empty 0 -6
+0 8 -225271 -1 -1 6.33714 256;
+#X obj 166 116 nbx 3 10 -1e+37 1e+37 0 0 empty \$0-makeup-n empty 0
+-6 0 8 -257472 -1 -1 9.14286 256;
+#X connect 1 0 2 1;
+#X connect 2 0 8 0;
+#X connect 9 0 12 0;
+#X connect 9 1 13 0;
+#X connect 10 0 9 0;
+#X connect 11 0 9 1;
+#X coords 0 0 1 1 250 140 1;
-- 
cgit v1.2.1