• Home
 · 
• Graphics
 · 
• Describes the Diffusion of Images

Describes the Diffusion of Images

Describes the Diffusion of Images

Rate Describes the Diffusion of Images

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Manikantan
3rd Agenda,
Web Development,
India.
Website:www.3rdagenda.com
Email:[email protected]


Image Diffuse Filter

Various Filters can be applied to an image one of Such kind is the Diffuse filter.
The diffuse filter uses  the rnd function to introduce some randomness to the image
and give it a painterly look.


For i = 1 To Picturebox.ScaleHeight - 3
For j = 1 To Picturebox.ScaleWidth - 3
pixval = Picturebox.Point(j + CInt(Rnd * 10), i + CInt(Rnd * 10))
red_val = "&h" & Mid$(CStr(Hex(pixval)), 5, 2)
green_val = "&h" & Mid$(CStr(Hex(pixval)), 3, 2)
blue_val = "&h" & Mid$(CStr(Hex(pixval)), 1, 2)
If red_val = "&h" Then red_val = "&h0"
If green_val = "&h" Then green_val = "&h0"
If blue_val = "&h" Then blue_val = "&h0"
Picturebox.PSet (j, i), RGB(red_val, green_val, blue_val)
Next
Next
This Code above Traverses the images as a twodimensional array picks all the pixels 
and randomly rearranges the pixels  to some fixed diameter.Since this happens to all
the pixels a kind of diffused eeffeect can be seen on the images.



Article By
Manikantan
email:[email protected]