From 47a0c01e07b0c397376dfdaba4d8493aa69991a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Sun, 6 Oct 2002 05:14:51 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r159, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/vadsr~/; revision=160
---
 vadsr~.pd | 111 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 111 insertions(+)
 create mode 100644 vadsr~.pd

(limited to 'vadsr~.pd')

diff --git a/vadsr~.pd b/vadsr~.pd
new file mode 100644
index 0000000..4bb856a
--- /dev/null
+++ b/vadsr~.pd
@@ -0,0 +1,111 @@
+#N canvas 111 20 661 475 10;
+#X obj 189 504 outlet~;
+#X obj 109 5 inlet;
+#X obj 95 187 line~;
+#X obj 326 191 line~;
+#X obj 205 188 line~;
+#X obj 189 416 *~;
+#X obj 189 440 *~;
+#X obj 119 153 pack f f;
+#X obj 192 153 pack f f;
+#X obj 320 157 pack f f;
+#X obj 212 71 unpack f f f f;
+#X msg 271 154 1;
+#X msg 67 148 1;
+#X msg 367 119 0;
+#X obj 192 108 del;
+#X msg 192 131 0;
+#X obj 205 318 +~;
+#X obj 221 270 expr 1 - $f1;
+#X obj 205 294 *~;
+#X msg 152 80 bang;
+#X obj 67 91 t b b b;
+#X obj 93 487 snapshot~;
+#X msg 119 132 0;
+#X obj 93 378 +~;
+#X obj 22 296 expr 1 - $f1;
+#X obj 93 355 *~;
+#X text 410 19 analog-style envelope generator;
+#X msg 358 301 <attack> <decay> <sustain> <release>;
+#X text 346 281 to set up:;
+#X text 349 371 attack:;
+#X msg 420 368 a;
+#X text 350 397 release:;
+#X msg 420 394 r;
+#X text 372 493 Ben Saylor <bsaylor@macalester.edu>;
+#X text 357 320 (times are in ms \, sustain level is 0..1);
+#X obj 19 148 s \$0-a;
+#X obj 159 58 s \$0-r;
+#X obj 367 96 r \$0-r;
+#X obj 271 132 r \$0-a;
+#X obj 93 461 r \$0-snap;
+#X obj 121 111 s \$0-snap;
+#X obj 240 32 pack \$1 \$2 \$3 \$4;
+#X obj 240 7 loadbang;
+#X text 356 343 (or give as creation args);
+#X obj 337 232 expr~ pow($v1 \, $v2);
+#X obj 205 244 expr~ pow($v1 \, $v2);
+#X obj 109 28 route a r curves;
+#X obj 465 207 sig~ 4;
+#X obj 289 208 sig~ 4;
+#X obj 145 211 sig~ 4;
+#X obj 432 100 unpack f f f;
+#X msg 352 421 curves <attack> <decay> <release>;
+#X text 364 444 higher values -> more curved;
+#X text 388 461 (default is 4 4 4);
+#X obj 8 257 expr~ pow($v1 \, $v2) * -1 + 1;
+#X connect 1 0 46 0;
+#X connect 2 0 54 0;
+#X connect 3 0 44 0;
+#X connect 4 0 45 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 6 0 21 0;
+#X connect 7 0 2 0;
+#X connect 8 0 4 0;
+#X connect 9 0 3 0;
+#X connect 10 0 7 1;
+#X connect 10 0 14 1;
+#X connect 10 1 8 1;
+#X connect 10 2 16 1;
+#X connect 10 2 17 0;
+#X connect 10 3 9 1;
+#X connect 11 0 3 0;
+#X connect 11 0 4 0;
+#X connect 12 0 2 0;
+#X connect 13 0 9 0;
+#X connect 14 0 15 0;
+#X connect 15 0 8 0;
+#X connect 16 0 5 1;
+#X connect 17 0 18 1;
+#X connect 18 0 16 0;
+#X connect 19 0 14 0;
+#X connect 20 0 22 0;
+#X connect 20 0 35 0;
+#X connect 20 1 12 0;
+#X connect 20 2 40 0;
+#X connect 21 0 23 1;
+#X connect 21 0 24 0;
+#X connect 22 0 7 0;
+#X connect 23 0 5 0;
+#X connect 24 0 25 1;
+#X connect 25 0 23 0;
+#X connect 37 0 13 0;
+#X connect 38 0 11 0;
+#X connect 39 0 21 0;
+#X connect 41 0 10 0;
+#X connect 42 0 41 0;
+#X connect 44 0 6 1;
+#X connect 45 0 18 0;
+#X connect 46 0 19 0;
+#X connect 46 0 20 0;
+#X connect 46 1 36 0;
+#X connect 46 2 50 0;
+#X connect 46 3 10 0;
+#X connect 47 0 44 1;
+#X connect 48 0 45 1;
+#X connect 49 0 54 1;
+#X connect 50 0 49 0;
+#X connect 50 1 48 0;
+#X connect 50 2 47 0;
+#X connect 54 0 25 0;
-- 
cgit v1.2.1