checking in some more abstractions

svn path=/trunk/abstractions/tb/; revision=3984

14 files changed, 697 insertions, 0 deletions

diff --git a/bpe.py b/bpe.py
new file mode 100644
index 0000000..eb6dea5
--- /dev/null
+++ b/bpe.py
@@ -0,0 +1,91 @@
+# $Id: bpe.py,v 1.1 2005-11-20 00:31:44 timblech Exp $
+#
+# Copyright (C) 2005  Tim Blechmann
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; see the file COPYING.  If not, write to
+# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA.
+
+
+import pyext
+
+def parse_arguments(*args):
+	duration = args[0]
+	if duration == 0:
+		return args[1:]
+	
+	length = len(args)
+	durations = []
+	breakpoints = []
+	for i in range(1,length):
+		if i % 2 == 0:
+			durations.append(args[i])
+		else:
+			breakpoints.append(args[i])
+	duration_factor = duration / reduce(lambda x,y: x + y, durations)
+	
+	durations = map(lambda x: x*duration_factor, durations)
+
+	ret = []
+
+	for i in range(len(durations)):
+		ret.append(breakpoints[i])
+		ret.append(durations[i])
+	ret[-2] = ret[0]
+	return ret
+	
+class Bpe(pyext._class):
+	_inlets = 1
+	_outlets = 1
+
+	def list_1(self, *args):
+		if args[0] != 0:
+			self._outlet(1,parse_arguments(*args))
+
+class VolBpe(pyext._class):
+	_inlets = 3
+	_outlets = 1
+
+	def __init__(self, dollar1):
+		try:
+			self.duration = 1000 / dollar1
+		except:
+			self.duration = 1000
+		self._detach = 1
+		self._priority(-20)
+
+		self.bpe = []
+		self.running = False
+		
+	def list_1(self, *args):
+		arglist = list(args)
+		arguments = [self.duration] + arglist
+		self.bpe = arglist
+		self._outlet(1,parse_arguments(*arguments))
+		if not self.running:
+			self._outlet(1, None)
+			self.running = True
+			
+	def float_2(self, freq):
+		self.duration = 1000 / freq;
+		arguments = self.duration + self.bpe
+		self._outlet(1,parse_arguments(*arguments))
+
+	
+	def float_3(self, switch):
+		if switch == 0:
+			self._outlet(1, self.bpe[0], 0, self.bpe[0], self.duration)
+		else:
+			self._outlet(1, self.bpe)
+	
diff --git a/dacer~.pd b/dacer~.pd
new file mode 100644
index 0000000..b1737fa
--- /dev/null
+++ b/dacer~.pd
@@ -0,0 +1,21 @@
+#N canvas 222 205 333 242 10;
+#X obj 4 91 inlet~;
+#X obj 109 91 inlet~;
+#X obj 4 129 volctl~ 0 100;
+#X obj 109 129 volctl~ 0 100;
+#X obj 34 180 dac~;
+#X floatatom 17 20 5 0 0 0 - - -;
+#X obj 4 110 hip~ 5;
+#X obj 109 110 hip~ 5;
+#X obj 47 67 dbtorms;
+#X text 11 217 $Id: dacer~.pd 194 2005-11-20 01:17:05Z tim $;
+#X connect 0 0 6 0;
+#X connect 1 0 7 0;
+#X connect 2 0 4 0;
+#X connect 3 0 4 1;
+#X connect 5 0 8 0;
+#X connect 6 0 2 0;
+#X connect 7 0 3 0;
+#X connect 8 0 2 1;
+#X connect 8 0 3 1;
+#X coords 0 0 1 1 60 40 1 0 0;
diff --git a/le3dp.pd b/le3dp.pd
new file mode 100644
index 0000000..918d0fd
--- /dev/null
+++ b/le3dp.pd
@@ -0,0 +1,135 @@
+#N canvas 163 335 546 315 10;
+#X obj 8 10 init 1;
+#N canvas 95 25 450 300 axis 0;
+#X obj -80 4 inlet;
+#X obj 117 121 zmap_lin 255 0 0 1;
+#X obj 117 187 s le3dp-throttle;
+#X obj -80 41 route abs_x abs_y abs_rz abs_throttle abs_hat0x abs_hat0y
+;
+#X obj 182 61 s le3dp-hatx;
+#X obj 248 81 s le3dp-haty;
+#X obj 314 61 assert;
+#N canvas 498 328 450 300 z 0;
+#X obj 24 15 inlet;
+#X obj 24 164 s le3dp-z;
+#X obj 24 45 moses 128;
+#X obj 82 65 moses 144;
+#X obj 82 85 b;
+#X obj 82 104 0;
+#X obj 24 141 zmap_lin 0 128 -1 0;
+#X obj 140 85 zmap_lin 144 255 0 1;
+#X connect 0 0 2 0;
+#X connect 2 0 6 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 7 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 1 0;
+#X restore 51 109 pd z;
+#N canvas 496 358 450 300 x 0;
+#X obj -70 11 inlet;
+#X obj -70 145 s le3dp-x;
+#X obj -70 31 moses 508;
+#X obj -12 50 moses 520;
+#X obj -12 69 b;
+#X obj -12 88 0;
+#X obj -70 126 zmap_lin 0 508 -1 0;
+#X obj 46 69 zmap_lin 520 1023 0 1;
+#X connect 0 0 2 0;
+#X connect 2 0 6 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 7 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 1 0;
+#X restore -80 80 pd x;
+#N canvas 496 358 450 300 y 0;
+#X obj -70 11 inlet;
+#X obj -12 69 b;
+#X obj -12 88 0;
+#X obj -70 145 s le3dp-y;
+#X obj -70 31 moses 486;
+#X obj -12 50 moses 512;
+#X obj -70 126 zmap_lin 0 486 -1 0;
+#X obj 46 69 zmap_lin 512 1023 0 1;
+#X connect 0 0 4 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 4 0 6 0;
+#X connect 4 1 5 0;
+#X connect 5 0 1 0;
+#X connect 5 1 7 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 0;
+#X restore -15 82 pd y;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 3 0 8 0;
+#X connect 3 1 9 0;
+#X connect 3 2 7 0;
+#X connect 3 3 1 0;
+#X connect 3 4 4 0;
+#X connect 3 5 5 0;
+#X connect 3 6 6 0;
+#X restore 8 245 pd axis;
+#X obj 8 221 route abs key;
+#N canvas 0 0 450 300 buttons 0;
+#X obj 12 10 inlet;
+#X obj 12 32 route btn_0 btn_1 btn_2 btn_3 btn_4 btn_5 btn_6 btn_7
+btn_8 btn_9 btn_10 btn_11;
+#X obj 12 68 s le3dp-b1;
+#X obj 386 186 s le3dp-b12;
+#X obj 352 166 s le3dp-b11;
+#X obj 318 146 s le3dp-b10;
+#X obj 284 126 s le3dp-b9;
+#X obj 250 106 s le3dp-b8;
+#X obj 216 86 s le3dp-b7;
+#X obj 182 190 s le3dp-b6;
+#X obj 148 165 s le3dp-b5;
+#X obj 114 138 s le3dp-b4;
+#X obj 80 116 s le3dp-b3;
+#X obj 46 92 s le3dp-b2;
+#X obj 420 70 assert;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 13 0;
+#X connect 1 2 12 0;
+#X connect 1 3 11 0;
+#X connect 1 4 10 0;
+#X connect 1 5 9 0;
+#X connect 1 6 8 0;
+#X connect 1 7 7 0;
+#X connect 1 8 6 0;
+#X connect 1 9 5 0;
+#X connect 1 10 4 0;
+#X connect 1 11 3 0;
+#X connect 1 12 14 0;
+#X restore 51 266 pd buttons;
+#X msg 38 60 find Logitech Extreme 3D;
+#X obj 38 172 prepend open;
+#X obj 38 84 py find_hid;
+#X obj 8 39 t f b;
+#X obj 8 199 hid;
+#X obj 38 106 route -1;
+#X obj 38 126 0;
+#X obj 8 148 spigot 1;
+#X text 12 294 $Id: le3dp.pd 194 2005-11-20 01:17:05Z tim $;
+#X text 116 220 abstraction to use a Logitech Extreme 3D Joystick with
+hid under linux;
+#X connect 0 0 7 0;
+#X connect 2 0 1 0;
+#X connect 2 1 3 0;
+#X connect 4 0 6 1;
+#X connect 5 0 8 0;
+#X connect 6 0 9 0;
+#X connect 7 0 11 0;
+#X connect 7 1 4 0;
+#X connect 8 0 2 0;
+#X connect 9 0 10 0;
+#X connect 9 1 5 0;
+#X connect 10 0 11 1;
+#X connect 11 0 8 0;
diff --git a/sigmoid_booster~.pd b/sigmoid_booster~.pd
new file mode 100644
index 0000000..fd47063
--- /dev/null
+++ b/sigmoid_booster~.pd
@@ -0,0 +1,35 @@
+#N canvas 488 227 567 322 10;
+#X obj 69 40 dbtorms;
+#X obj 69 21 inlet pregain;
+#X obj 26 1 inlet~;
+#X obj 26 78 *~ -5;
+#X obj 26 135 pow~;
+#X obj 26 154 +~ 1;
+#X obj 26 222 -~ 1;
+#X obj 123 216 dbtorms;
+#X obj 123 197 inlet postgain;
+#X obj 26 262 outlet~;
+#X obj 26 59 volctl~ \$1 10;
+#X obj 26 241 volctl~ \$2 10;
+#X obj 49 97 init 1;
+#X obj 49 116 exp;
+#X text 203 21 direct port of TAP Sigmoid Booster by Tom Szilagyi \,
+except that it's using pd's db scaling instead of tap's;
+#X obj 26 181 sig~ 2;
+#X obj 26 203 /~;
+#X text 28 287 $Id: sigmoid_booster~.pd 194 2005-11-20 01:17:05Z tim $;
+#X connect 0 0 10 1;
+#X connect 1 0 0 0;
+#X connect 2 0 10 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 16 1;
+#X connect 6 0 11 0;
+#X connect 7 0 11 1;
+#X connect 8 0 7 0;
+#X connect 10 0 3 0;
+#X connect 11 0 9 0;
+#X connect 12 0 13 0;
+#X connect 13 0 4 1;
+#X connect 15 0 16 0;
+#X connect 16 0 6 0;
diff --git a/tbEnvify~-help.pd b/tbEnvify~-help.pd
new file mode 100644
index 0000000..1893b66
--- /dev/null
+++ b/tbEnvify~-help.pd
@@ -0,0 +1,24 @@
+#N canvas 394 35 818 634 10;
+#X obj 21 324 tbEnvify~;
+#X obj 291 185 Scope~ 456 390 256 3 128 -1 1 0 0 0 0 102 255 51 135
+135 135 0;
+#X obj 21 366 dacer~;
+#X msg 173 40 1000 sine 1 0.1;
+#X msg 151 9 1000 triangle 1 0.1;
+#X msg 183 64 1000 hanning 1 0.1;
+#X msg 193 85 1000 bpe 0 0 1 1 0.2 1 0 1;
+#X obj 20 272 osc~ 440;
+#X msg 204 109 1000 bpe-smooth 0 0 1 1 0.2 1 0 1 2000 8000;
+#X msg 214 133 1000 bpe-slide 0 0 1 1 0.2 1 0 1 4000 8000;
+#X text 344 36 $Id$;
+#X text 344 17 a simple envelope generator;
+#X connect 0 0 1 0;
+#X connect 0 0 2 0;
+#X connect 0 0 2 1;
+#X connect 3 0 0 1;
+#X connect 4 0 0 1;
+#X connect 5 0 0 1;
+#X connect 6 0 0 1;
+#X connect 7 0 0 0;
+#X connect 8 0 0 1;
+#X connect 9 0 0 1;
diff --git a/tbEnvify~.pd b/tbEnvify~.pd
new file mode 100644
index 0000000..690ac52
--- /dev/null
+++ b/tbEnvify~.pd
@@ -0,0 +1,82 @@
+#N canvas 599 226 536 134 10;
+#X obj 28 19 inlet~;
+#X obj 28 81 outlet~;
+#N canvas 171 233 452 345 controls 0;
+#X obj 54 13 inlet;
+#X obj 54 255 s \$0-triangle;
+#X text 96 13 duration type (arguments);
+#X text 105 217 type duration (arguments);
+#X obj 54 139 zl slice 2;
+#X obj 54 194 zl join;
+#X obj 54 165 zl rev;
+#X obj 84 57 zl len;
+#X obj 54 36 t a a;
+#X obj 84 79 <= 2;
+#X obj 54 104 demux;
+#X obj 147 166 zl rev;
+#X obj 107 274 s \$0-sine;
+#X obj 160 293 s \$0-hanning;
+#X obj 213 313 s \$0-bpe;
+#X obj 285 264 s \$0-bpe_rampsmooth;
+#X obj 54 236 route triangle sine hanning bpe bpe-smooth bpe-slide
+;
+#X obj 302 313 s \$0-bpe_slide;
+#X connect 0 0 8 0;
+#X connect 4 0 6 0;
+#X connect 4 1 5 1;
+#X connect 5 0 16 0;
+#X connect 6 0 5 0;
+#X connect 7 0 9 0;
+#X connect 8 0 10 0;
+#X connect 8 1 7 0;
+#X connect 9 0 10 1;
+#X connect 10 0 4 0;
+#X connect 10 1 11 0;
+#X connect 11 0 16 0;
+#X connect 16 0 1 0;
+#X connect 16 1 12 0;
+#X connect 16 2 13 0;
+#X connect 16 3 14 0;
+#X connect 16 4 15 0;
+#X connect 16 5 17 0;
+#X restore 142 41 pd controls;
+#N canvas 515 174 450 300 envelopes 1;
+#X obj 170 8 r \$0-triangle;
+#X obj 14 27 ./tbEnvify~/triangle \$0;
+#X obj 142 50 r \$0-sine;
+#X obj 14 69 ./tbEnvify~/sine \$0;
+#X obj 163 90 r \$0-hanning;
+#X obj 14 109 ./tbEnvify~/hanning \$0;
+#X obj 14 7 inlet~;
+#X obj 14 266 outlet~;
+#X text 223 42 ugly but fast and no latency;
+#X obj 135 133 r \$0-bpe;
+#X obj 212 173 r \$0-bpe_rampsmooth;
+#X obj 179 213 r \$0-bpe_slide;
+#X obj 14 159 ./tbEnvify~/bpe \$0;
+#X obj 14 193 ./tbEnvify~/bpe_rampsmooth \$0;
+#X obj 14 233 ./tbEnvify~/bpe_slide \$0;
+#X connect 0 0 1 1;
+#X connect 1 0 7 0;
+#X connect 2 0 3 1;
+#X connect 3 0 7 0;
+#X connect 4 0 5 1;
+#X connect 5 0 7 0;
+#X connect 6 0 1 0;
+#X connect 6 0 3 0;
+#X connect 6 0 5 0;
+#X connect 6 0 12 0;
+#X connect 6 0 13 0;
+#X connect 6 0 14 0;
+#X connect 9 0 12 1;
+#X connect 10 0 13 1;
+#X connect 11 0 14 1;
+#X connect 12 0 7 0;
+#X connect 13 0 7 0;
+#X connect 14 0 7 0;
+#X restore 28 45 pd envelopes;
+#X obj 142 17 inlet duration_type_volume_(arguments);
+#X text 31 105 $Id$;
+#X connect 0 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
diff --git a/tbEnvify~/_bpe_stuff.pd b/tbEnvify~/_bpe_stuff.pd
new file mode 100644
index 0000000..ed20a63
--- /dev/null
+++ b/tbEnvify~/_bpe_stuff.pd
@@ -0,0 +1,34 @@
+#N canvas 0 0 631 540 10;
+#X obj 204 21 inlet control;
+#X obj 455 328 1;
+#X obj 413 286 delay;
+#X obj 413 307 0;
+#X obj 455 198 t b b;
+#X obj 485 219 zl reg stop;
+#X obj 413 350 pre_switch 10;
+#X obj 55 131 t b a;
+#X obj 55 250 bpe ---;
+#X obj 413 267 10;
+#X obj 204 42 t a b;
+#X obj 413 399 outlet switch~;
+#X obj 55 286 outlet factor;
+#X obj 77 309 outlet time;
+#X obj 55 80 py bpe parse_arguments @detach 0;
+#X text 47 460 $Id: _bpe_stuff.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 10 0;
+#X connect 1 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 1 0;
+#X connect 4 1 5 0;
+#X connect 5 0 2 0;
+#X connect 6 0 11 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 0;
+#X connect 8 0 12 0;
+#X connect 8 1 13 0;
+#X connect 8 2 9 0;
+#X connect 9 0 2 0;
+#X connect 10 0 14 1;
+#X connect 10 1 4 0;
+#X connect 14 0 7 0;
diff --git a/tbEnvify~/_env_lookup~.pd b/tbEnvify~/_env_lookup~.pd
new file mode 100644
index 0000000..2588f7b
--- /dev/null
+++ b/tbEnvify~/_env_lookup~.pd
@@ -0,0 +1,31 @@
+#N canvas 518 105 575 385 10;
+#X obj 45 31 inlet duration;
+#X obj 148 31 inlet peak_time;
+#X obj 45 98 *;
+#X obj 45 61 t f f;
+#X obj 45 215 t b f;
+#X obj 67 148 delay;
+#X obj 45 119 t f f f;
+#X obj 89 169 !-;
+#X obj 67 193 pack 0 f;
+#X obj 45 276 line~;
+#X text 339 80 \$1 max_scaling;
+#X obj 45 246 pack \$1 f;
+#X obj 45 299 outlet~;
+#X text 101 300 outlet function;
+#X text 47 329 $Id: _env_lookup~.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 3 0;
+#X connect 1 0 2 1;
+#X connect 2 0 6 0;
+#X connect 3 0 2 0;
+#X connect 3 1 7 1;
+#X connect 4 0 11 0;
+#X connect 4 1 11 1;
+#X connect 5 0 8 0;
+#X connect 6 0 4 0;
+#X connect 6 1 5 0;
+#X connect 6 2 7 0;
+#X connect 7 0 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 11 0 9 0;
diff --git a/tbEnvify~/bpe.pd b/tbEnvify~/bpe.pd
new file mode 100644
index 0000000..321c4bb
--- /dev/null
+++ b/tbEnvify~/bpe.pd
@@ -0,0 +1,15 @@
+#N canvas 365 133 527 148 10;
+#X obj 19 59 volctl~ 0 0;
+#X obj 204 15 inlet control;
+#X obj 269 70 switch~;
+#X obj 19 11 inlet~;
+#X obj 19 80 outlet~;
+#X text 304 14 duration [bp time] * n;
+#X obj 204 42 _bpe_stuff;
+#X text 21 119 $Id: bpe.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 4 0;
+#X connect 1 0 6 0;
+#X connect 3 0 0 0;
+#X connect 6 0 0 1;
+#X connect 6 1 0 2;
+#X connect 6 2 2 0;
diff --git a/tbEnvify~/bpe_rampsmooth.pd b/tbEnvify~/bpe_rampsmooth.pd
new file mode 100644
index 0000000..b0d53c4
--- /dev/null
+++ b/tbEnvify~/bpe_rampsmooth.pd
@@ -0,0 +1,40 @@
+#N canvas 20 105 625 441 10;
+#X obj 204 15 inlet control;
+#X obj 269 332 switch~;
+#X obj 19 11 inlet~;
+#X obj 19 379 outlet~;
+#X text 304 14 duration [bp time] * n;
+#X obj 204 92 _bpe_stuff;
+#X obj 204 47 zl ecils 2;
+#X obj 19 360 *~;
+#X obj 36 164 pack f f;
+#X obj 36 188 line~;
+#X obj 36 231 rampsmooth~;
+#X obj 162 131 unpack f f;
+#X obj 162 193 prepend rampup;
+#X obj 227 214 prepend rampdown;
+#X obj 269 259 sel 1;
+#X obj 269 281 1;
+#X obj 72 262 edge~;
+#X obj 102 282 0;
+#X text 21 407 $Id: bpe_rampsmooth.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 6 0;
+#X connect 2 0 7 0;
+#X connect 5 0 8 0;
+#X connect 5 1 8 1;
+#X connect 5 2 14 0;
+#X connect 6 0 5 0;
+#X connect 6 1 11 0;
+#X connect 7 0 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 7 1;
+#X connect 10 0 16 0;
+#X connect 11 0 12 0;
+#X connect 11 1 13 0;
+#X connect 12 0 10 0;
+#X connect 13 0 10 0;
+#X connect 14 0 15 0;
+#X connect 15 0 1 0;
+#X connect 16 1 17 0;
+#X connect 17 0 1 0;
diff --git a/tbEnvify~/bpe_slide.pd b/tbEnvify~/bpe_slide.pd
new file mode 100644
index 0000000..28eb4d6
--- /dev/null
+++ b/tbEnvify~/bpe_slide.pd
@@ -0,0 +1,40 @@
+#N canvas 84 183 625 441 10;
+#X obj 204 15 inlet control;
+#X obj 269 332 switch~;
+#X obj 19 11 inlet~;
+#X obj 19 379 outlet~;
+#X text 304 14 duration [bp time] * n;
+#X obj 204 92 _bpe_stuff;
+#X obj 204 47 zl ecils 2;
+#X obj 19 360 *~;
+#X obj 36 164 pack f f;
+#X obj 36 188 line~;
+#X obj 162 124 unpack f f;
+#X obj 162 152 t f f;
+#X obj 227 152 t f f;
+#X obj 269 252 sel 1;
+#X obj 269 273 1;
+#X obj 121 271 edge~;
+#X obj 37 231 slide~;
+#X obj 151 291 0;
+#X text 21 401 $Id: bpe_slide.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 6 0;
+#X connect 2 0 7 0;
+#X connect 5 0 8 0;
+#X connect 5 1 8 1;
+#X connect 5 2 13 0;
+#X connect 6 0 5 0;
+#X connect 6 1 10 0;
+#X connect 7 0 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 16 0;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 11 0 16 1;
+#X connect 12 0 16 2;
+#X connect 13 0 14 0;
+#X connect 14 0 1 0;
+#X connect 15 1 17 0;
+#X connect 16 0 7 1;
+#X connect 16 0 15 0;
+#X connect 17 0 1 0;
diff --git a/tbEnvify~/hanning.pd b/tbEnvify~/hanning.pd
new file mode 100644
index 0000000..b6c8c9f
--- /dev/null
+++ b/tbEnvify~/hanning.pd
@@ -0,0 +1,48 @@
+#N canvas 121 117 559 504 10;
+#X obj 177 15 inlet control;
+#X obj 177 40 t a b;
+#X text 277 14 duration peak peak_time;
+#X obj 177 65 unpack f f f;
+#X obj 19 378 *~ 0;
+#X obj 20 359 *~;
+#X obj 323 339 switch~;
+#X obj 365 268 1;
+#X obj 323 226 delay;
+#X obj 323 247 0;
+#X obj 323 204 + 10;
+#X obj 365 138 t b b;
+#X obj 395 159 zl reg stop;
+#X obj 323 290 pre_switch 10;
+#X obj 56 335 +~ 1;
+#X obj 216 361 * 0.5;
+#X obj 177 92 t f f;
+#X obj 55 288 cos~;
+#X obj 56 312 *~ -1;
+#X obj 19 11 inlet~;
+#X obj 19 399 outlet~;
+#X obj 55 268 _env_lookup~ 0.5;
+#X text 21 425 $Id: hanning.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 1 1 11 0;
+#X connect 3 0 16 0;
+#X connect 3 1 15 0;
+#X connect 3 2 21 1;
+#X connect 4 0 20 0;
+#X connect 5 0 4 0;
+#X connect 7 0 13 0;
+#X connect 8 0 9 0;
+#X connect 9 0 13 0;
+#X connect 10 0 8 0;
+#X connect 11 0 7 0;
+#X connect 11 1 12 0;
+#X connect 12 0 8 0;
+#X connect 13 0 6 0;
+#X connect 14 0 5 1;
+#X connect 15 0 4 1;
+#X connect 16 0 21 0;
+#X connect 16 1 10 0;
+#X connect 17 0 18 0;
+#X connect 18 0 14 0;
+#X connect 19 0 5 0;
+#X connect 21 0 17 0;
diff --git a/tbEnvify~/sine.pd b/tbEnvify~/sine.pd
new file mode 100644
index 0000000..abc725a
--- /dev/null
+++ b/tbEnvify~/sine.pd
@@ -0,0 +1,42 @@
+#N canvas 0 0 555 438 10;
+#X obj 177 15 inlet control;
+#X obj 177 40 t a b;
+#X text 277 14 duration peak peak_time;
+#X obj 177 65 unpack f f f;
+#X obj 55 288 sinx~;
+#X obj 19 338 *~ 0;
+#X obj 20 315 *~;
+#X obj 323 339 switch~;
+#X obj 365 268 1;
+#X obj 323 226 delay;
+#X obj 323 247 0;
+#X obj 323 204 + 10;
+#X obj 365 138 t b b;
+#X obj 395 159 zl reg stop;
+#X obj 323 290 pre_switch 10;
+#X obj 55 268 _env_lookup~ 1.5708;
+#X obj 177 92 t f f;
+#X obj 19 11 inlet~;
+#X obj 19 359 outlet~;
+#X text 19 385 $Id: sine.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 1 1 12 0;
+#X connect 3 0 16 0;
+#X connect 3 1 5 1;
+#X connect 3 2 15 1;
+#X connect 4 0 6 1;
+#X connect 5 0 18 0;
+#X connect 6 0 5 0;
+#X connect 8 0 14 0;
+#X connect 9 0 10 0;
+#X connect 10 0 14 0;
+#X connect 11 0 9 0;
+#X connect 12 0 8 0;
+#X connect 12 1 13 0;
+#X connect 13 0 9 0;
+#X connect 14 0 7 0;
+#X connect 15 0 4 0;
+#X connect 16 0 15 0;
+#X connect 16 1 11 0;
+#X connect 17 0 6 0;
diff --git a/tbEnvify~/triangle.pd b/tbEnvify~/triangle.pd
new file mode 100644
index 0000000..b302a27
--- /dev/null
+++ b/tbEnvify~/triangle.pd
@@ -0,0 +1,59 @@
+#N canvas 569 176 587 435 10;
+#X obj 19 292 volctl~ 0 0;
+#X obj 177 15 inlet control;
+#X obj 413 339 switch~;
+#X obj 177 40 t a b;
+#X obj 455 268 1;
+#X obj 413 226 delay;
+#X obj 413 247 0;
+#X obj 177 120 *;
+#X obj 55 156 t b f;
+#X obj 199 168 delay;
+#X obj 177 139 t f f f;
+#X obj 221 189 !-;
+#X obj 177 92 t f f f;
+#X obj 199 212 t b b;
+#X obj 229 238 f;
+#X obj 199 238 0;
+#X text 277 14 duration peak peak_time;
+#X obj 177 65 unpack f f f;
+#X obj 55 176 f;
+#X obj 413 204 + 10;
+#X obj 455 138 t b b;
+#X obj 485 159 zl reg stop;
+#X obj 413 290 pre_switch 10;
+#X obj 19 11 inlet~;
+#X obj 19 313 outlet~;
+#X text 23 391 $Id: triangle.pd 195 2005-11-20 01:25:43Z tim $;
+#X connect 0 0 24 0;
+#X connect 1 0 3 0;
+#X connect 3 0 17 0;
+#X connect 3 1 20 0;
+#X connect 4 0 22 0;
+#X connect 5 0 6 0;
+#X connect 6 0 22 0;
+#X connect 7 0 10 0;
+#X connect 8 0 18 0;
+#X connect 8 1 0 2;
+#X connect 9 0 13 0;
+#X connect 10 0 8 0;
+#X connect 10 1 9 0;
+#X connect 10 2 11 0;
+#X connect 11 0 14 1;
+#X connect 12 0 7 0;
+#X connect 12 1 11 1;
+#X connect 12 2 19 0;
+#X connect 13 0 15 0;
+#X connect 13 1 14 0;
+#X connect 14 0 0 2;
+#X connect 15 0 0 1;
+#X connect 17 0 12 0;
+#X connect 17 1 18 1;
+#X connect 17 2 7 1;
+#X connect 18 0 0 1;
+#X connect 19 0 5 0;
+#X connect 20 0 4 0;
+#X connect 20 1 21 0;
+#X connect 21 0 5 0;
+#X connect 22 0 2 0;
+#X connect 23 0 0 0;