#N canvas 21 60 891 586 10;
#X obj 61 33 cnv 15 15 15 empty empty vasp.= 0 10 1 14 -262144 -1 0
;
#X text 56 66 set a vasp to a value;
#X text 55 81 optional argument/right inlet: value/vasp;
#X msg 56 166 vasp bufset;
#X obj 56 188 vasp.noise;
#X obj 56 211 vasp.* 0.5;
#X text 142 164 generate noise;
#X obj 56 232 vasp.update;
#X obj 56 254 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X obj 56 385 vasp.= 0;
#X obj 112 342 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 56 406 vasp.update;
#X obj 56 426 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X text 446 103 select a region by drawing inside the wavedisplay:
mouse+spacebar (select) or mouse+"s" (shift).;
#N canvas 109 162 310 376 tovaspdata 0;
#X obj 107 305 outlet;
#X obj 107 92 unpack;
#X obj 107 232 runden;
#X obj 107 210 - 0;
#X text 191 251 offset;
#X obj 107 156 t b f;
#X obj 107 185 0;
#X text 111 250 length;
#X obj 188 233 runden;
#X obj 107 274 pack;
#X obj 107 72 change2;
#X obj 107 115 t f f;
#X obj 107 47 inlet;
#X connect 1 0 11 0;
#X connect 1 1 6 1;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 5 0 6 0;
#X connect 5 1 3 1;
#X connect 6 0 3 0;
#X connect 8 0 9 1;
#X connect 9 0 0 0;
#X connect 10 0 1 0;
#X connect 11 0 5 0;
#X connect 11 1 8 0;
#X connect 12 0 10 0;
#X restore 447 302 pd tovaspdata;
#X msg 447 330 set vasp \$1 bufset \$2;
#X obj 447 145 wavedisplay-select bufset \$0;
#X msg 56 315 vasp bufset;
#X text 134 314 set all samples to zero;
#X text 136 339 set selected samples to zero;
#N canvas 0 0 261 214 clear_buffer 0;
#X obj 49 73 vasp.= 0;
#X obj 49 49 inlet;
#X obj 49 97 vasp.u;
#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X restore 559 465 pd clear_buffer;
#X msg 559 439 vasp bufset;
#X text 177 472 <-- click to open more examples;
#X text 57 138 use vasp.= to clear a buffer;
#X obj 53 473 vaspset_examples;
#X obj 51 533 VASP-HELP;
#N canvas 280 291 370 218 inside 0;
#X obj 138 155 s \$0-sample-length;
#X msg 163 110 resize \$1;
#X obj 138 43 loadbang;
#X msg 138 64 88200;
#X obj 163 132 s bufset;
#X obj 138 89 t f f;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 0 0;
#X connect 5 1 1 0;
#X restore 709 420 pd inside;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 9 0;
#X connect 16 0 14 0;
#X connect 17 0 9 0;
#X connect 21 0 20 0;