From 0ed7a8b68dd73e2b0473b8127aeca99f3bac9061 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Wed, 1 Apr 2009 21:13:09 +0000 Subject: cleaned up grill externals - replaced with svn:externals to svn.grrrr.org/ext/trunk/ svn path=/trunk/; revision=10951 --- externals/grill/vasp/pd-ex/convolve.pd | 194 ---- externals/grill/vasp/pd-ex/enhance.pd | 478 --------- externals/grill/vasp/pd-ex/freeze.pd | 414 -------- externals/grill/vasp/pd-ex/frqmax.pd | 336 ------- externals/grill/vasp/pd-ex/loudness.pd | 207 ---- externals/grill/vasp/pd-ex/wedit.pd | 1727 -------------------------------- 6 files changed, 3356 deletions(-) delete mode 100644 externals/grill/vasp/pd-ex/convolve.pd delete mode 100644 externals/grill/vasp/pd-ex/enhance.pd delete mode 100644 externals/grill/vasp/pd-ex/freeze.pd delete mode 100644 externals/grill/vasp/pd-ex/frqmax.pd delete mode 100644 externals/grill/vasp/pd-ex/loudness.pd delete mode 100644 externals/grill/vasp/pd-ex/wedit.pd (limited to 'externals/grill/vasp/pd-ex') diff --git a/externals/grill/vasp/pd-ex/convolve.pd b/externals/grill/vasp/pd-ex/convolve.pd deleted file mode 100644 index 8fe41faf..00000000 --- a/externals/grill/vasp/pd-ex/convolve.pd +++ /dev/null @@ -1,194 +0,0 @@ -#N canvas 84 222 646 423 12; -#X obj 60 241 bng 50 250 50 0 start_bang empty start 0 -6 128 8 -24198 --1 -1; -#X text 15 77 load/save/play etc.; -#X obj 364 125 nbx 8 16 0 1e+008 0 0 len_src empty empty 0 -8 128 12 --225271 -1 -1 0 256; -#X text 367 142 (defines the size of the result); -#X obj 362 179 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12 --225271 -1 -1 0 256; -#X obj 24 122 wedit buf_src; -#X obj 23 176 wedit buf_arg; -#X obj 33 350 wedit buf_res; -#X text 122 255 start convolution; -#X obj 177 356 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 --1; -#X obj 201 357 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12 --261689 -1 -1 1.04858e+006 256; -#X obj 11 10 cnv 15 600 50 empty empty convolve 10 22 0 24 -260818 --1 0; -#X text 202 41 http://www.parasitaere-kapazitaeten.net; -#X text 203 10 fft-based convolution \, (C)2003 Thomas Grill; -#X text 203 25 needs vasp and wedit; -#X text 32 329 result buffer; -#X text 140 121 source buffer; -#X text 137 175 argument buffer; -#N canvas 225 110 484 406 do 0; -#X obj 27 255 vasp.u; -#N canvas 406 75 413 555 convolve 0; -#X obj 217 202 vasp.!; -#X obj 116 163 vasp.f?; -#X obj 216 173 vasp; -#X obj 28 69 vasp; -#N canvas 0 0 458 308 sf 0; -#X obj 39 178 outlet; -#X obj 38 43 inlet; -#X obj 41 79 vasp.s; -#X obj 120 43 inlet; -#X obj 39 118 vasp.f; -#X connect 1 0 2 0; -#X connect 2 0 4 0; -#X connect 3 0 2 1; -#X connect 3 0 4 1; -#X connect 4 0 0 0; -#X restore 215 273 pd sf; -#X obj 53 452 vasp.opt; -#X obj 54 207 vasp; -#X obj 29 39 inlet; -#X obj 132 51 inlet; -#X obj 221 50 inlet; -#X obj 313 50 inlet; -#X obj 43 520 outlet; -#X text 26 15 bang; -#X text 126 21 src1; -#X text 218 20 src2; -#X text 313 22 dst; -#X text 214 220 copy to temp; -#X text 100 519 dst; -#N canvas 0 0 454 304 sf 0; -#X obj 39 178 outlet; -#X obj 38 43 inlet; -#X obj 41 79 vasp.s; -#X obj 120 43 inlet; -#X obj 39 118 vasp.f; -#X connect 1 0 2 0; -#X connect 2 0 4 0; -#X connect 3 0 2 1; -#X connect 3 0 4 1; -#X connect 4 0 0 0; -#X restore 55 235 pd sf; -#X obj 29 298 vasp.->; -#X obj 27 482 vasp.radio; -#X obj 29 94 t a b a; -#X obj 54 393 vasp.cconv; -#X obj 56 259 vasp.= 0; -#N canvas 0 0 452 302 im0 0; -#X obj 32 51 inlet; -#X obj 31 250 outlet; -#X obj 32 83 t a b a; -#X obj 102 121 vasp.f?; -#X obj 60 153 vasp.!; -#X obj 32 210 vasp.join; -#X text 31 10 make empty imaginary part; -#X text 115 153 temporary buffer of same size; -#X text 115 171 (initialized to 0); -#X connect 0 0 2 0; -#X connect 2 0 5 0; -#X connect 2 1 4 0; -#X connect 2 2 3 0; -#X connect 3 0 4 1; -#X connect 4 0 5 1; -#X connect 5 0 1 0; -#X restore 54 363 pd im0; -#N canvas 0 0 452 302 im0 0; -#X obj 32 51 inlet; -#X obj 31 250 outlet; -#X obj 32 83 t a b a; -#X obj 102 121 vasp.f?; -#X obj 60 153 vasp.!; -#X obj 32 210 vasp.join; -#X text 31 10 make empty imaginary part; -#X text 115 153 temporary buffer of same size; -#X text 115 171 (initialized to 0); -#X connect 0 0 2 0; -#X connect 2 0 5 0; -#X connect 2 1 4 0; -#X connect 2 2 3 0; -#X connect 3 0 4 1; -#X connect 4 0 5 1; -#X connect 5 0 1 0; -#X restore 129 363 pd im0; -#X obj 53 424 vasp.re; -#X obj 116 192 rndup2; -#X obj 54 329 vasp.f; -#X text 186 365 make imaginary parts; -#X text 116 423 need only real part; -#X text 124 451 "normalize"; -#X text 116 482 filter eventual radio msgs; -#X connect 0 0 4 0; -#X connect 1 0 27 0; -#X connect 2 0 0 0; -#X connect 3 0 21 0; -#X connect 4 0 25 0; -#X connect 5 0 20 0; -#X connect 6 0 18 0; -#X connect 7 0 3 0; -#X connect 8 0 3 1; -#X connect 9 0 2 1; -#X connect 10 0 6 1; -#X connect 18 0 23 0; -#X connect 19 1 28 0; -#X connect 20 1 11 0; -#X connect 21 0 19 0; -#X connect 21 1 2 0; -#X connect 21 1 6 0; -#X connect 21 2 1 0; -#X connect 22 0 26 0; -#X connect 23 0 19 1; -#X connect 24 0 22 0; -#X connect 25 0 22 1; -#X connect 26 0 5 0; -#X connect 27 0 18 1; -#X connect 27 0 4 1; -#X connect 27 0 28 1; -#X connect 28 0 24 0; -#X restore 26 226 pd convolve; -#X obj 26 52 t b b; -#X msg 154 93 vasp buf_arg; -#X msg 267 92 vasp buf_res; -#X obj 306 220 table buf_src 10; -#X obj 307 242 table buf_arg 10; -#X obj 307 264 table buf_res 10; -#X obj 26 23 r start_bang; -#X obj 143 21 r len_src; -#X obj 229 24 r len_arg; -#X obj 25 318 outlet; -#X obj 27 291 vasp.f?; -#X text 83 255 update buffer; -#X obj 147 159 vasp.f; -#X obj 43 157 vasp.f; -#X msg 45 93 vasp buf_src; -#X obj 141 51 r off_src; -#X obj 227 54 r off_arg; -#X obj 43 125 vasp.o; -#X obj 147 127 vasp.o; -#X text 123 225 convolve; -#X connect 0 0 12 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X connect 2 1 3 0; -#X connect 2 1 4 0; -#X connect 2 1 16 0; -#X connect 3 0 20 0; -#X connect 4 0 1 3; -#X connect 8 0 2 0; -#X connect 9 0 15 1; -#X connect 10 0 14 1; -#X connect 12 0 11 0; -#X connect 14 0 1 2; -#X connect 15 0 1 1; -#X connect 16 0 19 0; -#X connect 17 0 19 1; -#X connect 18 0 20 1; -#X connect 19 0 15 0; -#X connect 20 0 14 0; -#X restore 177 324 pd do; -#X obj 267 125 nbx 8 16 0 1e+008 0 0 off_src empty empty 0 -8 128 12 --225271 -1 -1 0 256; -#X obj 265 179 nbx 8 16 0 1e+008 0 0 off_arg empty empty 0 -8 128 12 --225271 -1 -1 0 256; -#X text 383 103 length; -#X text 288 100 offset; -#X text 286 78 range in samples; -#X connect 18 0 9 0; -#X connect 18 0 10 0; diff --git a/externals/grill/vasp/pd-ex/enhance.pd b/externals/grill/vasp/pd-ex/enhance.pd deleted file mode 100644 index 05e8ef8a..00000000 --- a/externals/grill/vasp/pd-ex/enhance.pd +++ /dev/null @@ -1,478 +0,0 @@ -#N canvas 215 47 982 666 12; -#X obj 85 323 nbx 6 18 -100 0 0 1 empty empty spectral_gate(dB) 0 -8 -0 12 -225271 -1 -1 -18 256; -#X obj 85 366 nbx 7 18 -10000 10000 0 1 empty empty transpose(cents) -0 -8 0 12 -225271 -1 -1 0 256; -#X obj 463 303 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 744 304 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#N canvas 0 22 476 326 save 0; -#X obj 30 198 soundfiler; -#X obj 30 134 symbol; -#X obj 29 106 savepanel; -#X obj 32 8 inlet; -#X obj 27 232 outlet; -#X obj 30 42 route new again; -#X obj 29 73 t b; -#X obj 84 73 t b; -#X msg 27 169 write -bytes 3 -wave \$1 dst; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 2 0 1 0; -#X connect 3 0 5 0; -#X connect 5 0 6 0; -#X connect 5 1 7 0; -#X connect 6 0 2 0; -#X connect 7 0 1 0; -#X connect 8 0 0 0; -#X restore 744 275 pd save; -#N canvas 205 58 359 496 open 0; -#X obj 19 96 openpanel; -#X obj 21 6 inlet; -#X obj 15 390 outlet; -#X obj 20 123 symbol; -#X obj 17 345 vasp.u; -#X obj 17 233 t b; -#X obj 22 33 route new again; -#X obj 19 66 t b; -#X obj 74 66 t b; -#X msg 16 281 vasp src; -#X obj 74 230 s \$0-srclen; -#X obj 15 313 vasp.opt; -#X obj 18 192 sndfiler; -#X msg 19 152 read -resize \$1 src; -#X connect 0 0 3 0; -#X connect 1 0 6 0; -#X connect 3 0 13 0; -#X connect 4 0 2 0; -#X connect 5 0 9 0; -#X connect 6 0 7 0; -#X connect 6 1 8 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 11 0; -#X connect 11 0 4 0; -#X connect 12 0 5 0; -#X connect 12 0 10 0; -#X connect 13 0 12 0; -#X restore 463 275 pd open; -#X msg 396 247 stop; -#N canvas 0 22 450 300 graph10 0; -#X array src 5.99654e+06 float 0; -#X coords 0 1 5.99654e+06 -1 600 150 1; -#X restore 322 20 graph; -#X msg 462 247 new; -#X msg 497 247 again; -#X msg 743 247 new; -#X msg 776 247 again; -#X msg 347 247 play; -#X obj 8 9 cnv 15 300 48 empty empty enhance 5 14 0 20 -233017 -66577 -0; -#X obj 18 108 bng 25 250 50 0 empty empty do! 0 -6 0 12 -24198 -1 -1 -; -#X obj 107 115 nbx 12 18 0 1e+08 0 1 empty empty length(frames) 0 -8 -0 12 -225271 -1 -1 1e+06 256; -#X obj 347 222 cnv 15 100 20 empty empty play_src 5 8 0 10 -261681 --66577 0; -#X obj 462 222 cnv 15 100 20 empty empty read_src 5 8 0 10 -261681 --66577 0; -#X obj 742 222 cnv 15 100 20 empty empty write_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 450 300 graph10 0; -#X array dst 1e+06 float 0; -#X coords 0 1 999999 -1 600 150 1; -#X restore 324 392 graph; -#X msg 678 248 stop; -#X msg 629 248 play; -#X obj 629 223 cnv 15 100 20 empty empty play_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 519 371 playsrc 0; -#X obj 17 274 dac~; -#X obj 19 21 inlet; -#X obj 17 49 route play; -#X obj 18 197 tabplay~ src; -#X obj 338 23 r \$0-srclen; -#X obj 166 22 r \$0-offs; -#X obj 249 22 r \$0-len; -#X obj 338 48 t b f; -#X obj 166 94 *; -#X obj 248 93 *; -#X obj 75 132 pack 0 0; -#X obj 19 81 t b; -#X obj 77 105 loadbang; -#X obj 113 274 outlet; -#X obj 19 159 any; -#X obj 18 237 *~; -#X obj 451 21 inlet; -#X obj 451 50 pack 0 30; -#X obj 451 78 line~; -#X connect 1 0 2 0; -#X connect 2 0 11 0; -#X connect 2 1 3 0; -#X connect 3 0 15 0; -#X connect 3 1 13 0; -#X connect 4 0 7 0; -#X connect 5 0 8 0; -#X connect 6 0 9 0; -#X connect 7 0 8 0; -#X connect 7 0 9 0; -#X connect 7 1 8 1; -#X connect 7 1 9 1; -#X connect 8 0 10 0; -#X connect 9 0 10 1; -#X connect 10 0 14 1; -#X connect 11 0 14 0; -#X connect 12 0 10 0; -#X connect 14 0 3 0; -#X connect 15 0 0 0; -#X connect 15 0 0 1; -#X connect 16 0 17 0; -#X connect 17 0 18 0; -#X connect 18 0 15 1; -#X restore 347 275 pd playsrc; -#N canvas 0 22 499 351 playdst 0; -#X obj 23 199 dac~; -#X obj 19 21 inlet; -#X obj 22 51 route play; -#X obj 21 83 tabplay~ dst; -#X obj 113 200 outlet; -#X obj 27 147 *~; -#X obj 171 27 inlet; -#X obj 171 56 pack 0 30; -#X obj 171 84 line~; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 2 1 3 0; -#X connect 3 0 5 0; -#X connect 3 1 4 0; -#X connect 5 0 0 0; -#X connect 5 0 0 1; -#X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 8 0 5 1; -#X restore 629 276 pd playdst; -#N canvas 249 202 587 530 copy 0; -#X obj 27 26 inlet; -#X obj 27 51 t b b; -#X obj 316 19 inlet; -#X obj 25 361 outlet; -#X obj 26 81 vasp src; -#X obj 26 229 vasp.f; -#X obj 26 201 vasp.o; -#X obj 128 31 r \$0-offs; -#X obj 211 31 r \$0-len; -#X obj 316 87 f 1e+06; -#X obj 366 21 loadbang; -#X obj 84 169 *; -#X obj 117 169 *; -#X obj 82 139 vasp.f?; -#X obj 27 109 t a a; -#X obj 27 259 vasp.sync; -#X obj 26 328 vasp.f -1; -#X text 167 288 copy src to dst; -#X text 108 328 take all dst; -#X text 307 213 resize dst buffer; -#X obj 26 287 vasp.-> @detach 1; -#X text 340 139 set to zero; -#X obj 184 140 vasp.= 0 @ref dst @detach 1; -#X obj 183 194 vasp.s @detach 1; -#X connect 0 0 1 0; -#X connect 1 0 4 0; -#X connect 1 1 22 0; -#X connect 2 0 9 0; -#X connect 4 0 14 0; -#X connect 5 0 15 0; -#X connect 6 0 5 0; -#X connect 7 0 11 1; -#X connect 8 0 12 1; -#X connect 9 0 23 1; -#X connect 10 0 9 0; -#X connect 11 0 6 1; -#X connect 12 0 5 1; -#X connect 13 0 11 0; -#X connect 13 0 12 0; -#X connect 14 0 6 0; -#X connect 14 1 13 0; -#X connect 15 0 20 0; -#X connect 15 1 20 1; -#X connect 16 0 3 0; -#X connect 20 1 16 0; -#X connect 22 0 23 0; -#X connect 23 0 15 1; -#X restore 18 159 pd copy; -#X text 82 155 copy and resize; -#X obj 323 170 hsl 600 15 0 1 0 1 \$0-r2 empty empty -2 -6 0 8 -262131 --1 -1 51900 0; -#X obj 323 5 hsl 600 15 0 1 0 1 \$0-r1 empty empty -2 -6 0 8 -262131 --1 -1 34600 0; -#N canvas 148 330 313 273 sel 0; -#X obj 30 25 r \$0-r1; -#X obj 110 25 r \$0-r2; -#X obj 30 100 min; -#X obj 113 100 max; -#X obj 30 53 t f f; -#X obj 110 50 t b b f; -#X obj 113 130 -; -#X obj 27 190 s \$0-offs; -#X obj 113 190 s \$0-len; -#X obj 114 161 * -1; -#X connect 0 0 4 0; -#X connect 1 0 5 0; -#X connect 2 0 6 0; -#X connect 2 0 7 0; -#X connect 3 0 6 1; -#X connect 4 0 2 0; -#X connect 4 1 3 0; -#X connect 5 0 2 0; -#X connect 5 1 3 0; -#X connect 5 2 3 1; -#X connect 5 2 2 1; -#X connect 6 0 9 0; -#X connect 9 0 8 0; -#X restore 872 223 pd sel; -#X obj 85 410 nbx 7 18 0.01 10 1 1 empty empty power 0 -8 0 12 -225271 --1 -1 1.37078 256; -#X obj 346 302 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 628 302 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 165 324 -100... no gate; -#N canvas 0 22 482 332 normalize 0; -#X obj 127 29 loadbang; -#X msg 127 54 detach 1; -#X text 120 75 no attributes yet; -#X obj 39 115 vasp.opt; -#X obj 38 149 vasp.u; -#X obj 39 32 inlet; -#X obj 38 184 outlet; -#X connect 0 0 1 0; -#X connect 1 0 3 0; -#X connect 3 0 4 0; -#X connect 4 0 6 0; -#X connect 5 0 3 0; -#X restore 18 575 pd normalize; -#X obj 608 245 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 4400 1; -#X obj 324 247 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 5600 1; -#X text 11 37 (C)2007 Thomas Grill; -#N canvas 293 22 655 744 enhance 0; -#X obj 27 137 vasp.split 2; -#X obj 31 415 vasp.join 2; -#X obj 27 74 vasp.cfft @detach 1; -#X obj 33 471 vasp.c!fft @detach 1; -#X obj 25 13 inlet; -#X obj 91 230 * 0.01; -#X obj 302 17 inlet; -#X obj 26 107 vasp.polar @detach 1; -#X obj 33 442 vasp.rect @detach 1; -#X obj 29 321 vasp.gate @detach 1; -#X obj 30 386 vasp.sync; -#X obj 91 208 vasp.max? @detach 1; -#X obj 381 17 inlet; -#X obj 437 692 outlet; -#N canvas 238 212 484 334 non0 0; -#X obj 58 254 outlet; -#X obj 60 158 / 1; -#X obj 26 11 inlet; -#X obj 26 39 t a a; -#X obj 234 77 vasp.f?; -#X obj 46 98 vasp.!= 0 @detach 1; -#X obj 27 124 vasp.sum?; -#X obj 60 195 rmstodb; -#X obj 60 225 - 100; -#X obj 47 71 vasp.!; -#X connect 1 0 7 0; -#X connect 2 0 3 0; -#X connect 3 0 6 0; -#X connect 3 1 4 0; -#X connect 4 0 1 1; -#X connect 5 0 6 0; -#X connect 6 1 1 0; -#X connect 7 0 8 0; -#X connect 8 0 0 0; -#X connect 9 0 5 0; -#X restore 436 660 pd non0; -#X obj 34 511 vasp.n 0; -#X obj 302 45 + 100; -#X obj 300 76 dbtorms; -#N canvas 445 282 498 348 cplx 0; -#X obj 19 229 vasp.join; -#X obj 19 73 t a b a; -#X obj 149 137 vasp.f?; -#X obj 19 14 inlet; -#X obj 19 258 outlet; -#X text 216 135 get length of source; -#X text 225 181 make immediate; -#X text 225 196 initialized to 0; -#X text 101 230 make complex vasp; -#X obj 87 176 vasp.! @detach 1; -#X obj 19 203 vasp.sync; -#X connect 0 0 4 0; -#X connect 1 0 10 0; -#X connect 1 1 9 0; -#X connect 1 2 2 0; -#X connect 2 0 9 1; -#X connect 3 0 1 0; -#X connect 9 0 10 1; -#X connect 10 0 0 0; -#X connect 10 1 0 1; -#X restore 27 43 pd cplx; -#X text 281 166 resample; -#X text 146 230 find spectral peak; -#X text 203 320 gate spectrum below threshold; -#X text 107 387 wait for threads to finish; -#X text 193 75 FFT; -#X text 195 100 -> polar; -#X text 192 439 -> cartesian; -#X text 202 467 inverse FFT; -#X text 440 637 get spectral density; -#X obj 28 168 vasp.xtilt 1 @detach 1 @inter 2; -#X obj 30 347 vasp.pow @detach 1; -#X obj 441 21 inlet; -#X text 194 347 treat spectrum exponentially; -#X obj 28 238 t a a; -#X obj 28 288 vasp; -#X obj 89 257 t b f; -#X obj 381 51 / -1200; -#X obj 381 77 t b f; -#X obj 382 129 pow; -#X msg 382 103 2; -#X obj 73 542 t a a; -#X obj 74 640 vasp.* @detach 1; -#X obj 108 573 vasp.flp; -#X obj 33 678 outlet; -#X connect 0 0 28 0; -#X connect 0 1 10 1; -#X connect 1 0 8 0; -#X connect 2 0 7 0; -#X connect 3 0 15 0; -#X connect 4 0 18 0; -#X connect 5 0 34 0; -#X connect 6 0 16 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 29 0; -#X connect 10 0 1 0; -#X connect 10 1 1 1; -#X connect 11 0 5 0; -#X connect 12 0 35 0; -#X connect 14 0 13 0; -#X connect 15 0 42 0; -#X connect 16 0 17 0; -#X connect 17 0 5 1; -#X connect 18 0 2 0; -#X connect 28 0 32 0; -#X connect 29 0 10 0; -#X connect 29 0 14 0; -#X connect 30 0 29 1; -#X connect 32 0 11 0; -#X connect 32 1 33 1; -#X connect 33 0 9 0; -#X connect 34 0 33 0; -#X connect 34 1 9 1; -#X connect 35 0 36 0; -#X connect 36 0 38 0; -#X connect 36 1 37 1; -#X connect 37 0 28 1; -#X connect 38 0 37 0; -#X connect 39 0 40 0; -#X connect 39 1 41 0; -#X connect 40 0 42 0; -#X restore 17 440 pd enhance; -#N canvas 0 22 501 392 expand 0; -#X obj 41 33 inlet; -#X obj 41 313 outlet; -#X obj 42 64 t a a; -#X obj 76 93 vasp.!; -#X obj 41 280 vasp.* @detach 1; -#X obj 41 247 vasp.sync; -#X obj 77 167 vasp.flp @detach 1; -#X obj 218 35 inlet; -#X obj 76 202 vasp.pow @detach 1; -#X obj 376 37 inlet; -#X text 229 165 make a smooth volume curve; -#X obj 77 136 vasp.abs @detach 1; -#X connect 0 0 2 0; -#X connect 2 0 5 0; -#X connect 2 1 3 0; -#X connect 3 0 11 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 5 1 4 1; -#X connect 6 0 8 0; -#X connect 7 0 6 1; -#X connect 8 0 5 1; -#X connect 9 0 8 1; -#X connect 11 0 6 0; -#X restore 18 275 pd expand; -#X obj 82 204 nbx 7 18 1 1e+06 1 1 empty empty low_pass_(samples) 0 --8 0 12 -225271 -1 -1 220.673 256; -#X obj 82 240 nbx 7 18 -3 5 0 1 empty empty power 0 -8 0 12 -225271 --1 -1 0 256; -#N canvas 0 22 517 408 expand 0; -#X obj 41 33 inlet; -#X obj 41 313 outlet; -#X obj 42 64 t a a; -#X obj 76 93 vasp.!; -#X obj 41 280 vasp.* @detach 1; -#X obj 41 247 vasp.sync; -#X obj 77 167 vasp.flp @detach 1; -#X obj 218 35 inlet; -#X obj 76 202 vasp.pow @detach 1; -#X obj 376 37 inlet; -#X text 229 165 make a smooth volume curve; -#X obj 77 136 vasp.abs @detach 1; -#X connect 0 0 2 0; -#X connect 2 0 5 0; -#X connect 2 1 3 0; -#X connect 3 0 11 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 5 1 4 1; -#X connect 6 0 8 0; -#X connect 7 0 6 1; -#X connect 8 0 5 1; -#X connect 9 0 8 1; -#X connect 11 0 6 0; -#X restore 18 546 pd expand; -#X obj 84 482 nbx 7 18 1 1e+06 1 1 empty empty low_pass_(samples) 0 --8 0 12 -225271 -1 -1 5633.54 256; -#X obj 84 518 nbx 7 18 -3 10 0 1 empty empty power 0 -8 0 12 -225271 --1 -1 3 256; -#X obj 17 614 bng 25 250 50 0 empty empty ready 0 -6 0 12 -24198 -1 --1; -#X text 172 240 0... no change; -#X text 172 519 0... no change; -#X text 174 410 1... no change; -#X connect 0 0 38 1; -#X connect 1 0 38 2; -#X connect 4 0 3 0; -#X connect 5 0 2 0; -#X connect 6 0 23 0; -#X connect 8 0 5 0; -#X connect 9 0 5 0; -#X connect 10 0 4 0; -#X connect 11 0 4 0; -#X connect 12 0 23 0; -#X connect 14 0 25 0; -#X connect 15 0 25 1; -#X connect 20 0 24 0; -#X connect 21 0 24 0; -#X connect 23 0 31 0; -#X connect 24 0 32 0; -#X connect 25 0 39 0; -#X connect 30 0 38 3; -#X connect 31 0 12 0; -#X connect 32 0 21 0; -#X connect 34 0 45 0; -#X connect 35 0 24 1; -#X connect 36 0 23 1; -#X connect 38 0 42 0; -#X connect 39 0 38 0; -#X connect 40 0 39 1; -#X connect 41 0 39 2; -#X connect 42 0 34 0; -#X connect 43 0 42 1; -#X connect 44 0 42 2; diff --git a/externals/grill/vasp/pd-ex/freeze.pd b/externals/grill/vasp/pd-ex/freeze.pd deleted file mode 100644 index bc9aaa41..00000000 --- a/externals/grill/vasp/pd-ex/freeze.pd +++ /dev/null @@ -1,414 +0,0 @@ -#N canvas 268 127 978 522 12; -#N canvas 293 22 643 732 freeze 0; -#X obj 27 137 vasp.split 2; -#X obj 30 463 vasp.join 2; -#X obj 27 74 vasp.cfft @detach 1; -#X obj 32 519 vasp.c!fft @detach 1; -#X obj 25 13 inlet; -#X obj 91 230 * 0.01; -#X obj 302 17 inlet; -#X obj 26 107 vasp.polar @detach 1; -#X obj 32 490 vasp.rect @detach 1; -#X obj 29 321 vasp.gate @detach 1; -#X obj 95 374 vasp.noise @detach 1; -#X obj 29 434 vasp.sync; -#X obj 91 208 vasp.max? @detach 1; -#X obj 381 17 inlet; -#X obj 167 619 outlet; -#N canvas 238 212 484 334 non0 0; -#X obj 58 254 outlet; -#X obj 60 158 / 1; -#X obj 26 11 inlet; -#X obj 26 39 t a a; -#X obj 234 77 vasp.f?; -#X obj 46 98 vasp.!= 0 @detach 1; -#X obj 27 124 vasp.sum?; -#X obj 60 195 rmstodb; -#X obj 60 225 - 100; -#X obj 47 71 vasp.!; -#X connect 1 0 7 0; -#X connect 2 0 3 0; -#X connect 3 0 6 0; -#X connect 3 1 4 0; -#X connect 4 0 1 1; -#X connect 5 0 6 0; -#X connect 6 1 1 0; -#X connect 7 0 8 0; -#X connect 8 0 0 0; -#X connect 9 0 5 0; -#X restore 164 553 pd non0; -#X obj 32 564 vasp.n 0; -#X obj 302 45 + 100; -#X obj 300 76 dbtorms; -#N canvas 445 282 498 348 cplx 0; -#X obj 19 229 vasp.join; -#X obj 19 73 t a b a; -#X obj 149 137 vasp.f?; -#X obj 19 14 inlet; -#X obj 19 258 outlet; -#X text 216 135 get length of source; -#X text 225 181 make immediate; -#X text 225 196 initialized to 0; -#X text 101 230 make complex vasp; -#X obj 87 176 vasp.! @detach 1; -#X obj 19 203 vasp.sync; -#X connect 0 0 4 0; -#X connect 1 0 10 0; -#X connect 1 1 9 0; -#X connect 1 2 2 0; -#X connect 2 0 9 1; -#X connect 3 0 1 0; -#X connect 9 0 10 1; -#X connect 10 0 0 0; -#X connect 10 1 0 1; -#X restore 27 43 pd cplx; -#X text 281 166 resample; -#X text 146 230 find spectral peak; -#X text 203 320 gate spectrum below threshold; -#X text 106 435 wait for threads to finish; -#X text 193 75 FFT; -#X text 195 100 -> polar; -#X text 191 487 -> cartesian; -#X text 201 515 inverse FFT; -#X text 266 371 randomize complex arguments; -#X text 228 551 get spectral density; -#X obj 28 168 vasp.xtilt 1 @detach 1 @inter 2; -#X obj 30 347 vasp.pow @detach 1; -#X obj 441 21 inlet; -#X text 194 347 treat spectrum exponentially; -#X obj 28 238 t a a; -#X obj 28 288 vasp; -#X obj 89 257 t b f; -#X obj 95 399 vasp.* 3.14159 @detach 1; -#X obj 381 51 / -1200; -#X obj 381 77 t b f; -#X obj 382 129 pow; -#X msg 382 103 2; -#X obj 33 617 vasp.u; -#X connect 0 0 30 0; -#X connect 0 1 10 0; -#X connect 1 0 8 0; -#X connect 2 0 7 0; -#X connect 3 0 16 0; -#X connect 4 0 19 0; -#X connect 5 0 36 0; -#X connect 6 0 17 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 31 0; -#X connect 10 0 37 0; -#X connect 11 0 1 0; -#X connect 11 1 1 1; -#X connect 12 0 5 0; -#X connect 13 0 38 0; -#X connect 15 0 14 0; -#X connect 16 0 42 0; -#X connect 17 0 18 0; -#X connect 18 0 5 1; -#X connect 19 0 2 0; -#X connect 30 0 34 0; -#X connect 31 0 11 0; -#X connect 31 0 15 0; -#X connect 32 0 31 1; -#X connect 34 0 12 0; -#X connect 34 1 35 1; -#X connect 35 0 9 0; -#X connect 36 0 35 0; -#X connect 36 1 9 1; -#X connect 37 0 11 1; -#X connect 38 0 39 0; -#X connect 39 0 41 0; -#X connect 39 1 40 1; -#X connect 40 0 30 1; -#X connect 41 0 40 0; -#X restore 18 331 pd freeze; -#X obj 73 210 nbx 6 18 -100 0 0 1 empty empty spectral_gate(dB) 0 -8 -0 12 -225271 -1 -1 -95 256; -#X obj 73 253 nbx 7 18 -10000 10000 0 1 empty empty transpose(cents) -0 -8 0 12 -225271 -1 -1 0 256; -#X obj 448 278 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 729 279 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#N canvas 0 22 476 326 save 0; -#X obj 30 198 soundfiler; -#X obj 30 134 symbol; -#X obj 29 106 savepanel; -#X obj 32 8 inlet; -#X obj 27 232 outlet; -#X obj 30 42 route new again; -#X obj 29 73 t b; -#X obj 84 73 t b; -#X msg 27 169 write -bytes 3 -wave \$1 dst; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 2 0 1 0; -#X connect 3 0 5 0; -#X connect 5 0 6 0; -#X connect 5 1 7 0; -#X connect 6 0 2 0; -#X connect 7 0 1 0; -#X connect 8 0 0 0; -#X restore 729 250 pd save; -#N canvas 205 58 359 496 open 0; -#X obj 19 96 openpanel; -#X obj 21 6 inlet; -#X obj 15 390 outlet; -#X obj 20 123 symbol; -#X obj 17 345 vasp.u; -#X obj 17 233 t b; -#X obj 22 33 route new again; -#X obj 19 66 t b; -#X obj 74 66 t b; -#X msg 16 281 vasp src; -#X obj 74 230 s \$0-srclen; -#X obj 15 313 vasp.opt; -#X obj 18 192 sndfiler; -#X msg 19 152 read -resize \$1 src; -#X connect 0 0 3 0; -#X connect 1 0 6 0; -#X connect 3 0 13 0; -#X connect 4 0 2 0; -#X connect 5 0 9 0; -#X connect 6 0 7 0; -#X connect 6 1 8 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 11 0; -#X connect 11 0 4 0; -#X connect 12 0 5 0; -#X connect 12 0 10 0; -#X connect 13 0 12 0; -#X restore 448 250 pd open; -#X msg 381 222 stop; -#N canvas 0 22 450 300 graph10 0; -#X array src 2.2491e+07 float 0; -#X coords 0 1 2.2491e+07 -1 600 150 1; -#X restore 322 20 graph; -#X msg 447 222 new; -#X msg 482 222 again; -#X msg 728 222 new; -#X msg 761 222 again; -#X msg 332 222 play; -#X obj 8 9 cnv 15 300 48 empty empty freeze 5 14 0 20 -233017 -66577 -0; -#X text 128 13 make static sound; -#X obj 18 108 bng 25 250 50 0 empty empty do! 0 -6 0 12 -24198 -1 -1 -; -#X obj 107 115 nbx 12 18 0 1e+08 0 1 empty empty length(frames) 0 -8 -0 12 -225271 -1 -1 1e+06 256; -#X obj 19 375 nbx 9 14 -1e+37 1e+37 0 0 empty empty spectral_density(dB) -0 -6 0 10 -262131 -1 -1 -33.6745 256; -#X obj 332 197 cnv 15 100 20 empty empty play_src 5 8 0 10 -261681 --66577 0; -#X obj 447 197 cnv 15 100 20 empty empty read_src 5 8 0 10 -261681 --66577 0; -#X obj 727 197 cnv 15 100 20 empty empty write_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 450 300 graph10 0; -#X array dst 1e+06 float 0; -#X coords 0 1 999999 -1 600 150 1; -#X restore 325 304 graph; -#X msg 663 223 stop; -#X msg 614 223 play; -#X obj 614 198 cnv 15 100 20 empty empty play_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 519 371 playsrc 0; -#X obj 17 274 dac~; -#X obj 19 21 inlet; -#X obj 17 49 route play; -#X obj 18 197 tabplay~ src; -#X obj 338 23 r \$0-srclen; -#X obj 166 22 r \$0-offs; -#X obj 249 22 r \$0-len; -#X obj 338 48 t b f; -#X obj 166 94 *; -#X obj 248 93 *; -#X obj 75 132 pack 0 0; -#X obj 19 81 t b; -#X obj 77 105 loadbang; -#X obj 113 274 outlet; -#X obj 19 159 any; -#X obj 18 237 *~; -#X obj 451 21 inlet; -#X obj 451 50 pack 0 30; -#X obj 451 78 line~; -#X connect 1 0 2 0; -#X connect 2 0 11 0; -#X connect 2 1 3 0; -#X connect 3 0 15 0; -#X connect 3 1 13 0; -#X connect 4 0 7 0; -#X connect 5 0 8 0; -#X connect 6 0 9 0; -#X connect 7 0 8 0; -#X connect 7 0 9 0; -#X connect 7 1 8 1; -#X connect 7 1 9 1; -#X connect 8 0 10 0; -#X connect 9 0 10 1; -#X connect 10 0 14 1; -#X connect 11 0 14 0; -#X connect 12 0 10 0; -#X connect 14 0 3 0; -#X connect 15 0 0 0; -#X connect 15 0 0 1; -#X connect 16 0 17 0; -#X connect 17 0 18 0; -#X connect 18 0 15 1; -#X restore 332 250 pd playsrc; -#N canvas 0 22 499 351 playdst 0; -#X obj 23 199 dac~; -#X obj 19 21 inlet; -#X obj 22 51 route play; -#X obj 21 83 tabplay~ dst; -#X obj 113 200 outlet; -#X obj 27 147 *~; -#X obj 171 27 inlet; -#X obj 171 56 pack 0 30; -#X obj 171 84 line~; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 2 1 3 0; -#X connect 3 0 5 0; -#X connect 3 1 4 0; -#X connect 5 0 0 0; -#X connect 5 0 0 1; -#X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 8 0 5 1; -#X restore 614 251 pd playdst; -#N canvas 249 202 571 514 copy 0; -#X obj 27 26 inlet; -#X obj 27 51 t b b; -#X obj 316 19 inlet; -#X obj 25 361 outlet; -#X obj 26 81 vasp src; -#X obj 26 229 vasp.f; -#X obj 26 201 vasp.o; -#X obj 128 31 r \$0-offs; -#X obj 211 31 r \$0-len; -#X obj 316 87 f 1e+06; -#X obj 366 21 loadbang; -#X obj 84 169 *; -#X obj 117 169 *; -#X obj 82 139 vasp.f?; -#X obj 27 109 t a a; -#X obj 27 259 vasp.sync; -#X obj 26 328 vasp.f -1; -#X text 167 288 copy src to dst; -#X text 108 328 take all dst; -#X text 311 193 resize dst buffer; -#X text 341 221 set to zero; -#X obj 185 222 vasp.= 0 @detach 1; -#X obj 26 287 vasp.-> @detach 1; -#X obj 187 174 vasp.s @ref dst @detach 1; -#X connect 0 0 1 0; -#X connect 1 0 4 0; -#X connect 1 1 23 0; -#X connect 2 0 9 0; -#X connect 4 0 14 0; -#X connect 5 0 15 0; -#X connect 6 0 5 0; -#X connect 7 0 11 1; -#X connect 8 0 12 1; -#X connect 9 0 23 1; -#X connect 10 0 9 0; -#X connect 11 0 6 1; -#X connect 12 0 5 1; -#X connect 13 0 11 0; -#X connect 13 0 12 0; -#X connect 14 0 6 0; -#X connect 14 1 13 0; -#X connect 15 0 22 0; -#X connect 15 1 22 1; -#X connect 16 0 3 0; -#X connect 21 0 15 1; -#X connect 22 1 16 0; -#X connect 23 0 21 0; -#X restore 18 159 pd copy; -#X text 85 160 copy and resize; -#X obj 323 170 hsl 600 15 0 1 0 1 \$0-r2 empty empty -2 -6 0 8 -262131 --1 -1 12800 0; -#X obj 323 5 hsl 600 15 0 1 0 1 \$0-r1 empty empty -2 -6 0 8 -262131 --1 -1 0 0; -#N canvas 148 330 313 273 sel 0; -#X obj 30 25 r \$0-r1; -#X obj 110 25 r \$0-r2; -#X obj 30 100 min; -#X obj 113 100 max; -#X obj 30 53 t f f; -#X obj 110 50 t b b f; -#X obj 113 130 -; -#X obj 27 190 s \$0-offs; -#X obj 113 190 s \$0-len; -#X obj 114 161 * -1; -#X connect 0 0 4 0; -#X connect 1 0 5 0; -#X connect 2 0 6 0; -#X connect 2 0 7 0; -#X connect 3 0 6 1; -#X connect 4 0 2 0; -#X connect 4 1 3 0; -#X connect 5 0 2 0; -#X connect 5 1 3 0; -#X connect 5 2 3 1; -#X connect 5 2 2 1; -#X connect 6 0 9 0; -#X connect 9 0 8 0; -#X restore 871 198 pd sel; -#X obj 73 297 nbx 7 18 0.01 10 1 1 empty empty power 0 -8 0 12 -225271 --1 -1 0.873788 256; -#X obj 331 277 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 613 277 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 11 37 (C)2002-2007 Thomas Grill; -#X text 153 210 -100... no gate; -#X text 162 296 1... no power; -#X obj 18 426 bng 25 250 50 0 empty empty normalize 0 -6 0 12 -24198 --1 -1; -#N canvas 0 22 458 308 normalize 0; -#X obj 127 29 loadbang; -#X msg 127 54 detach 1; -#X text 120 75 no attributes yet; -#X obj 39 115 vasp.opt; -#X obj 38 149 vasp.u; -#X obj 39 32 inlet; -#X obj 40 82 vasp dst; -#X obj 40 56 t b; -#X connect 0 0 1 0; -#X connect 1 0 3 0; -#X connect 3 0 4 0; -#X connect 5 0 7 0; -#X connect 6 0 3 0; -#X connect 7 0 6 0; -#X restore 18 454 pd normalize; -#X obj 593 220 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 4900 1; -#X obj 309 222 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 4900 1; -#X connect 0 0 18 0; -#X connect 1 0 0 1; -#X connect 2 0 0 2; -#X connect 5 0 4 0; -#X connect 6 0 3 0; -#X connect 7 0 26 0; -#X connect 9 0 6 0; -#X connect 10 0 6 0; -#X connect 11 0 5 0; -#X connect 12 0 5 0; -#X connect 13 0 26 0; -#X connect 16 0 28 0; -#X connect 17 0 28 1; -#X connect 23 0 27 0; -#X connect 24 0 27 0; -#X connect 26 0 34 0; -#X connect 27 0 35 0; -#X connect 28 0 0 0; -#X connect 33 0 0 3; -#X connect 34 0 13 0; -#X connect 35 0 24 0; -#X connect 39 0 40 0; -#X connect 41 0 27 1; -#X connect 42 0 26 1; diff --git a/externals/grill/vasp/pd-ex/frqmax.pd b/externals/grill/vasp/pd-ex/frqmax.pd deleted file mode 100644 index f34fb297..00000000 --- a/externals/grill/vasp/pd-ex/frqmax.pd +++ /dev/null @@ -1,336 +0,0 @@ -#N canvas 530 176 764 598 12; -#N canvas 0 22 450 300 graph1 0; -#X array array1 2.205e+06 float 0; -#X coords 0 1 2.205e+06 -1 300 140 1; -#X restore 403 192 graph; -#X msg 23 156 vasp array1; -#X text 127 156 buffer to analyze; -#X obj 23 417 vasp.??; -#X obj 24 84 nbx 5 18 -100 0 0 1 \$0-thresh empty empty 0 -6 0 14 -225271 --1 -1 -5 256; -#X text 84 415 print list omitting zero values; -#X obj 22 536 print F; -#X obj 195 535 print V; -#N canvas 383 238 314 291 mag 0; -#X obj 37 34 inlet; -#X obj 39 214 outlet; -#N canvas 403 262 454 304 rfft 0; -#X obj 38 100 vasp.rfft; -#X obj 28 138 vasp.lower; -#X obj 114 138 vasp.upper; -#X obj 42 228 vasp.polar; -#X obj 43 170 vasp.sync; -#X obj 42 197 vasp.join; -#X obj 42 262 vasp.re; -#X text 112 262 get magnitude only; -#X text 119 102 real FFT; -#X text 132 156 separate real and imag part; -#X text 133 229 make polar representation; -#X obj 39 20 inlet; -#X obj 38 62 vasp.!; -#X text 97 64 make temporary buffer; -#X obj 41 305 outlet; -#X connect 0 0 1 0; -#X connect 0 0 2 0; -#X connect 1 0 4 0; -#X connect 2 0 4 1; -#X connect 3 0 6 0; -#X connect 4 0 5 0; -#X connect 4 1 5 1; -#X connect 5 0 3 0; -#X connect 6 0 14 0; -#X connect 11 0 12 0; -#X connect 12 0 0 0; -#X restore 100 151 pd rfft; -#N canvas 0 22 454 344 cfft 0; -#X obj 39 187 vasp.polar; -#X obj 39 221 vasp.re; -#X text 109 221 get magnitude only; -#X text 130 188 make polar representation; -#X obj 38 42 vasp.!; -#X obj 38 154 vasp.cfft; -#X obj 40 253 vasp.lower; -#X obj 37 100 vasp.sync; -#X text 169 56 make temporary buffers; -#X obj 101 44 vasp.!; -#X obj 102 71 vasp.= 0; -#X text 119 154 complex FFT; -#X obj 37 128 vasp.join; -#X obj 35 11 inlet; -#X obj 37 291 outlet; -#X connect 0 0 1 0; -#X connect 1 0 6 0; -#X connect 4 0 7 0; -#X connect 5 0 0 0; -#X connect 6 0 14 0; -#X connect 7 0 12 0; -#X connect 7 1 12 1; -#X connect 9 0 10 0; -#X connect 10 0 7 1; -#X connect 12 0 5 0; -#X connect 13 0 4 0; -#X connect 13 0 9 0; -#X restore 38 88 pd cfft; -#X text 105 89 complex method; -#X text 165 147 real method; -#X text 166 167 (off by one bin?); -#X connect 0 0 3 0; -#X connect 3 0 1 0; -#X restore 24 185 pd mag; -#X text 77 186 get spectral magnitude; -#X obj 11 10 cnv 15 700 50 empty empty fftmax 10 22 0 24 -260818 -1 -0; -#N canvas 0 22 478 370 load 0; -#X obj 30 100 openpanel; -#X obj 31 254 pack s s s s; -#X obj 28 130 t b b s b; -#X obj 30 22 inlet; -#X obj 31 313 soundfiler; -#X obj 29 74 t b s; -#X text 80 21 input message with target buffer; -#X obj 107 213 symbol array1; -#X obj 31 284 route list; -#X obj 51 189 symbol -resize; -#X obj 28 159 symbol read; -#X connect 0 0 2 0; -#X connect 1 0 8 0; -#X connect 2 0 10 0; -#X connect 2 1 9 0; -#X connect 2 2 1 2; -#X connect 2 3 7 0; -#X connect 3 0 5 0; -#X connect 5 0 0 0; -#X connect 5 1 7 1; -#X connect 7 0 1 3; -#X connect 8 0 4 0; -#X connect 9 0 1 1; -#X connect 10 0 1 0; -#X restore 410 144 pd load; -#X msg 410 114 array1; -#X text 442 85 load file into buffer; -#X obj 410 83 bng 25 250 50 0 empty empty empty 0 -6 0 8 -225271 -1 --1; -#X obj 125 259 vasp.max?; -#X text 103 383 discriminate lower values; -#X obj 125 350 *; -#X obj 156 299 + 100; -#X obj 156 322 dbtorms; -#X obj 23 382 vasp.gate; -#X obj 23 215 t a a; -#N canvas 0 22 359 314 ny 0; -#X obj 33 128 samplerate~; -#X obj 33 69 vasp.f?; -#X obj 32 39 inlet; -#X obj 32 171 /; -#X obj 32 97 t b f; -#X obj 32 244 outlet; -#X obj 33 208 / 2; -#X connect 0 0 3 0; -#X connect 1 0 4 0; -#X connect 2 0 1 0; -#X connect 3 0 6 0; -#X connect 4 0 0 0; -#X connect 4 1 3 1; -#X connect 6 0 5 0; -#X restore 65 258 pd ny; -#X text 89 536 frequencies; -#X text 102 84 threshold in dB (eg. -6); -#N canvas 0 22 466 316 testsig 0; -#X msg 30 107 vasp array1; -#X obj 29 256 vasp.u; -#X obj 93 168 samplerate~; -#X obj 29 227 vasp.osc 441; -#X obj 92 193 / 100; -#X obj 94 138 t b f; -#X text 31 10 set frequency \, then bang to synthesize; -#X obj 31 71 route bang; -#X obj 31 41 inlet; -#X connect 0 0 3 0; -#X connect 2 0 4 0; -#X connect 3 0 1 0; -#X connect 4 0 3 1; -#X connect 5 0 2 0; -#X connect 5 1 4 1; -#X connect 7 0 0 0; -#X connect 7 1 5 0; -#X connect 8 0 7 0; -#X restore 498 468 pd testsig; -#X text 496 392 create a test signal; -#X obj 23 121 bng 25 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 --1; -#X text 51 119 bang to start analysis; -#X obj 220 258 r \$0-thresh; -#X text 183 14 get loudest frequencies \, (C)2003-2007 Thomas Grill -; -#X text 184 34 http://grrrr.org; -#X obj 545 438 nbx 5 18 0 100000 0 0 empty empty frequency 0 -6 0 14 --225271 -1 -1 0 256; -#X obj 498 432 bng 25 250 50 0 empty empty make! 0 -6 0 8 -261689 -1 --1; -#N canvas 0 22 454 304 db 0; -#X obj 45 34 inlet; -#X obj 44 192 outlet; -#X obj 45 96 log; -#X obj 45 121 / 2.302; -#X text 114 122 ln 10; -#X obj 45 156 * 20; -#X connect 0 0 2 0; -#X connect 2 0 3 0; -#X connect 3 0 5 0; -#X connect 5 0 1 0; -#X restore 289 497 pd db; -#X obj 116 495 *; -#N canvas 0 22 458 308 list-map 0; -#N canvas 0 22 454 304 serial 0; -#X obj 65 38 inlet; -#X obj 53 227 outlet; -#X obj 38 180 list split 1; -#X obj 38 97 until; -#X obj 38 135 list append; -#X obj 64 64 t b l; -#X obj 182 130 bang; -#X connect 0 0 5 0; -#X connect 2 0 1 0; -#X connect 2 1 4 1; -#X connect 2 2 6 0; -#X connect 3 0 4 0; -#X connect 4 0 2 0; -#X connect 5 0 3 0; -#X connect 5 1 4 1; -#X connect 6 0 3 1; -#X restore 76 106 pd serial; -#N canvas 676 218 470 320 synth 0; -#X obj 55 34 inlet; -#X obj 107 266 outlet; -#X obj 200 37 inlet reset; -#X obj 55 61 route bang; -#X obj 134 99 t b a; -#X obj 197 64 t b b b; -#X obj 105 239 spigot; -#X msg 250 171 0; -#X msg 68 161 1; -#X obj 50 102 t b b b; -#X obj 185 169 list; -#X obj 126 166 any; -#X connect 0 0 3 0; -#X connect 2 0 5 0; -#X connect 3 0 9 0; -#X connect 3 1 4 0; -#X connect 4 0 11 0; -#X connect 4 1 10 1; -#X connect 5 0 10 0; -#X connect 5 1 10 1; -#X connect 5 2 7 0; -#X connect 6 0 1 0; -#X connect 7 0 6 1; -#X connect 8 0 6 1; -#X connect 9 0 7 0; -#X connect 9 1 11 0; -#X connect 9 2 8 0; -#X connect 10 0 11 1; -#X connect 11 0 10 0; -#X connect 11 0 6 0; -#X restore 59 196 pd synth; -#X obj 61 66 t b l b; -#X obj 61 31 inlet list-in; -#X obj 56 239 outlet list-out; -#X obj 261 242 outlet map-in; -#X obj 281 29 inlet map-out; -#X connect 0 0 5 0; -#X connect 1 0 4 0; -#X connect 2 0 1 0; -#X connect 2 1 0 0; -#X connect 2 2 1 1; -#X connect 3 0 2 0; -#X connect 6 0 1 0; -#X restore 23 495 pd list-map; -#N canvas 0 22 462 312 list-map 0; -#N canvas 0 22 454 304 serial 0; -#X obj 65 38 inlet; -#X obj 53 227 outlet; -#X obj 38 180 list split 1; -#X obj 38 97 until; -#X obj 38 135 list append; -#X obj 64 64 t b l; -#X obj 182 130 bang; -#X connect 0 0 5 0; -#X connect 2 0 1 0; -#X connect 2 1 4 1; -#X connect 2 2 6 0; -#X connect 3 0 4 0; -#X connect 4 0 2 0; -#X connect 5 0 3 0; -#X connect 5 1 4 1; -#X connect 6 0 3 1; -#X restore 76 106 pd serial; -#N canvas 676 218 474 324 synth 0; -#X obj 55 34 inlet; -#X obj 107 266 outlet; -#X obj 200 37 inlet reset; -#X obj 55 61 route bang; -#X obj 197 64 t b b b; -#X obj 105 239 spigot; -#X msg 250 171 0; -#X msg 68 161 1; -#X obj 50 102 t b b b; -#X obj 185 169 list; -#X obj 126 166 any; -#X obj 134 99 t b l; -#X connect 0 0 3 0; -#X connect 2 0 4 0; -#X connect 3 0 8 0; -#X connect 3 1 11 0; -#X connect 4 0 9 0; -#X connect 4 1 9 1; -#X connect 4 2 6 0; -#X connect 5 0 1 0; -#X connect 6 0 5 1; -#X connect 7 0 5 1; -#X connect 8 0 6 0; -#X connect 8 1 10 0; -#X connect 8 2 7 0; -#X connect 9 0 10 1; -#X connect 10 0 9 0; -#X connect 10 0 5 0; -#X connect 11 0 10 0; -#X connect 11 1 9 1; -#X restore 59 196 pd synth; -#X obj 61 66 t b l b; -#X obj 61 31 inlet list-in; -#X obj 56 239 outlet list-out; -#X obj 261 242 outlet map-in; -#X obj 281 29 inlet map-out; -#X connect 0 0 5 0; -#X connect 1 0 4 0; -#X connect 2 0 1 0; -#X connect 2 1 0 0; -#X connect 2 2 1 1; -#X connect 3 0 2 0; -#X connect 6 0 1 0; -#X restore 195 497 pd list-map; -#X text 257 536 dB; -#X connect 1 0 8 0; -#X connect 3 0 36 0; -#X connect 3 1 37 0; -#X connect 8 0 21 0; -#X connect 12 0 11 0; -#X connect 14 0 12 0; -#X connect 15 0 17 0; -#X connect 17 0 20 1; -#X connect 18 0 19 0; -#X connect 19 0 17 1; -#X connect 20 0 3 0; -#X connect 21 0 20 0; -#X connect 21 1 15 0; -#X connect 21 1 22 0; -#X connect 22 0 35 1; -#X connect 27 0 1 0; -#X connect 29 0 18 0; -#X connect 32 0 25 0; -#X connect 33 0 25 0; -#X connect 34 0 37 1; -#X connect 35 0 36 1; -#X connect 36 0 6 0; -#X connect 36 1 35 0; -#X connect 37 0 7 0; -#X connect 37 1 34 0; diff --git a/externals/grill/vasp/pd-ex/loudness.pd b/externals/grill/vasp/pd-ex/loudness.pd deleted file mode 100644 index b4fe5710..00000000 --- a/externals/grill/vasp/pd-ex/loudness.pd +++ /dev/null @@ -1,207 +0,0 @@ -#N canvas 258 35 637 398 12; -#N canvas 0 0 450 300 graph1 0; -#X array filter 1024 float 1; -#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#A 1000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X coords 0 10 1023 -10 200 140 1; -#X restore 412 91 graph; -#X obj 171 129 table buf 10; -#X obj 37 128 wedit buf; -#X obj 44 203 bng 25 250 50 0 empty empty start 0 -6 0 8 -24198 -1 --1; -#N canvas 289 57 385 501 do 0; -#X obj 40 20 inlet; -#X obj 38 452 outlet; -#X obj 38 175 vasp.parts; -#X msg 40 91 vasp buf; -#N canvas 0 0 256 335 accum 0; -#X obj 31 158 +; -#X obj 65 159 f; -#X obj 32 95 t f b; -#X obj 64 229 /; -#X obj 111 158 1; -#X obj 112 183 +; -#X obj 146 184 f; -#X obj 32 53 inlet; -#X obj 64 276 outlet; -#X obj 169 53 inlet; -#X text 171 28 reset; -#X text 31 31 value; -#X obj 169 79 t b; -#X obj 167 106 0; -#X connect 0 0 1 0; -#X connect 1 0 0 1; -#X connect 1 0 3 0; -#X connect 2 0 0 0; -#X connect 2 1 4 0; -#X connect 3 0 8 0; -#X connect 4 0 5 0; -#X connect 5 0 6 0; -#X connect 6 0 5 1; -#X connect 6 0 3 1; -#X connect 7 0 2 0; -#X connect 9 0 12 0; -#X connect 12 0 13 0; -#X connect 13 0 1 1; -#X connect 13 0 6 1; -#X restore 37 382 pd accum; -#X text 129 174 loop over fragments; -#X text 112 380 make average of fragments; -#X msg 122 212 radio detach 1; -#X obj 190 125 vasp.f?; -#X obj 188 90 vasp.! @ref filter; -#X obj 138 261 vasp.db2pow; -#X obj 40 52 t b b; -#N canvas 0 0 257 314 frag 0; -#X obj 40 210 vasp.rms; -#X obj 40 92 vasp.rfft; -#X obj 40 176 vasp.r!fft; -#X obj 40 136 vasp.*; -#X obj 41 65 vasp.!; -#X obj 44 25 inlet; -#X obj 39 248 outlet; -#X obj 152 22 inlet; -#X connect 0 0 6 0; -#X connect 1 0 3 0; -#X connect 2 0 0 0; -#X connect 3 0 2 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 7 0 3 1; -#X restore 37 319 pd frag; -#X text 107 315 filter fragment and calc rms; -#X connect 0 0 11 0; -#X connect 2 0 12 0; -#X connect 3 0 2 0; -#X connect 4 0 1 0; -#X connect 7 0 12 0; -#X connect 8 0 2 1; -#X connect 9 0 8 0; -#X connect 9 0 10 0; -#X connect 10 0 12 1; -#X connect 11 0 3 0; -#X connect 11 1 4 1; -#X connect 11 1 7 0; -#X connect 11 1 9 0; -#X connect 12 0 4 0; -#X restore 44 284 pd do; -#X obj 44 348 nbx 5 18 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 14 --261689 -1 -1 0 256; -#N canvas 277 107 454 304 2db 0; -#X obj 38 19 inlet; -#X obj 40 58 powtodb; -#X obj 40 88 - 100; -#X obj 41 124 outlet; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X restore 44 311 pd 2db; -#X text 36 101 load/play buffer; -#X msg 44 246 vasp buf; -#X text 129 347 weighted loudness (decibels); -#N canvas 312 40 678 619 filter 0; -#X obj 46 26 inlet; -#X obj 46 544 vasp.= @ref filter; -#X obj 46 508 t b a; -#X obj 45 572 vasp.u; -#X msg 44 104 0; -#X obj 43 60 route flat dbA dbB dbC; -#X msg 87 102 env -77.8 8 -56.7 16 -39.4 31.5 -26.2 63 -16.1 125 -8.6 -250 -3.2 500 0 1000 1.2 2000 1 4000 -1.1 8000 -6.6 16000 -15.8 31500 -; -#X obj 392 11 loadbang; -#X obj 392 36 samplerate~; -#X obj 45 476 vasp.tilt; -#X obj 107 448 /; -#X text 156 336 large enough temporary buffer; -#X obj 44 338 vasp.! 100000; -#X obj 296 66 / 2; -#X obj 462 14 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 295 38 r smpfrq; -#X obj 43 365 vasp.=; -#X obj 44 309 t b a; -#X obj 67 422 vasp.f?; -#X obj 44 394 t a a b; -#X obj 134 421 vasp.s? @ref filter; -#X msg 129 158 env -43.6 8 -28.5 16 -17.1 31.5 -9.3 63 -4.2 125 -1.3 -250 -0.3 500 0 1000 -0.1 2000 -0.7 4000 -2.9 8000 -8.4 16000 -17.6 -31500; -#X msg 170 221 env -17.7 8 -8.5 16 -3 31.5 -0.8 63 -0.2 125 0 250 0 -500 0 1000 -0.2 2000 -0.8 4000 -3 8000 -8.5 16000 -17.7 31500; -#X text 124 476 resample; -#X connect 0 0 5 0; -#X connect 1 0 3 0; -#X connect 2 0 1 0; -#X connect 2 1 1 1; -#X connect 4 0 17 0; -#X connect 5 0 4 0; -#X connect 5 1 6 0; -#X connect 5 2 21 0; -#X connect 5 3 22 0; -#X connect 6 0 17 0; -#X connect 7 0 8 0; -#X connect 8 0 13 0; -#X connect 9 0 2 0; -#X connect 10 0 9 1; -#X connect 12 0 16 0; -#X connect 13 0 12 1; -#X connect 14 0 8 0; -#X connect 15 0 13 0; -#X connect 16 0 19 0; -#X connect 17 0 12 0; -#X connect 17 1 16 1; -#X connect 18 0 10 0; -#X connect 19 0 9 0; -#X connect 19 1 18 0; -#X connect 19 2 20 0; -#X connect 20 0 10 1; -#X connect 21 0 17 0; -#X connect 22 0 17 0; -#X restore 471 344 pd filter; -#X msg 416 300 flat; -#X msg 464 299 dbA; -#X obj 11 10 cnv 15 600 50 empty empty loudness 10 22 0 24 -260818 --1 0; -#X text 202 41 http://www.parasitaere-kapazitaeten.net; -#X text 203 25 needs vasp and wedit; -#X text 203 10 get weighted loudness \, (C)2003 Thomas Grill; -#X msg 499 299 dbB; -#X msg 536 300 dbC; -#X connect 3 0 8 0; -#X connect 4 0 6 0; -#X connect 6 0 5 0; -#X connect 8 0 4 0; -#X connect 11 0 10 0; -#X connect 12 0 10 0; -#X connect 17 0 10 0; -#X connect 18 0 10 0; diff --git a/externals/grill/vasp/pd-ex/wedit.pd b/externals/grill/vasp/pd-ex/wedit.pd deleted file mode 100644 index ce3ab56b..00000000 --- a/externals/grill/vasp/pd-ex/wedit.pd +++ /dev/null @@ -1,1727 +0,0 @@ -#N canvas 52 39 754 360 10; -#X obj 73 100 hsl 401 100 0 400 0 0 \$0-slider1snd \$0-slider1rcv empty --2 -6 1728 8 -262144 -1 -1 0 0; -#X obj 37 90 cnv 15 600 220 empty empty empty 20 12 0 14 -233017 -66577 -0; -#N canvas 389 97 591 525 inside 0; -#N canvas 184 311 671 358 todo 0; -#X floatatom 60 136 5 0 0 0 - - -; -#X msg 60 173 \; \$2-p1b size \$1; -#X obj 60 153 pack 0 \$0; -#X msg 60 85 \; \$2-p1b color \$1; -#X floatatom 60 48 5 0 0 0 - - -; -#X obj 60 65 pack 0 \$0; -#X text 210 57 wenn eine range den focus erhaelt (indem man in sie -klickt) dann:; -#X text 212 96 1 border changes to blue; -#X text 211 115 2 other border gets black; -#X text 211 136 3 middle is calculated; -#X text 211 156 4 range min/max is set and tested; -#N canvas 0 0 687 526 todo 0; -#X text 51 126 noch kein scrollen und vergroessern; -#X text 52 78 beim prototyp noch kein cursor (wird nicht so schnell -kommen...; -#X text 47 159 wavedisplay verwendet normale anzeige von pd; -#X text 44 190 laengenanzeige in samples; -#X text 78 12 todo; -#X text 49 36 fuer das gop-tool muss die groesse variabel sein; -#X text 53 220 record-moeglichkeit; -#X text 47 246 preferences abspeichern: welches fileformat \, temporaere -aufnahmedatei \, ab welcher groesse schreiben auf disk...; -#X text 49 294 stereo-files...; -#X restore 65 247 pd todo; -#X text 79 13 only for testin \, debugging and todo list; -#N canvas 0 0 476 326 reset 0; -#X obj 183 177 s \$0-sm; -#X obj 171 233 s \$0-rb; -#X obj 123 230 s \$0-lb; -#X msg 123 208 0; -#X msg 171 212 400; -#X obj 106 265 s \$0-redraw; -#X obj 117 145 t b b b f; -#X msg 145 102 1; -#X obj 192 32 inlet; -#X obj 221 72 symbol \$0-; -#X msg 221 94 \; \$1 resize 400 \, bang; -#X connect 3 0 2 0; -#X connect 4 0 1 0; -#X connect 6 0 5 0; -#X connect 6 1 3 0; -#X connect 6 2 4 0; -#X connect 6 3 0 0; -#X connect 7 0 6 0; -#X connect 8 0 7 0; -#X connect 8 0 9 0; -#X connect 9 0 10 0; -#X restore 150 242 pd reset; -#X obj 150 223 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X connect 0 0 2 0; -#X connect 2 0 1 0; -#X connect 4 0 5 0; -#X connect 5 0 3 0; -#X connect 14 0 13 0; -#X restore 373 70 pd todo; -#N canvas 154 197 727 356 play 0; -#X obj 266 115 r \$0-o; -#X obj 309 87 r \$0-f; -#X obj 266 156 pack 0 0; -#X obj 51 197 outlet~; -#X msg 370 100 stop; -#X msg 266 177 set \$1 \$2; -#X msg 51 123; -#X msg 69 98 set bang; -#X msg 149 69 set; -#X obj 149 49 loadbang; -#X obj 309 114 t b f; -#X obj 266 233 spigot; -#X obj 51 77 t b b b; -#X msg 297 205 0; -#X obj 233 75 t b b b; -#X msg 334 206 1; -#X text 155 260 loop not exactly a loop \, based on messages not samples -; -#X obj 51 158 tabplay~ \$0-; -#X obj 412 22 r \$0-loopbutton; -#X obj 233 10 r \$0-playbutton; -#X obj 51 46 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 22 27 play all (not used); -#X obj 233 50 sel 1 0; -#X obj 233 32 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X obj 467 149 spigot; -#X obj 412 68 sel 0 1; -#X msg 412 90 1; -#X msg 445 91 0; -#X obj 541 66 loadbang; -#X obj 412 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X obj 467 177 s \$0-stopped; -#X obj 118 206 sel 1; -#X obj 118 182 0; -#X obj 118 253 sel 1; -#X obj 118 228 0; -#X connect 0 0 2 0; -#X connect 1 0 10 0; -#X connect 2 0 5 0; -#X connect 4 0 17 0; -#X connect 4 0 30 0; -#X connect 5 0 11 0; -#X connect 6 0 17 0; -#X connect 7 0 6 0; -#X connect 8 0 6 0; -#X connect 9 0 8 0; -#X connect 10 0 2 0; -#X connect 10 1 2 1; -#X connect 11 0 6 0; -#X connect 12 0 6 0; -#X connect 12 1 7 0; -#X connect 12 2 13 0; -#X connect 13 0 11 1; -#X connect 14 0 6 0; -#X connect 14 1 2 0; -#X connect 14 2 15 0; -#X connect 15 0 11 1; -#X connect 17 0 3 0; -#X connect 17 1 24 0; -#X connect 17 1 32 0; -#X connect 18 0 29 0; -#X connect 19 0 23 0; -#X connect 20 0 12 0; -#X connect 22 0 14 0; -#X connect 22 1 4 0; -#X connect 23 0 22 0; -#X connect 23 0 32 1; -#X connect 24 0 30 0; -#X connect 25 0 26 0; -#X connect 25 1 27 0; -#X connect 26 0 24 1; -#X connect 27 0 24 1; -#X connect 28 0 26 0; -#X connect 29 0 25 0; -#X connect 29 0 34 1; -#X connect 31 0 34 0; -#X connect 32 0 31 0; -#X connect 33 0 6 0; -#X connect 34 0 33 0; -#X restore 87 242 pd play; -#N canvas 0 0 484 334 zu_vasp 0; -#X obj 73 96 r \$0-lb; -#X obj 173 97 r \$0-rb; -#X obj 138 177 -; -#X obj 138 155 t b f; -#X obj 73 148 s \$0-o; -#X obj 138 198 s \$0-f; -#X obj 220 97 r \$0-sm; -#X obj 120 96 r \$0-sm; -#X obj 73 124 * 1; -#X obj 173 120 * 1; -#X text 81 63 setzt offset und frames(length) in den vasp-objekten -; -#X obj 202 155 s \$0-rbs; -#X connect 0 0 8 0; -#X connect 1 0 9 0; -#X connect 2 0 5 0; -#X connect 3 0 2 0; -#X connect 3 1 2 1; -#X connect 6 0 9 1; -#X connect 7 0 8 1; -#X connect 8 0 4 0; -#X connect 8 0 3 0; -#X connect 9 0 2 0; -#X connect 9 0 11 0; -#X restore 88 197 pd zu_vasp; -#N canvas 105 284 510 289 zu_sampledisplay 0; -#X obj 63 46 r \$0-lb; -#X obj 163 47 r \$0-rb; -#X obj 128 127 -; -#X obj 128 105 t b f; -#X obj 210 47 r \$0-sm; -#X obj 110 46 r \$0-sm; -#X obj 63 74 * 1; -#X obj 163 70 * 1; -#X obj 63 156 div; -#X obj 185 161 div; -#X obj 275 161 div; -#X obj 63 181 s \$0-lbs_displ; -#X obj 185 183 s \$0-rs_displ; -#X obj 275 183 s \$0-rbs_displ; -#X msg 293 66 400; -#X obj 293 45 loadbang; -#X connect 0 0 6 0; -#X connect 1 0 7 0; -#X connect 2 0 9 0; -#X connect 3 0 2 0; -#X connect 3 1 2 1; -#X connect 4 0 7 1; -#X connect 5 0 6 1; -#X connect 6 0 3 0; -#X connect 6 0 8 0; -#X connect 7 0 2 0; -#X connect 7 0 10 0; -#X connect 8 0 11 0; -#X connect 9 0 12 0; -#X connect 10 0 13 0; -#X connect 14 0 7 0; -#X connect 15 0 14 0; -#X restore 88 218 pd zu_sampledisplay; -#N canvas 78 106 492 180 playbuttons 0; -#N canvas 0 0 443 463 playbutton 0; -#X obj 41 72 tgl 12 0 \$0-playselection \$0-playselection_r empty 16 -6 1728 8 -262144 -1 -1 0 1; -#X text 67 68 playselection; -#X obj 41 42 r \$0-playbutton; -#X obj 41 127 \$0; -#X obj 59 178 \$0; -#X msg 137 120 \; \$1-play_white color 11 \; \$1-play_dark color 0 -; -#X msg 117 219 \; \$1-play_white color 0 \; \$1-play_dark color 11 -; -#X msg 137 168 \; \$1-playbutton1 color 18; -#X msg 116 267 \; \$1-playbutton1 color 16; -#X obj 41 99 sel 1 0; -#X obj 160 90 s \$0-playbutton; -#X msg 160 68 set \$1; -#X obj 81 392 s \$0-playbuttonr; -#X obj 81 342 r \$0-stopped; -#X msg 81 365 set 0; -#X msg 48 366 0; -#X connect 0 0 9 0; -#X connect 0 0 11 0; -#X connect 2 0 0 0; -#X connect 3 0 5 0; -#X connect 3 0 7 0; -#X connect 4 0 6 0; -#X connect 4 0 8 0; -#X connect 9 0 3 0; -#X connect 9 1 4 0; -#X connect 11 0 10 0; -#X connect 13 0 14 0; -#X connect 13 0 15 0; -#X connect 14 0 12 0; -#X connect 15 0 0 0; -#X restore 46 76 pd playbutton; -#N canvas 0 0 490 451 loopbutton 0; -#X obj 71 109 \$0; -#X obj 89 199 \$0; -#X obj 71 35 r \$0-loopbutton; -#X msg 167 130 \; \$1-loop_white color 11 \; \$1-loop_dark color 0 -; -#X msg 167 178 \; \$1-loopbutton1 color 18; -#X msg 147 229 \; \$1-loop_white color 0 \; \$1-loop_dark color 11 -; -#X msg 146 277 \; \$1-loopbutton1 color 16; -#X text 90 55 playselection loop; -#X obj 71 59 tgl 12 0 \$0-playselection_loop \$0-playselection_r_loop -empty 16 6 1728 8 -262144 -1 -1 0 1; -#X msg 255 79 set \$1; -#X obj 255 101 s \$0-loopbutton; -#X obj 71 77 sel 1 0; -#X connect 0 0 3 0; -#X connect 0 0 4 0; -#X connect 1 0 5 0; -#X connect 1 0 6 0; -#X connect 2 0 8 0; -#X connect 8 0 9 0; -#X connect 8 0 11 0; -#X connect 9 0 10 0; -#X connect 11 0 0 0; -#X connect 11 1 1 0; -#X restore 138 76 pd loopbutton; -#N canvas 54 27 582 413 recbutton 0; -#X obj 61 148 tgl 12 0 \$0-playselection \$0-playselection_r empty -16 6 1728 8 -262144 -1 -1 0 1; -#X obj 73 260 \$0; -#X obj 256 272 \$0; -#X obj 61 175 sel 1 0; -#X msg 142 187 set \$1; -#X msg 380 224 set 0; -#X msg 347 225 0; -#X text 86 139 recselection; -#X msg 95 289 \; \$1-rec_white color 11 \; \$1-rec_dark color 0; -#X obj 380 251 s \$0-recbuttonr; -#X obj 380 201 r \$0-recstopped; -#X obj 41 42 r \$0-recbuttons; -#X obj 142 209 s \$0-recbuttonr; -#X msg 279 293 \; \$1-rec_white color 0 \; \$1-rec_dark color 11; -#X msg 95 337 \; \$1-recbutton1 color 13; -#X msg 278 342 \; \$1-recbutton1 color 23; -#X obj 61 203 t b b; -#X msg 41 67 \; pd-record_window vis 1; -#X connect 0 0 3 0; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 1 0 14 0; -#X connect 2 0 13 0; -#X connect 2 0 15 0; -#X connect 3 0 16 0; -#X connect 3 1 2 0; -#X connect 4 0 12 0; -#X connect 5 0 9 0; -#X connect 6 0 0 0; -#X connect 10 0 5 0; -#X connect 10 0 6 0; -#X connect 11 0 17 0; -#X connect 16 1 1 0; -#X restore 225 76 pd recbutton; -#N canvas 54 27 586 417 recbutton2 0; -#X obj 41 71 tgl 12 0 \$0-playselection \$0-playselection_r empty 16 -6 1728 8 -262144 -1 -1 0 1; -#X obj 61 175 \$0; -#X obj 236 196 \$0; -#X obj 59 137 sel 1 0; -#X msg 122 111 set \$1; -#X msg 360 148 set 0; -#X msg 327 149 0; -#X text 60 59 recselection; -#X obj 360 175 s \$0-recbuttonr; -#X obj 360 125 r \$0-recstopped; -#X obj 41 42 r \$0-recbutton2s; -#X obj 122 133 s \$0-recbutton2r; -#X msg 83 204 \; \$1-rec2_white color 11 \; \$1-rec2_dark color 0; -#X msg 259 217 \; \$1-rec2_white color 0 \; \$1-rec2_dark color 11 -; -#X msg 258 266 \; \$1-recbutton2 color 23; -#X msg 83 252 \; \$1-recbutton2 color 13; -#X text 215 35 this is the recbutton inside the rec_window; -#X obj 41 304 s \$0-rec_1_0; -#X obj 41 88 t f f f; -#X connect 0 0 18 0; -#X connect 1 0 12 0; -#X connect 1 0 15 0; -#X connect 2 0 13 0; -#X connect 2 0 14 0; -#X connect 3 0 1 0; -#X connect 3 1 2 0; -#X connect 4 0 11 0; -#X connect 5 0 8 0; -#X connect 6 0 0 0; -#X connect 9 0 5 0; -#X connect 9 0 6 0; -#X connect 10 0 0 0; -#X connect 18 0 17 0; -#X connect 18 1 3 0; -#X connect 18 2 4 0; -#X restore 306 76 pd recbutton2; -#X restore 88 176 pd playbuttons; -#N canvas 0 0 467 508 reduce 0; -#X obj 166 199 vasp.!; -#X text 192 70 reduce to selection; -#X obj 166 177 vasp.o; -#X obj 135 246 vasp.u; -#X obj 166 156 vasp.f; -#X obj 197 122 r \$0-f; -#X obj 216 178 r \$0-o; -#X obj 94 171 vasp.s; -#X obj 135 224 vasp.=; -#X obj 282 221 * 0.0025; -#X obj 269 252 0; -#X obj 318 302 s \$0-sm; -#X obj 334 367 s \$0-rb; -#X obj 285 364 s \$0-lb; -#X msg 285 342 0; -#X msg 334 346 400; -#X obj 269 399 s \$0-redraw; -#X obj 269 278 t b b b f; -#X obj 76 133 t b a a; -#X obj 76 87 symbol \$0-; -#X msg 76 110 vasp \$1; -#X obj 76 60 r \$0-reduce; -#X connect 0 0 8 1; -#X connect 2 0 0 0; -#X connect 4 0 2 0; -#X connect 5 0 4 1; -#X connect 5 0 7 1; -#X connect 5 0 9 0; -#X connect 6 0 2 1; -#X connect 7 0 8 0; -#X connect 8 0 3 0; -#X connect 9 0 10 1; -#X connect 10 0 17 0; -#X connect 14 0 13 0; -#X connect 15 0 12 0; -#X connect 17 0 16 0; -#X connect 17 1 14 0; -#X connect 17 2 15 0; -#X connect 17 3 11 0; -#X connect 18 0 10 0; -#X connect 18 1 7 0; -#X connect 18 2 4 0; -#X connect 19 0 20 0; -#X connect 20 0 18 0; -#X connect 21 0 19 0; -#X restore 391 339 pd reduce; -#N canvas 0 0 315 215 mute 0; -#X obj 42 124 vasp.= 0; -#X obj 42 95 vasp.o; -#X obj 42 156 vasp.u; -#X obj 42 74 vasp.f; -#X obj 118 50 r \$0-f; -#X obj 89 98 r \$0-o; -#X obj 42 17 symbol \$0-; -#X msg 42 38 vasp \$1; -#X obj 192 114 r \$0-set_0; -#X connect 0 0 2 0; -#X connect 1 0 0 0; -#X connect 3 0 1 0; -#X connect 4 0 3 1; -#X connect 5 0 1 1; -#X connect 6 0 7 0; -#X connect 7 0 3 0; -#X connect 8 0 6 0; -#X restore 391 316 pd mute; -#N canvas 0 0 320 310 noise 0; -#X obj 115 153 vasp.o; -#X obj 115 214 vasp.u; -#X obj 115 132 vasp.f; -#X obj 191 108 r \$0-f; -#X obj 162 156 r \$0-o; -#X obj 115 182 vasp.noise; -#X obj 115 73 symbol \$0-; -#X msg 115 96 vasp \$1; -#X obj 115 43 r \$0-noise; -#X connect 0 0 5 0; -#X connect 2 0 0 0; -#X connect 3 0 2 1; -#X connect 4 0 0 1; -#X connect 5 0 1 0; -#X connect 6 0 7 0; -#X connect 7 0 2 0; -#X connect 8 0 6 0; -#X restore 392 401 pd noise; -#N canvas 420 161 466 480 open 0; -#X obj 68 61 openpanel; -#X obj 68 159 soundfiler; -#X obj 68 214 * 0.0025; -#X text 131 214 (dasselbe wie / 400 ); -#X obj 124 307 s \$0-sm; -#X obj 79 89 s \$0-opened; -#X obj 122 368 s \$0-rb; -#X obj 74 365 s \$0-lb; -#X msg 74 343 0; -#X msg 122 347 400; -#X obj 42 398 s \$0-redraw; -#X obj 88 185 s \$0-length; -#X text 172 184 (not used yet); -#X obj 68 116 pack s s; -#X obj 267 83 symbol \$0-; -#X obj 267 58 loadbang; -#X obj 322 56 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X msg 68 136 read -resize \$1 \$2; -#X obj 68 280 t b b b f; -#X obj 68 37 r \$0-open; -#X connect 0 0 5 0; -#X connect 0 0 13 0; -#X connect 1 0 2 0; -#X connect 1 0 11 0; -#X connect 2 0 18 0; -#X connect 8 0 7 0; -#X connect 9 0 6 0; -#X connect 13 0 17 0; -#X connect 14 0 13 1; -#X connect 15 0 14 0; -#X connect 16 0 14 0; -#X connect 17 0 1 0; -#X connect 18 0 10 0; -#X connect 18 1 8 0; -#X connect 18 2 9 0; -#X connect 18 3 4 0; -#X connect 19 0 0 0; -#X restore 391 253 pd open; -#N canvas 0 0 460 310 save 0; -#X obj 130 277 soundfiler; -#X msg 144 146 set symbol \$1; -#X obj 189 119 r \$0-opened; -#X msg 131 178; -#X msg 80 153 set; -#X obj 80 122 loadbang; -#X obj 131 231 pack s s; -#X obj 174 207 symbol \$0-; -#X obj 174 185 loadbang; -#X msg 130 255 write -wave \$1 \$2; -#X obj 131 78 r \$0-save; -#X connect 1 0 3 0; -#X connect 2 0 1 0; -#X connect 3 0 6 0; -#X connect 4 0 3 0; -#X connect 5 0 4 0; -#X connect 6 0 9 0; -#X connect 7 0 6 1; -#X connect 8 0 7 0; -#X connect 9 0 0 0; -#X connect 10 0 3 0; -#X restore 391 274 pd save; -#N canvas 0 0 377 253 save_as 0; -#X obj 130 187 soundfiler; -#X obj 217 112 symbol \$0-; -#X obj 217 88 loadbang; -#X obj 130 142 pack s s; -#X msg 130 165 write -wave \$1 \$2; -#X obj 130 80 r \$0-save_as; -#X obj 130 107 savepanel; -#X connect 1 0 3 1; -#X connect 2 0 1 0; -#X connect 3 0 4 0; -#X connect 4 0 0 0; -#X connect 5 0 6 0; -#X connect 6 0 3 0; -#X restore 391 295 pd save_as; -#N canvas 253 35 637 598 cut 0; -#X obj 242 170 r \$0-o; -#X obj 502 118 r \$0-rbs; -#X obj 198 193 vasp.f; -#X obj 445 117 r \$0-sm; -#X msg 432 150 400; -#X obj 432 177 * 1; -#X obj 432 200 - 0; -#X obj 400 225 vasp.f; -#X obj 400 254 vasp.o; -#X obj 198 271 vasp.!; -#X obj 400 283 vasp.!; -#X obj 229 241 +; -#X text 466 200 frames ab rb; -#X text 281 173 frames 0-lb; -#X text 256 244 gesamtframes; -#X obj 62 332 vasp.=; -#X obj 123 96 t a a a b; -#X obj 62 438 vasp.=; -#X obj 62 414 vasp.o; -#X obj 62 461 vasp.u; -#X obj 461 442 s \$0-sm; -#X obj 477 504 s \$0-rb; -#X obj 428 504 s \$0-lb; -#X msg 428 482 0; -#X msg 477 483 400; -#X obj 412 539 s \$0-redraw; -#X obj 412 418 t b b b f; -#X obj 425 374 * 0.0025; -#X obj 412 396 0; -#X obj 400 307 t b a; -#X obj 151 383 r \$0-o; -#X text 193 384 frames 0-lb; -#X obj 198 332 t b a; -#X msg 62 484 bang; -#X obj 62 309 vasp.s; -#X obj 62 381 vasp.f; -#X obj 123 49 symbol \$0-; -#X msg 123 72 vasp \$1; -#X obj 123 27 r \$0-cut; -#X obj 62 261 symbol \$0-; -#X msg 62 284 vasp \$1; -#X obj 174 143 symbol \$0-; -#X msg 174 166 vasp \$1; -#X connect 0 0 2 1; -#X connect 0 0 11 1; -#X connect 1 0 6 1; -#X connect 1 0 8 1; -#X connect 2 0 9 0; -#X connect 3 0 5 1; -#X connect 4 0 5 0; -#X connect 5 0 6 0; -#X connect 6 0 7 1; -#X connect 6 0 11 0; -#X connect 6 0 35 1; -#X connect 7 0 8 0; -#X connect 8 0 10 0; -#X connect 9 0 32 0; -#X connect 10 0 29 0; -#X connect 11 0 27 0; -#X connect 11 0 9 1; -#X connect 11 0 34 1; -#X connect 15 0 35 0; -#X connect 16 2 7 0; -#X connect 16 3 4 0; -#X connect 17 0 19 0; -#X connect 18 0 17 0; -#X connect 19 0 33 0; -#X connect 23 0 22 0; -#X connect 24 0 21 0; -#X connect 26 0 25 0; -#X connect 26 1 23 0; -#X connect 26 2 24 0; -#X connect 26 3 20 0; -#X connect 27 0 28 1; -#X connect 28 0 26 0; -#X connect 29 0 41 0; -#X connect 29 1 17 1; -#X connect 30 0 18 1; -#X connect 32 0 39 0; -#X connect 32 1 15 1; -#X connect 33 0 28 0; -#X connect 34 0 15 0; -#X connect 35 0 18 0; -#X connect 36 0 37 0; -#X connect 37 0 16 0; -#X connect 38 0 36 0; -#X connect 39 0 40 0; -#X connect 40 0 34 0; -#X connect 41 0 42 0; -#X connect 42 0 2 0; -#X restore 391 360 pd cut; -#N canvas 0 0 382 262 fade_in 0; -#X obj 121 149 vasp.o; -#X obj 121 199 vasp.u; -#X obj 260 110 r \$0-f; -#X obj 168 147 r \$0-o; -#X obj 121 124 vasp.f; -#X obj 121 175 vasp.*window lin; -#X obj 121 70 symbol \$0-; -#X msg 121 93 vasp \$1; -#X obj 121 46 r \$0-fade_in; -#X connect 0 0 5 0; -#X connect 2 0 4 1; -#X connect 3 0 0 1; -#X connect 4 0 0 0; -#X connect 5 0 1 0; -#X connect 6 0 7 0; -#X connect 7 0 4 0; -#X connect 8 0 6 0; -#X restore 391 212 pd fade_in; -#N canvas 0 0 474 324 fade_out 0; -#X obj 121 143 vasp.o; -#X obj 121 192 vasp.u; -#X obj 260 110 r \$0-f; -#X obj 163 143 r \$0-o; -#X obj 121 118 vasp.f; -#X obj 121 169 vasp.*!window lin; -#X obj 121 75 symbol \$0-; -#X msg 121 98 vasp \$1; -#X obj 121 52 r \$0-fade_out; -#X connect 0 0 5 0; -#X connect 2 0 4 1; -#X connect 3 0 0 1; -#X connect 4 0 0 0; -#X connect 5 0 1 0; -#X connect 6 0 7 0; -#X connect 7 0 4 0; -#X connect 8 0 6 0; -#X restore 391 233 pd fade_out; -#N canvas 150 120 487 446 send_array 0; -#X obj 120 212 vasp.s; -#X obj 191 187 r \$0-sm; -#X obj 191 208 * 400; -#X obj 120 233 vasp.f; -#X obj 120 275 vasp.u; -#X obj 264 81 symbol \$1; -#X obj 264 57 loadbang; -#X obj 264 104 makefilename test%s; -#X obj 264 127 sel test; -#X obj 81 69 r \$0-toarray; -#X obj 81 130 sel 0 1; -#X obj 81 104 0; -#X msg 264 151 0; -#X obj 81 362 print send_to_array_not_possible; -#X msg 81 338 no initial array-argument given; -#X obj 120 163 symbol \$1; -#X msg 307 152 1; -#X msg 120 185 vasp \$1; -#X obj 120 254 vasp.= \$0-; -#X connect 0 0 3 0; -#X connect 1 0 2 0; -#X connect 2 0 0 1; -#X connect 2 0 3 1; -#X connect 3 0 18 0; -#X connect 5 0 7 0; -#X connect 6 0 5 0; -#X connect 7 0 8 0; -#X connect 8 0 12 0; -#X connect 8 1 16 0; -#X connect 9 0 11 0; -#X connect 10 0 14 0; -#X connect 10 1 15 0; -#X connect 11 0 10 0; -#X connect 12 0 11 1; -#X connect 14 0 13 0; -#X connect 15 0 17 0; -#X connect 16 0 11 1; -#X connect 17 0 0 0; -#X connect 18 0 4 0; -#X restore 392 423 pd send_array; -#N canvas 159 26 253 308 output 0; -#X obj 22 181 inlet~; -#X obj 83 78 inlet; -#X msg 98 104 \; pd dsp 1; -#X obj 83 194 line~; -#X obj 22 212 *~; -#X obj 22 241 dac~; -#X obj 83 171 pack 0 50; -#X connect 0 0 4 0; -#X connect 1 0 2 0; -#X connect 1 0 6 0; -#X connect 3 0 4 1; -#X connect 4 0 5 0; -#X connect 4 0 5 1; -#X connect 6 0 3 0; -#X restore 87 290 pd output; -#N canvas 150 120 772 527 reload_array 0; -#X obj 361 93 symbol \$1; -#X obj 348 44 loadbang; -#X obj 361 116 makefilename test%s; -#X obj 361 139 sel test; -#X msg 361 163 0; -#X msg 146 416 no initial array-argument given; -#X msg 404 164 1; -#X obj 348 65 t b b; -#X obj 348 228 0; -#X obj 197 43 r \$0-reloadarray; -#X obj 437 286 symbol \$1; -#X obj 437 333 vasp.s?; -#X obj 366 301 symbol \$0-; -#X obj 366 347 vasp.s; -#X obj 366 368 vasp.f; -#X msg 422 396 vasp \$1; -#X obj 366 416 vasp.=; -#X obj 422 374 symbol \$1; -#X obj 366 278 t b b b; -#X obj 366 440 vasp.u; -#X text 403 241 load default array into editor \, if argument is given... -; -#X obj 545 334 * 0.0025; -#X obj 601 385 s \$0-sm; -#X obj 599 446 s \$0-rb; -#X obj 551 443 s \$0-lb; -#X msg 551 421 0; -#X msg 599 425 400; -#X obj 519 476 s \$0-redraw; -#X obj 545 358 t b b b f; -#X obj 197 208 0; -#X obj 197 234 sel 0 1; -#X obj 348 255 sel 1; -#X obj 146 440 print reload_array_not_possible; -#X msg 437 309 vasp \$1; -#X msg 366 322 vasp \$1; -#X connect 0 0 2 0; -#X connect 1 0 7 0; -#X connect 2 0 3 0; -#X connect 3 0 4 0; -#X connect 3 1 6 0; -#X connect 4 0 8 1; -#X connect 4 0 29 1; -#X connect 5 0 32 0; -#X connect 6 0 8 1; -#X connect 6 0 29 1; -#X connect 7 0 8 0; -#X connect 7 1 0 0; -#X connect 8 0 31 0; -#X connect 9 0 29 0; -#X connect 10 0 33 0; -#X connect 11 0 13 1; -#X connect 11 0 14 1; -#X connect 11 0 21 0; -#X connect 12 0 34 0; -#X connect 13 0 14 0; -#X connect 14 0 16 0; -#X connect 15 0 16 1; -#X connect 16 0 19 0; -#X connect 17 0 15 0; -#X connect 18 0 12 0; -#X connect 18 1 10 0; -#X connect 18 2 17 0; -#X connect 21 0 28 0; -#X connect 25 0 24 0; -#X connect 26 0 23 0; -#X connect 28 0 27 0; -#X connect 28 1 25 0; -#X connect 28 2 26 0; -#X connect 28 3 22 0; -#X connect 29 0 30 0; -#X connect 30 0 5 0; -#X connect 30 1 18 0; -#X connect 31 0 18 0; -#X connect 33 0 11 0; -#X connect 34 0 13 0; -#X restore 391 445 pd reload_array; -#N canvas 0 0 392 272 normalize 0; -#X obj 121 149 vasp.o; -#X obj 121 199 vasp.u; -#X obj 260 110 r \$0-f; -#X obj 168 147 r \$0-o; -#X obj 121 124 vasp.f; -#X obj 121 70 symbol \$0-; -#X msg 121 93 vasp \$1; -#X obj 121 176 vasp.opt; -#X obj 121 46 r \$0-normalize; -#X connect 0 0 7 0; -#X connect 2 0 4 1; -#X connect 3 0 0 1; -#X connect 4 0 0 0; -#X connect 5 0 6 0; -#X connect 6 0 4 0; -#X connect 7 0 1 0; -#X connect 8 0 5 0; -#X restore 391 381 pd normalize; -#N canvas 99 249 567 524 volume 0; -#X obj 133 164 dbtopow; -#X obj 77 137 0; -#X obj 133 139 + 100; -#X obj 77 113 t b; -#X obj 77 84 route 0; -#X msg 134 221 -50; -#X obj 357 314 + 950; -#X obj 412 315 moses -50; -#X obj 357 415 0; -#X msg 461 372 -1000; -#X msg 357 441 set \$1; -#X obj 357 292 moses -500; -#X obj 357 341 min 0; -#X obj 296 268 moses -1000; -#X msg 296 291 -1000; -#X msg 412 341 -1000; -#X obj 247 244 sel -1000; -#X obj 461 343 sel -50; -#X obj 239 394 max -50; -#X msg 239 435 set \$1; -#X obj 239 415 + 50; -#X obj 357 464 s \$0-voldisplr; -#X obj 77 221 outlet; -#X obj 239 456 s \$0-volr; -#X obj 133 112 - 50; -#X obj 77 60 r \$0-vols; -#X obj 247 200 r \$0-voldispls; -#X obj 202 151 dbtopow; -#X obj 202 126 + 100; -#X connect 0 0 22 0; -#X connect 1 0 5 0; -#X connect 1 0 22 0; -#X connect 2 0 0 0; -#X connect 3 0 1 0; -#X connect 4 0 3 0; -#X connect 4 1 24 0; -#X connect 5 0 16 0; -#X connect 6 0 12 0; -#X connect 7 0 15 0; -#X connect 7 1 17 0; -#X connect 8 0 10 0; -#X connect 8 0 18 0; -#X connect 9 0 8 0; -#X connect 10 0 21 0; -#X connect 11 0 6 0; -#X connect 11 1 7 0; -#X connect 12 0 8 0; -#X connect 13 0 14 0; -#X connect 13 1 11 0; -#X connect 14 0 8 0; -#X connect 15 0 8 0; -#X connect 16 0 14 0; -#X connect 16 1 13 0; -#X connect 17 0 9 0; -#X connect 17 1 8 0; -#X connect 18 0 20 0; -#X connect 19 0 23 0; -#X connect 20 0 19 0; -#X connect 24 0 2 0; -#X connect 24 0 16 0; -#X connect 25 0 4 0; -#X connect 26 0 16 0; -#X connect 28 0 27 0; -#X restore 136 242 pd volume; -#N canvas 424 244 323 150 record_window 0; -#X obj 17 15 cnv 15 280 120 empty empty empty 20 12 0 14 -233017 -66577 -0; -#X obj 157 33 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X text 181 30 record into RAM; -#X obj 157 57 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X text 180 55 record to harddisk; -#X obj 34 51 tgl 18 0 \$0-recbutton2s \$0-recbutton2r empty 0 -6 1728 -8 -262144 -1 -1 0 1; -#X obj 29 47 cnv 15 28 25 empty empty empty 0 -10 1 10 -233017 -1 0 -; -#X obj 32 51 cnv 15 20 15 empty \$0-rec2_white empty 20 12 576 14 -262144 --262144 0; -#X obj 34 53 cnv 15 20 15 empty \$0-rec2_dark empty 20 12 576 14 -128992 --262144 0; -#X obj 33 52 cnv 15 20 15 empty \$0-rec2_normal empty 20 12 576 14 --233017 -66577 0; -#X obj 40 56 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 42 56 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 44 56 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 39 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 41 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 43 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 41 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 45 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 45 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 43 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 42 61 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 39 59 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 39 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 40 61 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 43 59 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 44 61 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 41 58 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 45 59 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491 --262144 0; -#X obj 100 34 vu 15 80 \$0-vu1 empty -1 -8 576 8 -66577 -1 1 0; -#X text 181 97 monitor; -#X obj 158 99 tgl 15 0 \$0-monis empty empty 0 -6 1152 8 -262144 -1 --1 0 1; -#X text 29 72 start/; -#X text 29 83 stop; -#X restore 391 133 pd record_window; -#X obj 391 155 inlet~; -#N canvas 179 201 394 282 range_main 0; -#X floatatom 166 34 5 0 0 0 - - -; -#N canvas 207 450 365 322 s-key-handling 0; -#X floatatom 111 119 5 0 0 0 - - -; -#N canvas 83 38 600 551 keyinput_s 0; -#X obj 186 25 keyname; -#X obj 84 446 spigot; -#X obj 179 172 0; -#X obj 179 116 symbol; -#X msg 179 88 bang; -#X obj 179 369 sel 1; -#X msg 179 393 1; -#X msg 152 393 0; -#X obj 152 414 s \$0-spig1; -#X obj 227 415 s \$0-spig1; -#X msg 227 394 1; -#X msg 254 394 0; -#X obj 179 345 change; -#X obj 84 67 inlet; -#X obj 84 472 outlet; -#X obj 179 144 sel s; -#X text 276 67 if key "s" is down \, then input is let through; -#X text 332 85 shifts display; -#X obj 243 473 outlet; -#X obj 179 223 t b b 0; -#X obj 201 266 delay 100; -#X msg 201 245 stop; -#X obj 179 201 sel 0 1; -#X obj 179 313 0; -#X msg 179 289 1; -#X text 255 242 linux and win have different up/down behaviour...; -#X text 232 297 only if there is no new input for 100 ms after 0 \, -0 is sent out; -#X floatatom 273 365 5 0 0 0 - - -; -#X obj 360 475 outlet; -#X obj 442 479 s \$0-res; -#X connect 0 0 2 1; -#X connect 0 0 4 0; -#X connect 0 1 3 1; -#X connect 1 0 14 0; -#X connect 2 0 22 0; -#X connect 3 0 15 0; -#X connect 4 0 3 0; -#X connect 5 0 6 0; -#X connect 5 0 7 0; -#X connect 5 0 18 0; -#X connect 5 0 29 0; -#X connect 5 1 10 0; -#X connect 5 1 11 0; -#X connect 6 0 1 1; -#X connect 6 0 28 0; -#X connect 7 0 8 0; -#X connect 10 0 9 0; -#X connect 11 0 1 1; -#X connect 11 0 28 0; -#X connect 12 0 5 0; -#X connect 12 0 27 0; -#X connect 13 0 1 0; -#X connect 15 0 2 0; -#X connect 19 0 20 0; -#X connect 19 1 21 0; -#X connect 19 2 23 1; -#X connect 20 0 23 0; -#X connect 21 0 20 0; -#X connect 22 0 19 0; -#X connect 22 1 24 0; -#X connect 23 0 12 0; -#X connect 24 0 23 0; -#X restore 97 93 pd keyinput_s; -#N canvas 271 177 490 458 s_handling 0; -#X obj 85 27 inlet; -#X msg 85 272 set \$1; -#X obj 85 249 0; -#X obj 85 202 -; -#X obj 85 225 t b f; -#X obj 185 302 s \$0-shiftsel; -#X obj 204 28 inlet; -#X text 255 82 first position after hit is ref; -#X obj 173 116 spigot; -#X msg 204 82 1; -#X obj 173 145 t f b; -#X msg 178 82 0; -#X text 203 12 down; -#X obj 85 84 t f f; -#X obj 85 302 s \$0-slider1rcv; -#X obj 272 127 inlet; -#X floatatom 272 164 1 0 1 0 - - -; -#X msg 272 206 \; \$2-slider1rcv steady \$1; -#X obj 272 184 pack 0 \$0; -#X text 289 161 0 ist jump; -#X connect 0 0 13 0; -#X connect 1 0 14 0; -#X connect 2 0 1 0; -#X connect 3 0 4 0; -#X connect 4 0 2 0; -#X connect 4 1 5 0; -#X connect 6 0 9 0; -#X connect 8 0 10 0; -#X connect 9 0 8 1; -#X connect 10 0 3 1; -#X connect 10 0 2 1; -#X connect 10 1 11 0; -#X connect 11 0 8 1; -#X connect 13 0 3 0; -#X connect 13 1 8 0; -#X connect 15 0 16 0; -#X connect 16 0 18 0; -#X connect 18 0 17 0; -#X restore 97 155 pd s_handling; -#X obj 97 66 r \$0-slider1snd; -#X connect 1 0 0 0; -#X connect 1 0 2 0; -#X connect 1 1 2 1; -#X connect 1 2 2 2; -#X connect 3 0 1 0; -#X restore 220 133 pd s-key-handling; -#X obj 57 33 r \$0-slider1snd; -#X obj 88 61 r \$0-spig1; -#X obj 57 109 spigot; -#X text 104 108 from s-key-handler; -#X obj 157 61 loadbang; -#X msg 157 82 1; -#X obj 220 155 r \$0-shiftsel; -#N canvas 0 8 984 619 sliderhandling_with_s_key 0; -#X obj 57 197 pack 0 0; -#X obj 57 172 0; -#X obj 70 150 r \$0-focus; -#X obj 332 312 s \$0-focus; -#X msg 345 197 1; -#X msg 409 197 2; -#X obj 57 130 t b f; -#X obj 133 369 max 0; -#X obj 170 368 - 1; -#X obj 330 348 + 1; -#X obj 293 394 min 400; -#X obj 133 391 min 399; -#X obj 57 219 route 1 2; -#X obj 332 288 0; -#X obj 345 264 spigot; -#X obj 57 479 400; -#X obj 57 504 - 1; -#X obj 312 108 moses 201; -#X obj 57 93 t f b f; -#X msg 388 264 1; -#X obj 388 242 loadbang; -#X obj 429 392 s \$0-allblack; -#X msg 429 349 stop \, bang; -#X obj 429 370 delay 200; -#X msg 376 197 0; -#X msg 374 63 0.1; -#X obj 361 86 + 0; -#X msg 402 63 -0.1; -#X obj 375 132 t f b b b; -#X obj 312 132 t f b b b; -#X obj 277 193 400; -#X obj 277 215 - 0; -#X obj 277 236 * 0.5; -#X obj 277 257 +; -#X obj 277 169 t b f f; -#X text 365 28 wenn rechter bewegt wird \, muss mitte leicht nach links -verschoben werden / links umgekehrt.; -#X text 206 167 find middle; -#X obj 184 424 s \$0-lb; -#X obj 344 414 s \$0-rb; -#N canvas 109 66 445 354 lb_graphics 0; -#X msg 233 182 18; -#X msg 277 178 -1; -#X obj 233 205 change; -#X obj 53 230 pack 0 \$0; -#X obj 233 227 pack 0 \$0; -#X obj 277 151 r \$0-allblack; -#X obj 112 197 pack 0 \$0; -#X obj 266 98 inlet; -#X obj 219 127 inlet; -#X obj 77 99 inlet; -#X msg 53 254 \; \$2-p1 pos \$1 100; -#X msg 233 250 \; \$2-p1 color \$1 100; -#X obj 114 173 + 73; -#X obj 53 206 + 72; -#X msg 112 221 \; \$2-p1b pos \$1 100; -#X connect 0 0 2 0; -#X connect 1 0 2 0; -#X connect 2 0 4 0; -#X connect 3 0 10 0; -#X connect 4 0 11 0; -#X connect 5 0 1 0; -#X connect 6 0 14 0; -#X connect 7 0 1 0; -#X connect 8 0 0 0; -#X connect 9 0 12 0; -#X connect 9 0 13 0; -#X connect 12 0 6 0; -#X connect 13 0 3 0; -#X restore 132 498 pd lb_graphics; -#N canvas 0 0 522 353 rb_graphics 0; -#X msg 134 149 18; -#X msg 106 149 -1; -#X obj 106 173 change; -#X obj 213 183 pack 0 \$0; -#X obj 106 195 pack 0 \$0; -#X msg 106 218 \; \$2-p2 color \$1 0; -#X obj 106 123 r \$0-allblack; -#X obj 285 161 pack 0 \$0; -#X obj 91 79 inlet; -#X obj 304 57 inlet; -#X obj 213 117 inlet; -#X obj 213 161 + 72; -#X obj 285 137 + 73; -#X msg 213 218 \; \$2-p2 pos \$1 100; -#X msg 285 185 \; \$2-p2b pos \$1 100; -#X connect 0 0 2 0; -#X connect 1 0 2 0; -#X connect 2 0 4 0; -#X connect 3 0 13 0; -#X connect 4 0 5 0; -#X connect 6 0 1 0; -#X connect 7 0 14 0; -#X connect 8 0 1 0; -#X connect 9 0 0 0; -#X connect 10 0 11 0; -#X connect 10 0 12 0; -#X connect 11 0 3 0; -#X connect 12 0 7 0; -#X restore 272 505 pd rb_graphics; -#X obj 57 280 t b b; -#N canvas 133 97 350 233 selcnv_graphics 0; -#X obj 40 25 inlet; -#X floatatom 158 29 5 0 0 0 - - -; -#X obj 40 83 pack 0 \$0; -#X text 164 45 rchte border - linke; -#X msg 40 113 \; \$2-p1b vis_size \$1 100; -#X connect 0 0 2 0; -#X connect 1 0 2 0; -#X connect 2 0 4 0; -#X restore 57 528 pd selcnv_graphics; -#X text 370 330 after 200 ms without moving focus reset; -#X obj 537 79 inlet; -#X obj 582 136 r \$0-lb; -#X obj 664 138 r \$0-rb; -#X obj 584 268 max 0; -#X text 629 238 wenns links oder rechts ansteht \, darfst nicht mehr -verrueckt werden; -#X msg 664 191 400; -#X obj 664 168 t b f; -#X obj 752 344 +; -#X obj 582 174 * -1; -#X obj 664 214 - 0; -#X obj 584 244 min 0; -#X obj 765 323 - 0; -#X obj 765 300 t b f; -#X obj 628 293 + 0; -#X text 790 325 range; -#X obj 537 185 + 0; -#X obj 537 210 0; -#X text 629 266 range in der sich delta lb bewegen darf; -#X obj 679 424 * 0.5; -#X obj 666 449 +; -#X obj 666 471 s \$0-mid; -#X obj 293 56 r \$0-mid; -#X obj 184 444 r \$0-lb; -#X obj 344 434 r \$0-rb; -#X obj 628 385 s \$0-lb; -#X obj 752 368 s \$0-rb; -#X obj 628 359 t f f f; -#X obj 57 52 inlet; -#X obj 499 145 r \$0-res; -#X msg 500 168 0; -#X obj 133 413 t b f; -#X obj 293 416 t b f; -#X text 39 26 normal input; -#X text 575 78 input if s-key is pressed \, only delta-values are received! -; -#X obj 41 404 r \$0-redraw; -#X obj 293 371 max 1; -#X obj 123 465 t f f f b; -#X obj 275 464 t f f f b; -#X obj 81 244 t b f; -#X obj 45 244 t b f; -#X connect 0 0 12 0; -#X connect 1 0 0 0; -#X connect 2 0 1 1; -#X connect 4 0 14 0; -#X connect 5 0 14 0; -#X connect 6 0 1 0; -#X connect 6 1 0 1; -#X connect 7 0 11 0; -#X connect 8 0 11 1; -#X connect 9 0 79 1; -#X connect 10 0 75 0; -#X connect 11 0 74 0; -#X connect 12 0 83 0; -#X connect 12 1 82 0; -#X connect 13 0 3 0; -#X connect 14 0 13 1; -#X connect 15 0 16 0; -#X connect 16 0 42 0; -#X connect 17 0 29 0; -#X connect 17 1 28 0; -#X connect 18 0 6 0; -#X connect 18 1 13 0; -#X connect 18 2 17 0; -#X connect 19 0 14 1; -#X connect 20 0 19 0; -#X connect 22 0 23 0; -#X connect 23 0 19 0; -#X connect 23 0 21 0; -#X connect 24 0 14 1; -#X connect 25 0 26 1; -#X connect 26 0 17 1; -#X connect 27 0 26 1; -#X connect 28 0 30 0; -#X connect 28 1 24 0; -#X connect 28 2 5 0; -#X connect 28 3 27 0; -#X connect 29 0 34 0; -#X connect 29 1 24 0; -#X connect 29 2 4 0; -#X connect 29 3 25 0; -#X connect 30 0 31 0; -#X connect 31 0 32 0; -#X connect 32 0 33 0; -#X connect 33 0 26 0; -#X connect 34 0 30 0; -#X connect 34 1 31 1; -#X connect 34 2 33 1; -#X connect 41 0 15 0; -#X connect 41 1 22 0; -#X connect 44 0 59 0; -#X connect 45 0 52 0; -#X connect 45 0 56 0; -#X connect 45 0 57 1; -#X connect 46 0 50 0; -#X connect 46 0 55 0; -#X connect 47 0 57 0; -#X connect 49 0 53 0; -#X connect 50 0 49 0; -#X connect 50 1 53 1; -#X connect 51 0 69 0; -#X connect 52 0 47 1; -#X connect 53 0 54 1; -#X connect 54 0 47 0; -#X connect 55 0 51 1; -#X connect 55 0 62 0; -#X connect 56 0 55 0; -#X connect 56 1 55 1; -#X connect 57 0 70 0; -#X connect 59 0 60 0; -#X connect 60 0 54 0; -#X connect 62 0 63 1; -#X connect 63 0 64 0; -#X connect 65 0 26 0; -#X connect 66 0 80 0; -#X connect 67 0 81 0; -#X connect 70 0 68 0; -#X connect 70 1 63 0; -#X connect 70 2 51 0; -#X connect 71 0 18 0; -#X connect 72 0 73 0; -#X connect 73 0 59 1; -#X connect 74 0 39 1; -#X connect 74 1 37 0; -#X connect 75 0 40 2; -#X connect 75 1 38 0; -#X connect 78 0 15 0; -#X connect 79 0 10 0; -#X connect 80 0 39 0; -#X connect 80 1 16 1; -#X connect 80 2 9 0; -#X connect 80 3 40 0; -#X connect 81 0 8 0; -#X connect 81 1 15 1; -#X connect 81 2 40 1; -#X connect 81 3 39 2; -#X connect 82 0 41 0; -#X connect 82 1 79 0; -#X connect 83 0 41 0; -#X connect 83 1 7 0; -#X restore 57 182 pd sliderhandling_with_s_key; -#X connect 2 0 0 0; -#X connect 2 0 4 0; -#X connect 3 0 4 1; -#X connect 4 0 9 0; -#X connect 6 0 7 0; -#X connect 7 0 4 1; -#X connect 8 0 9 1; -#X restore 88 155 pd range_main; -#N canvas 219 194 434 292 record 0; -#N canvas 216 56 684 582 record_RAM 0; -#N canvas 222 74 668 589 interna 0; -#X text 64 78 es gibt ein bisserl ein problem mit dem join. nachdem -ich beim ersten durchlauf nur einen channel haben will \, links aber -eine vasp message reinschicken muss kann ich nicht den alten vasp links -reinschicken und den neuen rechts dazujoinen...; -#X text 64 151 deshalb schicke ich immer das neueste links rein und -die referenz auf den alten rechts. letztendlich brockt mir das seitenverkehrte -ordnungszahlen ein. ist aber nicht weiter tragisch. nur umstaendlich -; -#X text 65 231 am schluss stueckle ich das ergebnis aus den channels -zusammen:; -#X text 63 265 teilstueck 1 hat offset 0*64 und daten im channel n=k-1 -\, wobei k die anzahl der aufgenommenen kanaele ist.; -#X text 63 295 teilstueck 2: o=1*64 \, n=k-2; -#X text 63 312 teilstueck k: o=(k-1)*64 \, n=0; -#X text 65 345 wenn start gedrueckt wird \, wird der erste table geschrieben -(mit tabwrite~) am ende wird dann mit bang~ getriggert...; -#X text 67 382 switch~ 0 darf erst gesetzt werden \, nachdem das letzte~ -bang abgearbeitet wurde.; -#X text 69 428 beim letzten record-stueck werden zwar alle samples -geschrieben (mit tabwrite~) aber nur mehr ein teil ausgelesen. das -bestimmt der timer.; -#X text 74 494 tabsend~ und switch~ laufen nicht parallel...; -#X restore 521 187 pd interna; -#X text 374 227 spaeter direkt in \$0-temp schreiben; -#X obj 84 66 inlet~; -#X obj 207 208 s \$0-recstop; -#X obj 207 185 sel 0; -#X obj 79 459 vasp; -#X text 199 391 reset; -#X obj 79 360 \$0; -#X obj 79 398 vasp.!; -#X msg 79 377 vasp \$1-rec_temp; -#X obj 79 429 vasp.join 2; -#X msg 198 408 vasp; -#X text 159 431 adds a channel; -#X obj 79 276 0; -#X obj 79 302 + 1; -#X msg 116 277 0; -#X text 126 262 reset; -#X obj 79 326 t b f; -#X obj 229 408 r \$0-reset_rec; -#X obj 141 277 r \$0-reset_rec; -#X obj 79 169 bang~; -#N canvas 171 0 610 665 write_multi_channel_to_ergebnis 0; -#X obj 412 264 inlet; -#X obj 270 414 vasp.n 0; -#X obj 241 222 vasp.s; -#X obj 241 103 0; -#X obj 270 390 vasp; -#X obj 318 359 - 1; -#X text 193 54 am ende; -#X obj 208 547 vasp.o; -#X text 265 103 k (=number of slices); -#X obj 208 574 vasp.=; -#X obj 400 389 0; -#X obj 413 368 + 1; -#X msg 438 368 0; -#X text 468 368 reset; -#X obj 241 289 moses 1; -#X obj 318 381 t f f; -#X text 36 300 ganz am schluss; -#X text 36 314 kopieren und schick resets; -#X obj 278 313 t b b f b; -#X obj 438 346 r \$0-reset_rec; -#X obj 106 373 s \$0-reset_rec; -#X msg 241 246 bang; -#X obj 241 267 0; -#X msg 208 596 bang; -#X text 271 613 ohne das delay haengt sichs auf...; -#X obj 254 81 r \$0-number_of_slices; -#X obj 241 129 t b f f; -#X obj 208 435 \$0; -#X obj 208 500 t a b; -#X obj 241 53 r \$0-recstop; -#X obj 241 154 \$0; -#X obj 278 154 * 8192; -#X obj 400 412 * 8192; -#X obj 208 478 vasp.f 8192; -#X obj 81 348 t b b; -#X obj 208 617 delay; -#X msg 241 201 vasp \$1-; -#X msg 209 458 vasp \$1-; -#X obj 137 479 s \$0-sm; -#X obj 135 540 s \$0-rb; -#X obj 83 538 s \$0-lb; -#X msg 83 516 0; -#X msg 135 519 400; -#X obj 53 567 s \$0-redraw; -#X obj 81 429 * 0.0025; -#X obj 81 406 0; -#X obj 278 177 t f f; -#X obj 96 632 vasp.u; -#X obj 96 588 \$0; -#X msg 96 610 vasp \$1-; -#X obj 81 452 t b b b b f; -#X connect 0 0 4 1; -#X connect 1 0 9 1; -#X connect 2 0 21 0; -#X connect 3 0 26 0; -#X connect 4 0 1 0; -#X connect 5 0 15 0; -#X connect 7 0 9 0; -#X connect 9 0 23 0; -#X connect 10 0 11 0; -#X connect 10 0 32 0; -#X connect 11 0 10 1; -#X connect 12 0 10 1; -#X connect 14 0 34 0; -#X connect 14 1 18 0; -#X connect 15 0 22 1; -#X connect 15 1 1 1; -#X connect 18 0 27 0; -#X connect 18 1 4 0; -#X connect 18 2 5 0; -#X connect 18 3 10 0; -#X connect 19 0 12 0; -#X connect 21 0 22 0; -#X connect 22 0 14 0; -#X connect 23 0 35 0; -#X connect 25 0 3 1; -#X connect 26 0 30 0; -#X connect 26 1 22 1; -#X connect 26 2 31 0; -#X connect 27 0 37 0; -#X connect 28 0 7 0; -#X connect 29 0 3 0; -#X connect 30 0 36 0; -#X connect 31 0 46 0; -#X connect 32 0 7 1; -#X connect 33 0 28 0; -#X connect 34 0 45 0; -#X connect 34 1 20 0; -#X connect 35 0 22 0; -#X connect 36 0 2 0; -#X connect 37 0 33 0; -#X connect 41 0 40 0; -#X connect 42 0 39 0; -#X connect 44 0 50 0; -#X connect 45 0 44 0; -#X connect 46 0 45 1; -#X connect 46 1 2 1; -#X connect 48 0 49 0; -#X connect 49 0 47 0; -#X connect 50 0 43 0; -#X connect 50 1 48 0; -#X connect 50 2 41 0; -#X connect 50 3 42 0; -#X connect 50 4 38 0; -#X restore 79 489 pd write_multi_channel_to_ergebnis; -#X obj 150 340 s \$0-number_of_slices; -#X obj 79 238 t b b b; -#X obj 84 93 tabsend~ \$0-rec_temp; -#X obj 79 208 spigot; -#X obj 207 158 t f f; -#X obj 468 317 table \$0-rec_temp 8192; -#X obj 468 350 block~ 8192; -#X obj 207 138 r \$0-rec_1_0; -#X connect 2 0 24 0; -#X connect 4 0 3 0; -#X connect 5 0 10 1; -#X connect 5 0 21 0; -#X connect 7 0 9 0; -#X connect 8 0 10 0; -#X connect 9 0 8 0; -#X connect 10 0 5 0; -#X connect 11 0 10 1; -#X connect 13 0 14 0; -#X connect 14 0 13 1; -#X connect 14 0 17 0; -#X connect 15 0 13 1; -#X connect 17 0 7 0; -#X connect 17 1 22 0; -#X connect 18 0 11 0; -#X connect 19 0 15 0; -#X connect 20 0 25 0; -#X connect 23 0 13 0; -#X connect 25 0 23 0; -#X connect 26 0 4 0; -#X connect 26 1 25 1; -#X connect 29 0 26 0; -#X restore 46 99 pd record_RAM; -#X obj 47 62 inlet~; -#X obj 147 150 - 100; -#X obj 147 77 env~ 16384; -#X obj 147 171 s \$0-vu1; -#X obj 147 116 spigot; -#X obj 217 76 r \$0-monis; -#X msg 193 150 -100; -#X obj 217 97 t b f; -#X connect 1 0 0 0; -#X connect 1 0 3 0; -#X connect 2 0 4 0; -#X connect 3 0 5 0; -#X connect 5 0 2 0; -#X connect 6 0 8 0; -#X connect 7 0 4 0; -#X connect 8 0 7 0; -#X connect 8 1 5 1; -#X restore 391 177 pd record; -#X connect 1 0 15 0; -#X connect 18 0 15 1; -#X connect 20 0 22 0; -#X restore 650 290 pd inside; -#X obj 72 100 cnv 2 2 100 empty \$0-p1 empty 20 12 576 14 -1 -233017 -0; -#X obj 73 100 cnv 1 400 100 empty \$0-p1b empty 20 12 576 14 -257472 --262144 0; -#X obj 472 100 cnv 2 2 100 empty \$0-p2 empty 20 12 576 14 -1 -262144 -0; -#X obj 473 100 cnv 5 5 100 empty \$0-p2b empty 20 12 576 14 -233017 --262144 0; -#N canvas 0 0 450 300 graph1 0; -#X array \$0- 400 float 0; -#X coords 0 1 399 -1 400 100 1; -#X restore 72 100 graph; -#X obj 484 136 nbx 8 14 -1e+037 1e+037 0 1 empty \$0-rbs_displ right -0 -6 577 8 -233017 -1 -1 400 256; -#X obj 484 107 nbx 8 14 -1e+037 1e+037 0 0 empty \$0-lbs_displ left -0 -6 577 8 -233017 -1 -1 0 256; -#X obj 484 166 nbx 8 14 -1e+037 1e+037 0 1 empty \$0-rs_displ length -0 -6 577 8 -233017 -1 -1 400 256; -#X obj 37 12 cnv 15 600 40 empty empty wedit 10 22 0 24 -257472 -1 -0; -#X text 188 29 http://www.parasitaere-kapazitaeten.net; -#X text 188 13 wave editor (P)2003 marius schebella; -#X text 51 59 click into the array to set range \, use "s"+ mouse to -shift selection; -#X obj 71 210 tgl 18 0 \$0-playbutton \$0-playbuttonr empty 0 -6 1728 -8 -262144 -1 -1 0 1; -#X obj 99 210 tgl 18 0 \$0-loopbutton \$0-loopbuttonr empty 0 -6 1728 -8 -262144 -1 -1 0 1; -#X obj 66 207 cnv 15 56 25 empty \$0-test empty 20 12 576 14 -233017 --262144 0; -#X obj 69 210 cnv 15 20 15 empty \$0-play_white empty 20 12 576 14 --262144 -262144 0; -#X obj 71 212 cnv 15 20 15 empty \$0-play_dark empty 20 12 576 14 -128992 --262144 0; -#X obj 70 211 cnv 15 20 15 empty \$0-play_normal empty 20 12 576 14 --233017 -66577 0; -#X obj 96 210 cnv 15 20 15 empty \$0-loop_white empty 20 12 576 14 --262144 -262144 0; -#X obj 98 212 cnv 15 20 15 empty \$0-loop_dark empty 20 12 576 14 -128992 --262144 0; -#X obj 97 211 cnv 15 20 15 empty \$0-loop_normal empty 20 12 576 14 --233017 -66577 0; -#X obj 77 222 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 77 220 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 77 218 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 77 216 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 77 214 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 78 215 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 78 221 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 79 216 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 79 218 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 79 220 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 80 217 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 80 219 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 81 218 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 106 219 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 106 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 106 215 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 106 213 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 107 214 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 107 218 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 107 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 108 215 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 108 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 110 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 112 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 104 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 102 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 101 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 101 219 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 101 221 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 102 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 104 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 106 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 108 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 110 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 113 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 113 219 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 113 221 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 112 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198 --262144 0; -#X obj 484 196 bng 15 250 50 0 \$0-open \$0-nixr open 18 6 1729 8 -241291 --1 -1; -#X obj 484 215 bng 15 250 50 0 \$0-save 0-nixr save 18 6 1217 8 -260818 --1 -1; -#X obj 484 234 bng 15 250 50 0 \$0-save_as \$0-nixr save_as 18 6 1729 -8 -258699 -1 -1; -#X obj 250 218 bng 15 250 50 0 \$0-reduce \$0-nixr reduce_to_sel 0 --6 1729 8 -62784 -1 -1; -#X obj 361 246 bng 15 250 50 0 \$0-set_0 \$0-nixr set_zero 18 6 1729 -8 -24198 -1 -1; -#X obj 361 264 bng 15 250 50 0 \$0-noise \$0-nixr noise 18 6 1729 8 --24198 -1 -1; -#X obj 213 218 bng 15 250 50 0 \$0-cut \$0-nixr cut 0 -6 1729 8 -62784 --1 -1; -#X obj 361 210 bng 15 250 50 0 \$0-fade_in \$0-nixr fade_in 18 6 1729 -8 -24198 -1 -1; -#X obj 361 228 bng 15 250 50 0 \$0-fade_out \$0-nixr fade_out 18 6 -1729 8 -24198 -1 -1; -#X obj 484 254 bng 15 250 50 0 \$0-toarray \$0-nixr send_to_array 18 -6 1729 8 -44926 -1 -1; -#X obj 484 273 bng 15 250 50 0 \$0-reloadarray \$0-nixr reload_from_array -18 6 1729 8 -44926 -1 -1; -#X text 535 212 (wave-format); -#X obj 71 257 nbx 5 14 -1000 0 0 1 \$0-voldispls \$0-voldisplr empty -0 -6 1729 8 -262144 -1 -1 -1000 256; -#X obj 74 238 hsl 101 15 0 50 0 0 \$0-vols \$0-volr volume 6 7 1729 -8 -262144 -1 -1 0 1; -#X obj 213 254 bng 15 250 50 0 \$0-normalize \$0-nixr normalize 0 -6 -1729 8 -62784 -1 -1; -#N canvas 0 0 551 358 help 0; -#X text 67 47 help:; -#X text 69 69 this is a very basic wave editor \, kind of prototype... -; -#X text 68 92 many operations are not available at the moment (copy -and paste \, zooming \, scrolling \, cursor). they should follow some -time...; -#X text 64 141 the editor needs the libraries vasp (http://www.parasitaere-kapazitaeten.net/vasp) -and zexy (http://iem.kug.ac.at/~zmoelnig/pd/).; -#X text 67 197 send to array and reload from array can only be done -\, if you start wedit with a variable \, like "wedit array1" \, this -array is then loaded by default. but needs to be updated \, if the -array is changed outside the editor. by clicking "send to array" the -edited sample is sent to the (default) array outside.; -#X text 279 305 marius.schebella@chello.at; -#X restore 649 240 pd help; -#X text 116 257 -50dB to 0dB; -#X obj 125 210 tgl 18 0 \$0-recbuttons \$0-recbuttonr empty 0 -6 1728 -8 -262144 -1 -1 0 1; -#X obj 120 206 cnv 15 28 25 empty empty empty 20 12 0 14 -233017 -262144 -0; -#X obj 123 210 cnv 15 20 15 empty \$0-rec_white empty 20 12 576 14 --262144 -262144 0; -#X obj 125 212 cnv 15 20 15 empty \$0-rec_dark empty 20 12 576 14 -128992 --262144 0; -#X obj 124 211 cnv 15 20 15 empty \$0-rec_normal empty 20 12 576 14 --233017 -66577 0; -#X obj 131 215 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 133 215 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 135 215 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 130 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 132 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 134 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 132 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 136 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 136 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 134 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 133 220 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 130 218 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 130 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 131 220 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 134 218 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 135 220 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 132 217 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 136 218 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491 --262144 0; -#X obj 650 267 inlet~; -#X connect 102 0 2 0; -#X coords 0 0 1 1 200 140 0; -- cgit v1.2.1