Diffusion Effect - Imaging Lingo

 

Compatibilities:

This item has not yet been rated

This applies a diffusion effect on an image. Try it to see the effect.

-- Diffuse Image Effect -- ©2005 by Josh Chunick (josh@chunick.com) -- This code is free to use in commercial applications -- or however you want.If you use this code you -- must keep the comments, including this message, -- intact. Feel free to add any changes or make -- improvements. -- theImage is an image object -- amount is an integer value on diffuseImage (theImage, amount)      theWidth = theImage.width - 1   theHeight = theImage.height - 1   newImage = theImage.duplicate()      -- the look-up table for the original image (done for speed purposes)   listX = []   listY = []      repeat with x = 0 to theWidth     repeat with y = 0 to theHeight       listY.add(theImage.getPixel(x,y))     end repeat     listX.add(listY)     listY = []   end repeat      -- draw each pixel in the new image   repeat with y1 = 0 to theHeight          repeat with x1 = 0 to theWidth       rndX = random(amount) - 2       rndY = random(amount) - 2              xMod = max(min(theWidth, x1 + rndX), 1)       yMod = max(min(theHeight, y1 + rndY), 1)              theColour = listX[xMod][yMod]              R = theColour.red       G = theColour.green       B = theColour.blue              newImage.setPixel(point(x1,y1), color(R, G, B))     end repeat   end repeat      return newImage    end

Upload Provided by ABCUpload ASP