#N canvas 518 5 629 456 10;
#X obj 376 149 v m;
#X obj 424 151 v n;
#X text 24 16 http://local.wasp.uwa.edu.au/~pbourke/surfaces_curves/chladni/index.html
;
#N canvas 506 26 778 737 calc 0;
#X obj 98 111 v L;
#X obj 43 160 v pi;
#X obj 98 41 loadbang;
#X obj 304 362 expr cos(n*pi*x/L)*cos(m*pi*y/L)-cos(m*pi*x/L)*cos(n*pi*y/L)
;
#X obj 43 78 1;
#X obj 304 171 until;
#X obj 425 255 + 1;
#X obj 339 232 v x;
#X obj 425 325 + 1;
#X obj 339 326 v y;
#X obj 419 149 v x;
#X obj 304 143 4096;
#X obj 279 40 inlet;
#X obj 279 100 t b b b;
#X obj 349 530 t l;
#X obj 240 519 list;
#X obj 304 502 list;
#X obj 240 599 outlet;
#X obj 240 566 list trim;
#X obj 215 362 t b b;
#X obj 449 149 v y;
#X obj 304 201 t b b;
#X obj 279 67 del 100;
#X obj 253 65 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 0 0 454 304 pi 0;
#X obj 76 79 inlet;
#X obj 76 153 outlet;
#X obj 76 102 atan;
#X obj 76 127 * 4;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X restore 43 99 pd pi;
#X obj 339 277 t f f;
#X obj 98 80 64;
#X obj 339 255 mod 64;
#X obj 339 303 select 0;
#X obj 419 117 0;
#X connect 2 0 4 0;
#X connect 2 0 26 0;
#X connect 3 0 16 0;
#X connect 4 0 24 0;
#X connect 5 0 21 0;
#X connect 6 0 7 0;
#X connect 7 0 27 0;
#X connect 8 0 9 0;
#X connect 9 0 8 0;
#X connect 11 0 5 0;
#X connect 12 0 22 0;
#X connect 13 0 19 0;
#X connect 13 1 11 0;
#X connect 13 2 29 0;
#X connect 14 0 16 1;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 0 15 1;
#X connect 18 0 17 0;
#X connect 19 0 16 1;
#X connect 19 1 15 0;
#X connect 21 0 3 0;
#X connect 21 1 7 0;
#X connect 22 0 13 0;
#X connect 23 0 13 0;
#X connect 24 0 1 0;
#X connect 25 0 28 0;
#X connect 25 1 6 0;
#X connect 26 0 0 0;
#X connect 27 0 25 0;
#X connect 28 0 9 0;
#X connect 29 0 20 0;
#X connect 29 0 10 0;
#X restore 352 220 pd calc;
#X floatatom 376 127 5 0 0 0 - - -;
#X floatatom 424 128 5 0 0 0 - - -;
#X obj 279 220 gemhead;
#X obj 196 223 loadbang;
#X msg 196 246 grey;
#X obj 279 263 pix_set 64 64;
#X obj 279 297 pix_texture;
#X obj 30 128 gemwin;
#X obj 352 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 279 319 square;
#X msg 42 101 0 \, destroy;
#X msg 30 72 create \, 1;
#X obj 376 91 unpack;
#X msg 376 56 5 2;
#X msg 406 56 3 2;
#X msg 437 55 4 3;
#X text 104 72 <- 1;
#X text 312 56 2 ->;
#X msg 463 55 5 1;
#X msg 196 272 repeat 0;
#X msg 491 54 13 11;
#N canvas 0 0 454 304 (subpatch) 0;
#X text 167 33 Chladni implementation;
#X text 170 59 by Steffen Leve Poulen 2007;
#X restore 32 163 pd;
#X connect 3 0 9 1;
#X connect 4 0 0 0;
#X connect 4 0 12 0;
#X connect 5 0 1 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 23 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 12 0 3 0;
#X connect 14 0 11 0;
#X connect 15 0 11 0;
#X connect 16 0 4 0;
#X connect 16 1 5 0;
#X connect 17 0 16 0;
#X connect 18 0 16 0;
#X connect 19 0 16 0;
#X connect 22 0 16 0;
#X connect 23 0 10 0;
#X connect 24 0 16 0;