#N canvas 528 36 638 487 10;
#X obj 7 408 #out window;
#X obj 34 140 +;
#X obj 7 298 # +;
#X obj 193 205 # sin* 256;
#N canvas 609 247 325 236 distance 0;
#X text 16 15 bang;
#X text 15 149 distances to middle;
#X obj 18 36 inlet;
#X obj 18 93 #fold +;
#X text 89 95 pythagoras' theorem;
#X obj 18 131 outlet;
#X obj 18 55 #for (-128 -128) (128 128);
#X obj 18 112 # sqrt;
#X obj 18 74 # sq-;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 5 0;
#X connect 8 0 3 0;
#X restore 104 85 pd distance map;
#X obj 193 148 loadbang;
#X obj 7 83 t a a;
#X obj 161 271 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
1;
#X msg 34 121 1;
#X obj 7 140 # -;
#X obj 7 102 #store;
#X obj 7 47 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1;
#X obj 7 317 #store;
#X obj 104 148 # + 10;
#X text 180 271 shading on/off;
#X floatatom 59 141 5 0 0 0 - - -;
#X obj 7 222 # *>>8;
#X obj 161 291 loadbang;
#X obj 104 66 loadbang;
#X obj 104 167 # inv* 10000;
#N canvas 392 110 431 179 angle 0;
#X text 64 119 angles to centre;
#X text 22 13 bang;
#X obj 21 32 inlet;
#X obj 21 51 #for -128 128;
#X obj 21 70 #t;
#X obj 21 119 outlet;
#X obj 21 99 #outer atan2cd;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 1 6 1;
#X connect 6 0 5 0;
#X restore 193 167 pd angle map;
#X obj 7 184 # *>>8;
#X obj 7 241 # *>>8;
#X obj 237 238 hsl 128 15 -256 256 0 1 empty empty empty -2 -6 0 8
-260818 -1 -1 12700 1;
#X obj 237 255 hsl 128 15 -256 256 0 1 empty empty empty -2 -6 0 8
-260818 -1 -1 3200 1;
#X text 228 334 background image;
#X obj 161 351 #in teapot.png;
#X obj 161 332 loadbang;
#X text 193 222 intensity of wave;
#X obj 7 64 metro 33.3667;
#X text 206 71 waves.pd is more interesting;
#X text 185 51 this is a quite boring wave generator;
#X text 55 101 table for distance map;
#X floatatom 194 240 5 0 0 0 - - -;
#X floatatom 194 256 5 0 0 0 - - -;
#X text 0 23 Copyright 2002 Mathieu Bouchard;
#X obj 161 413 #color;
#X text 246 394 color of ripple shading;
#X obj 161 310 #for (0 0) (256 256);
#X obj 193 186 #outer + (0 9000);
#X obj 7 203 #outer ignore (0 0);
#X obj 7 279 #t;
#X obj 161 375 loadbang;
#X msg 161 394 255 255 100;
#N canvas 637 465 387 220 compute_sine 0;
#X obj 8 113 #store;
#X obj 55 113 # sin* 64;
#X obj 55 71 #for 0 1024;
#X obj 55 50 loadbang;
#X obj 55 92 # * 900;
#X obj 125 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 8 135 outlet;
#X text 75 151 This is somewhat like [# sin];
#X text 75 166 but much faster (lookup table);
#X obj 8 11 inlet;
#X obj 8 30 #outer ignore (0);
#X connect 0 0 6 0;
#X connect 1 0 0 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X restore 7 165 pd compute_sine;
#N canvas 604 460 336 147 apply_shading 0;
#X obj 60 35 #fold +;
#X obj 60 16 inlet;
#X obj 12 74 # +;
#X obj 12 16 inlet;
#X obj 60 73 #outer *>>8;
#X obj 132 73 inlet;
#X obj 60 54 # << 2;
#X obj 12 112 outlet;
#X obj 12 93 #clip;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 3 0 2 0;
#X connect 4 0 2 1;
#X connect 5 0 4 1;
#X connect 6 0 4 0;
#X connect 8 0 7 0;
#X restore 7 383 pd apply_shading;
#X obj 0 0 doc_demo;
#X obj 7 336 shunt;
#X obj 7 260 shunt;
#X obj 155 242 #pack;
#X connect 1 0 15 0;
#X connect 1 0 9 1;
#X connect 2 0 12 0;
#X connect 3 0 16 1;
#X connect 4 0 13 0;
#X connect 4 0 10 1;
#X connect 5 0 20 0;
#X connect 6 0 10 0;
#X connect 6 1 8 0;
#X connect 7 0 47 1;
#X connect 7 0 48 1;
#X connect 8 0 1 0;
#X connect 9 0 44 0;
#X connect 10 0 9 0;
#X connect 11 0 29 0;
#X connect 12 0 47 0;
#X connect 13 0 19 0;
#X connect 15 0 1 1;
#X connect 16 0 22 0;
#X connect 17 0 38 0;
#X connect 18 0 4 0;
#X connect 19 0 21 1;
#X connect 20 0 39 0;
#X connect 21 0 40 0;
#X connect 22 0 48 0;
#X connect 23 0 33 0;
#X connect 24 0 34 0;
#X connect 26 0 12 1;
#X connect 27 0 26 0;
#X connect 29 0 6 0;
#X connect 33 0 49 0;
#X connect 34 0 49 1;
#X connect 36 0 45 2;
#X connect 38 0 2 1;
#X connect 39 0 3 0;
#X connect 40 0 16 0;
#X connect 41 0 2 0;
#X connect 41 1 45 1;
#X connect 42 0 43 0;
#X connect 43 0 36 0;
#X connect 44 0 21 0;
#X connect 45 0 0 0;
#X connect 47 0 45 0;
#X connect 47 1 0 0;
#X connect 48 0 41 0;
#X connect 48 1 2 0;
#X connect 49 0 22 1;