aboutsummaryrefslogtreecommitdiff
path: root/examples/30_falling_aglom.pd
blob: f844b8b5d4e146ec8fd7cc3c6754e5eea874466a (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
#N canvas 49 91 632 373 10;
#X declare -lib Gem;
#X obj 18 137 t b b;
#X obj 18 48 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X msg 146 95 0 \, destroy;
#X obj 111 123 gemwin;
#X obj 18 337 s mass;
#X text 359 227 <- right border;
#X text 360 249 <- left border;
#X text 357 307 <- top border;
#X text 358 276 <- bottom border;
#N canvas 527 17 819 225 pool 0;
#X obj 320 120 aglom3 0 11;
#X obj 160 0 aglom3 -2 5;
#X obj 0 0 aglom3 -4 5;
#X obj 80 0 aglom3 -3 5;
#X obj 240 0 aglom3 -1 5;
#X obj 320 0 aglom3 0 5;
#X obj 400 0 aglom3 1 5;
#X obj 480 0 aglom3 2 5;
#X obj 560 0 aglom3 3 5;
#X obj 640 0 aglom3 4 5;
#X obj 0 20 aglom3 -4 6;
#X obj 80 20 aglom3 -3 6;
#X obj 160 20 aglom3 -2 6;
#X obj 240 20 aglom3 -1 6;
#X obj 320 20 aglom3 0 6;
#X obj 400 20 aglom3 1 6;
#X obj 480 20 aglom3 2 6;
#X obj 560 20 aglom3 3 6;
#X obj 640 20 aglom3 4 6;
#X obj 0 40 aglom3 -4 7;
#X obj 80 40 aglom3 -3 7;
#X obj 160 40 aglom3 -2 7;
#X obj 240 40 aglom3 -1 7;
#X obj 320 40 aglom3 0 7;
#X obj 400 40 aglom3 1 7;
#X obj 480 40 aglom3 2 7;
#X obj 560 40 aglom3 3 7;
#X obj 640 40 aglom3 4 7;
#X obj 0 60 aglom3 -4 8;
#X obj 80 60 aglom3 -3 8;
#X obj 160 60 aglom3 -2 8;
#X obj 240 60 aglom3 -1 8;
#X obj 320 60 aglom3 0 8;
#X obj 400 60 aglom3 1 8;
#X obj 480 60 aglom3 2 8;
#X obj 560 60 aglom3 3 8;
#X obj 640 60 aglom3 4 8;
#X obj 0 80 aglom3 -4 9;
#X obj 80 80 aglom3 -3 9;
#X obj 160 80 aglom3 -2 9;
#X obj 240 80 aglom3 -1 9;
#X obj 320 80 aglom3 0 9;
#X obj 400 80 aglom3 1 9;
#X obj 480 80 aglom3 2 9;
#X obj 560 80 aglom3 3 9;
#X obj 640 80 aglom3 4 9;
#X obj 0 100 aglom3 -4 10;
#X obj 80 100 aglom3 -3 10;
#X obj 160 100 aglom3 -2 10;
#X obj 240 100 aglom3 -1 10;
#X obj 320 100 aglom3 0 10;
#X obj 400 100 aglom3 1 10;
#X obj 480 100 aglom3 2 10;
#X obj 560 100 aglom3 3 10;
#X obj 640 100 aglom3 4 10;
#X obj 0 120 aglom3 -4 11;
#X obj 80 120 aglom3 -3 11;
#X obj 160 120 aglom3 -2 11;
#X obj 240 120 aglom3 -1 11;
#X obj 400 120 aglom3 1 11;
#X obj 480 120 aglom3 2 11;
#X obj 560 120 aglom3 3 11;
#X obj 640 120 aglom3 4 11;
#X restore 398 78 pd pool;
#N canvas 860 482 321 415 creation 0;
#X obj 46 380 s pd-new;
#X msg 86 95 \; pd filename new ./ \; #N canvas \; #X pop 1 \;;
#X msg 46 350 menuclose;
#X obj 43 47 sel 0 1;
#X obj 43 29 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 61 72 t b b;
#X msg 79 325 obj \$1 \$2 aglom3 \$3 \$4;
#X obj 79 299 pack f f f f;
#X obj 171 259 + 5;
#X obj 70 228 t f f;
#X obj 107 272 * 20;
#X obj 81 272 * 80;
#X obj 140 240 / 1;
#X obj 171 237 / 1;
#X obj 143 263 - 4;
#X obj 61 163 ch_uzi 8;
#X obj 60 203 ch_uzi 9;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 3 1 5 0;
#X connect 4 0 3 0;
#X connect 5 0 15 0;
#X connect 5 1 1 0;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 7 3;
#X connect 9 0 11 0;
#X connect 9 1 12 0;
#X connect 10 0 7 1;
#X connect 11 0 7 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 14 0 7 2;
#X connect 15 0 16 0;
#X connect 15 1 10 0;
#X connect 15 1 13 0;
#X connect 16 1 9 0;
#X restore 398 104 pd creation pool;
#X obj 61 160 s link;
#X obj 18 100 metro 5;
#X obj 53 226 iLine2D mass 3.5 -3.5 3.5 3.5 1000 0 0 10;
#X obj 63 250 iLine2D mass -3.5 3.5 -3.5 -3.5 1000 0 0 10;
#X text 50 45 <- begin (change the metro speed for slow computer);
#X floatatom 55 69 5 0 0 0 - - -;
#X text 359 203 <- give random speed and ambient viscosity;
#X msg 243 98 reset;
#X obj 244 120 s mass;
#N canvas 828 304 454 304 line 0;
#X obj 62 28 gemhead;
#X obj 60 82 curve 2;
#X msg 136 58 5 8 0;
#X obj 57 135 gemhead;
#X obj 55 189 curve 2;
#X msg 132 165 -5 8 0;
#X obj 162 21 loadbang;
#X msg 79 55 0.2 3 0;
#X msg 74 162 -0.2 3 0;
#X connect 0 0 1 0;
#X connect 2 0 1 2;
#X connect 3 0 4 0;
#X connect 5 0 4 2;
#X connect 6 0 7 0;
#X connect 6 0 2 0;
#X connect 6 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 1 1;
#X connect 8 0 4 1;
#X restore 398 131 pd line gem;
#X obj 77 272 iLine2D mass -3.5 -7.5 3.5 -7.5 1000 0 0 10;
#X obj 90 195 iAmbient2D mass 0 -0.0015 0 0 0.4;
#X obj 160 317 iSeg2D mass -5 8 -0.2 3 1 0.5;
#X obj 165 298 iSeg2D mass 0.2 3 5 8 1 0.5;
#X msg 111 70 reset \, view 0 0 -8 0 0 0 0 1 0 \, create \, 1;
#X text 208 25 It's the same as previus exemple \, but in a gravity
field.;
#X obj 13 2 declare -lib Gem;
#X connect 0 0 4 0;
#X connect 0 1 11 0;
#X connect 0 1 13 0;
#X connect 0 1 14 0;
#X connect 0 1 21 0;
#X connect 0 1 22 0;
#X connect 0 1 23 0;
#X connect 0 1 24 0;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 12 0 0 0;
#X connect 16 0 12 1;
#X connect 18 0 19 0;
#X connect 25 0 3 0;