path: root/externals/grill/vasp/pd/wavedisplay-select.pd

#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;