From c0c7359304c7bb54d794c74b260d9b0bd18f02ae Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Fri, 13 Jun 2003 02:45:16 +0000 Subject: "" svn path=/trunk/; revision=701 --- externals/grill/vasp/pd-ex/freeze1.pd | 120 +- externals/grill/vasp/pd/wavedisplay-select.pd | 1234 +++++++------- externals/grill/vasp/pd/wavedisplay-simple.pd | 24 +- externals/grill/vasp/source/main.h | 5 + externals/grill/vasp/source/mixfft.cpp | 4 +- externals/grill/vasp/source/opdefs.h | 28 +- externals/grill/vasp/source/ops_dft.cpp | 12 +- externals/grill/vasp/source/ops_gen.cpp | 4 +- externals/grill/vasp/vasp.vcproj | 2138 +++++++++++++++++++++++++ externals/grill/vasp/vasp.vcproj.vspscc | 10 + 10 files changed, 2871 insertions(+), 708 deletions(-) create mode 100644 externals/grill/vasp/vasp.vcproj create mode 100644 externals/grill/vasp/vasp.vcproj.vspscc (limited to 'externals/grill/vasp') diff --git a/externals/grill/vasp/pd-ex/freeze1.pd b/externals/grill/vasp/pd-ex/freeze1.pd index c7a43f8e..119fcc17 100644 --- a/externals/grill/vasp/pd-ex/freeze1.pd +++ b/externals/grill/vasp/pd-ex/freeze1.pd @@ -1,47 +1,49 @@ -#N canvas 14 73 985 521 12; -#N canvas 387 42 591 680 freeze 0; -#X obj 26 130 vasp.split 2; -#X obj 30 459 vasp.join 2; +#N canvas 4 72 956 500 12; +#N canvas 293 9 609 698 freeze 1; +#X obj 27 137 vasp.split 2; +#X obj 30 463 vasp.join 2; #X obj 27 74 vasp.cfft @detach 1; -#X obj 30 516 vasp.c!fft @detach 1; +#X obj 32 519 vasp.c!fft @detach 1; #X obj 25 13 inlet; #X obj 32 617 outlet; #X obj 91 230 * 0.01; #X obj 302 17 inlet; -#X obj 26 100 vasp.polar @detach 1; -#X obj 30 487 vasp.rect @detach 1; -#X obj 29 316 vasp.gate @detach 1; +#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 426 vasp.sync; +#X obj 29 434 vasp.sync; #X obj 91 208 vasp.max? @detach 1; #X obj 381 17 inlet; #X obj 167 619 outlet; #X obj 32 591 vasp.opt; -#N canvas 238 212 466 316 non0 0; +#N canvas 238 212 472 322 non0 0; #X obj 58 254 outlet; #X obj 60 158 / 1; -#X obj 26 21 inlet; -#X obj 26 49 t a a; +#X obj 26 11 inlet; +#X obj 26 39 t a a; #X obj 234 77 vasp.f?; -#X obj 26 80 vasp.!= 0 @detach 1; -#X obj 27 109 vasp.sum?; +#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 5 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 326 117 expr pow(2. \, -$f1/1200); #X obj 300 76 dbtorms; -#N canvas 445 282 478 328 cplx 0; +#N canvas 445 282 482 332 cplx 0; #X obj 19 229 vasp.join; #X obj 19 73 t a b a; #X obj 149 137 vasp.f?; @@ -63,42 +65,41 @@ #X connect 10 0 0 0; #X connect 10 1 0 1; #X restore 27 43 pd cplx; -#X text 280 159 resample; +#X text 281 166 resample; #X text 146 230 find spectral peak; -#X text 191 315 gate spectrum below threshold; -#X text 110 426 wait for threads to finish; -#X obj 95 399 vasp.* 3.14159 @detach 1; +#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 25 156 vasp.xtilt 1 @detach 1 @inter 2; -#X obj 30 345 vasp.pow @detach 1; +#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 184 344 treat spectrum exponentially; +#X text 194 347 treat spectrum exponentially; #X obj 398 444 loadbang; #X msg 398 469 detach 1; #X text 105 591 normalize result; #X text 391 490 no attributes yet; -#X obj 26 179 t a a; +#X obj 28 238 t a a; #X obj 28 288 vasp; #X obj 89 257 t b f; -#X connect 0 0 34 0; +#X obj 95 399 vasp.* 3.14159 @detach 1; +#X connect 0 0 33 0; #X connect 0 1 11 0; #X connect 1 0 9 0; #X connect 2 0 8 0; #X connect 3 0 18 0; #X connect 4 0 22 0; -#X connect 6 0 44 0; +#X connect 6 0 43 0; #X connect 7 0 19 0; #X connect 8 0 0 0; #X connect 9 0 3 0; -#X connect 10 0 35 0; -#X connect 11 0 27 0; +#X connect 10 0 34 0; +#X connect 11 0 44 0; #X connect 12 0 1 0; -#X connect 12 0 17 0; #X connect 12 1 1 1; #X connect 13 0 6 0; #X connect 14 0 20 0; @@ -106,23 +107,24 @@ #X connect 17 0 15 0; #X connect 18 0 16 0; #X connect 19 0 21 0; -#X connect 20 0 34 1; +#X connect 20 0 33 1; #X connect 21 0 6 1; #X connect 22 0 2 0; -#X connect 27 0 12 1; -#X connect 34 0 42 0; -#X connect 35 0 12 0; -#X connect 36 0 35 1; -#X connect 38 0 39 0; -#X connect 39 0 16 0; -#X connect 42 0 13 0; -#X connect 42 1 43 1; -#X connect 43 0 10 0; -#X connect 44 0 43 0; -#X connect 44 1 10 1; +#X connect 33 0 41 0; +#X connect 34 0 12 0; +#X connect 34 0 17 0; +#X connect 35 0 34 1; +#X connect 37 0 38 0; +#X connect 38 0 16 0; +#X connect 41 0 13 0; +#X connect 41 1 42 1; +#X connect 42 0 10 0; +#X connect 43 0 42 0; +#X connect 43 1 10 1; +#X connect 44 0 12 1; #X restore 18 331 pd freeze; -#X obj 104 214 nbx 6 18 -100 0 0 1 empty empty noise_rejection(dB) -0 -8 0 12 -225271 -1 -1 -13 256; +#X obj 104 214 nbx 6 18 -100 0 0 1 empty empty spectral_gate(dB) 0 +-8 0 12 -225271 -1 -1 -20 256; #X obj 104 257 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 @@ -181,8 +183,8 @@ #X restore 448 250 pd open; #X msg 381 222 stop; #N canvas 0 0 450 300 graph10 0; -#X array src 4e+006 float 0; -#X coords 0 1 4e+006 -1 600 150 1; +#X array src 165888 float 0; +#X coords 0 1 165887 -1 600 150 1; #X restore 322 20 graph; #X msg 447 222 new; #X msg 482 222 again; @@ -194,10 +196,10 @@ #X text 128 13 make static sound; #X obj 18 108 bng 25 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1; -#X obj 105 115 nbx 12 18 0 1e+008 0 1 empty empty length(frames) 0 --8 0 12 -225271 -1 -1 4e+006 256; -#X obj 85 368 nbx 9 14 -1e+037 1e+037 0 0 empty empty spectral_density -0 -6 0 10 -262131 -1 -1 0.00090725 256; +#X obj 107 115 nbx 12 18 0 1e+008 0 1 empty empty length(frames) 0 +-8 0 12 -225271 -1 -1 1e+006 256; +#X obj 85 368 nbx 9 14 -1e+037 1e+037 0 0 empty empty spectral_density(dB) +0 -6 0 10 -262131 -1 -1 -65.3592 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 @@ -205,14 +207,14 @@ #X obj 727 197 cnv 15 100 20 empty empty write_dst 5 8 0 10 -261681 -66577 0; #N canvas 0 0 450 300 graph10 0; -#X array dst 4e+006 float 0; -#X coords 0 1 4e+006 -1 600 150 1; +#X array dst 1e+006 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 0 501 353 playsrc 0; +#N canvas 0 0 503 355 playsrc 0; #X obj 18 245 dac~; #X obj 19 21 inlet; #X obj 17 49 route play; @@ -261,7 +263,7 @@ #X connect 3 0 0 1; #X connect 3 1 4 0; #X restore 614 251 pd playdst; -#N canvas 249 202 537 480 copy 0; +#N canvas 249 202 547 490 copy 0; #X obj 27 26 inlet; #X obj 27 51 t b b; #X obj 316 19 inlet; @@ -312,9 +314,9 @@ #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 1152 8 -262131 --1 -1 15700 1; +-1 -1 52000 1; #X obj 323 5 hsl 600 15 0 1 0 1 \$0-r1 empty empty -2 -6 1152 8 -262131 --1 -1 13000 1; +-1 -1 28800 1; #N canvas 148 330 301 261 sel 0; #X obj 30 25 r \$0-r1; #X obj 110 25 r \$0-r2; @@ -349,6 +351,10 @@ #X text 76 412 update graphics; #X obj 28 381 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; +#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 connect 0 0 37 0; #X connect 0 1 18 0; #X connect 1 0 0 1; @@ -365,6 +371,10 @@ #X connect 17 0 28 1; #X connect 23 0 27 0; #X connect 24 0 27 0; +#X connect 26 0 40 0; +#X connect 27 0 41 0; #X connect 28 0 0 0; #X connect 35 0 0 3; #X connect 39 0 37 0; +#X connect 40 0 13 0; +#X connect 41 0 24 0; diff --git a/externals/grill/vasp/pd/wavedisplay-select.pd b/externals/grill/vasp/pd/wavedisplay-select.pd index 04b92cc9..5bc85c06 100644 --- a/externals/grill/vasp/pd/wavedisplay-select.pd +++ b/externals/grill/vasp/pd/wavedisplay-select.pd @@ -1,617 +1,617 @@ -#N canvas 212 260 300 120 10; -#N canvas 166 101 669 345 inside 0; -#N canvas 149 25 652 578 positions 0; -#N canvas 74 268 410 336 setpositions 0; -#X obj 60 102 inlet; -#X obj 220 102 inlet; -#X text 60 270 sets numberbox (left); -#X text 220 270 (right); -#X obj 60 180 runden; -#X obj 220 180 runden; -#X msg 60 205 set \$1; -#X msg 220 205 set \$1; -#X obj 60 138 change; -#X obj 220 138 change; -#X obj 60 246 s \$2-nboxlr; -#X obj 220 246 s \$2-nboxrr; -#X connect 0 0 8 0; -#X connect 1 0 9 0; -#X connect 4 0 6 0; -#X connect 5 0 7 0; -#X connect 6 0 10 0; -#X connect 7 0 11 0; -#X connect 8 0 4 0; -#X connect 9 0 5 0; -#X restore 122 446 pd setpositions; -#N canvas 100 40 610 460 sendpositions 0; -#X obj 66 58 inlet; -#X obj 137 59 inlet; -#X obj 127 264 / 1; -#X obj 193 262 / 1; -#X obj 127 287 runden; -#X obj 193 287 runden; -#X obj 127 322 s \$0-selection_l; -#X obj 193 348 s \$0-selection_r; -#X text 138 365 to selectioncanvas (drawselection); -#X obj 229 155 s \$0-spos_lb; -#X obj 312 154 s \$0-spos_rb; -#X text 247 172 for playselections; -#X obj 66 244 -; -#X obj 66 408 s \$0-selection; -#X text 197 62 in samples; -#X text 65 425 length in samples; -#X obj 431 174 pack 0 0; -#X obj 431 148 t b f; -#X obj 137 81 t f f f f; -#X obj 66 81 t b f f f f; -#X obj 431 196 s \$0-borderpair; -#X obj 228 219 / 300; -#X obj 228 197 r \$2-sample-length; -#X connect 0 0 19 0; -#X connect 1 0 18 0; -#X connect 2 0 4 0; -#X connect 3 0 5 0; -#X connect 4 0 6 0; -#X connect 5 0 7 0; -#X connect 12 0 13 0; -#X connect 16 0 20 0; -#X connect 17 0 16 0; -#X connect 17 1 16 1; -#X connect 18 0 12 0; -#X connect 18 1 3 0; -#X connect 18 2 10 0; -#X connect 18 3 17 0; -#X connect 19 0 12 0; -#X connect 19 1 12 1; -#X connect 19 2 2 0; -#X connect 19 3 9 0; -#X connect 19 4 16 0; -#X connect 21 0 3 1; -#X connect 21 0 2 1; -#X connect 22 0 21 0; -#X restore 313 443 pd sendpositions; -#X text 333 462 to graphics; -#X obj 122 137 * 1; -#X obj 197 137 * 1; -#X obj 371 61 r \$0-shiftsel; -#X obj 371 136 * 1; -#X obj 169 247 +; -#X obj 122 219 0; -#X obj 170 315 t f f f; -#X obj 333 222 0; -#X obj 371 249 +; -#X obj 354 317 t f f f; -#X obj 122 61 r \$0-sel_lb; -#X obj 197 61 r \$0-sel_rb; -#X obj 145 174 r \$0-nboxls; -#X obj 347 184 r \$0-nboxrs; -#X floatatom 162 201 5 0 0; -#X floatatom 360 211 5 0 0; -#X text 174 31 (from sliderhandling); -#X text 310 384 right border of sel; -#X text 79 340 leftborder of sel; -#X obj 333 365 t f f; -#X obj 122 361 t f f; -#N canvas 336 13 613 533 testborders 0; -#X obj 90 52 inlet; -#X obj 190 52 inlet; -#X obj 111 488 outlet; -#X obj 202 492 outlet; -#X obj 177 219 0; -#X obj 90 163 moses 0; -#X obj 127 189 t b f; -#X obj 139 347 0; -#X msg 57 345 0; -#X obj 177 270 t b f; -#X text 259 164 test if lb < 0 and if not if rb > sample-length; -#X obj 95 298 r \$0-selection; -#X obj 82 345 0; -#X obj 314 304 r \$0-selection; -#X obj 57 200 t b b; -#X obj 264 399 -; -#X obj 314 326 t b f; -#X obj 251 422 0; -#X obj 226 270 t b b; -#X obj 264 361 300; -#X obj 177 244 moses 300; -#X obj 226 296 300; -#X obj 226 216 r \$2-sample-length; -#X obj 264 283 r \$2-sample-length; -#X connect 0 0 5 0; -#X connect 1 0 4 1; -#X connect 4 0 20 0; -#X connect 5 0 14 0; -#X connect 5 1 6 0; -#X connect 6 0 4 0; -#X connect 6 1 7 1; -#X connect 7 0 2 0; -#X connect 8 0 2 0; -#X connect 9 0 7 0; -#X connect 9 1 3 0; -#X connect 11 0 12 1; -#X connect 12 0 3 0; -#X connect 13 0 16 0; -#X connect 14 0 8 0; -#X connect 14 1 12 0; -#X connect 15 0 17 1; -#X connect 16 0 19 0; -#X connect 16 1 15 1; -#X connect 17 0 2 0; -#X connect 18 0 21 0; -#X connect 18 1 17 0; -#X connect 19 0 15 0; -#X connect 20 0 9 0; -#X connect 20 1 18 0; -#X connect 21 0 3 0; -#X connect 22 0 20 1; -#X connect 22 0 21 1; -#X connect 23 0 19 0; -#X restore 233 285 pd testborders; -#X obj 371 157 t f f; -#X obj 245 104 / 300; -#X obj 245 82 r \$2-sample-length; -#X connect 3 0 8 0; -#X connect 4 0 10 0; -#X connect 5 0 6 0; -#X connect 6 0 25 0; -#X connect 7 0 24 0; -#X connect 8 0 7 1; -#X connect 8 0 23 0; -#X connect 9 0 23 0; -#X connect 9 1 8 1; -#X connect 9 2 7 1; -#X connect 10 0 11 1; -#X connect 10 0 22 0; -#X connect 11 0 24 1; -#X connect 12 0 22 0; -#X connect 12 1 10 1; -#X connect 12 2 11 1; -#X connect 13 0 3 0; -#X connect 14 0 4 0; -#X connect 15 0 17 0; -#X connect 15 0 8 0; -#X connect 16 0 18 0; -#X connect 16 0 10 0; -#X connect 22 0 0 1; -#X connect 22 1 1 1; -#X connect 23 0 0 0; -#X connect 23 1 1 0; -#X connect 24 0 9 0; -#X connect 24 1 12 0; -#X connect 25 0 7 0; -#X connect 25 1 11 0; -#X connect 26 0 6 1; -#X connect 26 0 4 1; -#X connect 26 0 3 1; -#X connect 27 0 26 0; -#X restore 90 129 pd positions; -#N canvas 0 0 410 161 wavetable 0; -#X obj 124 82 table \$1 44100; -#X restore 91 211 pd wavetable; -#X text 186 210 contains the sample; -#N canvas 228 148 445 446 loadsample 0; -#X obj 39 199 soundfiler; -#X obj 39 66 openpanel; -#X text 229 39 load a (new) sample to a table; -#X text 176 313 draw the large display; -#X msg 39 174 read -resize \$1 \$2; -#X obj 82 121 symbol \$1; -#X obj 39 144 pack s s; -#X obj 39 89 t s b; -#X obj 39 40 r \$2-load_new_sample; -#X obj 64 272 s \$2-sample-length; -#X obj 39 308 s \$2-draw_display; -#X obj 39 236 t b f; -#X connect 0 0 11 0; -#X connect 1 0 7 0; -#X connect 4 0 0 0; -#X connect 5 0 6 1; -#X connect 6 0 4 0; -#X connect 7 0 6 0; -#X connect 7 1 5 0; -#X connect 8 0 1 0; -#X connect 11 0 10 0; -#X connect 11 1 9 0; -#X restore 91 188 pd loadsample; -#X text 198 187 load a new sample; -#N canvas 46 30 520 602 drawdisplay 0; -#X obj 193 422 vasp.frames 20; -#X obj 193 449 vasp.offset 0; -#X msg 83 83 bang; -#X obj 168 137 0; -#X obj 168 225 t f f f; -#X obj 181 114 + 1; -#X obj 168 252 *; -#X text 45 80 start; -#X text 262 215 (reset); -#X obj 193 470 vasp.max?; -#X obj 193 496 vasp.min?; -#X obj 325 275 t f f; -#X obj 168 281 t b b f; -#X obj 76 129 until 1; -#X obj 76 108 300; -#X obj 276 518 tabwrite \$0+; -#X obj 242 564 tabwrite \$0-; -#X msg 193 336 vasp \$1; -#X obj 193 308 symbol \$1; -#X obj 83 46 r \$2-draw_display; -#X obj 325 229 r \$2-sample-length; -#X obj 325 254 / 300; -#X obj 276 495 clip -1 1; -#X obj 242 539 clip -1 1; -#X obj 168 162 moses 299; -#X msg 242 217 0; -#X obj 217 196 t f b; -#X connect 0 0 1 0; -#X connect 1 0 9 0; -#X connect 2 0 14 0; -#X connect 3 0 5 0; -#X connect 3 0 24 0; -#X connect 4 0 6 0; -#X connect 4 1 15 1; -#X connect 4 2 16 1; -#X connect 5 0 3 1; -#X connect 6 0 12 0; -#X connect 9 0 10 0; -#X connect 9 1 22 0; -#X connect 10 1 23 0; -#X connect 11 0 6 1; -#X connect 11 1 0 1; -#X connect 12 1 18 0; -#X connect 12 2 1 1; -#X connect 13 0 3 0; -#X connect 14 0 13 0; -#X connect 17 0 0 0; -#X connect 18 0 17 0; -#X connect 19 0 2 0; -#X connect 20 0 21 0; -#X connect 21 0 11 0; -#X connect 22 0 15 0; -#X connect 23 0 16 0; -#X connect 24 0 4 0; -#X connect 24 1 26 0; -#X connect 25 0 1 1; -#X connect 25 0 3 1; -#X connect 26 0 4 0; -#X connect 26 1 25 0; -#X restore 91 234 pd drawdisplay; -#X text 200 233 draws the large display; -#N canvas 123 371 417 309 sliderhandling 0; -#X floatatom 112 145 5 0 0; -#X floatatom 220 143 5 0 0; -#N canvas 83 38 570 521 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 297 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 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 1 10 0; -#X connect 5 1 11 0; -#X connect 6 0 1 1; -#X connect 7 0 8 0; -#X connect 10 0 9 0; -#X connect 11 0 1 1; -#X connect 12 0 5 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 206 117 pd keyinput_s; -#N canvas 49 247 417 326 spacehandling 0; -#X obj 60 26 inlet; -#X obj 164 26 inlet; -#X obj 138 119 0; -#X obj 60 157 moses 0; -#X obj 85 205 0; -#X obj 60 180 t f b; -#X obj 160 209 0; -#X obj 135 184 t f b; -#X text 188 186 checks range direction; -#X obj 60 236 s \$0-sel_lb; -#X obj 135 236 s \$0-sel_rb; -#X text 141 61 first position after hit is ref; -#X obj 214 133 spigot; -#X msg 245 99 1; -#X obj 214 162 t f b; -#X msg 219 99 0; -#X text 159 45 down; -#X obj 60 60 t f b f f; -#X connect 0 0 17 0; -#X connect 1 0 13 0; -#X connect 2 0 3 1; -#X connect 2 0 4 1; -#X connect 2 0 6 1; -#X connect 3 0 5 0; -#X connect 3 1 7 0; -#X connect 4 0 10 0; -#X connect 5 0 9 0; -#X connect 5 1 4 0; -#X connect 6 0 9 0; -#X connect 7 0 10 0; -#X connect 7 1 6 0; -#X connect 12 0 14 0; -#X connect 13 0 12 1; -#X connect 14 0 2 1; -#X connect 14 1 15 0; -#X connect 15 0 12 1; -#X connect 17 0 3 0; -#X connect 17 1 2 0; -#X connect 17 2 12 0; -#X restore 80 178 pd spacehandling; -#N canvas 523 338 360 357 s_handling 0; -#X obj 85 27 inlet; -#X obj 85 305 s \$0-sliderr; -#X msg 85 279 set \$1; -#X obj 85 249 0; -#X obj 85 202 -; -#X obj 85 225 t b f; -#X obj 171 264 s \$0-shiftsel; -#X floatatom 200 295 5 0 0; -#X obj 204 28 inlet; -#X text 146 48 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 connect 0 0 15 0; -#X connect 2 0 1 0; -#X connect 3 0 2 0; -#X connect 4 0 5 0; -#X connect 5 0 3 0; -#X connect 5 1 6 0; -#X connect 5 1 7 0; -#X connect 8 0 11 0; -#X connect 10 0 12 0; -#X connect 11 0 10 1; -#X connect 12 0 4 1; -#X connect 12 0 3 1; -#X connect 12 1 13 0; -#X connect 13 0 10 1; -#X connect 15 0 4 0; -#X connect 15 1 10 0; -#X restore 206 179 pd s_handling; -#X obj 80 33 r \$0-sliders; -#X floatatom 124 58 5 0 0; -#N canvas 578 111 637 561 keyinput_space2 0; -#X obj 82 464 spigot; -#X floatatom 94 498 5 0 0; -#X msg 141 414 1; -#X msg 114 414 0; -#X obj 114 435 s \$0-spig1; -#X obj 194 436 s \$0-spig1; -#X msg 194 415 1; -#X msg 221 415 0; -#X obj 150 119 key; -#X obj 177 119 keyup; -#X obj 141 168 sel 32; -#X obj 141 191 0; -#X obj 141 145 0; -#X obj 218 144 t b f; -#X obj 218 119 keyname; -#X obj 82 86 inlet; -#X obj 82 528 outlet; -#X text 84 53 if spacebar is down \, then input is let through; -#X obj 141 357 change; -#X obj 141 380 sel 1 0; -#X obj 171 525 outlet; -#X text 174 505 down; -#X obj 223 526 outlet; -#X text 226 506 up; -#X obj 141 235 t b b 0; -#X obj 163 278 delay 100; -#X msg 163 257 stop; -#X obj 141 213 sel 0 1; -#X obj 141 325 0; -#X msg 141 301 1; -#X text 217 254 linux and win have different up/down behaviour...; -#X text 194 309 only if there is no new input for 100 ms after 0 \, -0 is sent out; -#X connect 0 0 1 0; -#X connect 0 0 16 0; -#X connect 2 0 0 1; -#X connect 3 0 4 0; -#X connect 6 0 5 0; -#X connect 7 0 0 1; -#X connect 8 0 12 1; -#X connect 9 0 12 1; -#X connect 10 0 11 0; -#X connect 11 0 27 0; -#X connect 12 0 10 0; -#X connect 13 0 12 0; -#X connect 13 1 11 1; -#X connect 14 0 13 0; -#X connect 15 0 0 0; -#X connect 18 0 19 0; -#X connect 19 0 2 0; -#X connect 19 0 3 0; -#X connect 19 0 20 0; -#X connect 19 1 6 0; -#X connect 19 1 7 0; -#X connect 19 1 22 0; -#X connect 24 0 25 0; -#X connect 24 1 26 0; -#X connect 24 2 28 1; -#X connect 25 0 28 0; -#X connect 26 0 25 0; -#X connect 27 0 24 0; -#X connect 27 1 29 0; -#X connect 28 0 18 0; -#X connect 29 0 28 0; -#X restore 80 117 pd keyinput_space2; -#X obj 80 79 t f f; -#X obj 176 33 r \$0-fromothers; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 2 1 4 1; -#X connect 5 0 6 0; -#X connect 5 0 8 0; -#X connect 7 0 0 0; -#X connect 7 0 3 0; -#X connect 7 1 3 1; -#X connect 8 0 7 0; -#X connect 8 1 2 0; -#X connect 9 0 8 0; -#X restore 91 94 pd sliderhandling; -#X text 186 124 receiving inputs \, conversions and settings of slider- -and graphic-positions; -#X text 233 96 the slider sets curser and borders...; -#N canvas 217 166 683 484 drawselection 0; -#X obj 445 186 t b f; -#X obj 61 221 t b f; -#X obj 223 187 -; -#X obj 223 139 t b f; -#X obj 61 88 runden 0; -#X obj 234 86 runden 0; -#X msg 61 293 \; \$1-selectionr pos \$2 \$3; -#X obj 61 197 + 0; -#X obj 61 269 pack \$0 0 0; -#X msg 445 232 \; \$1-selectionr vis_size \$2 \$3; -#X obj 61 60 r \$0-selection_l; -#X obj 234 58 r \$0-selection_r; -#X obj 124 198 loadbang; -#X obj 223 209 sel 0; -#X obj 479 378 pack 0 \$0; -#X msg 479 402 \; \$2-selectionr color \$1; -#X msg 479 309 17; -#X obj 479 354 change; -#X obj 479 331 0; -#X text 45 6 shows a light-blue colored canvas; -#X text 44 21 when a part is selected; -#X obj 61 142 change; -#X obj 445 164 change; -#X obj 445 208 pack \$0 300 120; -#X obj 223 163 300; -#X msg 446 309 6; -#X msg 248 294 \; \$1-selectionr vis_size \$2 \$3; -#X obj 248 270 pack \$0 0 120; -#X obj 223 234 t b b; -#X msg 122 223 0; -#X msg 89 197 3; -#X text 477 291 if size=0 then it will be hidden; -#X connect 0 0 23 0; -#X connect 0 1 23 1; -#X connect 1 0 8 0; -#X connect 1 1 8 1; -#X connect 2 0 13 0; -#X connect 3 0 24 0; -#X connect 3 1 2 1; -#X connect 4 0 3 0; -#X connect 4 0 21 0; -#X connect 5 0 24 0; -#X connect 7 0 1 0; -#X connect 8 0 6 0; -#X connect 10 0 4 0; -#X connect 11 0 5 0; -#X connect 12 0 29 0; -#X connect 12 0 30 0; -#X connect 13 0 28 0; -#X connect 13 1 16 0; -#X connect 13 1 22 0; -#X connect 14 0 15 0; -#X connect 16 0 18 0; -#X connect 17 0 14 0; -#X connect 18 0 17 0; -#X connect 21 0 7 0; -#X connect 22 0 0 0; -#X connect 23 0 9 0; -#X connect 24 0 2 0; -#X connect 25 0 18 0; -#X connect 27 0 26 0; -#X connect 28 0 25 0; -#X connect 28 1 27 0; -#X connect 29 0 8 2; -#X connect 30 0 7 1; -#X restore 91 166 pd drawselection; -#X text 211 163 draws the light blue selection; -#N canvas 149 160 490 235 init 0; -#X obj 33 19 loadbang; -#X obj 33 86 s \$0-; -#X msg 33 44 xticks 0 30 5 \, ylabel 315 -1 -0.5 0 0.5 \, yticks 0 -0.25 2; -#X msg 33 150 44100; -#X obj 33 128 loadbang; -#X obj 33 173 s \$2-sample-length; -#X connect 0 0 2 0; -#X connect 2 0 1 0; -#X connect 3 0 5 0; -#X connect 4 0 3 0; -#X restore 92 261 pd init; -#N canvas 0 0 445 185 synchronize_several_displays 0; -#X obj 232 68 r \$0-sliders; -#X obj 126 67 r \$0-synchroin; -#X obj 232 104 s \$0-synchroout; -#X obj 126 104 s \$0-fromothers; -#X connect 0 0 2 0; -#X connect 1 0 3 0; -#X restore 92 285 pd synchronize_several_displays; -#X restore 332 83 pd inside; -#X obj 399 96 outlet; -#X obj 3 0 hsl 300 120 0 299 0 0 \$0-sliders \$0-sliderr empty -2 -6 -1728 8 -262144 -1 -1 14500 0; -#X obj 0 0 cnv 15 305 120 empty empty empty 20 12 0 14 -262144 -66577 -0; -#X obj 2 0 cnv 15 300 120 empty empty empty 20 12 0 14 -225271 -66577 -0; -#X obj 3 0 cnv 1 1 120 \$0-selections \$0-selectionr empty 20 12 1728 -14 -225271 -262144 0; -#N canvas 0 0 450 300 graph1 0; -#X array \$0- 300 float 0; -#X array \$0+ 300 float 0; -#X coords 0 1 299 -1 300 120 1; -#X restore 2 0 graph; -#X obj 399 75 r \$0-borderpair; -#X text 328 10 this display shows the min and max of all samples that -a pixel represents; -#X text 328 52 arguments: name of array \, \$0 of the parent patch -; -#X text 328 38 select with spacebar and shift with "s"; -#X obj 509 95 outlet; -#X obj 614 75 inlet; -#X obj 509 75 r \$0-synchroout; -#X obj 560 94 s \$0-synchroin; -#X connect 7 0 1 0; -#X connect 12 0 14 0; -#X connect 13 0 11 0; -#X coords 0 0 1 1 305 120 1; +#N canvas 212 260 305 123 10; +#N canvas 166 101 671 347 inside 0; +#N canvas 149 25 654 580 positions 0; +#N canvas 74 268 410 336 setpositions 0; +#X obj 60 102 inlet; +#X obj 220 102 inlet; +#X text 60 270 sets numberbox (left); +#X text 220 270 (right); +#X obj 60 180 runden; +#X obj 220 180 runden; +#X msg 60 205 set \$1; +#X msg 220 205 set \$1; +#X obj 60 138 change; +#X obj 220 138 change; +#X obj 60 246 s \$2-nboxlr; +#X obj 220 246 s \$2-nboxrr; +#X connect 0 0 8 0; +#X connect 1 0 9 0; +#X connect 4 0 6 0; +#X connect 5 0 7 0; +#X connect 6 0 10 0; +#X connect 7 0 11 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X restore 122 446 pd setpositions; +#N canvas 100 40 610 460 sendpositions 0; +#X obj 66 58 inlet; +#X obj 137 59 inlet; +#X obj 127 264 / 1; +#X obj 193 262 / 1; +#X obj 127 287 runden; +#X obj 193 287 runden; +#X obj 127 322 s \$0-selection_l; +#X obj 193 348 s \$0-selection_r; +#X text 138 365 to selectioncanvas (drawselection); +#X obj 229 155 s \$0-spos_lb; +#X obj 312 154 s \$0-spos_rb; +#X text 247 172 for playselections; +#X obj 66 244 -; +#X obj 66 408 s \$0-selection; +#X text 197 62 in samples; +#X text 65 425 length in samples; +#X obj 431 174 pack 0 0; +#X obj 431 148 t b f; +#X obj 137 81 t f f f f; +#X obj 66 81 t b f f f f; +#X obj 431 196 s \$0-borderpair; +#X obj 228 219 / 300; +#X obj 228 197 r \$2-sample-length; +#X connect 0 0 19 0; +#X connect 1 0 18 0; +#X connect 2 0 4 0; +#X connect 3 0 5 0; +#X connect 4 0 6 0; +#X connect 5 0 7 0; +#X connect 12 0 13 0; +#X connect 16 0 20 0; +#X connect 17 0 16 0; +#X connect 17 1 16 1; +#X connect 18 0 12 0; +#X connect 18 1 3 0; +#X connect 18 2 10 0; +#X connect 18 3 17 0; +#X connect 19 0 12 0; +#X connect 19 1 12 1; +#X connect 19 2 2 0; +#X connect 19 3 9 0; +#X connect 19 4 16 0; +#X connect 21 0 3 1; +#X connect 21 0 2 1; +#X connect 22 0 21 0; +#X restore 313 443 pd sendpositions; +#X text 333 462 to graphics; +#X obj 122 137 * 1; +#X obj 197 137 * 1; +#X obj 371 61 r \$0-shiftsel; +#X obj 371 136 * 1; +#X obj 169 247 +; +#X obj 122 219 0; +#X obj 170 315 t f f f; +#X obj 333 222 0; +#X obj 371 249 +; +#X obj 354 317 t f f f; +#X obj 122 61 r \$0-sel_lb; +#X obj 197 61 r \$0-sel_rb; +#X obj 145 174 r \$0-nboxls; +#X obj 347 184 r \$0-nboxrs; +#X floatatom 162 201 5 0 0 0 - - -; +#X floatatom 360 211 5 0 0 0 - - -; +#X text 174 31 (from sliderhandling); +#X text 310 384 right border of sel; +#X text 79 340 leftborder of sel; +#X obj 333 365 t f f; +#X obj 122 361 t f f; +#N canvas 336 13 613 533 testborders 0; +#X obj 90 52 inlet; +#X obj 190 52 inlet; +#X obj 111 488 outlet; +#X obj 202 492 outlet; +#X obj 177 219 0; +#X obj 90 163 moses 0; +#X obj 127 189 t b f; +#X obj 139 347 0; +#X msg 57 345 0; +#X obj 177 270 t b f; +#X text 259 164 test if lb < 0 and if not if rb > sample-length; +#X obj 95 298 r \$0-selection; +#X obj 82 345 0; +#X obj 314 304 r \$0-selection; +#X obj 57 200 t b b; +#X obj 264 399 -; +#X obj 314 326 t b f; +#X obj 251 422 0; +#X obj 226 270 t b b; +#X obj 264 361 300; +#X obj 177 244 moses 300; +#X obj 226 296 300; +#X obj 226 216 r \$2-sample-length; +#X obj 264 283 r \$2-sample-length; +#X connect 0 0 5 0; +#X connect 1 0 4 1; +#X connect 4 0 20 0; +#X connect 5 0 14 0; +#X connect 5 1 6 0; +#X connect 6 0 4 0; +#X connect 6 1 7 1; +#X connect 7 0 2 0; +#X connect 8 0 2 0; +#X connect 9 0 7 0; +#X connect 9 1 3 0; +#X connect 11 0 12 1; +#X connect 12 0 3 0; +#X connect 13 0 16 0; +#X connect 14 0 8 0; +#X connect 14 1 12 0; +#X connect 15 0 17 1; +#X connect 16 0 19 0; +#X connect 16 1 15 1; +#X connect 17 0 2 0; +#X connect 18 0 21 0; +#X connect 18 1 17 0; +#X connect 19 0 15 0; +#X connect 20 0 9 0; +#X connect 20 1 18 0; +#X connect 21 0 3 0; +#X connect 22 0 20 1; +#X connect 22 0 21 1; +#X connect 23 0 19 0; +#X restore 233 285 pd testborders; +#X obj 371 157 t f f; +#X obj 245 104 / 300; +#X obj 245 82 r \$2-sample-length; +#X connect 3 0 8 0; +#X connect 4 0 10 0; +#X connect 5 0 6 0; +#X connect 6 0 25 0; +#X connect 7 0 24 0; +#X connect 8 0 7 1; +#X connect 8 0 23 0; +#X connect 9 0 23 0; +#X connect 9 1 8 1; +#X connect 9 2 7 1; +#X connect 10 0 11 1; +#X connect 10 0 22 0; +#X connect 11 0 24 1; +#X connect 12 0 22 0; +#X connect 12 1 10 1; +#X connect 12 2 11 1; +#X connect 13 0 3 0; +#X connect 14 0 4 0; +#X connect 15 0 17 0; +#X connect 15 0 8 0; +#X connect 16 0 18 0; +#X connect 16 0 10 0; +#X connect 22 0 0 1; +#X connect 22 1 1 1; +#X connect 23 0 0 0; +#X connect 23 1 1 0; +#X connect 24 0 9 0; +#X connect 24 1 12 0; +#X connect 25 0 7 0; +#X connect 25 1 11 0; +#X connect 26 0 6 1; +#X connect 26 0 4 1; +#X connect 26 0 3 1; +#X connect 27 0 26 0; +#X restore 90 129 pd positions; +#N canvas 0 0 410 161 wavetable 0; +#X obj 124 82 table \$1 44100; +#X restore 91 211 pd wavetable; +#X text 186 210 contains the sample; +#N canvas 228 148 447 448 loadsample 0; +#X obj 39 199 soundfiler; +#X obj 39 66 openpanel; +#X text 229 39 load a (new) sample to a table; +#X text 176 313 draw the large display; +#X msg 39 174 read -resize \$1 \$2; +#X obj 82 121 symbol \$1; +#X obj 39 144 pack s s; +#X obj 39 89 t s b; +#X obj 39 40 r \$2-load_new_sample; +#X obj 64 272 s \$2-sample-length; +#X obj 39 308 s \$2-draw_display; +#X obj 39 236 t b f; +#X connect 0 0 11 0; +#X connect 1 0 7 0; +#X connect 4 0 0 0; +#X connect 5 0 6 1; +#X connect 6 0 4 0; +#X connect 7 0 6 0; +#X connect 7 1 5 0; +#X connect 8 0 1 0; +#X connect 11 0 10 0; +#X connect 11 1 9 0; +#X restore 91 188 pd loadsample; +#X text 198 187 load a new sample; +#N canvas 46 30 522 604 drawdisplay 0; +#X obj 193 422 vasp.frames 20; +#X obj 193 449 vasp.offset 0; +#X msg 83 83 bang; +#X obj 168 137 0; +#X obj 168 225 t f f f; +#X obj 181 114 + 1; +#X obj 168 252 *; +#X text 45 80 start; +#X text 262 215 (reset); +#X obj 255 500 vasp.max?; +#X obj 163 497 vasp.min?; +#X obj 325 275 t f f; +#X obj 168 281 t b b f; +#X obj 76 129 until 1; +#X obj 76 108 300; +#X obj 256 545 tabwrite \$0+; +#X obj 163 545 tabwrite \$0-; +#X msg 193 336 vasp \$1; +#X obj 193 308 symbol \$1; +#X obj 83 46 r \$2-draw_display; +#X obj 325 229 r \$2-sample-length; +#X obj 325 254 / 300; +#X obj 256 522 clip -1 1; +#X obj 163 520 clip -1 1; +#X obj 168 162 moses 299; +#X msg 242 217 0; +#X obj 217 196 t f b; +#X connect 0 0 1 0; +#X connect 1 0 9 0; +#X connect 1 0 10 0; +#X connect 2 0 14 0; +#X connect 3 0 5 0; +#X connect 3 0 24 0; +#X connect 4 0 6 0; +#X connect 4 1 15 1; +#X connect 4 2 16 1; +#X connect 5 0 3 1; +#X connect 6 0 12 0; +#X connect 9 0 22 0; +#X connect 10 0 23 0; +#X connect 11 0 6 1; +#X connect 11 1 0 1; +#X connect 12 1 18 0; +#X connect 12 2 1 1; +#X connect 13 0 3 0; +#X connect 14 0 13 0; +#X connect 17 0 0 0; +#X connect 18 0 17 0; +#X connect 19 0 2 0; +#X connect 20 0 21 0; +#X connect 21 0 11 0; +#X connect 22 0 15 0; +#X connect 23 0 16 0; +#X connect 24 0 4 0; +#X connect 24 1 26 0; +#X connect 25 0 1 1; +#X connect 25 0 3 1; +#X connect 26 0 4 0; +#X connect 26 1 25 0; +#X restore 91 234 pd drawdisplay; +#X text 200 233 draws the large display; +#N canvas 123 371 419 311 sliderhandling 0; +#X floatatom 112 145 5 0 0 0 - - -; +#X floatatom 220 143 5 0 0 0 - - -; +#N canvas 83 38 570 521 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 297 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 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 1 10 0; +#X connect 5 1 11 0; +#X connect 6 0 1 1; +#X connect 7 0 8 0; +#X connect 10 0 9 0; +#X connect 11 0 1 1; +#X connect 12 0 5 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 206 117 pd keyinput_s; +#N canvas 49 247 419 328 spacehandling 0; +#X obj 60 26 inlet; +#X obj 164 26 inlet; +#X obj 138 119 0; +#X obj 60 157 moses 0; +#X obj 85 205 0; +#X obj 60 180 t f b; +#X obj 160 209 0; +#X obj 135 184 t f b; +#X text 188 186 checks range direction; +#X obj 60 236 s \$0-sel_lb; +#X obj 135 236 s \$0-sel_rb; +#X text 141 61 first position after hit is ref; +#X obj 214 133 spigot; +#X msg 245 99 1; +#X obj 214 162 t f b; +#X msg 219 99 0; +#X text 159 45 down; +#X obj 60 60 t f b f f; +#X connect 0 0 17 0; +#X connect 1 0 13 0; +#X connect 2 0 3 1; +#X connect 2 0 4 1; +#X connect 2 0 6 1; +#X connect 3 0 5 0; +#X connect 3 1 7 0; +#X connect 4 0 10 0; +#X connect 5 0 9 0; +#X connect 5 1 4 0; +#X connect 6 0 9 0; +#X connect 7 0 10 0; +#X connect 7 1 6 0; +#X connect 12 0 14 0; +#X connect 13 0 12 1; +#X connect 14 0 2 1; +#X connect 14 1 15 0; +#X connect 15 0 12 1; +#X connect 17 0 3 0; +#X connect 17 1 2 0; +#X connect 17 2 12 0; +#X restore 80 178 pd spacehandling; +#N canvas 523 338 362 359 s_handling 0; +#X obj 85 27 inlet; +#X obj 85 305 s \$0-sliderr; +#X msg 85 279 set \$1; +#X obj 85 249 0; +#X obj 85 202 -; +#X obj 85 225 t b f; +#X obj 171 264 s \$0-shiftsel; +#X floatatom 200 295 5 0 0 0 - - -; +#X obj 204 28 inlet; +#X text 146 48 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 connect 0 0 15 0; +#X connect 2 0 1 0; +#X connect 3 0 2 0; +#X connect 4 0 5 0; +#X connect 5 0 3 0; +#X connect 5 1 6 0; +#X connect 5 1 7 0; +#X connect 8 0 11 0; +#X connect 10 0 12 0; +#X connect 11 0 10 1; +#X connect 12 0 4 1; +#X connect 12 0 3 1; +#X connect 12 1 13 0; +#X connect 13 0 10 1; +#X connect 15 0 4 0; +#X connect 15 1 10 0; +#X restore 206 179 pd s_handling; +#X obj 80 33 r \$0-sliders; +#X floatatom 124 58 5 0 0 0 - - -; +#N canvas 578 111 639 563 keyinput_space2 0; +#X obj 82 464 spigot; +#X floatatom 94 498 5 0 0 0 - - -; +#X msg 141 414 1; +#X msg 114 414 0; +#X obj 114 435 s \$0-spig1; +#X obj 194 436 s \$0-spig1; +#X msg 194 415 1; +#X msg 221 415 0; +#X obj 150 119 key; +#X obj 177 119 keyup; +#X obj 141 168 sel 32; +#X obj 141 191 0; +#X obj 141 145 0; +#X obj 218 144 t b f; +#X obj 218 119 keyname; +#X obj 82 86 inlet; +#X obj 82 528 outlet; +#X text 84 53 if spacebar is down \, then input is let through; +#X obj 141 357 change; +#X obj 141 380 sel 1 0; +#X obj 171 525 outlet; +#X text 174 505 down; +#X obj 223 526 outlet; +#X text 226 506 up; +#X obj 141 235 t b b 0; +#X obj 163 278 delay 100; +#X msg 163 257 stop; +#X obj 141 213 sel 0 1; +#X obj 141 325 0; +#X msg 141 301 1; +#X text 217 254 linux and win have different up/down behaviour...; +#X text 194 309 only if there is no new input for 100 ms after 0 \, +0 is sent out; +#X connect 0 0 1 0; +#X connect 0 0 16 0; +#X connect 2 0 0 1; +#X connect 3 0 4 0; +#X connect 6 0 5 0; +#X connect 7 0 0 1; +#X connect 8 0 12 1; +#X connect 9 0 12 1; +#X connect 10 0 11 0; +#X connect 11 0 27 0; +#X connect 12 0 10 0; +#X connect 13 0 12 0; +#X connect 13 1 11 1; +#X connect 14 0 13 0; +#X connect 15 0 0 0; +#X connect 18 0 19 0; +#X connect 19 0 2 0; +#X connect 19 0 3 0; +#X connect 19 0 20 0; +#X connect 19 1 6 0; +#X connect 19 1 7 0; +#X connect 19 1 22 0; +#X connect 24 0 25 0; +#X connect 24 1 26 0; +#X connect 24 2 28 1; +#X connect 25 0 28 0; +#X connect 26 0 25 0; +#X connect 27 0 24 0; +#X connect 27 1 29 0; +#X connect 28 0 18 0; +#X connect 29 0 28 0; +#X restore 80 117 pd keyinput_space2; +#X obj 80 79 t f f; +#X obj 176 33 r \$0-fromothers; +#X connect 2 0 1 0; +#X connect 2 0 4 0; +#X connect 2 1 4 1; +#X connect 5 0 6 0; +#X connect 5 0 8 0; +#X connect 7 0 0 0; +#X connect 7 0 3 0; +#X connect 7 1 3 1; +#X connect 8 0 7 0; +#X connect 8 1 2 0; +#X connect 9 0 8 0; +#X restore 91 94 pd sliderhandling; +#X text 186 124 receiving inputs \, conversions and settings of slider- +and graphic-positions; +#X text 233 96 the slider sets curser and borders...; +#N canvas 217 166 685 486 drawselection 0; +#X obj 445 186 t b f; +#X obj 61 221 t b f; +#X obj 223 187 -; +#X obj 223 139 t b f; +#X obj 61 88 runden 0; +#X obj 234 86 runden 0; +#X msg 61 293 \; \$1-selectionr pos \$2 \$3; +#X obj 61 197 + 0; +#X obj 61 269 pack \$0 0 0; +#X msg 445 232 \; \$1-selectionr vis_size \$2 \$3; +#X obj 61 60 r \$0-selection_l; +#X obj 234 58 r \$0-selection_r; +#X obj 124 198 loadbang; +#X obj 223 209 sel 0; +#X obj 479 378 pack 0 \$0; +#X msg 479 402 \; \$2-selectionr color \$1; +#X msg 479 309 17; +#X obj 479 354 change; +#X obj 479 331 0; +#X text 45 6 shows a light-blue colored canvas; +#X text 44 21 when a part is selected; +#X obj 61 142 change; +#X obj 445 164 change; +#X obj 445 208 pack \$0 300 120; +#X obj 223 163 300; +#X msg 446 309 6; +#X msg 248 294 \; \$1-selectionr vis_size \$2 \$3; +#X obj 248 270 pack \$0 0 120; +#X obj 223 234 t b b; +#X msg 122 223 0; +#X msg 89 197 3; +#X text 477 291 if size=0 then it will be hidden; +#X connect 0 0 23 0; +#X connect 0 1 23 1; +#X connect 1 0 8 0; +#X connect 1 1 8 1; +#X connect 2 0 13 0; +#X connect 3 0 24 0; +#X connect 3 1 2 1; +#X connect 4 0 3 0; +#X connect 4 0 21 0; +#X connect 5 0 24 0; +#X connect 7 0 1 0; +#X connect 8 0 6 0; +#X connect 10 0 4 0; +#X connect 11 0 5 0; +#X connect 12 0 29 0; +#X connect 12 0 30 0; +#X connect 13 0 28 0; +#X connect 13 1 16 0; +#X connect 13 1 22 0; +#X connect 14 0 15 0; +#X connect 16 0 18 0; +#X connect 17 0 14 0; +#X connect 18 0 17 0; +#X connect 21 0 7 0; +#X connect 22 0 0 0; +#X connect 23 0 9 0; +#X connect 24 0 2 0; +#X connect 25 0 18 0; +#X connect 27 0 26 0; +#X connect 28 0 25 0; +#X connect 28 1 27 0; +#X connect 29 0 8 2; +#X connect 30 0 7 1; +#X restore 91 166 pd drawselection; +#X text 211 163 draws the light blue selection; +#N canvas 149 160 490 235 init 0; +#X obj 33 19 loadbang; +#X obj 33 86 s \$0-; +#X msg 33 44 xticks 0 30 5 \, ylabel 315 -1 -0.5 0 0.5 \, yticks 0 +0.25 2; +#X msg 33 150 44100; +#X obj 33 128 loadbang; +#X obj 33 173 s \$2-sample-length; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X restore 92 261 pd init; +#N canvas 0 0 445 185 synchronize_several_displays 0; +#X obj 232 68 r \$0-sliders; +#X obj 126 67 r \$0-synchroin; +#X obj 232 104 s \$0-synchroout; +#X obj 126 104 s \$0-fromothers; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X restore 92 285 pd synchronize_several_displays; +#X restore 332 83 pd inside; +#X obj 399 96 outlet; +#X obj 3 0 hsl 300 120 0 299 0 0 \$0-sliders \$0-sliderr empty -2 -6 +1728 8 -262144 -1 -1 10500 0; +#X obj 0 0 cnv 15 305 120 empty empty empty 20 12 0 14 -262144 -66577 +0; +#X obj 2 0 cnv 15 300 120 empty empty empty 20 12 0 14 -225271 -66577 +0; +#X obj 3 0 cnv 1 1 120 \$0-selections \$0-selectionr empty 20 12 1728 +14 -225271 -262144 0; +#N canvas 0 0 450 300 graph1 0; +#X array \$0- 300 float 0; +#X array \$0+ 300 float 0; +#X coords 0 1 299 -1 300 120 1; +#X restore 2 0 graph; +#X obj 399 75 r \$0-borderpair; +#X text 328 10 this display shows the min and max of all samples that +a pixel represents; +#X text 328 52 arguments: name of array \, \$0 of the parent patch +; +#X text 328 38 select with spacebar and shift with "s"; +#X obj 509 95 outlet; +#X obj 614 75 inlet; +#X obj 509 75 r \$0-synchroout; +#X obj 560 94 s \$0-synchroin; +#X connect 7 0 1 0; +#X connect 12 0 14 0; +#X connect 13 0 11 0; +#X coords 0 0 1 1 305 120 1; diff --git a/externals/grill/vasp/pd/wavedisplay-simple.pd b/externals/grill/vasp/pd/wavedisplay-simple.pd index e735fa0a..02ab9402 100644 --- a/externals/grill/vasp/pd/wavedisplay-simple.pd +++ b/externals/grill/vasp/pd/wavedisplay-simple.pd @@ -1,10 +1,10 @@ -#N canvas 200 200 300 120 10; -#N canvas 154 41 402 182 inside 0; +#N canvas 200 200 304 126 10; +#N canvas 154 41 404 184 inside 0; #N canvas 183 206 183 114 wavetable 0; #X obj 30 22 table \$1 44100; #X restore 62 51 pd wavetable; #X text 146 50 contains the sample; -#N canvas 46 30 530 612 drawdisplay 0; +#N canvas 46 30 532 614 drawdisplay 0; #X obj 168 398 vasp.frames 20; #X obj 168 429 vasp.offset 0; #X msg 83 83 bang; @@ -14,18 +14,18 @@ #X obj 168 252 *; #X text 45 80 start; #X text 262 215 (reset); -#X obj 168 479 vasp.max?; -#X obj 168 505 vasp.min?; +#X obj 230 461 vasp.max?; +#X obj 145 461 vasp.min?; #X obj 325 275 t f f; #X obj 83 128 until 1; #X obj 83 107 300; -#X obj 251 527 tabwrite \$0+; -#X obj 217 573 tabwrite \$0-; +#X obj 236 530 tabwrite \$0+; +#X obj 147 528 tabwrite \$0-; #X msg 168 345 vasp \$1; #X obj 168 317 symbol \$1; #X obj 325 254 / 300; -#X obj 251 504 clip -1 1; -#X obj 217 548 clip -1 1; +#X obj 236 507 clip -1 1; +#X obj 147 503 clip -1 1; #X obj 168 162 moses 299; #X msg 242 217 0; #X obj 217 196 t f b; @@ -36,6 +36,7 @@ #X obj 344 475 r \$0-bounds+; #X connect 0 0 1 0; #X connect 1 0 9 0; +#X connect 1 0 10 0; #X connect 2 0 13 0; #X connect 3 0 5 0; #X connect 3 0 21 0; @@ -44,9 +45,8 @@ #X connect 4 2 15 1; #X connect 5 0 3 1; #X connect 6 0 26 0; -#X connect 9 0 10 0; -#X connect 9 1 19 0; -#X connect 10 1 20 0; +#X connect 9 0 19 0; +#X connect 10 0 20 0; #X connect 11 0 6 1; #X connect 11 1 0 1; #X connect 12 0 3 0; diff --git a/externals/grill/vasp/source/main.h b/externals/grill/vasp/source/main.h index f8680dab..d8aa8a65 100644 --- a/externals/grill/vasp/source/main.h +++ b/externals/grill/vasp/source/main.h @@ -20,6 +20,11 @@ WARRANTIES, see the file, "license.txt," in this distribution. #error You need at least flext version 0.4.1 #endif +#if defined(_MSC_VER) && !defined(FLEXT_DEBUG) +// switch off warnings for the release build +#pragma warning(disable: 4244) +#endif + #include #include diff --git a/externals/grill/vasp/source/mixfft.cpp b/externals/grill/vasp/source/mixfft.cpp index 975e8cb1..73d1fca7 100644 --- a/externals/grill/vasp/source/mixfft.cpp +++ b/externals/grill/vasp/source/mixfft.cpp @@ -177,7 +177,7 @@ static void factorize(int n, int *nFact, int fact[]) } if (n>1) { - for (k=2; k inline BL _D__cop(OpParam &p) { return V__cop(p.rsdt,p.rss,p.rddt,p.rds,p.frames) -#define _D__cun(T,CL,p) V__cun(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames) -#define _D__rbin(T,CL,p) _F__rbin(p) -#define _D__cbin(T,CL,p) _F__cbin(p) -#define _D__rop(T,CL,p) V__rop(p,p.rsdt,p.rss,p.rddt,p.rds,p.frames) -#define _D__cop(T,CL,p) V__cop(p,p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames) - -#if defined(VASP_COMPACT) || (defined(_MSC_VER) && _MSC_VER <= 1200) - #define D__run(T,CL,p) _d__run(CL::run,p) - #define D__cun(T,CL,p) _d__cun(CL::cun,p) - #define D__rbin(T,CL,p) _d__rbin(CL::rbin,p) - #define D__cbin(T,CL,p) _d__cbin(CL::cbin,p) - #define D__rop(T,CL,p) _d__rop(CL::rop,p) - #define D__cop(T,CL,p) _d__cop(CL::cop,p) +#define _D__run(T,CL,p) V__run< T,CL >(p.rsdt,p.rss,p.rddt,p.rds,p.frames) +#define _D__cun(T,CL,p) V__cun< T,CL >(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames) +#define _D__rbin(T,CL,p) _F__rbin< T,CL >(p) +#define _D__cbin(T,CL,p) _F__cbin< T,CL >(p) +#define _D__rop(T,CL,p) V__rop< T,OpParam &,CL >(p,p.rsdt,p.rss,p.rddt,p.rds,p.frames) +#define _D__cop(T,CL,p) V__cop< T,OpParam &,CL >(p,p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames) + +#if defined(VASP_COMPACT) || (defined(_MSC_VER) && _MSC_VER < 1300) + #define D__run(T,CL,p) _d__run< T >(CL::run,p) + #define D__cun(T,CL,p) _d__cun< T >(CL::cun,p) + #define D__rbin(T,CL,p) _d__rbin< T >(CL::rbin,p) + #define D__cbin(T,CL,p) _d__cbin< T >(CL::cbin,p) + #define D__rop(T,CL,p) _d__rop< T >(CL::rop,p) + #define D__cop(T,CL,p) _d__cop< T >(CL::cop,p) #else #define D__run(T,CL,p) ( CL::run_opt()?_D__run(T,CL,p):_d__run(CL::run,p) ) #define D__cun(T,CL,p) ( CL::cun_opt()?_D__cun(T,CL,p):_d__cun(CL::cun,p) ) diff --git a/externals/grill/vasp/source/ops_dft.cpp b/externals/grill/vasp/source/ops_dft.cpp index 354f126b..fd00d921 100644 --- a/externals/grill/vasp/source/ops_dft.cpp +++ b/externals/grill/vasp/source/ops_dft.cpp @@ -79,7 +79,7 @@ static BL fft_fwd_real_any(I cnt,F *rsdt,I _rss,F *rddt,I _rds) #endif } if(ret) { - const F nrm = 1./sqrt(cnt); + const F nrm = 1./sqrt((F)cnt); const I n2 = cnt/2; #ifndef VASP_COMPACT @@ -158,7 +158,7 @@ static BL fft_inv_real_any(I cnt,F *rsdt,I _rss,F *rddt,I _rds) #endif } if(ret) { - const F nrm = 1./sqrt(cnt); + const F nrm = 1./sqrt((F)cnt); #ifndef VASP_COMPACT if(rds == 1) for(i = 0; i < cnt; ++i) @@ -230,7 +230,7 @@ static BL fft_fwd_complex_any(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds #endif } if(ret) { - const F nrm = 1./sqrt(cnt); + const F nrm = 1./sqrt((F)cnt); #ifdef VASP_COMPACT for(i = 0; i < cnt; ++i) { @@ -359,7 +359,7 @@ static BL fft_complex_radix2(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds, BL ret = fft_bidir_complex_radix2(cnt,rtmp,itmp,dir); if(ret) { - const F nrm = 1./sqrt(cnt); + const F nrm = 1./sqrt((F)cnt); #ifndef VASP_COMPACT if(rtmp == rddt) @@ -426,7 +426,7 @@ BL fft_fwd_real_radix2(I cnt,F *src,I _sstr,F *dst,I _dstr) register I i; const I n2 = cnt/2; - const F fn = (F)(1./sqrt(cnt)); + const F fn = (F)(1./sqrt((F)cnt)); F *stmp; if(!dst || src == dst) { // in-place @@ -502,7 +502,7 @@ BL fft_inv_real_radix2(I cnt,F *src,I _sstr,F *dst,I _dstr) register I i; const I n2 = cnt/2; - const F fn = (F)(1./sqrt(cnt)); + const F fn = (F)(1./sqrt((F)cnt)); F *stmp; if(!dst || src == dst) { // in-place diff --git a/externals/grill/vasp/source/ops_gen.cpp b/externals/grill/vasp/source/ops_gen.cpp index fb354468..73aaab5c 100644 --- a/externals/grill/vasp/source/ops_gen.cpp +++ b/externals/grill/vasp/source/ops_gen.cpp @@ -147,7 +147,7 @@ BL VecOp::d_phasor(OpParam &p) register R ph = p.gen.ph,phinc = p.gen.phinc; if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - for(; p.frames--; ph += phinc,p.rddt += p.rds) *p.rddt = fmod(ph,1.F); + for(; p.frames--; ph += phinc,p.rddt += p.rds) *p.rddt = fmod((F)ph,1.F); return true; } @@ -158,7 +158,7 @@ BL VecOp::d_mphasor(OpParam &p) register R ph = p.gen.ph,phinc = p.gen.phinc; if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - for(; p.frames--; ph += phinc,p.rddt += p.rds,p.rsdt += p.rss) *p.rddt = *p.rsdt * fmod(ph,1.F); + for(; p.frames--; ph += phinc,p.rddt += p.rds,p.rsdt += p.rss) *p.rddt = *p.rsdt * fmod((F)ph,1.F); return true; } diff --git a/externals/grill/vasp/vasp.vcproj b/externals/grill/vasp/vasp.vcproj new file mode 100644 index 00000000..9c976d63 --- /dev/null +++ b/externals/grill/vasp/vasp.vcproj @@ -0,0 +1,2138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/externals/grill/vasp/vasp.vcproj.vspscc b/externals/grill/vasp/vasp.vcproj.vspscc new file mode 100644 index 00000000..6cb031bc --- /dev/null +++ b/externals/grill/vasp/vasp.vcproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROJECT" +} -- cgit v1.2.1