#N struct c-rect float x float y float w float h float c;
#N struct seg float x float y float dx float dy float w;
#N struct l-curve-arrow float x float y float z float z2 float z3 float
h;
#N struct circle2 float x float y float h float h2 float mh float mh2
;
#N struct xy-curve float x float y float w array z xy-point;
#N struct xy-point float x float y;
#N struct vaxis float x float y float h float h-3;
#N struct xy-plot float x float y float w array z xy-point;
#N struct d-curve-arrow float x float y float z float z2 float z3 float
h;
#N struct circle float x float y float color float h float h2;
#N struct u-curve-arrow float x float y float z float z2 float z3 float
h;
#N struct r-curve-arrow float x float y float z float z2 float z3 float
h;
#N struct r-arrow float x float y float z;
#N struct l-arrow float x float y float z;
#N struct u-arrow float x float y float z;
#N struct d-arrow float x float y float z;
#N struct v-seg float x float y float z float w;
#N struct h-seg float x float y float z float w;
#N struct rect float x float y float w float h;
#N struct haxis float x float y float w float w-3;
#N struct frame float x float y float w float h;
#N struct y-plot float x float y float w array z y-point;
#N struct y-point float y;
#N canvas 369 433 429 267 10;
#X declare -path lib;
#X obj 18 101 templates;
#N canvas 33 156 885 738 think 0;
#X obj 441 49 declare -path lib;
#X obj 662 107 pointer;
#X obj 601 181 append c-rect x y w h;
#X obj 711 129 t b p;
#X obj 663 41 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 663 61 t b b;
#X obj 501 179 set c-rect x;
#X obj 604 357 append c-rect x y w h;
#X obj 716 304 t b p;
#X msg 604 330 100 100 10 80;
#X obj 700 402 t b p;
#X obj 601 453 append rect x y w h;
#X obj 502 157 r mass1;
#X obj 486 428 r spring1;
#X obj 236 77 r xvals;
#X obj 236 106 unpack;
#X obj 194 232 pack;
#X obj 168 165 t f f;
#X floatatom 88 349 5 0 0 0 - - -;
#X floatatom 133 354 5 0 0 0 - - -;
#X obj 87 403 pack;
#X obj 133 376 t b f;
#X obj 87 425 s xvals;
#X obj 123 564 *~;
#X obj 213 619 metro 100;
#X obj 46 667 snapshot~;
#X obj 213 641 t b b;
#X obj 51 754 pack;
#X obj 51 776 s xvals;
#X obj 240 595 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 65 42 setctl onoff;
#X msg 292 617 \; pd dsp 1;
#X msg 243 566 1;
#X obj 307 559 r stop;
#X msg 306 584 0;
#X msg 719 39 \; pd-B6-fig1 clear;
#X msg 662 84 traverse pd-B6-fig1 \, bang;
#X obj 494 298 set c-rect x;
#X obj 495 276 r mass0;
#X msg 601 154 400 100 20 20;
#X msg 601 426 100 95 300 10;
#X obj 196 253 s spring1;
#X obj 486 455 set rect x w;
#X obj 27 189 s mass0;
#X obj 85 189 s mass1;
#X obj 27 167 + 100;
#X obj 84 166 + 400;
#X obj 170 197 + 100;
#X obj 214 166 expr $f2-$f1 + 300;
#X obj 124 506 r freq;
#X obj 217 462 r amp;
#X obj 126 535 osc~;
#X obj 135 673 snapshot~;
#X obj 265 506 r q;
#X obj 51 703 * 100;
#X obj 127 707 * 100;
#X floatatom 196 724 5 0 0 0 - - -;
#X floatatom 134 748 5 0 0 0 - - -;
#X floatatom 302 451 5 0 0 0 - - -;
#X obj 130 600 vcf~ 1;
#X obj 302 470 sig~ 1;
#X obj 669 17 loadbang;
#X connect 1 0 3 0;
#X connect 2 0 6 1;
#X connect 2 0 8 0;
#X connect 3 0 39 0;
#X connect 3 1 2 4;
#X connect 4 0 5 0;
#X connect 5 0 36 0;
#X connect 5 1 35 0;
#X connect 7 0 10 0;
#X connect 7 0 37 1;
#X connect 8 0 9 0;
#X connect 8 1 7 4;
#X connect 9 0 7 0;
#X connect 10 0 40 0;
#X connect 10 1 11 4;
#X connect 11 0 42 2;
#X connect 12 0 6 0;
#X connect 13 0 42 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 15 0 45 0;
#X connect 15 1 46 0;
#X connect 15 1 48 1;
#X connect 16 0 41 0;
#X connect 17 0 47 0;
#X connect 17 1 48 0;
#X connect 18 0 20 0;
#X connect 19 0 21 0;
#X connect 20 0 22 0;
#X connect 21 0 20 0;
#X connect 21 1 20 1;
#X connect 23 0 25 0;
#X connect 23 0 59 0;
#X connect 24 0 26 0;
#X connect 25 0 54 0;
#X connect 26 0 25 0;
#X connect 26 1 52 0;
#X connect 27 0 28 0;
#X connect 29 0 24 0;
#X connect 32 0 29 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 29 0;
#X connect 36 0 1 0;
#X connect 38 0 37 0;
#X connect 39 0 2 0;
#X connect 40 0 11 0;
#X connect 45 0 43 0;
#X connect 46 0 44 0;
#X connect 47 0 16 0;
#X connect 48 0 16 1;
#X connect 49 0 51 0;
#X connect 49 0 32 0;
#X connect 50 0 23 1;
#X connect 50 0 32 0;
#X connect 51 0 23 0;
#X connect 52 0 55 0;
#X connect 53 0 59 2;
#X connect 54 0 27 0;
#X connect 54 0 57 0;
#X connect 55 0 27 1;
#X connect 55 0 56 0;
#X connect 58 0 60 0;
#X connect 59 0 52 0;
#X connect 60 0 59 1;
#X connect 61 0 4 0;
#X restore 18 80 pd think;
#X msg 181 185 \; stop bang;
#N canvas 133 119 528 195 B6-fig1 1;
#X scalar c-rect 400 100 20 20 0 \;;
#X scalar c-rect 100 100 10 80 0 \;;
#X scalar rect 100 95 300 10 \;;
#X coords 0 195 1 194 0 0 0;
#X restore 16 38 pd B6-fig1;
#X obj 140 78 s freq;
#X floatatom 140 53 5 0 3 0 - - -;
#X floatatom 209 54 5 0 3 0 - - -;
#X obj 209 79 s amp;
#X floatatom 298 50 3 0 100 0 - - -;
#X obj 298 75 s q;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;