This commit was generated by cvs2svn to compensate for changes in r20,svn2git-root

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/timestretch/; revision=21

4 files changed, 173 insertions, 0 deletions

diff --git a/envelope.pd b/envelope.pd
new file mode 100644
index 0000000..1439a82
--- /dev/null
+++ b/envelope.pd
@@ -0,0 +1,34 @@
+#N canvas 0 0 671 443 12;

+#X obj 81 68 -~ 0.5;

+#X obj 83 276 clip~ -0.5 0.5;

+#X obj 83 254 *~ 1;

+#X obj 127 227 moses 1;

+#X msg 96 227 1;

+#X obj 83 301 cos~;

+#X obj 81 93 wrap~;

+#X obj 81 122 -~ 0.5;

+#X obj 83 349 *~ -0.5;

+#X obj 83 324 -~ 1;

+#X floatatom 127 195 0 0 0;

+#X text 135 65 subtracting 0.5 and wrapping produces a sawtooth wave

+180 degrees out of phase from the original.;

+#X text 130 116 as before we subtract 1/2 again to center the sawtooth

+from -1/2 to 1/2.;

+#X text 177 195 <-- sharpness (at least 1);

+#X obj 81 42 inlet~;

+#X obj 83 379 outlet~;

+#X obj 127 173 inlet;

+#X connect 0 0 6 0;

+#X connect 1 0 5 0;

+#X connect 2 0 1 0;

+#X connect 3 0 4 0;

+#X connect 3 1 2 1;

+#X connect 4 0 2 1;

+#X connect 5 0 9 0;

+#X connect 6 0 7 0;

+#X connect 7 0 2 0;

+#X connect 8 0 15 0;

+#X connect 9 0 8 0;

+#X connect 10 0 3 0;

+#X connect 14 0 0 0;

+#X connect 16 0 10 0;

diff --git a/int~.pd b/int~.pd
new file mode 100644
index 0000000..1c42cdf
--- /dev/null
+++ b/int~.pd
@@ -0,0 +1,12 @@
+#N canvas 0 0 454 304 12;

+#X obj 257 75 block~ 1;

+#X obj 136 74 inlet~;

+#X obj 136 119 pack~;

+#X obj 136 150 int;

+#X obj 136 181 sig~;

+#X obj 136 223 outlet~;

+#X text 14 9 int~ -- get rid of the fractions...;

+#X connect 1 0 2 0;

+#X connect 2 0 3 0;

+#X connect 3 0 4 0;

+#X connect 4 0 5 0;

diff --git a/timestretch~-help.pd b/timestretch~-help.pd
new file mode 100644
index 0000000..c3ee59f
--- /dev/null
+++ b/timestretch~-help.pd
@@ -0,0 +1,39 @@
+#N canvas 260 33 642 473 12;

+#X msg 18 94 read -resize \$1 snd;

+#X obj 18 123 soundfiler;

+#X floatatom 386 232 5 0 0;

+#X obj 318 277 dac~;

+#X floatatom 328 155 5 0 0;

+#X floatatom 451 155 5 0 0;

+#X obj 328 179 timestretch~ snd;

+#X obj 18 66 openpanel;

+#X obj 25 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#N canvas 0 0 450 300 graph7 0;

+#X array snd 419854 float 0;

+#X coords 0 1 419853 -1 200 140 1;

+#X restore 64 202 graph;

+#X text 28 21 1 load a sound file;

+#X obj 328 232 *~ 0.5;

+#X msg 63 414 \; pd dsp 1;

+#X obj 70 383 loadbang;

+#X obj 454 129 hsl 128 15 0 2 0 0 empty empty empty -2 -6 0 8 -262144

+-1 -1 1500 1;

+#X msg 451 93 0.5;

+#X msg 302 69 4096;

+#X msg 342 69 8192;

+#X text 302 46 2 set window length and stretch;

+#X connect 0 0 1 0;

+#X connect 2 0 11 1;

+#X connect 4 0 6 0;

+#X connect 5 0 6 1;

+#X connect 6 0 11 0;

+#X connect 7 0 0 0;

+#X connect 8 0 7 0;

+#X connect 11 0 3 0;

+#X connect 11 0 3 1;

+#X connect 13 0 12 0;

+#X connect 14 0 5 0;

+#X connect 15 0 14 0;

+#X connect 16 0 4 0;

+#X connect 17 0 4 0;

diff --git a/timestretch~.pd b/timestretch~.pd
new file mode 100644
index 0000000..c19dbd2
--- /dev/null
+++ b/timestretch~.pd
@@ -0,0 +1,88 @@
+#N canvas 316 6 671 639 12;

+#X obj 288 249 phasor~;

+#X floatatom 288 216 12 0 0;

+#X obj 396 249 phasor~;

+#X floatatom 396 115 12 0 0;

+#X obj 288 301 *~;

+#X obj 316 338 +~;

+#X obj 396 339 int~;

+#X obj 335 301 *~;

+#X obj 62 310 t b f;

+#X obj 78 364 /;

+#X obj 78 396 *;

+#X msg 496 216 0;

+#X obj 382 435 envelope;

+#X msg 465 382 50;

+#X floatatom 455 460 5 0 0;

+#X obj 316 497 *~;

+#X text 15 2 timestretch -- \$1: array name;

+#X obj 316 531 outlet~;

+#X obj 515 408 loadbang;

+#X obj 396 311 *~;

+#X obj 396 211 *;

+#X obj 396 145 t b f;

+#X obj 396 178 f 1;

+#X obj 234 67 inlet;

+#X text 234 45 speed (1=normal \, 0.5=half);

+#X floatatom 234 94 5 0 0;

+#X floatatom 60 107 8 0 0;

+#X obj 69 170 arraysize \$1;

+#X obj 69 138 t b f;

+#X obj 97 235 /;

+#X text 56 50 slice length;

+#X obj 62 201 t f f;

+#X obj 62 337 samplerate~;

+#X obj 60 73 inlet;

+#X obj 97 263 s \$0slices;

+#X obj 108 396 r \$0slices;

+#X obj 415 283 r \$0slices;

+#X msg 472 406 10;

+#X msg 477 433 1;

+#X text 503 190 sync phasors;

+#X obj 316 468 tabread4~ \$1;

+#X connect 0 0 4 0;

+#X connect 0 0 12 0;

+#X connect 1 0 0 0;

+#X connect 2 0 19 0;

+#X connect 3 0 21 0;

+#X connect 4 0 5 0;

+#X connect 5 0 40 0;

+#X connect 6 0 7 0;

+#X connect 7 0 5 1;

+#X connect 8 0 32 0;

+#X connect 8 1 9 1;

+#X connect 9 0 3 0;

+#X connect 9 0 10 0;

+#X connect 10 0 1 0;

+#X connect 11 0 2 1;

+#X connect 11 0 0 1;

+#X connect 12 0 15 1;

+#X connect 13 0 12 1;

+#X connect 14 0 12 1;

+#X connect 15 0 17 0;

+#X connect 18 0 37 0;

+#X connect 18 0 11 0;

+#X connect 19 0 6 0;

+#X connect 20 0 2 0;

+#X connect 21 0 22 0;

+#X connect 21 1 20 1;

+#X connect 22 0 20 0;

+#X connect 23 0 25 0;

+#X connect 25 0 22 0;

+#X connect 26 0 28 0;

+#X connect 26 0 4 1;

+#X connect 26 0 7 1;

+#X connect 27 0 31 0;

+#X connect 28 0 27 0;

+#X connect 28 0 11 0;

+#X connect 28 1 29 1;

+#X connect 29 0 34 0;

+#X connect 31 0 8 0;

+#X connect 31 1 29 0;

+#X connect 32 0 9 0;

+#X connect 33 0 26 0;

+#X connect 35 0 10 1;

+#X connect 36 0 19 1;

+#X connect 37 0 12 1;

+#X connect 38 0 12 1;

+#X connect 40 0 15 0;