aboutsummaryrefslogtreecommitdiff
path: root/swatch-gui.pd
blob: 30f41cc12c52182613cd3d9da346bd0a1780e39d (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
#N canvas 69 167 450 300 10;
#X obj 150 53 image /home/jmmmp/elektronik/pd-jmp/jmmmp-ext/svn/jmmmp/examples/rgb.ppm
;
#N canvas 580 67 474 761 inside 0;
#N canvas 400 377 705 549 selector-data 0;
#X obj 203 53 route change click;
#X obj 222 83 unpack p f;
#X obj 119 25 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 9 59 t b b;
#X obj 64 130 pointer;
#X msg 64 110 traverse \$1 \, bang;
#X obj 222 333 t p p p p;
#X obj 222 403 list-add;
#X obj 222 363 get \$0-rgb-sel p0x;
#X msg 347 363 -8 0 8;
#X msg 222 383 \$1 \$1 \$1;
#X obj 222 423 set \$0-rgb-sel p1x p2x p3x;
#X obj 256 493 list-add;
#X msg 256 473 \$1 \$1 \$1;
#X obj 256 453 get \$0-rgb-sel p0y;
#X obj 256 513 set \$0-rgb-sel p1y p2y p3y;
#X text 378 104 drawcurve 0 2 -8 0 0 8 8 0 0 -8 -8 0;
#X obj 239 183 t p p p p;
#X obj 273 263 get \$0-rgb-sel p0y;
#X obj 273 303 set \$0-rgb-sel p0y.;
#X obj 256 153 outlet;
#X obj 273 283 + 0;
#X obj 239 223 + 0;
#X obj 352 63 drawpolygon 0 1 0 0 259 0 259 66 0 66 0 0;
#X obj 352 83 drawpolygon 0 2 p0x(0:258) p0y(0:65) p0x. p0y.;
#X obj 352 123 drawcurve 0 2 p1x p2y p2x p3y p3x p2y p2x p1y p1x p2y
;
#X obj 64 90 symbol \$0-swatch;
#X obj 9 9 loadbang;
#X obj 203 7 struct \$0-rgb-sel float x float y float p1x float p1y
float p2x float p2y float p3x float p3y float p4x float p4y float p5x
float p5y float p0x float p0y float p0x. float p0y.;
#X obj 9 160 append \$0-rgb-sel x y;
#X obj 239 203 get \$0-rgb-sel p0x;
#X obj 239 243 set \$0-rgb-sel p0x.;
#X msg 9 140 10 10;
#X obj 482 342 pointer;
#X obj 509 302 set \$0-rgb-sel p0x p0y;
#X obj 222 113 t p p p p;
#X obj 521 322 t p p;
#X msg 496 260 \$1 \$2;
#X obj 482 282 t b l;
#X text 443 213 mecanismo para gravar posicoes;
#X obj 473 239 r \$0-list-speicher;
#X obj 9 29 t b b;
#X connect 0 0 1 0;
#X connect 0 1 1 0;
#X connect 1 0 35 0;
#X connect 2 0 3 0;
#X connect 3 0 32 0;
#X connect 3 1 26 0;
#X connect 4 0 29 2;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 6 1 11 3;
#X connect 6 2 14 0;
#X connect 6 3 15 3;
#X connect 7 0 11 0;
#X connect 8 0 10 0;
#X connect 9 0 7 1;
#X connect 9 0 12 1;
#X connect 10 0 7 0;
#X connect 12 0 15 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 17 0 30 0;
#X connect 17 1 31 1;
#X connect 17 2 18 0;
#X connect 17 3 19 1;
#X connect 18 0 21 0;
#X connect 21 0 19 0;
#X connect 22 0 31 0;
#X connect 26 0 5 0;
#X connect 27 0 41 0;
#X connect 28 0 0 0;
#X connect 29 0 35 0;
#X connect 30 0 22 0;
#X connect 32 0 29 0;
#X connect 33 0 35 0;
#X connect 35 0 6 0;
#X connect 35 1 17 0;
#X connect 35 2 20 0;
#X connect 35 3 36 0;
#X connect 36 0 33 1;
#X connect 36 1 34 2;
#X connect 37 0 38 0;
#X connect 38 0 33 0;
#X connect 38 1 34 0;
#X connect 40 0 38 0;
#X connect 41 0 3 0;
#X connect 41 1 9 0;
#X restore 82 11 pd selector-data;
#X obj 82 31 get \$0-rgb-sel p0x p0y;
#X obj 82 151 tabread \$0-table;
#X obj 101 171 tabread \$0-table;
#X obj 82 51 t f f f;
#X msg 173 567 \$1 \$2 \$3;
#X obj 82 201 pack f f f;
#X obj 121 111 tabread \$0-table;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-table 258 float 1;
#A 0 0 0.0232558 0.0465116 0.0697674 0.0930233 0.116279 0.139535 0.162791
0.186047 0.209302 0.232558 0.255814 0.27907 0.302326 0.325581 0.348837
0.372093 0.395349 0.418605 0.44186 0.465116 0.488372 0.511628 0.534884
0.55814 0.581395 0.604651 0.627907 0.651163 0.674419 0.697674 0.72093
0.744186 0.767442 0.790698 0.813954 0.837209 0.860465 0.883721 0.906977
0.930233 0.953488 0.976744 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0.976744
0.953488 0.930233 0.906977 0.883721 0.860465 0.837209 0.813954 0.790698
0.767442 0.744186 0.72093 0.697674 0.674419 0.651163 0.627907 0.604651
0.581395 0.55814 0.534884 0.511628 0.488372 0.465116 0.44186 0.418605
0.395349 0.372093 0.348837 0.325581 0.302326 0.27907 0.255814 0.232558
0.209302 0.186046 0.162791 0.139535 0.116279 0.0930232 0.0697674 0.0465117
0.0232558 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 257 0 258 50 1;
#X restore 202 359 graph;
#X text 217 426 43 por cada segmento;
#X text 209 411 0 0 \, 1 43 \, 1 129 \, 0 172 \, 0 258;
#X obj 82 111 + 86;
#X obj 82 131 zexy/wrap 257;
#X obj 121 91 zexy/wrap 257;
#X obj 121 71 + 172;
#X obj 173 647 outlet;
#X obj 233 90 moses 0;
#X obj 233 70 expr $f1-33;
#X obj 272 110 expr 1-$f1/32;
#X obj 173 281 list-mult;
#X msg 224 261 \$1 \$1 \$1;
#X text 360 107 opacidade;
#X obj 173 527 list-mult;
#X msg 224 507 255 255 255;
#X obj 173 547 l2i;
#X obj 224 487 loadbang;
#X obj 173 587 expr ($f1*(-65536)+$f2*(-256)+$f3*(-1))-1;
#X text 206 317 converter entradas rgb e iem;
#X text 362 151 brilho;
#X obj 82 251 demux 0 1;
#X obj 272 130 t b f;
#X obj 233 170 t b f;
#X obj 113 231 0;
#X obj 143 231 1;
#X obj 12 281 unpack f f f;
#X obj 12 311 pack f f 0 1;
#X obj 12 331 list-rot 1;
#X obj 233 150 expr ($f1+1)/32*(-1);
#X obj 12 351 maxlib/scale 0 1 0 1;
#X obj 12 491 pack f f f;
#X obj 46 371 pack f f 0 1;
#X obj 46 391 list-rot 1;
#X obj 46 411 maxlib/scale 0 1 0 1;
#X obj 102 281 t f f f;
#X obj 81 431 pack f f 0 1;
#X obj 81 451 list-rot 1;
#X obj 81 471 maxlib/scale 0 1 0 1;
#X obj 342 34 inlet;
#N canvas 0 0 376 407 license 0;
#X text 8 47 All rights reserved.;
#X text 8 227 The names of its contributors may not be used to endorse
or promote products derived from this software without specific prior
written permission.;
#X text 8 87 Redistribution and use in source and binary forms \, with
or without modification \, are permitted provided that the following
conditions are met:;
#X text 8 127 Redistributions of source code must retain the above
copyright notice \, this list of conditions and the following disclaimer.
;
#X text 8 297 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES \, INCLUDING
\, BUT NOT LIMITED TO \, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT \, INDIRECT
\, INCIDENTAL \, SPECIAL \, EXEMPLARY \, OR CONSEQUENTIAL DAMAGES (INCLUDING
\, BUT NOT LIMITED TO \, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES
;
#X text 8 167 Redistributions in binary form must reproduce the above
copyright notice \, this list of conditions and the following disclaimer
in the documentation and/or other materials provided with the distribution.
;
#X text 8 27 jmmmpais@googlemail.com;
#X text 8 7 Copyright 2010 \, Joćo Pais;
#X restore 15 742 pd license;
#X text 14 723 (C) 2010 Joćo Pais - jmmmpais@googlemail.com;
#X obj 143 697 outlet;
#N canvas 874 158 450 429 rgb-speicher 0;
#X obj 281 229 route back front label;
#X obj 350 49 sel 0 1 2;
#X msg 350 89 back;
#X msg 374 129 front;
#X msg 368 169 label;
#X obj 281 189 list prepend;
#X obj 281 209 list trim;
#X obj 260 259 list;
#X obj 303 259 list;
#X obj 346 259 list;
#X obj 350 69 t b b;
#X obj 367 109 t b b;
#X obj 384 149 t b b;
#X obj 350 29 r \$0-lab;
#X obj 21 359 outlet;
#X msg 21 339 color \$1 \$2 \$3;
#X obj 21 179 route back front label;
#X obj 90 59 sel 0 1 2;
#X msg 90 79 back;
#X msg 107 99 front;
#X msg 124 119 label;
#X obj 21 139 list prepend;
#X obj 21 159 list trim;
#X msg 64 239 color \$1;
#X msg 117 199 color \$1;
#X obj 117 219 s \$0-cnv-label;
#X msg 31 199 color \$1;
#X obj 31 219 s \$0-cnv-back;
#X obj 64 259 s \$0-cnv-front;
#X obj 35 289 t b f;
#X obj 77 289 t b f;
#X obj 21 319 pack f f f;
#X obj 90 39 r \$0-lab;
#X obj 21 99 inlet;
#X text 27 12 color Befehl;
#X obj 281 149 inlet;
#X text 232 104 swatch speicher;
#X obj 260 289 s \$0-list-speicher;
#X msg 295 342 134 33;
#X obj 350 356 loadbang;
#X connect 0 0 7 1;
#X connect 0 1 8 1;
#X connect 0 2 9 1;
#X connect 1 0 10 0;
#X connect 1 1 11 0;
#X connect 1 2 12 0;
#X connect 2 0 5 1;
#X connect 3 0 5 1;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 37 0;
#X connect 8 0 37 0;
#X connect 9 0 37 0;
#X connect 10 0 2 0;
#X connect 10 1 7 0;
#X connect 11 0 3 0;
#X connect 11 1 8 0;
#X connect 12 0 4 0;
#X connect 12 1 9 0;
#X connect 13 0 1 0;
#X connect 15 0 14 0;
#X connect 16 0 26 0;
#X connect 16 0 31 0;
#X connect 16 1 23 0;
#X connect 16 1 29 0;
#X connect 16 2 24 0;
#X connect 16 2 30 0;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 17 2 20 0;
#X connect 18 0 21 1;
#X connect 19 0 21 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 22 0 16 0;
#X connect 23 0 28 0;
#X connect 24 0 25 0;
#X connect 26 0 27 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 31 0;
#X connect 30 1 31 2;
#X connect 31 0 15 0;
#X connect 32 0 17 0;
#X connect 33 0 21 0;
#X connect 35 0 5 0;
#X connect 38 0 7 1;
#X connect 38 0 8 1;
#X connect 38 0 9 1;
#X connect 39 0 38 0;
#X restore 143 677 pd rgb-speicher;
#X obj 193 627 s \$0-cnv;
#X msg 193 607 color \$1;
#X text 242 234 FALTA MECANISMO PARA GRAVAR POSICOES;
#X obj 253 648 pack f f;
#X text 208 204 HA UM ERRO COM A MEMORIA. O VALOR INICIAL Č ENVIADO
PARA CADA LISTA;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 17 0;
#X connect 1 1 55 1;
#X connect 2 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 11 0;
#X connect 4 1 3 0;
#X connect 4 2 14 0;
#X connect 4 2 55 0;
#X connect 5 0 26 0;
#X connect 6 0 29 0;
#X connect 7 0 6 2;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X connect 13 0 7 0;
#X connect 14 0 13 0;
#X connect 16 0 37 0;
#X connect 16 1 18 0;
#X connect 17 0 16 0;
#X connect 18 0 30 0;
#X connect 19 0 22 0;
#X connect 20 0 19 1;
#X connect 22 0 24 0;
#X connect 23 0 22 1;
#X connect 24 0 5 0;
#X connect 25 0 23 0;
#X connect 26 0 15 0;
#X connect 26 0 53 0;
#X connect 26 0 51 0;
#X connect 29 0 34 0;
#X connect 29 1 19 0;
#X connect 30 0 33 0;
#X connect 30 1 20 0;
#X connect 31 0 32 0;
#X connect 31 1 43 0;
#X connect 32 0 29 1;
#X connect 33 0 29 1;
#X connect 34 0 35 0;
#X connect 34 1 40 0;
#X connect 34 2 44 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 31 0;
#X connect 38 0 39 0;
#X connect 39 0 22 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 39 1;
#X connect 43 0 35 1;
#X connect 43 1 40 1;
#X connect 43 2 44 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 39 2;
#X connect 51 0 50 0;
#X connect 53 0 52 0;
#X connect 55 0 51 1;
#X restore 10 211 pd inside;
#X obj 10 231 outlet;
#X obj 10 261 namecanvas \$0-swatch;
#X obj 10 191 inlet;
#X obj 80 92 cnv 34 34 34 empty \$0-cnv empty 20 12 0 14 -1124 -262144
0;
#X obj 141 91 vradio 12 1 0 3 \$0-lab \$0-lab-i empty 0 -8 0 10 -228856
-1 -1 2;
#X text 156 88 Background;
#X text 156 100 Front;
#X text 156 112 Label;
#X obj 128 92 cnv 10 10 10 empty \$0-cnv-back empty 20 12 0 14 -76865
-262144 0;
#X obj 128 104 cnv 10 10 10 empty \$0-cnv-front empty 20 12 0 14 -261497
-262144 0;
#X obj 128 116 cnv 10 10 10 empty \$0-cnv-label empty 20 12 0 14 -1124
-262144 0;
#X obj 141 201 init 0;
#X obj 61 231 outlet;
#X obj 227 230 getdir;
#X obj 227 210 loadbang;
#X msg 227 250 open \$1/examples/rgb.ppm;
#X connect 1 0 2 0;
#X connect 1 1 14 0;
#X connect 4 0 1 0;
#X connect 13 0 6 0;
#X connect 15 0 17 0;
#X connect 16 0 15 0;
#X connect 17 0 0 0;
#X coords 0 0 279 122 279 122 2 10 10;