and here's a clumsy attempt at a 16x16 etch-a-sketch using pix_set.
maybe closer to what you want.
gr,
Tim


2010/10/19 tim vets <[email protected]>

>
>
> 2010/10/19 Olivier Baudu <[email protected]>
>
> Hi list,
>>
>> Do you know if there is a way, in GEM, to draw a picture, pixel by pixel,
>> using coordinates (like in [pix_data]) rather than the "list way" of
>> [pix_set] ?
>>
>>
>  Hi O1ivier,
> here's a little example using single buffered mode.
> bon apetit ;)
> Tim
>
> Thanks...
>>
>> 01ivier
>>
>> _______________________________________________
>> [email protected] mailing list
>> UNSUBSCRIBE and account-management ->
>> http://lists.puredata.info/listinfo/pd-list
>>
>>
>
#N canvas 364 67 615 599 10;
#X obj 439 182 gemwin;
#X obj 227 15 gemhead;
#X obj 227 321 pix_texture;
#X obj 227 350 rectangle 4 4;
#X msg 246 240 quality \$1;
#X obj 246 219 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 158 482 table col 256;
#X obj 175 385 t b f;
#X floatatom 175 362 5 0 0 0 - - -;
#X obj 175 429 tabwrite col;
#X obj 227 278 pix_set 16 16;
#X msg 337 77 256;
#X obj 337 99 until;
#X obj 337 121 f;
#X obj 365 123 + 1;
#X msg 376 99 0;
#X obj 337 145 tabread col;
#X obj 320 44 t b b b b;
#X obj 337 201 pack f f f f;
#X obj 337 170 t f f f f;
#X obj 55 375 * 16;
#X obj 54 136 vsl 15 128 0 15 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1200 1;
#X obj 54 405 +;
#X obj 87 268 hsl 128 15 0 15 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 5300 1;
#X obj 55 344 f;
#X obj 54 296 int;
#X obj 84 285 int;
#X obj 320 235 list prepend;
#X obj 414 235 t l;
#X obj 84 306 t b f;
#X obj 148 337 t b f;
#X obj 131 436 t b b;
#X obj 32 273 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -1
-1;
#X obj 54 449 change;
#X obj 439 91 loadbang;
#X text 34 45 Etch A Sketch 16x16;
#X text 287 456 timvets.net;
#X obj 131 509 s redraw;
#X obj 320 23 r redraw;
#X msg 492 259 0 \, destroy;
#X msg 177 409 0;
#X msg 439 157 lighting 0 \, create \, 1;
#X msg 499 119 \; col const 0.4;
#X msg 158 459 \; col const 0.4;
#X msg 411 156 0;
#X connect 1 0 10 0;
#X connect 2 0 3 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 7 0 40 0;
#X connect 7 1 9 1;
#X connect 8 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 16 0;
#X connect 14 0 13 1;
#X connect 15 0 13 1;
#X connect 16 0 19 0;
#X connect 17 0 27 0;
#X connect 17 1 11 0;
#X connect 17 2 27 1;
#X connect 17 3 15 0;
#X connect 18 0 27 0;
#X connect 19 0 18 0;
#X connect 19 1 18 1;
#X connect 19 2 18 2;
#X connect 19 3 18 3;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 33 0;
#X connect 23 0 26 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 26 0 29 0;
#X connect 27 0 10 1;
#X connect 27 0 28 0;
#X connect 28 0 27 1;
#X connect 29 0 24 0;
#X connect 29 1 22 1;
#X connect 30 0 37 0;
#X connect 30 1 8 0;
#X connect 31 0 37 0;
#X connect 31 1 43 0;
#X connect 32 0 31 0;
#X connect 33 0 30 0;
#X connect 34 0 41 0;
#X connect 34 0 42 0;
#X connect 34 0 44 0;
#X connect 38 0 17 0;
#X connect 39 0 0 0;
#X connect 40 0 9 0;
#X connect 41 0 0 0;
#X connect 44 0 4 0;
_______________________________________________
[email protected] mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list

Reply via email to