From f9840937daed163f51207ea856465da0c5389d88 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Sun, 23 Jun 2002 17:44:29 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r20, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/timestretch/; revision=21
---
 envelope.pd          | 34 ++++++++++++++++++++
 int~.pd              | 12 +++++++
 timestretch~-help.pd | 39 +++++++++++++++++++++++
 timestretch~.pd      | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 173 insertions(+)
 create mode 100644 envelope.pd
 create mode 100644 int~.pd
 create mode 100644 timestretch~-help.pd
 create mode 100644 timestretch~.pd

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;
-- 
cgit v1.2.1