aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/pd_examples/sand.pd
blob: 42a0ed934018c89fd8f4c3b4fe11a68598aa72c6 (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
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
#N canvas 524 30 680 685 10;
#X text 317 199 disable falling;
#X obj 6 392 # min 255;
#X obj 3 167 fork;
#X obj 295 402 # != 0;
#X obj 356 446 #fold +;
#X obj 99 518 s position;
#X obj 192 -31 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
;
#X obj 295 465 #export;
#X obj 192 68 #store;
#X obj 247 133 shunt 2;
#N canvas 25 226 369 359 mouse 0;
#X text 143 214 is there a click?;
#X obj 44 114 != 0;
#X text 112 256 coordinates;
#X obj 19 8 inlet;
#X text 56 9 #out's outlet 0;
#X obj 44 93 >> 8;
#X obj 65 237 listsublist 0 2;
#X obj 16 31 route position;
#X obj 94 214 outlet;
#X obj 65 257 outlet;
#X obj 16 214 shunt 2;
#X obj 44 72 listelement 2;
#X obj 16 51 t a a;
#X connect 1 0 8 0;
#X connect 1 0 10 1;
#X connect 3 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 9 0;
#X connect 7 0 12 0;
#X connect 10 1 6 0;
#X connect 11 0 5 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X restore 398 151 pd mouse click/drag;
#X obj 358 152 # / 2;
#X obj 295 423 #ravel;
#X msg 11 142 100 100;
#X obj 6 415 # max;
#X obj 247 198 shunt 2;
#X obj 26 187 s size;
#X obj 295 444 #fold +;
#X obj 454 112 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
1;
#X obj 356 404 @! abs;
#X obj 432 412 #export;
#X obj 432 370 #ravel;
#X obj 288 260 shunt 2;
#X obj 301 199 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
1;
#X obj 356 467 #export;
#X obj 398 111 shunt 2;
#X obj 6 348 #greyscale_to_rgb;
#X obj 399 132 r position;
#N canvas 504 75 496 430 falling 0;
#X obj 42 147 # +;
#X text 228 286 vertical falling;
#X obj 70 327 # / 3;
#X obj 138 25 inlet;
#X text 179 25 Dim[rows \, columns \, {height}];
#X obj 43 281 #store;
#X obj 43 260 #finished;
#X obj 69 168 # / 3;
#X obj 70 306 # / 3;
#X obj 42 168 # +;
#X obj 43 306 # +;
#X text 105 366 Dim[rows \, columns \, {height}];
#X text 197 129 horizontal falling;
#X obj 69 147 # / 3;
#X obj 43 327 # +;
#X obj 42 123 #store;
#X obj 52 365 outlet;
#X obj 42 104 #finished;
#X obj 138 58 t a a;
#X obj 133 218 t a a;
#X obj 110 147 #convolve ( 1 2 # 1 1 0 ) \, fold inv+;
#X obj 110 168 #convolve ( 1 3 # 1 1 0 ) \, fold inv+;
#X obj 111 306 #convolve ( 2 1 # 1 1 ) \, fold inv+;
#X obj 111 327 #convolve ( 3 1 # 1 1 0 ) \, fold inv+;
#X connect 0 0 9 0;
#X connect 2 0 14 1;
#X connect 3 0 18 0;
#X connect 5 0 10 0;
#X connect 6 0 5 0;
#X connect 7 0 9 1;
#X connect 8 0 10 1;
#X connect 9 0 19 0;
#X connect 10 0 14 0;
#X connect 13 0 0 1;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 17 0 15 0;
#X connect 18 0 17 0;
#X connect 18 1 15 1;
#X connect 18 1 20 0;
#X connect 18 1 21 0;
#X connect 19 0 6 0;
#X connect 19 1 5 1;
#X connect 19 1 22 0;
#X connect 19 1 23 0;
#X connect 20 0 13 0;
#X connect 21 0 7 0;
#X connect 22 0 8 0;
#X connect 23 0 2 0;
#X restore 247 218 pd falling sand;
#X obj 6 465 #scale_by 2;
#X obj 8 287 shunt 3;
#X obj 6 540 print;
#X obj 136 26 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
-1;
#X text 253 -8 auto;
#N canvas 292 75 480 513 falling 0;
#X obj 105 177 # div 5;
#X text 292 85 horizontal falling;
#X obj 42 118 #store;
#X obj 153 58 fork;
#X obj 171 230 fork;
#X obj 46 392 outlet;
#X obj 42 147 # +;
#X obj 46 307 # +;
#X obj 46 281 #store;
#X obj 42 91 #finished;
#X obj 42 176 # +;
#X obj 48 260 #finished;
#X text 88 17 Dim[rows \, columns \, {height}];
#X text 293 262 vertical falling;
#X obj 106 336 # div 5;
#X obj 102 148 # div 5;
#X obj 46 336 # +;
#X obj 103 307 # div 5;
#X text 101 392 Dim[rows \, columns \, {height}];
#X obj 47 17 inlet;
#X obj 162 149 #convolve (1 2 # 1 1) \, fold inv+ \, seed -3;
#X obj 166 177 #convolve (1 3 # 1 1 0) \, fold inv+ \, seed -3;
#X obj 170 305 #convolve (2 1 # 1 1) \, fold inv+ \, seed -3;
#X obj 171 335 #convolve (3 1 # 1 1 0) \, fold inv+ \, seed -3;
#X connect 0 0 10 1;
#X connect 2 0 6 0;
#X connect 3 0 9 0;
#X connect 3 1 2 1;
#X connect 3 1 20 0;
#X connect 3 1 21 0;
#X connect 4 0 11 0;
#X connect 4 1 8 1;
#X connect 4 1 22 0;
#X connect 4 1 23 0;
#X connect 6 0 10 0;
#X connect 7 0 16 0;
#X connect 8 0 7 0;
#X connect 9 0 2 0;
#X connect 10 0 4 0;
#X connect 11 0 8 0;
#X connect 14 0 16 1;
#X connect 15 0 6 1;
#X connect 16 0 5 0;
#X connect 17 0 7 1;
#X connect 19 0 3 0;
#X connect 20 0 15 0;
#X connect 21 0 0 0;
#X connect 22 0 17 0;
#X connect 23 0 14 0;
#X restore 292 238 pd falling sand ( 2 );
#N canvas 525 58 536 584 finger 0;
#X obj 192 7 inlet;
#X obj 36 78 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 63 267 # / 20;
#X obj 74 327 # *;
#X obj 12 436 #store;
#X obj 14 18 inlet;
#X obj 73 309 #redim ( 64 64 1 );
#X obj 279 51 loadbang;
#X obj 13 38 fork;
#X obj 63 247 #fold +;
#X text 22 159 "dig" the sphere into the sand;
#X text 240 104 compute a halfsphere;
#X obj 192 29 # - 32;
#X obj 63 225 #ravel;
#N canvas 1 58 415 284 make 0;
#X obj 28 129 #fold +;
#X obj 28 66 # -;
#X obj 28 108 @! sq;
#X obj 28 45 #for ( -32 -32 ) ( 32 32 ) ( 1 1 );
#X obj 28 171 outlet;
#X obj 28 87 # << 2;
#X obj 28 150 @! sqrt;
#X text 63 21 bang;
#X obj 27 20 inlet;
#X text 98 92 make distance map;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X connect 8 0 3 0;
#X restore 259 74 pd make distance map with center 32;
#X obj 12 480 outlet;
#X obj 260 53 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 83 293 find out how high the compensation torus should be;
#X obj 73 349 # div 256;
#X obj 36 58 route grid;
#X obj 12 417 #finished;
#X obj 13 206 t a a;
#N canvas 669 471 315 202 halfsphere 0;
#X obj 45 19 inlet distancemap;
#X obj 45 143 outlet image;
#X obj 46 102 @! sqrt;
#X obj 46 122 #outer ignore ( 0 );
#X obj 46 62 # inv+ 200;
#X text 121 63 16 * radius^2;
#X obj 46 41 @! sq;
#X obj 46 82 # max 0;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 6 0 4 0;
#X connect 7 0 2 0;
#X restore 126 120 pd halfsphere;
#X obj 13 141 #draw_image - ( 1 1 1 # ) ( 0 0 );
#X obj 12 457 #draw_image - ( 1 1 1 # ) ( 0 0 );
#N canvas 0 0 323 279 torus 0;
#X obj 59 26 inlet;
#X obj 56 185 outlet;
#X obj 57 97 # inv+ 200;
#X obj 57 76 @! sq;
#X text 102 54 toroidal radius;
#X obj 57 162 #outer ignore ( 0 );
#X obj 56 120 # max 0;
#X text 138 99 16*radius^2;
#X obj 57 141 @! sqrt;
#X obj 57 56 # - 20;
#X connect 0 0 9 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 5 0 1 0;
#X connect 6 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 296 346 pd torus;
#X text 65 475 put extra sand as a ring around the hole;
#X connect 0 0 12 0;
#X connect 1 0 16 0;
#X connect 2 0 6 0;
#X connect 3 0 18 0;
#X connect 4 0 24 0;
#X connect 5 0 8 0;
#X connect 6 0 3 0;
#X connect 7 0 14 0;
#X connect 8 0 23 0;
#X connect 8 1 19 0;
#X connect 9 0 2 0;
#X connect 12 0 23 2;
#X connect 12 0 24 2;
#X connect 13 0 9 0;
#X connect 14 0 22 0;
#X connect 14 0 25 0;
#X connect 16 0 14 0;
#X connect 18 0 24 1;
#X connect 19 0 1 0;
#X connect 20 0 4 0;
#X connect 21 0 20 0;
#X connect 21 1 13 0;
#X connect 21 1 4 1;
#X connect 22 0 23 1;
#X connect 23 0 21 0;
#X connect 24 0 15 0;
#X connect 25 0 3 1;
#X restore 290 152 pd finger;
#X obj 342 376 # -;
#X obj 356 425 #ravel;
#X msg 3 118 240 320;
#X obj 432 391 #fold +;
#X obj 6 328 # + 128;
#X obj 148 476 #greyscale_to_rgb;
#X obj 303 134 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
1;
#X text 362 263 enable stats;
#X text 292 529 checking for conservation of amounts of sand;
#X msg 3 212 \$1 \$2 1 # 0;
#X text 33 159 set size / reset;
#N canvas 56 229 441 265 lighting 0;
#X obj 27 209 outlet;
#X obj 27 180 # +;
#X obj 17 9 inlet;
#X obj 99 142 #convolve ( 2 1 # 1 1 ) \, op inv+;
#X obj 100 65 #convolve ( 1 2 # 1 1 ) \, op inv+;
#X obj 103 39 r size;
#X obj 27 39 #redim ( );
#X obj 27 79 #finished;
#X obj 27 120 #store;
#X obj 25 149 # + 128;
#X obj 27 59 t a a;
#X text 163 47 colourize the horizontal differences;
#X text 113 123 colourize the vertical differences;
#X obj 100 86 #outer & ( -1 0 0 );
#X obj 99 164 #outer & ( -1 -1 0 );
#X connect 1 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 14 0;
#X connect 4 0 13 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 10 0 7 0;
#X connect 10 1 4 0;
#X connect 10 1 3 0;
#X connect 13 0 8 1;
#X connect 14 0 1 1;
#X restore 151 355 pd lighting;
#X obj 6 518 fps detailed;
#X obj 344 262 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
1;
#X text 152 26 step;
#X obj 71 253 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -241291 -1
-1 0;
#X obj 6 486 #out window;
#X obj 295 508 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10
-262144 -1 -1 0 256;
#X obj 356 508 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10
-262144 -1 -1 0 256;
#X obj 432 508 nbx 8 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10
-262144 -1 -1 0 256;
#X text 90 268 differential;
#X text 89 253 heightmap;
#X text 89 284 topographic;
#X obj 152 68 t a a;
#X obj 247 260 t a a;
#X obj 149 457 # * 255;
#X obj 150 437 # >= 6;
#X obj 150 416 # & 7;
#X obj 2 97 loadbang;
#X text 470 112 disable finger;
#X obj 332 354 t a a;
#X obj 6 309 # << 2;
#X obj 151 334 # << 4;
#X obj 192 -8 metro 20;
#X obj -15 569 cnv 15 680 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text -7 576 GridFlow 0.8.0;
#X text -7 576 GridFlow 0.8.0;
#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 sand.pd;
#X connect 1 0 14 0;
#X connect 2 0 45 0;
#X connect 2 1 16 0;
#X connect 3 0 12 0;
#X connect 4 0 24 0;
#X connect 6 0 69 0;
#X connect 7 0 53 0;
#X connect 8 0 9 0;
#X connect 9 0 15 0;
#X connect 9 1 35 0;
#X connect 10 0 11 0;
#X connect 10 1 25 0;
#X connect 11 0 35 1;
#X connect 12 0 17 0;
#X connect 13 0 2 0;
#X connect 14 0 29 0;
#X connect 15 0 28 0;
#X connect 15 1 60 0;
#X connect 17 0 7 0;
#X connect 18 0 25 1;
#X connect 19 0 37 0;
#X connect 20 0 55 0;
#X connect 21 0 39 0;
#X connect 22 1 21 0;
#X connect 22 1 66 0;
#X connect 23 0 15 1;
#X connect 24 0 54 0;
#X connect 25 0 9 1;
#X connect 26 0 1 0;
#X connect 27 0 10 0;
#X connect 28 0 60 0;
#X connect 29 0 52 0;
#X connect 30 0 67 0;
#X connect 30 1 68 0;
#X connect 30 2 63 0;
#X connect 32 0 8 0;
#X connect 34 0 60 0;
#X connect 35 0 15 0;
#X connect 36 0 19 0;
#X connect 36 0 3 0;
#X connect 37 0 4 0;
#X connect 38 0 2 0;
#X connect 39 0 20 0;
#X connect 40 0 26 0;
#X connect 41 0 29 0;
#X connect 42 0 9 1;
#X connect 45 0 59 0;
#X connect 47 0 1 0;
#X connect 48 0 31 0;
#X connect 49 0 22 1;
#X connect 51 0 30 1;
#X connect 52 0 48 0;
#X connect 52 0 5 0;
#X connect 59 0 30 0;
#X connect 59 1 8 1;
#X connect 60 0 59 0;
#X connect 60 1 22 0;
#X connect 61 0 41 0;
#X connect 62 0 61 0;
#X connect 63 0 62 0;
#X connect 64 0 38 0;
#X connect 66 0 36 1;
#X connect 66 1 36 0;
#X connect 67 0 40 0;
#X connect 68 0 47 0;
#X connect 69 0 8 0;