From 35994ca3a4ef6a136a16cac63b4f68540d0434e1 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Fri, 23 Apr 2004 16:22:42 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r1630, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/rradical/; revision=1631
---
 effects/rrad.adsr~.pd | 202 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 202 insertions(+)
 create mode 100644 effects/rrad.adsr~.pd

(limited to 'effects/rrad.adsr~.pd')

diff --git a/effects/rrad.adsr~.pd b/effects/rrad.adsr~.pd
new file mode 100644
index 0000000..ffed044
--- /dev/null
+++ b/effects/rrad.adsr~.pd
@@ -0,0 +1,202 @@
+#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 449 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 371 422 vline~;
+#X obj 364 346 * 1;
+#X connect 1 0 4 0;
+#X connect 2 0 38 0;
+#X connect 2 0 40 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 39 0;
+#X connect 7 0 6 1;
+#X connect 7 0 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 40 0;
+#X connect 10 0 39 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 39 0;
+#X connect 38 0 6 0;
+#X connect 39 0 19 0;
+#X connect 40 0 10 0;
+#X restore 174 292 pd adsr -----------;
+#X obj 100 181 s \$0-level;
+#X obj 253 62 scale 0 127 0 200;
+#X obj 308 164 scale 0 127 0 1;
+#X obj 289 119 scale 0 127 0 200;
+#X obj 172 168 scale 0 127 0 1;
+#X obj 366 202 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 5361 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;
-- 
cgit v1.2.1