Inline image 3
I tried setting alpha to 50, but it didn't work, see script below.

recolor
| oldForm newForm old new avg |
oldForm := ErnieRubberDuckie getGraphic.
newForm := Form extent: oldForm extent depth: 16.
0
to: oldForm height - 1
do: [:y | 0
to: oldForm width - 1
do: [:x | 
old := oldForm colorAt: x @ y.
avg := old red + old green + old blue / 3.
new := Color
r: old red * 0 + avg
g: old green * 0 + avg
b: old blue * 0 + avg
alpha: 50.
newForm colorAt: x @ y put: new]].
self setGraphic: newForm



On Fri, May 25, 2012 at 7:59 AM, Bert Freudenberg <bert@freudenbergs.de> wrote:
On 25.05.2012, at 12:35, Steve Thomas wrote:

How can I loop through each pixel in an image and get their red,green,blue values?
I also would like to be able to create a new image using those values (modified, for example set red=red*0.5)

I know Karl did a great project Color Reading And Writing which I could use, but would like to introduce some of the kids to squeak.




- Bert -