From 8c72f7bdb52c60c2b6e41f08233d2c8a86d63007 Mon Sep 17 00:00:00 2001
From: Georg Holzmann <grholzi@users.sourceforge.net>
Date: Sat, 27 Jan 2007 12:35:46 +0000
Subject: added wavelet pd examples from raul diqz poblete to cvs

svn path=/trunk/abstractions/pd-wavelet/; revision=7387
---
 abs/counter_bang.pd       | 18 ++++++++++++
 abs/index_counter.pd      | 18 ++++++++++++
 abs/modification_level.pd | 18 ++++++++++++
 abs/out_volume~.pd        | 43 +++++++++++++++++++++++++++
 abs/pow2.pd               | 11 +++++++
 abs/randomization.pd      | 38 ++++++++++++++++++++++++
 abs/route_level.pd        | 74 +++++++++++++++++++++++++++++++++++++++++++++++
 abs/until_counter.pd      | 23 +++++++++++++++
 abs/wavelet_type.pd       | 56 +++++++++++++++++++++++++++++++++++
 abs/write_coef.pd         | 16 ++++++++++
 10 files changed, 315 insertions(+)
 create mode 100644 abs/counter_bang.pd
 create mode 100644 abs/index_counter.pd
 create mode 100644 abs/modification_level.pd
 create mode 100644 abs/out_volume~.pd
 create mode 100644 abs/pow2.pd
 create mode 100644 abs/randomization.pd
 create mode 100644 abs/route_level.pd
 create mode 100644 abs/until_counter.pd
 create mode 100644 abs/wavelet_type.pd
 create mode 100644 abs/write_coef.pd

(limited to 'abs')

diff --git a/abs/counter_bang.pd b/abs/counter_bang.pd
new file mode 100644
index 0000000..af18236
--- /dev/null
+++ b/abs/counter_bang.pd
@@ -0,0 +1,18 @@
+#N canvas 214 249 246 222 10;
+#X obj 56 142 f;
+#X obj 94 142 + 1;
+#X obj 56 53 inlet;
+#X text 58 36 bang;
+#X obj 56 177 outlet;
+#X msg 69 111 0;
+#X obj 69 88 r on_bang;
+#X obj 132 178 select 2047;
+#X text 37 8 index counter from 0 to 2047;
+#X connect 0 0 1 0;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
+#X connect 5 0 0 1;
+#X connect 6 0 5 0;
+#X connect 7 0 5 0;
diff --git a/abs/index_counter.pd b/abs/index_counter.pd
new file mode 100644
index 0000000..a14dfea
--- /dev/null
+++ b/abs/index_counter.pd
@@ -0,0 +1,18 @@
+#N canvas 214 249 242 219 10;
+#X obj 58 140 f;
+#X obj 96 140 + 1;
+#X obj 58 51 inlet;
+#X text 60 34 bang;
+#X obj 58 175 outlet;
+#X msg 71 109 0;
+#X obj 71 86 r on_bang;
+#X obj 134 176 select 2047;
+#X text 33 9 index counter from 0 to 2047;
+#X connect 0 0 1 0;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
+#X connect 5 0 0 1;
+#X connect 6 0 5 0;
+#X connect 7 0 5 0;
diff --git a/abs/modification_level.pd b/abs/modification_level.pd
new file mode 100644
index 0000000..b7a79ad
--- /dev/null
+++ b/abs/modification_level.pd
@@ -0,0 +1,18 @@
+#N canvas 472 254 246 243 10;
+#X obj 52 42 inlet;
+#X obj 64 204 outlet;
+#X obj 52 77 unpack;
+#X obj 64 168 pack;
+#X obj 83 142 * 1;
+#X obj 131 77 r \$1_level;
+#X obj 83 114 * 1;
+#X obj 96 42 randomization \$1;
+#X text 18 6 modifications for specified level;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 1;
+#X connect 5 0 4 1;
+#X connect 6 0 4 0;
+#X connect 7 0 6 1;
diff --git a/abs/out_volume~.pd b/abs/out_volume~.pd
new file mode 100644
index 0000000..a299fd0
--- /dev/null
+++ b/abs/out_volume~.pd
@@ -0,0 +1,43 @@
+#N canvas 277 55 250 404 10;
+#X obj 35 76 dbtorms;
+#X obj 35 46 r gain;
+#X obj 118 138 *~;
+#X obj 35 162 line~;
+#X obj 36 235 *~;
+#X obj 37 354 dac~;
+#X obj 35 138 pack 0 50;
+#X obj 160 237 *~;
+#X obj 50 212 hip~ 3;
+#X obj 174 213 hip~ 3;
+#X obj 117 45 inlet~;
+#X obj 173 138 *~;
+#X obj 172 45 inlet~;
+#X obj 117 326 pack 0 0;
+#X obj 117 270 env~;
+#X obj 160 270 env~;
+#X obj 117 297 - 100;
+#X obj 160 297 - 100;
+#X obj 117 354 s out_level;
+#X text 51 8 volume and gain control;
+#X connect 0 0 2 1;
+#X connect 0 0 6 0;
+#X connect 0 0 11 1;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 3 0 7 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 0 14 0;
+#X connect 6 0 3 0;
+#X connect 7 0 5 1;
+#X connect 7 0 15 0;
+#X connect 8 0 4 1;
+#X connect 9 0 7 1;
+#X connect 10 0 2 0;
+#X connect 11 0 9 0;
+#X connect 12 0 11 0;
+#X connect 13 0 18 0;
+#X connect 14 0 16 0;
+#X connect 15 0 17 0;
+#X connect 16 0 13 0;
+#X connect 17 0 13 1;
diff --git a/abs/pow2.pd b/abs/pow2.pd
new file mode 100644
index 0000000..0cea1cc
--- /dev/null
+++ b/abs/pow2.pd
@@ -0,0 +1,11 @@
+#N canvas 425 364 460 310 10;
+#X obj 206 162 pow;
+#X msg 190 133 2;
+#X obj 190 104 t b f;
+#X obj 190 66 inlet;
+#X obj 206 195 outlet;
+#X connect 0 0 4 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X connect 2 1 0 1;
+#X connect 3 0 2 0;
diff --git a/abs/randomization.pd b/abs/randomization.pd
new file mode 100644
index 0000000..2ef41e4
--- /dev/null
+++ b/abs/randomization.pd
@@ -0,0 +1,38 @@
+#N canvas 110 186 246 363 10;
+#X obj 52 193 t b;
+#X obj 52 68 select 1;
+#X obj 52 92 t b;
+#X msg 95 92 stop;
+#X obj 52 323 outlet;
+#X obj 52 37 r random_toggle;
+#X obj 52 146 random 1000;
+#X obj 52 172 moses 1;
+#X obj 52 119 metro 2;
+#X obj 135 146 r \$1_freq;
+#X obj 136 184 r \$1_range;
+#X msg 136 92 1;
+#X obj 52 214 random 20;
+#X obj 52 236 - 10;
+#X obj 52 258 * 0.1;
+#X obj 52 281 pow2;
+#X obj 136 213 * 0.5;
+#X text 11 6 random generator for specified level;
+#X connect 0 0 12 0;
+#X connect 1 0 2 0;
+#X connect 1 1 3 0;
+#X connect 1 1 11 0;
+#X connect 2 0 8 0;
+#X connect 3 0 8 0;
+#X connect 5 0 1 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 1;
+#X connect 10 0 12 1;
+#X connect 10 0 16 0;
+#X connect 11 0 4 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 4 0;
+#X connect 16 0 13 1;
diff --git a/abs/route_level.pd b/abs/route_level.pd
new file mode 100644
index 0000000..6356e82
--- /dev/null
+++ b/abs/route_level.pd
@@ -0,0 +1,74 @@
+#N canvas 260 44 660 393 10;
+#X obj 372 17 inlet;
+#X obj 21 349 s out0;
+#X obj 65 349 s out1;
+#X obj 109 349 s out2;
+#X obj 153 349 s out3;
+#X obj 197 349 s out4;
+#X obj 241 349 s out5;
+#X obj 284 349 s out6;
+#X obj 328 349 s out7;
+#X obj 372 349 s out8;
+#X obj 416 349 s out9;
+#X obj 460 349 s out10;
+#X obj 509 349 s out11;
+#X obj 21 61 spigot;
+#X obj 52 38 r \$1_0_linput;
+#X obj 65 84 spigot;
+#X obj 96 61 r \$1_1_linput;
+#X obj 109 107 spigot;
+#X obj 140 84 r \$1_2_linput;
+#X obj 153 130 spigot;
+#X obj 197 154 spigot;
+#X obj 241 177 spigot;
+#X obj 284 201 spigot;
+#X obj 328 224 spigot;
+#X obj 372 247 spigot;
+#X obj 416 270 spigot;
+#X obj 460 294 spigot;
+#X obj 509 317 spigot;
+#X obj 184 107 r \$1_3_linput;
+#X obj 228 131 r \$1_4_linput;
+#X obj 272 154 r \$1_5_linput;
+#X obj 315 178 r \$1_6_linput;
+#X obj 359 201 r \$1_7_linput;
+#X obj 403 224 r \$1_8_linput;
+#X obj 447 247 r \$1_9_linput;
+#X obj 491 271 r \$1_10_linput;
+#X obj 540 294 r \$1_11_linput;
+#X connect 0 0 13 0;
+#X connect 0 0 15 0;
+#X connect 0 0 17 0;
+#X connect 0 0 19 0;
+#X connect 0 0 20 0;
+#X connect 0 0 21 0;
+#X connect 0 0 22 0;
+#X connect 0 0 23 0;
+#X connect 0 0 25 0;
+#X connect 0 0 24 0;
+#X connect 0 0 26 0;
+#X connect 0 0 27 0;
+#X connect 13 0 1 0;
+#X connect 14 0 13 1;
+#X connect 15 0 2 0;
+#X connect 16 0 15 1;
+#X connect 17 0 3 0;
+#X connect 18 0 17 1;
+#X connect 19 0 4 0;
+#X connect 20 0 5 0;
+#X connect 21 0 6 0;
+#X connect 22 0 7 0;
+#X connect 23 0 8 0;
+#X connect 24 0 9 0;
+#X connect 25 0 10 0;
+#X connect 26 0 11 0;
+#X connect 27 0 12 0;
+#X connect 28 0 19 1;
+#X connect 29 0 20 1;
+#X connect 30 0 21 1;
+#X connect 31 0 22 1;
+#X connect 32 0 23 1;
+#X connect 33 0 24 1;
+#X connect 34 0 25 1;
+#X connect 35 0 26 1;
+#X connect 36 0 27 1;
diff --git a/abs/until_counter.pd b/abs/until_counter.pd
new file mode 100644
index 0000000..07e35d4
--- /dev/null
+++ b/abs/until_counter.pd
@@ -0,0 +1,23 @@
+#N canvas 413 108 241 243 10;
+#X obj 47 111 until;
+#X obj 47 164 f;
+#X obj 117 111 + 1;
+#X obj 117 163 sel 0;
+#X obj 117 137 mod 1024;
+#X obj 47 75 inlet;
+#X text 49 58 bang;
+#X obj 160 75 inlet;
+#X text 150 59 end value;
+#X obj 47 199 outlet;
+#X text 45 8 triggered counter from 0;
+#X text 24 30;
+#X text 52 21 to an especified value;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 0 9 0;
+#X connect 2 0 4 0;
+#X connect 3 0 0 1;
+#X connect 4 0 3 0;
+#X connect 4 0 1 1;
+#X connect 5 0 0 0;
+#X connect 7 0 4 1;
diff --git a/abs/wavelet_type.pd b/abs/wavelet_type.pd
new file mode 100644
index 0000000..84fd09d
--- /dev/null
+++ b/abs/wavelet_type.pd
@@ -0,0 +1,56 @@
+#N canvas 162 76 654 424 10;
+#X msg 40 199 mask -1 9 9 -1;
+#X msg 57 228 mask 3 -25 150 150 -25 3;
+#X msg 74 256 mask -5 49 -245 1225 1225 -245 49 -5;
+#X msg 23 170 mask 1 1;
+#X msg 90 289 mask 35 -405 2268 -8820 39690 39690 -8820 2268 -405 35
+;
+#X msg 108 320 mask -63 847 -5445 22869 -76230 320166 320166 -76230
+22869 -5445 847 -63;
+#X obj 23 374 outlet;
+#X obj 23 44 route 0 1 2 3 4;
+#X obj 23 16 r wavelet_type;
+#X obj 232 207 symbol;
+#X obj 353 253 s wavelet_symbol;
+#X obj 278 207 symbol;
+#X obj 327 207 symbol;
+#X obj 377 207 symbol;
+#X obj 428 207 symbol;
+#X obj 477 207 symbol;
+#X msg 278 162 2nd_order_interpolation;
+#X msg 327 140 3rd_order_interpolation;
+#X msg 377 118 4th_order_interpolation;
+#X msg 428 97 5th_order_interpolation;
+#X msg 477 75 6th_order_interpolation;
+#X msg 232 185 haar_wavelet;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 7 0 3 0;
+#X connect 7 0 21 0;
+#X connect 7 1 0 0;
+#X connect 7 1 16 0;
+#X connect 7 2 1 0;
+#X connect 7 2 17 0;
+#X connect 7 3 2 0;
+#X connect 7 3 18 0;
+#X connect 7 4 4 0;
+#X connect 7 4 19 0;
+#X connect 7 5 5 0;
+#X connect 7 5 20 0;
+#X connect 8 0 7 0;
+#X connect 9 0 10 0;
+#X connect 11 0 10 0;
+#X connect 12 0 10 0;
+#X connect 13 0 10 0;
+#X connect 14 0 10 0;
+#X connect 15 0 10 0;
+#X connect 16 0 11 0;
+#X connect 17 0 12 0;
+#X connect 18 0 13 0;
+#X connect 19 0 14 0;
+#X connect 20 0 15 0;
+#X connect 21 0 9 0;
diff --git a/abs/write_coef.pd b/abs/write_coef.pd
new file mode 100644
index 0000000..cd7f85f
--- /dev/null
+++ b/abs/write_coef.pd
@@ -0,0 +1,16 @@
+#N canvas 278 190 235 191 10;
+#X obj 66 26 inlet;
+#X obj 66 60 unpack;
+#X obj 66 138 tabwrite idwtcoef;
+#X obj 66 87 t b f;
+#X obj 66 113 f;
+#X obj 91 113 * 1;
+#X obj 104 87 r time_stretch;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 1 1 4 1;
+#X connect 3 0 4 0;
+#X connect 3 1 5 0;
+#X connect 4 0 2 0;
+#X connect 5 0 2 1;
+#X connect 6 0 5 1;
-- 
cgit v1.2.1