[REBOL] Re: point, plot, pixel ?
From: henrikmk:g:mail at: 5-Aug-2010 10:14
2010/8/5 =DEemseddin Moldibi <semseddinm-bircom.com>:
> Thu, 05 Aug 2010 10:49:14 +0300 tarihinde Petri Keckman =A0
>
> <keckman-welho.com> =FE=F6yle yazm=FD=FE:
>
>>
>> Greg Schwarz <gschwarz-sctelco.net.au> kirjoitti Thu, 05 Aug 2010 =A0
>
>> 09:07:33
>> +0300
>>
>>> http://www.rebol.com/docs/image.html
>>>
>>> This link should help.
>>
>> No it doesn't, but i did it with line:
>>
>>
>> =A0 =A0 =A0 xy: as-pair xs ys
>> =A0 =A0 =A0 =A0 =A0 append plot reduce [
>> =A0 =A0 =A0 =A0 =A0 'pen (black)
>> =A0 =A0 =A0 =A0 =A0 'line =A0xy (xy + 1x1)
>> =A0 =A0 =A0 ]
>
> here is what you want:
>
> img: make image! 100x50
> lay: layout [image img]
> putpixel: func [x y] [change skip img 100 * y + x white]
> putpixel 40 20
> view lay
You can of course still draw on the image created above using DRAW:
draw img [...something...]
--
Regards,
Henrik Mikael Kristensen