#N canvas 0 0 247 178 10;
#N canvas 0 0 1183 873 kettle 0;
#X obj 276 44 noise~;
#X obj 270 840 dac~;
#X obj 6 123 hip~ 50;
#X obj 6 145 hip~ 50;
#X obj 77 124 hip~ 250;
#X obj 77 146 hip~ 250;
#X obj 78 213 lop~ 500;
#X obj 77 235 lop~ 500;
#X obj 169 123 hip~ 500;
#X obj 169 145 hip~ 500;
#X obj 169 212 lop~ 1000;
#X obj 169 234 lop~ 1000;
#X obj 251 120 hip~ 1000;
#X obj 251 142 lop~ 3000;
#X obj 5 460 *~;
#X obj 78 459 *~;
#X obj 168 458 *~;
#X obj 356 445 *~;
#X obj 286 417 line;
#X obj 331 120 bp~ 3000 12;
#X obj 355 176 bp~ 2500 3;
#X obj 418 119 bp~ 800 12;
#X obj 267 188 /~;
#X obj 356 51 lop~ 10;
#X obj 264 623 bp~ 470 34;
#X obj 286 700 clip~ 0 1;
#X obj 188 623 bp~ 320 34;
#X obj 342 621 bp~ 2170 56;
#X obj 513 621 bp~ 9000 78;
#X obj 427 621 bp~ 2895 56;
#X obj 264 657 *~ 0.6;
#X obj 342 656 *~ 0.2;
#X obj 428 655 *~ 0.1;
#X obj 514 655 *~ 0.1;
#X obj 272 780 +~;
#X obj 264 574 *~ 1;
#X obj 305 532 *~ 1;
#X obj 392 707 *~ 0.5;
#X text 260 14 Put the kettle on;
#X text 271 253 limescale;
#X text 394 212 water reson;
#X obj 7 212 lop~ 150;
#X obj 6 234 lop~ 150;
#X obj 573 369 osc~ 440;
#X obj 573 393 *~;
#X obj 554 235 random 100;
#X msg 554 281 bang;
#X text 488 306 amplitude;
#X text 575 307 pitch;
#X obj 573 347 *~ 1500;
#X obj 495 144 f 0;
#X obj 526 144 + 1;
#X obj 495 169 mod 200;
#X obj 495 196 sel 29 37 47 67 89 113 157 197;
#X msg 495 89 1;
#X msg 524 88 0;
#X obj 554 259 moses 59;
#X obj 270 441 *~;
#X obj 612 489 *~;
#X text 570 158 boiling bubbles;
#X obj 573 324 ead~ 400 5;
#X obj 574 412 *~ 0.1;
#X obj 574 434 bp~ 900 2;
#X obj 487 348 lop~ 6;
#X obj 495 118 metro 3;
#X obj 486 325 ead~ 24 30;
#X obj 618 278 * 5;
#X obj 618 299 + 280;
#X obj 266 272 clip~ -50 50;
#X obj 267 213 *~ 1e-04;
#X obj 286 395 r \$0-limescale;
#X obj 372 370 line;
#X obj 372 348 r \$0-watreson;
#X obj 184 418 line;
#X obj 184 396 r \$0-broad;
#X obj 94 422 line;
#X obj 94 400 r \$0-body;
#X obj 17 419 line;
#X obj 17 397 r \$0-boil;
#X obj 647 455 line;
#X obj 647 433 r \$0-bubbles;
#N canvas 0 0 597 627 boil 0;
#X msg 197 67 1;
#X msg 279 68 0;
#X obj 196 117 f 0;
#X obj 223 117 + 1;
#X obj 196 178 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 217 178 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 237 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 258 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 282 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 231 586 s \$0-limescale;
#X obj 8 587 s \$0-boil;
#X obj 80 587 s \$0-body;
#X obj 153 586 s \$0-broad;
#X obj 434 586 s \$0-bubbles;
#X obj 336 586 s \$0-watreson;
#X msg 393 254 0.2 3000;
#X msg 322 255 0.5 2000;
#X msg 458 254 0.2 10000;
#X msg 322 288 0 30000;
#X msg 398 287 0.5 20000;
#X msg 471 286 0.05 20000;
#X msg 394 352 0 9000;
#X msg 321 353 0.1 10000;
#X msg 398 318 0.15 10000;
#X msg 322 317 0.6 10000;
#X msg 446 352 1 15000;
#X msg 129 359 2 10000;
#X msg 248 355 0.01 8000;
#X msg 126 395 0 3000;
#X msg 186 392 0.05 3000;
#X msg 175 219 0 0;
#X obj 197 93 metro 15000;
#X obj 306 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 383 528 0 10000;
#X text 393 510 tout fini;
#X obj 196 144 select 1 2 3 4 5 6 7;
#X obj 335 175 del 10;
#X obj 377 208 s \$0-switchnoise;
#X obj 196 2 inlet;
#X obj 196 23 t b;
#X obj 536 586 outlet;
#X text 534 612 done;
#X obj 195 45 del 500;
#X obj 536 551 del 4000;
#X connect 0 0 31 0;
#X connect 1 0 2 0;
#X connect 1 0 30 0;
#X connect 1 0 31 0;
#X connect 2 0 3 0;
#X connect 2 0 35 0;
#X connect 3 0 2 1;
#X connect 4 0 16 0;
#X connect 4 0 15 0;
#X connect 4 0 17 0;
#X connect 5 0 18 0;
#X connect 5 0 19 0;
#X connect 5 0 20 0;
#X connect 6 0 23 0;
#X connect 6 0 24 0;
#X connect 7 0 21 0;
#X connect 7 0 22 0;
#X connect 7 0 25 0;
#X connect 7 0 26 0;
#X connect 7 0 27 0;
#X connect 8 0 28 0;
#X connect 8 0 29 0;
#X connect 8 0 37 0;
#X connect 8 0 43 0;
#X connect 15 0 14 0;
#X connect 16 0 9 0;
#X connect 17 0 12 0;
#X connect 18 0 9 0;
#X connect 19 0 11 0;
#X connect 20 0 12 0;
#X connect 21 0 11 0;
#X connect 22 0 14 0;
#X connect 23 0 14 0;
#X connect 24 0 11 0;
#X connect 25 0 13 0;
#X connect 26 0 10 0;
#X connect 27 0 11 0;
#X connect 28 0 10 0;
#X connect 28 0 11 0;
#X connect 28 0 12 0;
#X connect 28 0 9 0;
#X connect 28 0 14 0;
#X connect 28 0 13 0;
#X connect 29 0 14 0;
#X connect 29 0 9 0;
#X connect 29 0 13 0;
#X connect 30 0 10 0;
#X connect 30 0 11 0;
#X connect 30 0 12 0;
#X connect 30 0 9 0;
#X connect 30 0 14 0;
#X connect 30 0 13 0;
#X connect 31 0 2 0;
#X connect 32 0 33 0;
#X connect 33 0 13 0;
#X connect 33 0 14 0;
#X connect 33 0 9 0;
#X connect 33 0 12 0;
#X connect 33 0 11 0;
#X connect 33 0 10 0;
#X connect 35 0 4 0;
#X connect 35 1 5 0;
#X connect 35 2 6 0;
#X connect 35 3 7 0;
#X connect 35 4 8 0;
#X connect 35 5 32 0;
#X connect 35 6 36 0;
#X connect 36 0 1 0;
#X connect 38 0 39 0;
#X connect 39 0 37 0;
#X connect 39 0 1 0;
#X connect 39 0 42 0;
#X connect 42 0 0 0;
#X connect 43 0 40 0;
#X restore 832 141 pd boil sequence;
#X obj 845 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 494 19 inlet;
#X obj 832 216 outlet;
#X text 830 242 now make tea;
#X obj 272 806 *~ 0.3;
#N canvas 0 0 1253 916 switch 0;
#X obj 418 374 *~;
#X obj 400 496 dac~;
#X obj 294 417 bp~ 440 80;
#X obj 408 470 *~ 2;
#X obj 372 417 bp~ 440 80;
#X obj 449 417 bp~ 440 80;
#X obj 527 417 bp~ 440 80;
#X obj 417 331 ead~ 0 120;
#X obj 417 310 t;
#X obj 366 252 unpack 1 2 3 4 5 6;
#X msg 467 96 333 222 360 12232 50 0.2;
#X msg 462 117 564 222 80 12232 200 0.05;
#X obj 545 302 osc~ 700;
#X obj 547 275 noise~;
#X obj 427 64 del 65;
#X obj 378 66 del 40;
#X obj 192 251 osc~ 100;
#X obj 207 325 line~;
#X obj 190 345 *~;
#X obj 385 25 inlet;
#X obj 343 62 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X msg 342 85 \$1 200;
#X text 194 217 power;
#X text 507 242 switch noise;
#X obj 191 275 clip~ -0.8 0.3;
#X obj 191 301 *~ 0.13;
#X obj 288 25 loadbang;
#X msg 288 51 0;
#X connect 0 0 2 0;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 0 1 1;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 0 0;
#X connect 8 0 7 0;
#X connect 9 0 2 1;
#X connect 9 1 4 1;
#X connect 9 2 5 1;
#X connect 9 3 6 1;
#X connect 9 4 8 0;
#X connect 9 4 2 2;
#X connect 9 4 4 2;
#X connect 9 4 5 2;
#X connect 9 4 6 2;
#X connect 9 5 3 1;
#X connect 10 0 9 0;
#X connect 11 0 9 0;
#X connect 12 0 0 1;
#X connect 13 0 0 1;
#X connect 14 0 11 0;
#X connect 15 0 10 0;
#X connect 15 0 14 0;
#X connect 16 0 24 0;
#X connect 17 0 18 1;
#X connect 18 0 3 0;
#X connect 19 0 15 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 17 0;
#X connect 24 0 25 0;
#X connect 25 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 20 0;
#X restore 791 336 pd switch;
#X obj 791 314 r \$0-switchnoise;
#X connect 0 0 2 0;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 0 0 12 0;
#X connect 0 0 19 0;
#X connect 0 0 21 0;
#X connect 0 0 23 0;
#X connect 2 0 3 0;
#X connect 3 0 41 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 16 0;
#X connect 12 0 13 0;
#X connect 13 0 22 0;
#X connect 14 0 36 0;
#X connect 15 0 36 0;
#X connect 16 0 36 0;
#X connect 17 0 36 0;
#X connect 18 0 57 1;
#X connect 19 0 20 0;
#X connect 20 0 17 0;
#X connect 21 0 20 0;
#X connect 22 0 69 0;
#X connect 23 0 22 1;
#X connect 24 0 30 0;
#X connect 25 0 34 1;
#X connect 26 0 25 0;
#X connect 27 0 31 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 25 0;
#X connect 31 0 25 0;
#X connect 32 0 25 0;
#X connect 33 0 25 0;
#X connect 34 0 86 0;
#X connect 35 0 26 0;
#X connect 35 0 24 0;
#X connect 35 0 27 0;
#X connect 35 0 29 0;
#X connect 35 0 28 0;
#X connect 36 0 26 0;
#X connect 36 0 24 0;
#X connect 36 0 27 0;
#X connect 36 0 29 0;
#X connect 36 0 28 0;
#X connect 36 0 37 0;
#X connect 37 0 34 0;
#X connect 41 0 42 0;
#X connect 42 0 14 0;
#X connect 43 0 44 0;
#X connect 44 0 61 0;
#X connect 45 0 56 0;
#X connect 45 0 66 0;
#X connect 46 0 60 0;
#X connect 46 0 65 0;
#X connect 49 0 43 0;
#X connect 50 0 51 0;
#X connect 50 0 52 0;
#X connect 51 0 50 1;
#X connect 52 0 53 0;
#X connect 53 0 45 0;
#X connect 53 1 45 0;
#X connect 53 2 45 0;
#X connect 53 3 45 0;
#X connect 53 4 45 0;
#X connect 53 5 45 0;
#X connect 53 6 45 0;
#X connect 53 7 45 0;
#X connect 54 0 64 0;
#X connect 55 0 64 0;
#X connect 56 0 46 0;
#X connect 57 0 35 0;
#X connect 58 0 37 0;
#X connect 60 0 49 0;
#X connect 61 0 62 0;
#X connect 62 0 58 0;
#X connect 63 0 44 1;
#X connect 64 0 50 0;
#X connect 65 0 63 0;
#X connect 66 0 67 0;
#X connect 67 0 49 1;
#X connect 68 0 57 0;
#X connect 69 0 68 0;
#X connect 70 0 18 0;
#X connect 71 0 17 1;
#X connect 72 0 71 0;
#X connect 73 0 16 1;
#X connect 74 0 73 0;
#X connect 75 0 15 1;
#X connect 76 0 75 0;
#X connect 77 0 14 1;
#X connect 78 0 77 0;
#X connect 79 0 58 1;
#X connect 80 0 79 0;
#X connect 81 0 82 0;
#X connect 81 0 84 0;
#X connect 83 0 54 0;
#X connect 83 0 81 0;
#X connect 86 0 1 0;
#X connect 86 0 1 1;
#X connect 88 0 87 0;
#X restore 31 70 pd kettle;
#N canvas 0 0 1253 916 make 0;
#X obj 91 384 osc~;
#X obj 91 357 line~;
#X obj 23 391 delta~;
#X obj 75 515 *~;
#X obj 22 487 *~;
#X obj 91 244 metro 6;
#X obj 91 312 + 800;
#X obj 22 462 *~ 0.9;
#X obj 22 438 lop~ 10;
#N canvas 0 0 450 300 bilexp 0;
#X obj 56 166 expr exp($f1);
#X obj 55 71 random 8192;
#X obj 56 139 * 9;
#X obj 55 116 / 4096;
#X obj 123 91 > 4096;
#X obj 123 113 sel 0 1;
#X msg 115 141 -1;
#X msg 147 141 1;
#X obj 56 199 *;
#X obj 56 224 / 23000;
#X obj 55 45 t b;
#X obj 55 21 inlet;
#X obj 56 248 outlet;
#X obj 55 92 mod 4096;
#X connect 0 0 8 0;
#X connect 1 0 4 0;
#X connect 1 0 13 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 8 1;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 1 0;
#X connect 11 0 10 0;
#X connect 13 0 3 0;
#X restore 91 267 pd bilexp;
#X obj 23 415 clip~ 0 1;
#X obj 74 538 *~;
#X obj 106 513 expr sqrt(cos($f1 - 1)) - 0.75;
#X obj 146 103 line;
#X obj 289 560 noise~;
#X obj 211 792 dac~;
#X obj 105 713 bp~ 440 80;
#X obj 183 713 bp~ 440 80;
#X obj 260 713 bp~ 440 80;
#X obj 338 713 bp~ 440 80;
#X obj 274 542 ead~ 0 120;
#X obj 188 170 del 200;
#X obj 244 170 del 220;
#X obj 146 125 == 2;
#X obj 145 146 sel 1;
#X obj 15 638 * 1233;
#X obj 61 638 + 446;
#X obj 102 637 + 2572;
#X obj 151 637 + 389;
#X obj 274 584 *~;
#X obj 226 670 +~;
#X obj 15 616 / 2;
#X msg 225 637 500;
#X obj 145 171 del 3;
#X msg 147 36 bang;
#X obj 146 59 del 5;
#X obj 91 336 pack 1 2.689;
#X obj 91 290 * 1600;
#X obj 74 559 *~ 2;
#X obj 140 289 expr 950 - ($f1 * 200);
#X msg 91 220 1;
#X obj 91 197 loadbang;
#X text 350 560 spoon;
#X text 422 717 teacup;
#X text 38 346 tea;
#X msg 193 637 12;
#X text 308 289 tea level;
#X text 411 219 pouring rate;
#X text 287 493 tea sound level;
#X obj 145 10 inlet;
#X obj 276 614 *~ 0.2;
#X msg 146 81 0 \, 2 25000;
#X obj 136 221 expr 4 + (100 - 100 * (cos($f1 - 1)));
#X obj 220 766 *~ 2;
#X connect 0 0 3 1;
#X connect 1 0 0 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 3 0 11 0;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 36 0;
#X connect 7 0 4 0;
#X connect 7 0 4 1;
#X connect 8 0 7 0;
#X connect 9 0 37 0;
#X connect 10 0 8 0;
#X connect 11 0 38 0;
#X connect 12 0 11 1;
#X connect 13 0 23 0;
#X connect 13 0 31 0;
#X connect 13 0 12 0;
#X connect 13 0 39 0;
#X connect 13 0 52 0;
#X connect 14 0 29 1;
#X connect 16 0 53 0;
#X connect 17 0 53 0;
#X connect 18 0 53 0;
#X connect 19 0 53 0;
#X connect 20 0 29 0;
#X connect 21 0 22 0;
#X connect 21 0 20 0;
#X connect 22 0 20 0;
#X connect 23 0 24 0;
#X connect 24 0 33 0;
#X connect 24 0 32 0;
#X connect 25 0 26 0;
#X connect 25 0 16 1;
#X connect 26 0 27 0;
#X connect 26 0 17 1;
#X connect 27 0 28 0;
#X connect 27 0 18 1;
#X connect 28 0 19 1;
#X connect 29 0 50 0;
#X connect 30 0 16 0;
#X connect 30 0 17 0;
#X connect 30 0 18 0;
#X connect 30 0 19 0;
#X connect 31 0 25 0;
#X connect 32 0 19 2;
#X connect 32 0 18 2;
#X connect 32 0 17 2;
#X connect 32 0 16 2;
#X connect 33 0 21 0;
#X connect 33 0 20 0;
#X connect 34 0 35 0;
#X connect 34 0 45 0;
#X connect 35 0 51 0;
#X connect 36 0 1 0;
#X connect 37 0 6 0;
#X connect 38 0 30 0;
#X connect 39 0 6 1;
#X connect 40 0 5 0;
#X connect 41 0 40 0;
#X connect 45 0 16 2;
#X connect 45 0 17 2;
#X connect 45 0 18 2;
#X connect 45 0 19 2;
#X connect 49 0 34 0;
#X connect 50 0 30 1;
#X connect 51 0 13 0;
#X connect 52 0 5 1;
#X connect 53 0 15 0;
#X connect 53 0 15 1;
#X restore 31 98 pd make the tea;
#X obj 30 39 bng 25 250 50 0 empty empty tea_earl_grey_hot 0 -12 0
8 -262144 -258699 -258699;
#X connect 0 0 1 0;
#X connect 2 0 0 0;