From 60ee6bb60b11bbfbccf56f335c9c6213e6daa79d Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Thu, 5 Dec 2002 05:36:32 +0000 Subject: "" svn path=/trunk/; revision=278 --- externals/grill/vasp/pd-ex/granular2.pd | 129 ++++++++++++++------------------ 1 file changed, 55 insertions(+), 74 deletions(-) (limited to 'externals/grill/vasp/pd-ex') diff --git a/externals/grill/vasp/pd-ex/granular2.pd b/externals/grill/vasp/pd-ex/granular2.pd index 5dea43a7..a065c25c 100644 --- a/externals/grill/vasp/pd-ex/granular2.pd +++ b/externals/grill/vasp/pd-ex/granular2.pd @@ -1,9 +1,9 @@ -#N canvas 64 38 704 556 10; +#N canvas 30 24 706 558 10; #N canvas 0 0 450 300 graph34 0; #X array insert 128 float 0; #X coords 0 1 127 -1 200 140 1; #X restore 96 73 graph; -#N canvas 339 256 521 450 player 0; +#N canvas 339 256 523 452 player 0; #X obj 228 372 tabplay~ schnipparray; #X obj 228 396 throw~ toex; #X obj 208 45 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 @@ -65,42 +65,17 @@ #X restore 204 294 pd player; #X obj 204 339 catch~ toex; #X obj 204 403 dac~; -#X floatatom 98 423 0 0 0 0 - - -; -#X obj 98 383 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0 -10 -24198 -1 -1 0.13 256; -#X text 98 365 density; -#X obj 98 445 s \$0-density; +#X floatatom 51 318 0 0 0 0 - - -; +#X obj 51 278 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0 +10 -24198 -1 -1 18.13 256; +#X text 51 260 density; +#X obj 51 340 s \$0-density; #X obj 204 275 tgl 15 0 empty empty start/stop 0 -6 0 8 -24198 -1 -1 0 1; #X floatatom 241 430 0 0 0 0 - - -; #X obj 241 407 env~ 32768; -#N canvas 202 187 287 226 inside 0; +#N canvas 202 187 293 232 inside 0; #X obj 88 151 table positions; -#N canvas 259 48 514 364 create_schippler 0; -#X msg 155 114 vasp insert; -#X obj 155 182 vasp.u; -#X obj 155 138 vasp.osc 6.4; -#X msg 66 114 vasp insert; -#X obj 66 162 vasp.u; -#X msg 293 113 vasp insert; -#X obj 293 161 vasp.u; -#X obj 293 137 vasp.osc 2; -#X text 56 71 create various samples to insert; -#X msg 63 216 vasp insert; -#X obj 63 261 vasp.u; -#X obj 63 239 vasp.window; -#X obj 66 138 vasp.osc 128; -#X obj 155 160 vasp.*!window lin; -#X connect 0 0 2 0; -#X connect 2 0 13 0; -#X connect 3 0 12 0; -#X connect 5 0 7 0; -#X connect 7 0 6 0; -#X connect 9 0 11 0; -#X connect 11 0 10 0; -#X connect 12 0 4 0; -#X connect 13 0 1 0; -#X restore 40 47 pd create_schippler; #N canvas 136 160 532 356 inserter 0; #X obj 48 55 r \$0-part; #X text 50 33 after a sample-part is played \, next step is calculated @@ -281,12 +256,47 @@ #X connect 4 0 1 0; #X connect 5 0 2 0; #X restore 41 95 pd init; -#X restore 436 220 pd inside; +#N canvas 409 43 522 372 create_schnippl 0; +#X msg 155 114 vasp insert; +#X obj 155 182 vasp.u; +#X obj 155 138 vasp.osc 6.4; +#X msg 66 114 vasp insert; +#X obj 66 162 vasp.u; +#X msg 293 113 vasp insert; +#X obj 293 161 vasp.u; +#X obj 293 137 vasp.osc 2; +#X msg 63 216 vasp insert; +#X obj 63 261 vasp.u; +#X obj 63 239 vasp.window; +#X obj 66 138 vasp.osc 128; +#X obj 155 160 vasp.*!window lin; +#X msg 273 230 vasp insert; +#X obj 273 292 vasp.u; +#X obj 273 251 vasp.osc 2; +#X obj 273 271 vasp.*xwindow hamming; +#X obj 355 230 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 +10 -24198 -1 -1 28 256; +#X text 56 71 create various slices to insert; +#X connect 0 0 2 0; +#X connect 2 0 12 0; +#X connect 3 0 11 0; +#X connect 5 0 7 0; +#X connect 7 0 6 0; +#X connect 8 0 10 0; +#X connect 10 0 9 0; +#X connect 11 0 4 0; +#X connect 12 0 1 0; +#X connect 13 0 15 0; +#X connect 15 0 16 0; +#X connect 16 0 14 0; +#X connect 17 0 15 1; +#X restore 40 47 pd create_schnippl; +#X restore 53 489 pd inside; #X obj 322 271 vsl 15 100 0 1 0 1 empty empty volume 0 -8 0 8 -24198 --1 -1 5400 1; +-1 -1 3400 1; #X obj 204 374 *~ 0.2; #X text 332 464 needs the zexy library and vasp; -#X obj 98 402 * 0.0001; +#X obj 51 297 * 0.0001; #N canvas 0 0 478 359 glaetten 0; #X floatatom 225 70 5 0 0 0 - - -; #X floatatom 242 130 5 0 0 0 - - -; @@ -318,39 +328,6 @@ #X connect 8 0 15 0; #X connect 16 0 0 0; #X restore 482 362 pd glaetten; -#N canvas 0 0 471 365 sequence 0; -#X obj 82 115 metro 500; -#X obj 82 93 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X obj 86 184 sel 1 2 3 4; -#X obj 52 290 line; -#X obj 116 145 + 1; -#X obj 82 144 0; -#X msg 188 215 0; -#X floatatom 130 81 5 0 0 0 - - -; -#X msg 204 245 60 100; -#X msg 36 248 120 10; -#X msg 89 246 30 100; -#X msg 141 246 100 10; -#X obj 53 323 outlet; -#X connect 0 0 5 0; -#X connect 1 0 0 0; -#X connect 2 0 9 0; -#X connect 2 1 10 0; -#X connect 2 2 11 0; -#X connect 2 3 6 0; -#X connect 2 3 8 0; -#X connect 3 0 12 0; -#X connect 4 0 5 1; -#X connect 5 0 4 0; -#X connect 5 0 2 0; -#X connect 6 0 5 1; -#X connect 7 0 0 1; -#X connect 8 0 3 0; -#X connect 9 0 3 0; -#X connect 10 0 3 0; -#X connect 11 0 3 0; -#X restore 77 342 pd sequence; #X obj 482 320 soundfiler; #X obj 482 278 openpanel; #X msg 482 299 read -resize \$1 insert; @@ -362,6 +339,10 @@ #X text 506 251 load sample to insert; #X text 332 478 be careful with high density \, with large files costs a lot of cpu and glitches can appear; +#X msg 481 211 \; pd-create_schnippl vis 1; +#X obj 481 189 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X text 509 188 create samples to insert; #X connect 2 0 13 0; #X connect 4 0 7 0; #X connect 5 0 15 0; @@ -372,9 +353,9 @@ a lot of cpu and glitches can appear; #X connect 13 0 3 1; #X connect 13 0 10 0; #X connect 15 0 4 0; -#X connect 17 0 5 0; -#X connect 18 0 22 0; -#X connect 19 0 20 0; +#X connect 17 0 21 0; +#X connect 18 0 19 0; +#X connect 19 0 17 0; #X connect 20 0 18 0; -#X connect 21 0 19 0; -#X connect 22 0 16 0; +#X connect 21 0 16 0; +#X connect 26 0 25 0; -- cgit v1.2.1