path: root/externals/gridflow/pd_examples/fire.pd

#N canvas 55 53 634 527 10;
#X obj 377 355 loadbang;
#X text 243 362 palette generator;
#X obj 100 383 fps detailed;
#X obj 264 400 #for 0 256 1;
#X obj 19 240 #store;
#X obj 264 422 #outer gamma;
#X obj 100 402 print;
#X msg 56 200 \$1 \$2 # 0;
#X obj 264 379 #finished;
#X obj 19 35 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1;
#X obj 200 39 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 332 379 fork;
#X text 258 62 height width;
#X obj 100 364 #out window;
#X text 97 308 applying palette;
#X obj 99 326 #store;
#N canvas 127 200 450 300 circle 0;
#X obj 47 146 #fold +;
#X obj 47 203 # << 7;
#X obj 47 165 # >> 6;
#X obj 47 184 # == 10;
#X obj 47 15 inlet size;
#X obj 47 222 outlet matrix;
#X obj 77 108 inlet pos;
#X obj 47 53 t b a;
#X obj 47 127 # sq-;
#X obj 47 79 #for (0 0) (0 0) (1 1);
#X obj 90 53 #export_list;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 6 0 8 1;
#X connect 7 0 9 0;
#X connect 7 1 10 0;
#X connect 8 0 0 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X restore 222 200 pd circle generator;
#N canvas 498 387 361 260 baseline 0;
#X obj 18 123 #fold +;
#X obj 127 149 - 4;
#X obj 18 56 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 18 101 # & ( -1 0 );
#X obj 18 146 # ==;
#X obj 127 130 listelement 0;
#X text 93 10 line generator;
#X obj 18 166 # << 7;
#X obj 18 79 #for ( 0 0 ) ( 0 0 ) ( 1 1 );
#X obj 127 110 #export_list;
#X obj 18 9 inlet size;
#X obj 18 187 outlet matrix;
#X obj 18 33 fork;
#X text 154 151 four pixels from bottom;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 2 0 8 0;
#X connect 3 0 0 0;
#X connect 4 0 7 0;
#X connect 5 0 1 0;
#X connect 7 0 11 0;
#X connect 8 0 3 0;
#X connect 9 0 5 0;
#X connect 10 0 12 0;
#X connect 12 0 2 0;
#X connect 12 1 9 0;
#X connect 12 1 8 1;
#X restore 200 220 pd baseline generator;
#X text 45 183 make blank image;
#X text 26 223 feedback loop;
#X obj 377 393 #color 0 800 1;
#X msg 377 374 600 200 75;
#X obj 220 38 loadbang;
#N canvas 645 360 400 289 fire 0;
#X obj 174 180 #store;
#X obj 61 196 #export_list;
#X obj 6 65 # >> 2;
#X obj 6 26 fork;
#X obj 6 235 # & 255;
#X obj 174 115 listmake;
#X obj 6 103 # / 80;
#X msg 174 138 \$1 1 # 256;
#X obj 174 97 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 174 78 route grid;
#X obj 60 155 inlet;
#X obj 274 146 # + 32;
#X obj 60 177 #dim;
#X obj 6 214 # +;
#X obj 6 258 outlet 0;
#X msg 274 101 256 \$2 # 64;
#X obj 6 84 # *;
#X obj 6 7 inlet image;
#X obj 274 79 inlet size;
#X text 102 8 this fire algorithm;
#X text 101 22 was designed by matju in 1994;
#X text 264 167 makes a cache of;
#X text 264 180 random numbers;
#X obj 174 159 # rand;
#X obj 274 123 # rand;
#X obj 6 46 #convolve (3 3 # 1 0 0 0 1 0 1 1 1);
#X connect 0 0 16 1;
#X connect 1 0 5 1;
#X connect 2 0 16 0;
#X connect 3 0 25 0;
#X connect 3 1 9 0;
#X connect 4 0 14 0;
#X connect 5 0 7 0;
#X connect 6 0 13 0;
#X connect 7 0 23 0;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 13 1;
#X connect 10 0 12 0;
#X connect 11 0 0 1;
#X connect 12 0 1 0;
#X connect 13 0 4 0;
#X connect 15 0 24 0;
#X connect 16 0 6 0;
#X connect 17 0 3 0;
#X connect 18 0 15 0;
#X connect 23 0 0 0;
#X connect 24 0 11 0;
#X connect 25 0 2 0;
#X restore 65 240 pd fire generator;
#X text 166 108 note: reset the size if you change the generator;
#X obj 19 58 metro 33.3667;
#X obj 5 -4 cnv 15 620 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 15 -4 fire.pd;
#X obj 5 483 cnv 15 620 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text 13 491 GridFlow 0.8.0;
#X obj 139 402 route position;
#N canvas 268 301 442 406 cursor 0;
#X obj 30 29 listmake;
#X obj 107 48 listsublist 0 2;
#X obj 107 10 inlet;
#X obj 132 151 listsublist 0 48;
#X obj 30 49 fork;
#X obj 30 285 outlet;
#X obj 30 131 @export_list;
#X obj 30 151 listappend 0 0;
#X obj 107 29 #export_list;
#X obj 30 79 # -;
#X obj 115 86 #finished;
#X obj 115 105 #store (0 0);
#X obj 30 170 #redim (25 2);
#X obj 30 189 # sq-;
#X obj 30 208 #fold +;
#X obj 30 227 # sqrt;
#X obj 30 246 #fold +;
#X obj 30 266 # / 5;
#X obj 30 9 r metro;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 8 0;
#X connect 3 0 7 1;
#X connect 4 0 9 0;
#X connect 4 1 11 1;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 7 0 12 0;
#X connect 8 0 1 0;
#X connect 9 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 9 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 5 0;
#X connect 18 0 0 0;
#X restore 371 162 pd cursor motion detector;
#X obj 139 460 s cursor;
#X msg 20 341 hidecursor;
#N canvas 238 140 484 503 fuzzy 0;
#X obj 47 281 outlet;
#X obj 229 74 listsublist 0 2;
#X obj 47 110 @fold +;
#X obj 47 68 #for (0 0) (0 0) (1 1);
#X obj 47 13 inlet size;
#X obj 47 32 t b a;
#X obj 86 32 #export_list;
#X obj 47 91 # sq-;
#X obj 47 263 # - 10;
#X obj 47 243 # max 10;
#X obj 47 224 # min 255;
#X obj 47 205 # + 64;
#X obj 47 186 # tanh* 64;
#X obj 47 167 # << 8;
#X obj 47 148 # inv+ 2;
#X obj 47 129 # >> 2;
#X obj 104 125 inlet radius;
#X obj 229 55 #export_list;
#X obj 229 36 inlet pos;
#X connect 1 0 7 1;
#X connect 2 0 15 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 5 1 6 0;
#X connect 6 0 3 1;
#X connect 7 0 2 0;
#X connect 8 0 0 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 14 1;
#X connect 17 0 1 0;
#X connect 18 0 17 0;
#X restore 276 181 pd fuzzy disk seed generator;
#X text 177 440 #scale_by compensation;
#X msg 139 421 \$1 \$2;
#X obj 99 345 #scale_by 2;
#X obj 139 440 # / 2;
#X text 15 294 (height \, width \, 1) grid = grey image;
#X text 16 260 (height \, width) grid = matrix;
#X obj 200 123 shunt 3;
#X obj 253 125 hradio 15 1 0 3 empty empty empty 0 -6 0 8 -241291 -1
-1 1;
#X obj 500 203 r cursor;
#X obj 501 222 t a;
#X obj 204 90 listmake;
#X obj 58 86 spigot;
#X obj 19 86 t b b;
#X obj 104 87 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1 1
;
#X msg 200 62 120 160;
#X obj 49 109 s metro;
#X obj 67 277 #outer ignore (0);
#X text 15 9 Copyright 2001 \, 2005 Mathieu Bouchard;
#X connect 0 0 21 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 23 0;
#X connect 5 0 15 1;
#X connect 7 0 4 1;
#X connect 8 0 3 0;
#X connect 9 0 25 0;
#X connect 10 0 49 0;
#X connect 11 0 8 0;
#X connect 11 1 5 1;
#X connect 13 0 2 0;
#X connect 13 0 30 0;
#X connect 15 0 37 0;
#X connect 16 0 23 1;
#X connect 17 0 23 1;
#X connect 20 0 11 0;
#X connect 21 0 20 0;
#X connect 22 0 49 0;
#X connect 23 0 4 1;
#X connect 23 0 51 0;
#X connect 25 0 47 0;
#X connect 30 0 36 0;
#X connect 31 0 34 1;
#X connect 33 0 13 0;
#X connect 34 0 23 1;
#X connect 36 0 38 0;
#X connect 37 0 13 0;
#X connect 38 0 32 0;
#X connect 41 0 17 0;
#X connect 41 1 16 0;
#X connect 41 2 34 0;
#X connect 42 0 41 1;
#X connect 43 0 44 0;
#X connect 44 0 31 0;
#X connect 44 0 16 1;
#X connect 44 0 34 2;
#X connect 45 0 41 0;
#X connect 46 0 45 0;
#X connect 47 0 4 0;
#X connect 47 1 46 0;
#X connect 47 1 50 0;
#X connect 48 0 46 1;
#X connect 49 0 7 0;
#X connect 49 0 23 2;
#X connect 49 0 45 0;
#X connect 51 0 15 0;