#N struct h-seg float x float y float z float w;
#N struct colorframe float x float y float w float h float t float
c;
#N canvas 522 343 313 248 10;
#X declare -path lib;
#N canvas 125 28 356 412 fig 0;
#X scalar h-seg 15 201 96.4 10 \;;
#X scalar colorframe 122 163 20 80 1 900 \;;
#X coords 0 412 1 411 0 0 0;
#X restore 14 202 pd fig;
#X obj 15 226 templates;
#X obj 114 75 metro 100;
#X obj 114 97 f;
#X obj 114 119 +;
#X floatatom 205 65 5 0 0 0 - - -;
#X obj 159 122 expr $f1 - int($f1);
#X obj 114 12 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 114 149 expr cos(2*3.14159*$f1);
#X obj 112 183 *;
#X floatatom 144 185 5 0 0 0 - - -;
#X obj 205 86 / 1000;
#N canvas 359 17 356 412 A2-fig1 0;
#X scalar h-seg 15 201 139.48 10 \;;
#X scalar colorframe 159.48 163 20 80 1 900 \;;
#X coords 0 412 1 411 0 0 0;
#X restore 15 16 pd A2-fig1;
#N canvas 282 112 901 531 think 0;
#X obj 82 182 pointer;
#X obj 251 171 pointer;
#X obj 51 239 set h-seg z;
#X floatatom 24 206 5 0 0 0 - - -;
#X floatatom 218 218 5 0 0 0 - - -;
#X msg 82 152 traverse pd-A2-fig1 \, next;
#X msg 250 143 traverse pd-A2-fig1 \, next \, next;
#X obj 82 103 r findit;
#X obj 90 378 pointer;
#X obj 260 374 pointer;
#X obj 59 435 set h-seg z;
#X floatatom 32 402 5 0 0 0 - - -;
#X floatatom 253 419 5 0 0 0 - - -;
#X obj 90 299 r findit;
#X msg 90 348 traverse pd-A2-fig4 \, next;
#X msg 259 346 traverse pd-A2-fig4 \, next \, next;
#X obj 536 378 pointer;
#X obj 475 439 set h-seg z;
#X floatatom 475 415 5 0 0 0 - - -;
#X obj 633 372 pointer;
#X floatatom 626 417 5 0 0 0 - - -;
#X msg 532 296 traverse pd-A2-fig4 \, next \, next \, next;
#X msg 574 325 traverse pd-A2-fig4 \, next \, next \, next \, next
;
#X obj 711 383 * -1;
#X obj 472 392 * -1;
#X obj 256 244 set colorframe x;
#X obj 265 447 set colorframe x;
#X obj 638 445 set colorframe x;
#X obj 22 95 r osc1;
#X obj 331 199 + 150;
#X obj 23 175 + 130;
#X obj 27 345 r osc1;
#X obj 31 371 + 80;
#X obj 336 376 r osc1;
#X obj 473 345 r osc1;
#X obj 477 371 + 80;
#X obj 712 356 r osc1;
#X obj 340 401 + 300;
#X obj 713 410 + 107;
#X obj 664 155 declare -path lib;
#X connect 0 0 2 1;
#X connect 1 0 25 1;
#X connect 3 0 2 0;
#X connect 4 0 25 0;
#X connect 5 0 0 0;
#X connect 6 0 1 0;
#X connect 7 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 10 1;
#X connect 9 0 26 1;
#X connect 11 0 10 0;
#X connect 12 0 26 0;
#X connect 13 0 14 0;
#X connect 13 0 15 0;
#X connect 13 0 21 0;
#X connect 13 0 22 0;
#X connect 14 0 8 0;
#X connect 15 0 9 0;
#X connect 16 0 17 1;
#X connect 18 0 17 0;
#X connect 19 0 27 1;
#X connect 20 0 27 0;
#X connect 21 0 16 0;
#X connect 22 0 19 0;
#X connect 23 0 38 0;
#X connect 24 0 18 0;
#X connect 28 0 29 0;
#X connect 28 0 30 0;
#X connect 29 0 4 0;
#X connect 30 0 3 0;
#X connect 31 0 32 0;
#X connect 32 0 11 0;
#X connect 33 0 37 0;
#X connect 34 0 35 0;
#X connect 35 0 24 0;
#X connect 36 0 23 0;
#X connect 37 0 12 0;
#X connect 38 0 20 0;
#X restore 13 174 pd think;
#X obj 132 51 s findit;
#N canvas 363 246 356 412 A2-fig2 0;
#X scalar h-seg 11 283 130 10 \;;
#X scalar colorframe 146 245 20 80 1 900 \;;
#X scalar h-seg 11 196 130 10 \;;
#X scalar colorframe 146 158 20 80 1 900 \;;
#X coords 0 412 1 411 0 0 0;
#X restore 11 45 pd A2-fig2;
#N canvas 462 69 383 257 A2-fig3 0;
#X scalar h-seg 152 195 130 10 \;;
#X scalar colorframe 287 155 20 80 1 900 \;;
#X scalar h-seg 18 195 130 10 \;;
#X coords 0 257 1 256 0 0 0;
#X restore 15 75 pd A2-fig3;
#N canvas 481 204 482 338 A2-fig4 0;
#X scalar h-seg 215 214 89.4804 10 \;;
#X scalar colorframe 309.48 174 20 80 1 900 \;;
#X scalar h-seg 212 214 -89.4804 10 \;;
#X scalar colorframe 97.5196 173 20 80 1 900 \;;
#X coords 0 338 1 337 0 0 0;
#X restore 13 107 pd A2-fig4;
#X obj 112 214 s osc1;
#X obj 114 30 t b b;
#X text 186 185 amplitude;
#X text 203 47 frequency;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 3 1;
#X connect 7 0 19 0;
#X connect 8 0 9 0;
#X connect 9 0 18 0;
#X connect 10 0 9 1;
#X connect 11 0 4 1;
#X connect 19 0 2 0;
#X connect 19 1 14 0;