ooooooopppppppps attached Chladni.pd
Carl Knott skrev:
I'd like to write a simulation of a Cymatic Tonoscope. I plan to create a physical model of a circular membrane, sand will be sprinkled on top of it. When a person speaks into a microphone the membrane will vibrate causing the sand to form standing wave patterns. Obviously this will be done in real time. Any ideas guys? I really want to write this :) All the best, Carl. _______________________________________________ [email protected] mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
#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;
_______________________________________________ [email protected] mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
