aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/pd_examples/fire.pd
blob: 2e9f860666618f4321cd4caf5a99f6c7eb0deec6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
#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;