#N canvas 651 0 596 616 10;
#X obj 360 281 loadbang;
#X text 414 370 palette generator;
#X obj 359 414 #for 0 256;
#X obj 19 280 #store;
#X msg 52 240 \$1 \$2 # 0;
#X obj 359 395 #finished;
#X obj 19 74 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1;
#X obj 200 57 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 359 376 t a a;
#X text 248 80 height width;
#X obj 65 469 #out window;
#X text 70 362 applying palette;
#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);
#X obj 90 53 #to_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 219 240 pd circle generator;
#N canvas 725 126 361 260 baseline 0;
#X obj 87 92 - 4;
#X obj 18 109 # ==;
#X text 93 10 line generator;
#X obj 18 9 inlet size;
#X obj 18 162 outlet matrix;
#X text 114 94 four pixels from bottom;
#X obj 87 45 #unpack;
#X obj 18 28 t b a;
#X obj 18 143 #outer ignore (0);
#X msg 126 128 \$1 #;
#X obj 18 82 #for 0 0;
#X obj 18 128 # << 7;
#X connect 0 0 1 1;
#X connect 1 0 11 0;
#X connect 3 0 7 0;
#X connect 6 0 0 0;
#X connect 6 0 10 1;
#X connect 6 1 9 0;
#X connect 7 0 10 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X connect 9 0 8 1;
#X connect 10 0 1 0;
#X connect 11 0 8 0;
#X restore 200 260 pd baseline generator;
#X text 41 223 make blank image;
#X text 26 263 feedback loop;
#X obj 360 319 #color 0 800 1;
#X obj 220 56 loadbang;
#N canvas 163 191 731 390 cursor 0;
#X obj 107 10 inlet;
#X obj 30 65 t a a;
#X obj 30 293 outlet;
#X obj 30 84 # -;
#X obj 98 101 #finished;
#X obj 98 120 #store (0 0);
#X obj 30 198 # sq-;
#X obj 30 217 #fold +;
#X obj 30 236 # sqrt;
#X obj 30 255 #fold +;
#X obj 30 274 # / 5;
#X obj 30 9 r metro;
#X obj 30 46 list;
#X obj 30 126 t b a b;
#X obj 135 143 f;
#X obj 159 143 + 1;
#X obj 183 143 mod 25;
#X obj 49 145 #redim (1 2);
#X msg 135 162 put_at \$1 0;
#X obj 30 179 #store (25 2 #);
#X obj 107 29 #to_list;
#X connect 0 0 20 0;
#X connect 1 0 3 0;
#X connect 1 1 5 1;
#X connect 3 0 4 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 2 0;
#X connect 11 0 12 0;
#X connect 12 0 1 0;
#X connect 13 0 19 0;
#X connect 13 1 17 0;
#X connect 13 2 14 0;
#X connect 14 0 15 0;
#X connect 14 0 18 0;
#X connect 15 0 16 0;
#X connect 16 0 14 1;
#X connect 17 0 19 1;
#X connect 18 0 19 1;
#X connect 19 0 6 0;
#X connect 20 0 12 1;
#X restore 321 202 pd cursor motion detector;
#X obj 113 555 s cursor;
#X msg 71 446 hidecursor;
#N canvas 238 140 484 503 fuzzy 0;
#X obj 47 281 outlet;
#X obj 47 68 #for (0 0) (0 0);
#X obj 47 13 inlet size;
#X obj 47 32 t b a;
#X obj 111 49 #to_list;
#X obj 47 91 # sq-;
#X obj 47 262 # - 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 92 129 inlet radius;
#X obj 189 74 inlet pos;
#X obj 47 110 #fold +;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 1 1;
#X connect 5 0 16 0;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 7 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 12 1;
#X connect 15 0 5 1;
#X connect 16 0 13 0;
#X restore 239 221 pd fuzzy disk seed generator;
#X text 151 535 #scale_by compensation;
#X obj 65 420 #scale_by 2;
#X obj 113 535 # / 2;
#X text 15 349 (height \, width \, 1) grid = grey image;
#X text 16 315 (height \, width) grid = matrix;
#X obj 200 163 shunt 3;
#X obj 248 164 hradio 15 1 0 3 empty empty empty 0 -6 0 8 -241291 -1
-1 1;
#X obj 58 111 spigot;
#X obj 19 111 t b b;
#X obj 103 111 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1
1;
#X obj 46 130 s metro;
#X obj 434 183 display;
#X obj 359 433 #outer gamma;
#X obj 200 128 list;
#X obj 103 92 loadbang;
#X obj 0 0 doc_demo;
#X text 5 23 Copyright 2001 \, 2005 Mathieu Bouchard;
#X text 197 35 (original version in assembly language);
#X text 5 35 Copyright 1995 Mathieu Bouchard;
#X obj 434 164 r cursor;
#X obj 104 507 #mouse \, \,;
#X obj 65 488 fps;
#X floatatom 65 507 5 0 0 0 - - -;
#X obj 222 103 t a;
#N canvas 802 342 400 289 fire_generator 0;
#X obj 21 103 inlet;
#X obj 6 122 # +;
#X obj 6 7 inlet image;
#X obj 222 47 inlet size;
#X text 99 1 this fire algorithm;
#X text 99 13 was designed by matju in 1994;
#X obj 222 123 # rand;
#X obj 6 141 outlet;
#X obj 222 85 f;
#X msg 222 66 \$2;
#X obj 6 26 t a b b;
#X text 98 26 except for a few minor différences;
#X obj 6 46 #convolve (3 3 # 0 1 0 0 1 0 1 1 1);
#X obj 6 84 # *>>8;
#X msg 222 104 4567 # 64;
#X obj 222 142 # + 17;
#X connect 0 0 1 1;
#X connect 1 0 7 0;
#X connect 2 0 10 0;
#X connect 3 0 9 0;
#X connect 6 0 15 0;
#X connect 8 0 14 0;
#X connect 9 0 8 0;
#X connect 10 0 12 0;
#X connect 10 2 8 0;
#X connect 12 0 13 0;
#X connect 13 0 1 0;
#X connect 14 0 6 0;
#X connect 15 0 13 1;
#X restore 65 280 pd fire_generator;
#X obj 65 381 #store;
#X msg 200 80 120 160;
#X text 16 398 (height \, width \, 3) grid = rgb image;
#X obj 65 299 #clip;
#X msg 360 300 600 250 75;
#X obj 65 332 #outer ignore (0);
#X obj 19 92 metro 6.666;
#X msg 297 116 240 320;
#X connect 0 0 51 0;
#X connect 2 0 34 0;
#X connect 3 0 46 0;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X connect 6 0 53 0;
#X connect 7 0 48 0;
#X connect 8 0 5 0;
#X connect 8 1 34 1;
#X connect 10 0 42 0;
#X connect 10 0 43 0;
#X connect 12 0 46 1;
#X connect 13 0 46 1;
#X connect 16 0 8 0;
#X connect 17 0 48 0;
#X connect 18 0 21 1;
#X connect 20 0 10 0;
#X connect 21 0 46 1;
#X connect 23 0 10 0;
#X connect 24 0 19 0;
#X connect 27 0 13 0;
#X connect 27 1 12 0;
#X connect 27 2 21 0;
#X connect 28 0 27 1;
#X connect 29 0 35 0;
#X connect 30 0 3 0;
#X connect 30 1 29 0;
#X connect 30 1 32 0;
#X connect 31 0 29 1;
#X connect 34 0 47 1;
#X connect 35 0 27 0;
#X connect 36 0 31 0;
#X connect 41 0 18 0;
#X connect 41 0 12 1;
#X connect 41 0 21 2;
#X connect 41 0 33 0;
#X connect 42 0 24 0;
#X connect 42 1 24 0;
#X connect 42 2 24 0;
#X connect 42 3 24 0;
#X connect 43 0 44 0;
#X connect 45 0 4 0;
#X connect 45 0 46 2;
#X connect 45 0 35 1;
#X connect 46 0 3 1;
#X connect 46 0 50 0;
#X connect 47 0 23 0;
#X connect 48 0 45 0;
#X connect 50 0 52 0;
#X connect 51 0 16 0;
#X connect 52 0 47 0;
#X connect 53 0 30 0;
#X connect 54 0 45 0;