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/wavedisplay-select.pd | 617 -------------------------- 1 file changed, 617 deletions(-) delete mode 100644 externals/grill/vasp/pd/wavedisplay-select.pd (limited to 'externals/grill/vasp/pd/wavedisplay-select.pd') diff --git a/externals/grill/vasp/pd/wavedisplay-select.pd b/externals/grill/vasp/pd/wavedisplay-select.pd deleted file mode 100644 index 5bc85c06..00000000 --- a/externals/grill/vasp/pd/wavedisplay-select.pd +++ /dev/null @@ -1,617 +0,0 @@ -#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; -- cgit v1.2.1