aboutsummaryrefslogtreecommitdiff
path: root/pmcloud_2d.pd
blob: 242a7318faa7c95e56844d38e16709558c597d85 (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
#N canvas 605 196 743 397 10;
#X obj 45 9 inlet;
#X obj 42 350 outlet;
#X obj 643 48 inlet;
#X msg 643 95 setK lnk \$1;
#X obj 736 49 inlet;
#X obj 554 44 inlet;
#X obj 42 278 msd2D;
#N canvas 801 117 639 733 create_clouds 0;
#X obj 70 30 loadbang;
#X obj 175 649 t a;
#X obj 173 677 outlet;
#X obj 32 50 t b b b b b b;
#N canvas 0 0 259 330 loop 0;
#X obj 74 149 f;
#X obj 74 213 + 1;
#X obj 74 171 moses \$1;
#X obj 74 104 t b f;
#X obj 104 281 outlet;
#X obj 74 82 inlet;
#X msg 74 126 0;
#X obj 74 191 t f f;
#X obj 96 240 t f;
#X connect 0 0 2 0;
#X connect 1 0 8 0;
#X connect 2 0 7 0;
#X connect 3 0 6 0;
#X connect 3 1 2 1;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 7 1 4 0;
#X connect 8 0 0 0;
#X restore 85 126 pd loop;
#X obj 85 103 \$1;
#X obj 145 229 random 1000;
#X obj 145 253 / 1000;
#X msg 145 312 mass cloud 1 1 \$1 \$2;
#X obj 274 230 random 1000;
#X obj 274 254 / 1000;
#X obj 145 283 pack f f;
#X msg 126 419 link lnk cloud in \$1 0;
#X msg 175 94 reset \, mass in 0 1 0 0 \, mass fixe 0 0 0 0;
#X msg 89 471 link lnk cloud cloud \$1 0;
#X obj 126 391 \$2;
#X obj 85 446 \$2;
#X obj 48 421 \$3;
#X obj 274 179 * 243354;
#X obj 145 177 * 654543;
#X msg 85 156 bang;
#X msg 145 201 seed \$1;
#X msg 274 202 seed \$1;
#X obj 145 145 \$1;
#X obj 39 12 inlet;
#X msg 48 504 tLink damp fixe cloud 0 \$1 0 1 \, tLink damp fixe cloud
0 \$1 1 0;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 1 16 0;
#X connect 3 1 17 0;
#X connect 3 2 15 0;
#X connect 3 3 5 0;
#X connect 3 4 13 0;
#X connect 3 5 23 0;
#X connect 4 0 20 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 11 0;
#X connect 8 0 1 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 11 0 8 0;
#X connect 12 0 1 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 16 0 14 0;
#X connect 17 0 25 0;
#X connect 18 0 22 0;
#X connect 19 0 21 0;
#X connect 20 0 6 0;
#X connect 20 0 9 0;
#X connect 21 0 6 0;
#X connect 22 0 9 0;
#X connect 23 0 19 0;
#X connect 23 0 18 0;
#X connect 24 0 3 0;
#X connect 25 0 1 0;
#X restore 46 169 pd create_clouds;
#X obj 91 69 unpack f f;
#X msg 346 141 posY in \$1;
#X obj 42 300 route massesPosId;
#X obj 42 324 route cloud;
#X obj 282 98 unpack f f;
#X msg 282 121 posX in \$1;
#X msg 736 95 setD damp \$1;
#X msg 555 95 setL lnk \$1;
#X msg 251 75 bang \, get massesPos cloud;
#X obj 68 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 91 96 forceX cloud \$1;
#X msg 155 119 forceY cloud \$1;
#X obj 46 30 route reset force forceX forceY bang;
#X connect 0 0 20 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 14 0;
#X connect 5 0 15 0;
#X connect 6 0 10 0;
#X connect 7 0 6 0;
#X connect 8 0 18 0;
#X connect 8 1 19 0;
#X connect 9 0 6 0;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 12 1 9 0;
#X connect 13 0 6 0;
#X connect 14 0 6 0;
#X connect 15 0 6 0;
#X connect 16 0 6 0;
#X connect 17 0 7 0;
#X connect 18 0 6 0;
#X connect 19 0 6 0;
#X connect 20 0 7 0;
#X connect 20 1 8 0;
#X connect 20 2 18 0;
#X connect 20 3 19 0;
#X connect 20 4 16 0;
#X connect 20 5 12 0;