#N canvas 302 139 450 314 10; #X obj 150 53 image E:/jmmmp/elektronik/pd-jmp/jmmmp-ext/svn/jmmmp/examples/rgb.ppm ; #N canvas 580 67 575 780 inside 0; #N canvas 187 386 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 92 11 pd selector-data; #X obj 92 31 get \$0-rgb-sel p0x p0y; #X obj 92 151 tabread \$0-table; #X obj 111 171 tabread \$0-table; #X obj 92 51 t f f f; #X msg 183 577 \$1 \$2 \$3; #X obj 92 201 pack f f f; #X obj 131 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 212 359 graph; #X text 227 426 43 por cada segmento; #X text 219 411 0 0 \, 1 43 \, 1 129 \, 0 172 \, 0 258; #X obj 92 111 + 86; #X obj 92 131 zexy/wrap 257; #X obj 131 91 zexy/wrap 257; #X obj 131 71 + 172; #X obj 183 657 outlet; #X obj 243 90 moses 0; #X obj 243 70 expr $f1-33; #X obj 282 110 expr 1-$f1/32; #X obj 183 281 list-mult; #X msg 234 261 \$1 \$1 \$1; #X text 370 107 opacidade; #X obj 183 537 list-mult; #X msg 234 517 255 255 255; #X obj 183 557 l2i; #X obj 234 497 loadbang; #X obj 183 597 expr ($f1*(-65536)+$f2*(-256)+$f3*(-1))-1; #X text 216 317 converter entradas rgb e iem; #X text 372 151 brilho; #X obj 92 251 demux 0 1; #X obj 282 130 t b f; #X obj 243 170 t b f; #X obj 123 231 0; #X obj 153 231 1; #X obj 22 281 unpack f f f; #X obj 22 311 pack f f 0 1; #X obj 22 331 list-rot 1; #X obj 243 150 expr ($f1+1)/32*(-1); #X obj 22 351 maxlib/scale 0 1 0 1; #X obj 22 491 pack f f f; #X obj 56 371 pack f f 0 1; #X obj 56 391 list-rot 1; #X obj 56 411 maxlib/scale 0 1 0 1; #X obj 112 281 t f f f; #X obj 91 431 pack f f 0 1; #X obj 91 451 list-rot 1; #X obj 91 471 maxlib/scale 0 1 0 1; #X obj 352 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 752 pd license; #X obj 163 707 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 163 687 pd rgb-speicher; #X obj 203 637 s \$0-cnv; #X msg 203 617 color \$1; #X text 252 234 FALTA MECANISMO PARA GRAVAR POSICOES; #X obj 273 658 pack f f; #X text 218 204 HA UM ERRO COM A MEMORIA. O VALOR INICIAL Č ENVIADO PARA CADA LISTA; #X obj 183 517 list; #X text 14 733 (C) 2014 Joćo Pais - jmmmpais@googlemail.com; #X obj 53 577 outlet; #N canvas 671 566 538 359 data-struct-conv 0; #X obj 54 198 outlet; #X obj 44 138 pack f f f; #X msg 137 138 symbol; #X obj 20 62 t l b; #X obj 20 82 expr int($f1 * 9) \; int($f2 * 9) \; int($f3 * 9); #X obj 44 178 zexy/symbol2list; #X obj 44 158 zexy/list2symbol; #X text 33 43 data structures format; #X obj 20 22 inlet; #X obj 199 91 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 224 111 t b b; #X obj 279 151 pointer; #X msg 279 131 traverse \$1 \, bang; #X obj 279 111 symbol \$0-swatch; #X obj 224 91 loadbang; #X obj 224 181 append \$0-ds-show x y; #X obj 224 21 struct \$0-ds-show float x float y float colour; #X obj 44 318 set \$0-ds-show colour; #X msg 91 248 traverse \$1 \, bang; #X obj 91 228 symbol \$0-swatch; #X obj 91 268 pointer \$0-ds-show; #X obj 44 228 t f b; #X obj 224 51 filledpolygon colour colour 1 0 0 0 35 32 35 32 0; #X msg 224 161 235 81; #X msg 143 288 next; #X connect 1 0 6 0; #X connect 2 0 6 1; #X connect 3 0 4 0; #X connect 3 1 2 0; #X connect 4 0 1 0; #X connect 4 1 1 1; #X connect 4 2 1 2; #X connect 5 0 0 0; #X connect 5 0 21 0; #X connect 6 0 5 0; #X connect 8 0 3 0; #X connect 9 0 10 0; #X connect 10 0 23 0; #X connect 10 1 13 0; #X connect 11 0 15 2; #X connect 12 0 11 0; #X connect 13 0 12 0; #X connect 14 0 10 0; #X connect 18 0 20 0; #X connect 19 0 18 0; #X connect 20 0 17 1; #X connect 20 1 24 0; #X connect 21 0 17 0; #X connect 21 1 19 0; #X connect 23 0 15 0; #X connect 24 0 20 0; #X restore 53 557 pd data-struct-conv; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 1 1 17 0; #X connect 1 1 54 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 54 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 56 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 52 0; #X connect 26 0 50 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 56 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 50 0 49 0; #X connect 52 0 51 0; #X connect 54 0 50 1; #X connect 56 0 22 0; #X connect 56 0 59 0; #X connect 59 0 58 0; #X restore 10 211 pd inside; #X obj 35 251 outlet; #X obj 10 291 namecanvas \$0-swatch; #X obj 10 191 inlet; #X obj 21 92 cnv 34 34 34 empty \$0-cnv empty 20 12 0 14 -8254 -262144 0; #X obj 82 91 vradio 12 1 0 3 \$0-lab \$0-lab-i empty 0 -8 0 10 -228856 -1 -1 0; #X text 97 88 Background; #X text 97 100 Front; #X text 97 112 Label; #X obj 69 92 cnv 10 10 10 empty \$0-cnv-back empty 20 12 0 14 -8254 -262144 0; #X obj 69 104 cnv 10 10 10 empty \$0-cnv-front empty 20 12 0 14 -65217 -262144 0; #X obj 69 116 cnv 10 10 10 empty \$0-cnv-label empty 20 12 0 14 -260110 -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 obj 81 261 outlet; #X text 163 112 Data structs:; #X connect 1 0 18 0; #X connect 1 1 2 0; #X connect 1 2 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;