aboutsummaryrefslogtreecommitdiff
path: root/Gem/examples/02.advanced/20.double-gemhead_vs_repeat.pd
blob: 364f00273356641cddd5e25d48bc7b2711718103 (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
#N canvas 265 100 742 519 10;
#X obj 93 144 gemhead;
#X obj 93 205 b;
#X obj 93 124 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 93 336 gemhead;
#X msg 25 305 0;
#X obj 25 285 loadbang;
#X obj 93 260 t b a;
#X obj 156 336 unpack 0 0 0;
#X obj 93 385 translateXYZ 0 -2 0;
#X msg 93 225 0 -2 0 \, 0 2 0;
#X text 203 225 two messages in one;
#X text 151 144 [gemhead]-"metro";
#X obj 93 426 circle 0.2;
#X text 40 25 the "double [gemhead] idiom" vs. [repeat];
#X obj 438 146 gemhead;
#X obj 438 128 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 479 375 unpack 0 0 0;
#X text 525 206 two messages in one;
#X obj 438 425 square 0.2;
#X obj 479 307 select 0 1;
#X obj 479 284 f;
#X obj 438 404 translateXYZ 0 0 0;
#X obj 354 341 loadbang;
#X msg 354 368 draw line;
#X obj 438 206 t a a b;
#X obj 438 229 separator;
#X obj 438 257 t a b;
#X msg 497 259 0;
#X msg 479 328 0 -2 0;
#X msg 511 348 0 2 0;
#X obj 508 284 + 1;
#X text 258 65 The gemhead object resets the states for OpenGL and
also some pix_ settings. Anything after it is starts as a clean state
similar to combining [separator] and [pix_separator]. (cc);
#N canvas 220 0 701 555 more_on_the_"repeat"_technics 0;
#X obj 21 54 gemhead;
#X obj 21 281 separator;
#X obj 21 128 t a b;
#X msg 118 270 seed 1;
#X obj 21 445 translateXYZ;
#X obj 21 470 circle 0.1;
#X obj 118 354 random 200;
#X obj 199 354 random 200;
#X obj 118 376 - 100;
#X obj 199 377 - 100;
#X obj 199 398 / 30;
#X obj 118 397 / 30;
#X msg 199 270 seed 2;
#X obj 21 310 t a b b;
#X obj 118 313 spigot 0;
#X obj 199 312 spigot 0;
#X obj 278 276 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 311 274 <- if you reset the random at the beginning of each
frame \, then all frames look the same.;
#X obj 21 101 scaleXYZ 1 1 1;
#X floatatom 52 80 5 0 0 0 - - -;
#X floatatom 95 80 5 0 0 0 - - -;
#X obj 21 230 gemlist;
#X obj 21 208 until;
#X msg 21 184 100;
#X obj 21 162 t b a;
#X text 23 504 This patch shows how to draw the same primitive with
the a single [gemhead] many times;
#X obj 21 35 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X connect 0 0 18 0;
#X connect 1 0 13 0;
#X connect 2 0 24 0;
#X connect 2 1 3 0;
#X connect 2 1 12 0;
#X connect 3 0 14 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 10 0 4 2;
#X connect 11 0 4 1;
#X connect 12 0 15 0;
#X connect 13 0 4 0;
#X connect 13 1 6 0;
#X connect 13 1 7 0;
#X connect 14 0 6 0;
#X connect 15 0 7 0;
#X connect 16 0 14 1;
#X connect 16 0 15 1;
#X connect 18 0 2 0;
#X connect 19 0 18 1;
#X connect 20 0 18 2;
#X connect 21 0 1 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 23 0;
#X connect 24 1 21 1;
#X connect 26 0 0 0;
#X restore 370 469 pd more_on_the_"repeat"_technics;
#X obj 93 186 translateXYZ;
#X floatatom 120 168 5 0 0 0 - - -;
#X text 168 167 <- fun!;
#X obj 438 187 translateXYZ;
#X floatatom 465 169 5 0 0 0 - - -;
#N canvas 340 107 682 322 gemwin 0;
#X obj 102 122 tgl 15 0 \$0-gemstart \$0-gemstart empty 17 7 0 10 -262144
-1 -1 0 1;
#X obj 102 161 r \$0-gemstart;
#X obj 102 182 select 1 0;
#X msg 102 214 create \, 1;
#X msg 177 215 destroy;
#X obj 102 239 t a;
#X obj 318 54 inlet;
#X obj 318 255 gemwin;
#X obj 318 100 t a a;
#X obj 318 287 outlet;
#X obj 350 128 route create destroy;
#X obj 350 150 t b;
#X msg 350 172 1;
#X obj 390 150 t b;
#X msg 390 172 0;
#X obj 350 195 t f;
#X msg 350 219 set \$1;
#X text 118 122 rendering;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 8 1 10 0;
#X connect 10 0 11 0;
#X connect 10 1 13 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X coords 0 -1 1 1 85 40 1 100 100;
#X restore 53 69 pd gemwin;
#X connect 0 0 33 0;
#X connect 1 0 9 0;
#X connect 2 0 0 0;
#X connect 3 0 8 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 6 1 7 0;
#X connect 7 0 8 1;
#X connect 7 1 8 2;
#X connect 7 2 8 3;
#X connect 8 0 12 0;
#X connect 9 0 6 0;
#X connect 14 0 36 0;
#X connect 15 0 14 0;
#X connect 16 0 21 1;
#X connect 16 1 21 2;
#X connect 16 2 21 3;
#X connect 19 0 28 0;
#X connect 19 1 29 0;
#X connect 20 0 19 0;
#X connect 20 0 30 0;
#X connect 21 0 18 0;
#X connect 22 0 23 0;
#X connect 23 0 18 0;
#X connect 24 0 25 0;
#X connect 24 1 25 0;
#X connect 24 2 27 0;
#X connect 25 0 26 0;
#X connect 26 0 21 0;
#X connect 26 1 20 0;
#X connect 27 0 20 1;
#X connect 28 0 16 0;
#X connect 29 0 16 0;
#X connect 30 0 20 1;
#X connect 33 0 1 0;
#X connect 34 0 33 1;
#X connect 36 0 24 0;
#X connect 37 0 36 1;