aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/pd_examples/ripple.pd
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2005-10-04 02:04:42 +0000
committerN.N. <matju@users.sourceforge.net>2005-10-04 02:04:42 +0000
commit04c235c6ac5f36b507c629de5634d5e6d326222b (patch)
tree7f494dc2dae6d9771aed83cf73825ea81cd3ed96 /externals/gridflow/pd_examples/ripple.pd
parent5e2a1bc9e56003349e533f7e5841041ba5c04e28 (diff)
adding abstractions and helpfiles
svn path=/trunk/; revision=3647
Diffstat (limited to 'externals/gridflow/pd_examples/ripple.pd')
-rw-r--r--externals/gridflow/pd_examples/ripple.pd190
1 files changed, 190 insertions, 0 deletions
diff --git a/externals/gridflow/pd_examples/ripple.pd b/externals/gridflow/pd_examples/ripple.pd
new file mode 100644
index 00000000..634122d0
--- /dev/null
+++ b/externals/gridflow/pd_examples/ripple.pd
@@ -0,0 +1,190 @@
+#N canvas 103 42 683 618 10;
+#X obj 78 419 #out window;
+#X obj 47 173 #outer ignore ( 0 0 );
+#X obj 78 105 +;
+#X obj 47 326 # +;
+#X obj 283 170 #outer + ( 0 9000 );
+#X obj 47 370 shunt 2;
+#X obj 283 189 # sin* 256;
+#N canvas 609 247 325 236 distance 0;
+#X text 16 15 bang;
+#X obj 18 58 #for ( -128 -128 ) ( 128 128 ) ( 1 1 );
+#X text 15 167 distances to middle;
+#X obj 18 125 @! sqrt;
+#X obj 18 36 inlet;
+#X obj 18 103 #fold +;
+#X obj 18 81 # ** 2;
+#X text 89 101 pythagoras' theorem;
+#X obj 18 149 outlet;
+#X connect 1 0 6 0;
+#X connect 3 0 8 0;
+#X connect 4 0 1 0;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X restore 164 41 pd distance map;
+#X obj 78 440 fps detailed;
+#X obj 283 130 loadbang;
+#X obj 47 42 fork;
+#X obj 168 278 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
+1;
+#X msg 78 86 1;
+#X obj 47 105 # -;
+#X obj 47 62 #store;
+#N canvas 659 552 420 225 apply 0;
+#X obj 60 48 #fold +;
+#X obj 12 190 outlet 0;
+#X obj 60 16 inlet;
+#X obj 12 124 # +;
+#X obj 12 167 # max 0;
+#X obj 12 146 # min 255;
+#X obj 12 16 inlet;
+#X obj 58 101 #outer *>>8;
+#X obj 130 69 inlet;
+#X obj 60 73 # << 2;
+#X connect 0 0 9 0;
+#X connect 2 0 0 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 5 0 4 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 1;
+#X connect 8 0 7 1;
+#X connect 9 0 7 0;
+#X restore 78 400 pd apply shading;
+#X obj 47 -27 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1
+;
+#X obj 47 348 #store;
+#X obj 47 25 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 48 281 #finished;
+#X obj 164 329 #for ( 0 0 ) ( 256 256 ) ( 1 1 );
+#X obj 164 130 # + 10;
+#X text 187 278 shading on/off;
+#X obj 47 240 shunt 2;
+#X floatatom 106 108 5 0 0 0 - - -;
+#X obj 47 195 # *>>8;
+#X obj 164 310 loadbang;
+#X obj 164 21 loadbang;
+#X obj 47 303 #store;
+#X obj 78 462 print;
+#X obj 164 149 # inv* 10000;
+#N canvas 588 233 480 480 angle 0;
+#X obj 71 163 #outer atan;
+#X obj 71 55 #finished;
+#X text 70 210 angles to centre;
+#X text 168 63 bang;
+#X obj 167 82 inlet;
+#X obj 168 106 #for -128 128 1;
+#X obj 71 78 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 72 188 outlet 0;
+#X obj 71 107 #for -128 128 1;
+#X connect 0 0 7 0;
+#X connect 1 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 0 1;
+#X connect 5 0 1 0;
+#X connect 6 0 8 0;
+#X connect 8 0 0 0;
+#X restore 283 151 pd angle map;
+#X obj 47 151 # *>>8;
+#X obj 46 218 # *>>8;
+#X obj 259 235 hsl 128 15 -256 256 0 1 empty empty empty -2 -6 0 8
+-260818 -1 -1 12600 1;
+#X obj 259 252 hsl 128 15 -256 256 0 1 empty empty empty -2 -6 0 8
+-260818 -1 -1 3200 1;
+#N canvas 715 537 387 220 compute 0;
+#X obj 8 113 #store;
+#X obj 55 113 # sin* 64;
+#X obj 55 71 #for 0 1024 1;
+#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 47 128 pd compute sine;
+#X text 232 358 background image;
+#X obj 165 375 #in teapot.png;
+#X obj 165 356 loadbang;
+#X obj 48 261 t a a;
+#X text 215 219 intensity of wave;
+#X obj 47 4 metro 33.3667;
+#X text 246 5 waves.pd is more interesting;
+#X text 225 -9 this is a quite boring wave generator;
+#X text 95 61 table for distance map;
+#X floatatom 216 237 5 0 0 0 - - -;
+#X floatatom 216 253 5 0 0 0 - - -;
+#X obj 157 239 #pack 2;
+#X obj -13 -85 cnv 15 680 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 0 -72 Copyright 2002 Mathieu Bouchard;
+#X text 0 -85 ripple.pd;
+#X obj -15 501 cnv 15 680 30 empty empty empty 20 12 0 14 -200249 -66577
+0;
+#X text -7 508 GridFlow 0.8.0;
+#X text -7 508 GridFlow 0.8.0;
+#X obj 246 410 #color;
+#X text 430 407 color of ripple shading;
+#X connect 0 0 8 0;
+#X connect 1 0 25 0;
+#X connect 2 0 24 0;
+#X connect 2 0 13 1;
+#X connect 3 0 17 0;
+#X connect 4 0 6 0;
+#X connect 5 0 15 0;
+#X connect 5 1 0 0;
+#X connect 6 0 25 1;
+#X connect 7 0 21 0;
+#X connect 7 0 14 1;
+#X connect 8 0 29 0;
+#X connect 9 0 31 0;
+#X connect 10 0 14 0;
+#X connect 10 1 12 0;
+#X connect 11 0 23 1;
+#X connect 11 0 5 1;
+#X connect 12 0 2 0;
+#X connect 13 0 36 0;
+#X connect 14 0 13 0;
+#X connect 15 0 0 0;
+#X connect 16 0 42 0;
+#X connect 17 0 5 0;
+#X connect 18 0 10 0;
+#X connect 19 0 28 0;
+#X connect 20 0 3 1;
+#X connect 21 0 30 0;
+#X connect 23 0 15 1;
+#X connect 23 0 40 0;
+#X connect 23 1 3 0;
+#X connect 24 0 2 1;
+#X connect 25 0 33 0;
+#X connect 26 0 20 0;
+#X connect 27 0 7 0;
+#X connect 28 0 3 0;
+#X connect 30 0 32 1;
+#X connect 31 0 4 0;
+#X connect 32 0 1 0;
+#X connect 33 0 23 0;
+#X connect 34 0 46 0;
+#X connect 35 0 47 0;
+#X connect 36 0 32 0;
+#X connect 38 0 17 1;
+#X connect 39 0 38 0;
+#X connect 40 0 19 0;
+#X connect 40 1 28 1;
+#X connect 42 0 18 0;
+#X connect 46 0 48 0;
+#X connect 47 0 48 1;
+#X connect 48 0 33 1;
+#X connect 55 0 15 2;