I had to send customized inline images in the email - for that I had to write an Image manipulation program. I used Ruby for that (Only because I am not comfortable with Haskell yet!) git://github.com/ckkashyap/UtilityPrograms.git
So the Image class contains [] operators etc but for any function to be applied on the image, you typically need to go over each pixel and change it in some manner. Also, if the color value went out of the range (less than 0 or greater than 255), it had to be brought back into the range. I found myself uninterestingly repeating the act of traversing over the pixels and ensuring that the resulting value stayed in the range. That's when it occurred to me that I could abstract it out into the image class into a function called - apply function! - it looks like this
def applyFunction
@width.times do |x|
@height.times do |y|
(r,g,b)=self[x,y].unpack("C*")
(r,g,b)=(yield x,y,r,g,b).map! {|c| Image.normalizeColor c}
self[x,y]=[r,g,b].pack("C*")
end
end
end