#N canvas 47 54 885 488 10;
#N canvas 0 0 452 302 Hz_to_period_length 0;
#X floatatom 125 238 0 0 0;
#X obj 125 142 t b f;
#X text 164 238 period length in samples (float);
#X floatatom 125 80 0 0 0;
#X obj 125 206 / 1;
#X text 170 79 frequency in Hz;
#X obj 53 142 samplerate~;
#X obj 53 119 loadbang;
#X floatatom 125 175 5 0 0;
#X connect 1 0 8 0;
#X connect 1 1 4 1;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 4 0;
#X restore 78 302 pd Hz_to_period_length;
#X obj 71 32 cnv 15 15 15 empty empty vasp.cosc 0 10 1 14 -262144 -1
0;
#N canvas 0 0 450 300 graph1 0;
#X array bufcosc1 88200 float 0;
#X coords 0 1 88199 -1 300 100 1;
#X restore 500 96 graph;
#N canvas 0 0 400 276 init 0;
#X obj 33 19 loadbang;
#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
1;
#X msg 33 45 symbol bufcosc1 \, symbol bufcosc2;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 781 387 pd init;
#X text 71 83 optional argument/right inlet: frequency in period length
in samples;
#X obj 77 241 vasp.update;
#X obj 77 218 vasp.* 0.5;
#X msg 503 360 vasp bufcosc1 bufcosc2;
#N canvas 40 55 247 122 clear_buffers 0;
#X obj 54 79 vasp.update;
#X obj 54 56 vasp.= 0;
#X obj 54 26 inlet;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 503 383 pd clear_buffers;
#N canvas 0 0 450 300 graph1 0;
#X array bufcosc2 88200 float 0;
#X coords 0 1 88199 -1 300 100 1;
#X restore 501 228 graph;
#X text 71 63 vasp complex sine wave generator;
#X text 241 123 generate a complex sinewave;
#X text 241 135 at 1 Hz into two buffers;
#X obj 77 194 vasp.cosc 44100;
#X msg 77 127 vasp bufcosc1 bufcosc2;
#X floatatom 162 168 7 0 0;
#X text 239 168 set period length (samples);
#X obj 79 424 VASP-HELP;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 13 0 6 0;
#X connect 14 0 13 0;
#X connect 15 0 13 1;