aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/pd_examples/waves.pd
diff options
context:
space:
mode:
Diffstat (limited to 'externals/gridflow/pd_examples/waves.pd')
-rw-r--r--externals/gridflow/pd_examples/waves.pd339
1 files changed, 339 insertions, 0 deletions
diff --git a/externals/gridflow/pd_examples/waves.pd b/externals/gridflow/pd_examples/waves.pd
new file mode 100644
index 00000000..c9706ca4
--- /dev/null
+++ b/externals/gridflow/pd_examples/waves.pd
@@ -0,0 +1,339 @@
+#N canvas 366 97 753 590 10;
+#X obj 265 207 #greyscale_to_rgb;
+#X obj 251 350 # min 255;
+#X obj 271 5 loadbang;
+#X obj 211 25 fork;
+#X obj 251 389 #out x11;
+#X obj 313 409 print;
+#N canvas 23 304 369 368 mouse 0;
+#X text 109 189 coordinates;
+#X obj 56 189 outlet;
+#X obj 57 164 listsublist 0 2;
+#X obj 8 141 shunt 2;
+#X text 56 9 #out's outlet 0;
+#X obj 100 142 outlet;
+#X obj 41 94 >> 8;
+#X obj 41 115 != 0;
+#X obj 16 31 route position;
+#X text 154 143 is there a click?;
+#X obj 19 8 inlet;
+#X obj 16 55 fork;
+#X obj 41 73 listelement 2;
+#X connect 2 0 1 0;
+#X connect 3 1 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 0 3 1;
+#X connect 8 0 11 0;
+#X connect 10 0 8 0;
+#X connect 11 0 3 0;
+#X connect 11 1 12 0;
+#X connect 12 0 6 0;
+#X restore 251 428 pd mouse click/drag;
+#X obj 12 39 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1 1
+;
+#N canvas 637 335 419 287 lighting 0;
+#X obj 56 243 outlet;
+#X obj 17 9 inlet;
+#X obj 86 138 #outer & ( -1 0 0 );
+#X text 91 100 produce red/cyan from horiz differences;
+#X text 64 160 produce white/black from vertical differences;
+#X obj 56 199 #outer & ( -1 -1 0 );
+#X obj 56 222 # +;
+#X obj 108 10 #dim;
+#X obj 140 10 #export_list;
+#X obj 56 29 #redim ( );
+#X obj 56 9 t a a;
+#X obj 56 49 t a a;
+#X msg 141 30 \$1 \$2;
+#X obj 86 117 #convolve ( 1 2 # ) \, op ignore \, fold inv+;
+#X obj 56 177 #convolve ( 2 1 # ) \, op ignore \, fold inv+;
+#X connect 1 0 10 0;
+#X connect 2 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 12 0;
+#X connect 9 0 11 0;
+#X connect 10 0 9 0;
+#X connect 10 1 7 0;
+#X connect 11 0 14 0;
+#X connect 11 1 13 0;
+#X connect 12 0 9 1;
+#X connect 13 0 2 0;
+#X connect 14 0 5 0;
+#X restore 216 242 pd lighting;
+#X obj 251 447 # / 2;
+#X msg 138 46 \$1 \$2 1 # 0;
+#N canvas 137 251 392 303 finger 0;
+#X obj 149 39 #redim ( 4 2 );
+#X obj 71 16 inlet;
+#X obj 149 20 inlet;
+#X obj 71 217 outlet;
+#X obj 149 158 # +;
+#X obj 177 157 # *;
+#X msg 177 137 0 0 0 1 1 1 1 0;
+#X obj 193 79 inlet size;
+#X text 291 137 square or rect;
+#X obj 177 112 #finished;
+#X obj 70 195 #draw_polygon put ( 1000 );
+#X connect 0 0 4 0;
+#X connect 1 0 10 0;
+#X connect 2 0 0 0;
+#X connect 4 0 10 2;
+#X connect 5 0 4 1;
+#X connect 6 0 5 0;
+#X connect 7 0 9 0;
+#X connect 7 0 5 1;
+#X connect 9 0 6 0;
+#X connect 10 0 3 0;
+#X restore 292 519 pd finger;
+#X obj 245 25 s size;
+#X obj 251 370 #scale_by 2;
+#X obj 80 142 #store;
+#X obj 312 389 fps detailed;
+#N canvas 53 323 453 223 wave 0;
+#X obj 26 20 inlet;
+#X obj 28 182 outlet;
+#X text 70 137 time differential;
+#X text 81 50 space differential: (d/dx)^2 + (d/dy)^2;
+#X text 71 8 Recurrence equation for propagation of oscillations;
+#X obj 28 137 # -;
+#X obj 54 102 # >> 4;
+#X obj 28 158 # *>>8 242;
+#X text 105 159 amortizing by ~5.5%;
+#X obj 24 46 t a a;
+#X obj 54 81 #convolve ( 3 3 # 1 4 1 4 0 4 ) \, seed 8;
+#X connect 0 0 9 0;
+#X connect 5 0 7 0;
+#X connect 6 0 5 0;
+#X connect 7 0 1 0;
+#X connect 9 0 5 1;
+#X connect 9 1 10 0;
+#X connect 10 0 6 0;
+#X restore 80 203 pd wave equation;
+#X obj 249 515 t a;
+#X obj 117 122 t a;
+#X obj 251 330 # max 0;
+#X obj 265 188 # >> 1;
+#X obj 31 63 s metro;
+#X msg 211 5 240 320;
+#X text 441 19 Copyright (c) 2003 \, 2004 by Mathieu Bouchard;
+#X text 481 72 (Best complemented with a touchscreen);
+#X text 441 2 waves.pd;
+#X obj 376 141 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -258699
+-1 2;
+#X text 395 155 height greys;
+#X obj 298 103 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -258699
+-1 0;
+#X text 317 102 plain;
+#X text 318 118 line-art;
+#X text 315 46 smooth;
+#X obj 296 46 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -258699
+-1 0;
+#X text 316 60 raw;
+#X obj 443 379 hradio 18 1 1 4 empty empty _1__2__3__4_ 0 -4 0 8 -262144
+-258699 -1 1;
+#X text 441 354 scale by...;
+#X obj 443 400 + 1;
+#X obj 664 129 loadbang;
+#X obj 557 331 #in;
+#X obj 584 305 #camera_control;
+#X obj 558 284 spigot;
+#X obj 605 285 tgl 15 0 empty empty empty 18 8 0 8 -241291 -1 -62784
+1 1;
+#X obj 558 264 r metro;
+#N canvas 242 284 365 231 line-art 0;
+#X obj 32 123 # << 8;
+#X obj 32 37 inlet;
+#X obj 32 145 outlet;
+#X text 146 31 double-thresholding;
+#X text 146 114 else becomes 0;
+#X obj 32 82 # min 1;
+#X obj 32 103 # max -1;
+#X obj 32 60 # / 3;
+#X text 146 85 < -3 becomes -256;
+#X text 146 100 > +3 becomes +256;
+#X connect 0 0 2 0;
+#X connect 1 0 7 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 5 0;
+#X restore 283 142 pd line-art;
+#X text 560 214 Background colour;
+#X text 625 285 enable video;
+#X msg 584 325 open r001.jpg \, bang;
+#X text 394 141 four-colour emboss;
+#X obj 142 402 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1
+1;
+#X obj 88 377 r metro;
+#X obj 88 441 @! rand;
+#X msg 87 421 240 320;
+#X text 160 399 rain;
+#X text 558 3 bundled with GridFlow 0.7.7;
+#X obj 240 100 # >> 2;
+#X text 378 36 Originally made for Alexandre Castonguay's "DIGITALE"
+;
+#X text 495 53 But suitable for a lot more uses :-);
+#X msg 599 129 3 # 128;
+#X obj 557 154 #color;
+#X obj 239 121 shunt 2;
+#X obj 239 59 shunt 2;
+#X obj 403 486 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
+-262131 -1 -1 2 256;
+#X obj 403 503 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10
+-262131 -1 -1 2 256;
+#X obj 359 519 #pack 2;
+#X obj 216 291 # +;
+#X obj 332 302 #store;
+#X obj 421 236 shunt 2;
+#X obj 477 232 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -258699
+-1 0;
+#X text 495 230 plain;
+#X text 495 248 refraction;
+#X obj 216 263 t a;
+#N canvas 203 363 443 300 heightmap2indexmap 0;
+#X obj 48 279 outlet;
+#X obj 9 8 inlet;
+#X obj 48 159 # +;
+#X obj 100 9 #dim;
+#X obj 132 9 #export_list;
+#X obj 48 28 #redim ( );
+#X obj 48 8 t a a;
+#X obj 48 48 t a a;
+#X msg 133 29 \$1 \$2;
+#X obj 78 92 #outer & ( -1 0 );
+#X obj 48 137 #outer & ( 0 -1 );
+#X obj 48 251 # +;
+#X obj 73 251 #for ( 0 0 ) ( 240 320 ) ( 1 1 );
+#X obj 116 229 loadbang;
+#X obj 84 229 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 48 182 # >> 1;
+#X obj 48 115 #convolve ( 2 1 # ) \, op ignore \, fold inv+;
+#X obj 78 71 #convolve ( 1 2 # ) \, op ignore \, fold inv+;
+#X connect 1 0 6 0;
+#X connect 2 0 15 0;
+#X connect 3 0 4 0;
+#X connect 4 0 8 0;
+#X connect 5 0 7 0;
+#X connect 6 0 5 0;
+#X connect 6 1 3 0;
+#X connect 7 0 16 0;
+#X connect 7 1 17 0;
+#X connect 8 0 5 1;
+#X connect 9 0 2 1;
+#X connect 10 0 2 0;
+#X connect 11 0 0 0;
+#X connect 12 0 11 1;
+#X connect 13 0 12 0;
+#X connect 14 0 12 0;
+#X connect 15 0 11 0;
+#X connect 16 0 10 0;
+#X connect 17 0 9 0;
+#X restore 332 281 pd heightmap2indexmap;
+#X obj 11 63 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1
+-1;
+#X obj 332 228 spigot;
+#X text 397 170 no reflection;
+#X obj 239 167 shunt 3;
+#X obj 239 145 t a;
+#X obj 313 188 # put 0;
+#X obj 255 491 shunt 2;
+#X obj 325 493 shunt 2;
+#X obj 87 401 shunt 2;
+#X obj 31 39 metro 33.3667;
+#X obj 80 171 shunt 2;
+#X text 154 173 freeze time;
+#X obj 137 173 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
+1;
+#X obj 131 100 r feedback;
+#X obj 229 543 s feedback;
+#X obj 124 264 t a;
+#X obj 239 80 #convolve ( 2 2 # ) \, op ignore;
+#X obj 571 403 #yuv_to_rgb;
+#X text 500 501 pas de reflection \, + yuv;
+#X connect 0 0 70 0;
+#X connect 1 0 13 0;
+#X connect 2 0 22 0;
+#X connect 3 0 10 0;
+#X connect 3 1 12 0;
+#X connect 4 0 15 0;
+#X connect 4 0 6 0;
+#X connect 6 0 9 0;
+#X connect 6 1 79 0;
+#X connect 7 0 81 0;
+#X connect 8 0 70 0;
+#X connect 9 0 11 1;
+#X connect 10 0 18 0;
+#X connect 11 0 17 0;
+#X connect 13 0 4 0;
+#X connect 14 0 82 0;
+#X connect 15 0 5 0;
+#X connect 16 0 87 0;
+#X connect 17 0 86 0;
+#X connect 18 0 14 1;
+#X connect 18 0 60 0;
+#X connect 19 0 1 0;
+#X connect 20 0 0 0;
+#X connect 22 0 3 0;
+#X connect 26 0 75 1;
+#X connect 28 0 59 1;
+#X connect 32 0 60 1;
+#X connect 34 0 36 0;
+#X connect 36 0 9 1;
+#X connect 36 0 13 1;
+#X connect 37 0 57 0;
+#X connect 38 0 89 0;
+#X connect 39 0 38 0;
+#X connect 40 0 38 0;
+#X connect 41 0 40 1;
+#X connect 42 0 40 0;
+#X connect 43 0 76 0;
+#X connect 46 0 38 0;
+#X connect 48 0 78 1;
+#X connect 48 0 79 1;
+#X connect 48 0 80 1;
+#X connect 49 0 80 0;
+#X connect 50 0 11 1;
+#X connect 51 0 50 0;
+#X connect 54 0 59 0;
+#X connect 57 0 58 0;
+#X connect 58 0 66 0;
+#X connect 59 0 76 0;
+#X connect 59 1 43 0;
+#X connect 60 0 88 0;
+#X connect 60 1 59 0;
+#X connect 61 0 63 0;
+#X connect 62 0 63 1;
+#X connect 63 0 11 2;
+#X connect 64 0 19 0;
+#X connect 65 0 64 1;
+#X connect 66 0 64 1;
+#X connect 66 1 65 1;
+#X connect 67 0 66 1;
+#X connect 67 0 73 1;
+#X connect 70 0 64 0;
+#X connect 71 0 65 0;
+#X connect 72 0 21 0;
+#X connect 72 0 14 0;
+#X connect 73 0 71 0;
+#X connect 75 0 8 0;
+#X connect 75 1 20 0;
+#X connect 75 2 77 0;
+#X connect 76 0 75 0;
+#X connect 76 0 73 0;
+#X connect 77 0 0 0;
+#X connect 78 0 17 0;
+#X connect 78 1 11 0;
+#X connect 79 0 78 1;
+#X connect 80 1 51 0;
+#X connect 81 0 14 0;
+#X connect 81 0 21 0;
+#X connect 82 0 16 0;
+#X connect 82 1 87 0;
+#X connect 84 0 82 1;
+#X connect 85 0 18 0;
+#X connect 87 0 78 0;
+#X connect 88 0 54 0;
+#X connect 89 0 77 1;