[image: 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.dewrote:
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 Writinghttp://www.squeakland.org/showcase/project.jsp?id=7044 which I could use, but would like to introduce some of the kids to squeak.
- Bert -