From bc72a2afa7d60e06e90920ee26c615e99e9a659a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= 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/externals/susloop~/; revision=160 --- susloop~/susloop~.pd | 102 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 102 insertions(+) create mode 100644 susloop~/susloop~.pd (limited to 'susloop~/susloop~.pd') diff --git a/susloop~/susloop~.pd b/susloop~/susloop~.pd new file mode 100644 index 0000000..bce3791 --- /dev/null +++ b/susloop~/susloop~.pd @@ -0,0 +1,102 @@ +#N canvas 236 83 735 643 10; +#N canvas 0 0 450 300 graph1 0; +#X array sample 86754 float 0; +#X coords 0 1 86753 -1 200 64 1; +#X restore 441 412 graph; +#X obj 480 341 soundfiler; +#X msg 480 315 read -resize \$1 sample; +#X obj 480 289 openpanel; +#X obj 480 267 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 +-1; +#X obj 8 513 dac~; +#X floatatom 69 489 5 0 0; +#X obj 69 513 / 100; +#X obj 8 450 tabread4~ sample; +#X obj 8 481 *~; +#X floatatom 127 272 5 0 0; +#X obj 127 310 mtosr 44100; +#X msg 17 271 type 0; +#X msg 17 299 type 1; +#X msg 176 272 44100; +#X floatatom 322 380 5 0 0; +#X floatatom 179 380 6 0 0; +#X floatatom 245 380 6 0 0; +#X obj 88 271 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 +-1; +#X text 514 265 <- load a sample; +#X text 421 230 Ben Saylor - bsaylor@macalester.edu; +#X msg 124 489 70; +#X obj 156 489 loadbang; +#X text 54 45 optional creation args:; +#X text 239 45 [loopstart loopend [looptype [startpos]]]; +#X text 172 336 loopstart; +#X text 242 337 loopend; +#X text 319 338 startpos; +#X text 38 154 is 0 for a forward loop (default) and 1 for +a pingpong loop.; +#X text 40 193 Playback speed is in samples/sec - send a float or signal +to the left inlet.; +#X text 10 7 susloop~ - another phase generator for sample looping +; +#X obj 127 414 susloop~ 4000 12000; +#X text 37 94 When the left inlet gets a bang \, the phase output will +start at (defaults to 0) \, continue until it reaches +\, and then start looping between and .; +#X floatatom 480 366 5 0 0; +#X obj 442 480 hsl 200 15 0 1 0 0 empty empty loop_start 10 8 0 8 -195568 +-33289 -33289 13700 0; +#X obj 442 499 hsl 200 15 0 1 0 0 empty empty loop_end 10 8 0 8 -233017 +-1 -1 16900 0; +#X obj 250 565 *; +#X obj 293 565 *; +#X obj 293 589 int; +#X obj 250 589 int; +#X obj 531 366 s filesize; +#X obj 266 501 r filesize; +#X obj 229 616 s lstart; +#X obj 293 615 s lend; +#X obj 245 356 r lend; +#X obj 179 358 r lstart; +#X obj 442 516 hsl 200 15 0 1 0 0 empty empty start 10 8 0 8 -262144 +-1 -1 0 0; +#X obj 346 567 *; +#X obj 346 591 int; +#X obj 346 616 s start; +#X obj 322 356 r start; +#X connect 1 0 33 0; +#X connect 1 0 40 0; +#X connect 2 0 1 0; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 6 0 7 0; +#X connect 7 0 9 1; +#X connect 8 0 9 0; +#X connect 9 0 5 0; +#X connect 9 0 5 1; +#X connect 10 0 11 0; +#X connect 11 0 31 0; +#X connect 12 0 31 0; +#X connect 13 0 31 0; +#X connect 14 0 31 0; +#X connect 15 0 31 3; +#X connect 16 0 31 1; +#X connect 17 0 31 2; +#X connect 18 0 31 0; +#X connect 21 0 7 0; +#X connect 22 0 21 0; +#X connect 31 0 8 0; +#X connect 34 0 36 0; +#X connect 35 0 37 0; +#X connect 36 0 39 0; +#X connect 37 0 38 0; +#X connect 38 0 43 0; +#X connect 39 0 42 0; +#X connect 41 0 36 1; +#X connect 41 0 37 1; +#X connect 41 0 47 1; +#X connect 44 0 17 0; +#X connect 45 0 16 0; +#X connect 46 0 47 0; +#X connect 47 0 48 0; +#X connect 48 0 49 0; +#X connect 50 0 15 0; -- cgit v1.2.1