We don't display ads so we rely on your Bitcoin donations to 1KWEk9QaiJb2NwP5YFmR24LyUBa4JyuKqZ
Post date: Mar 9, 2010 2:40:49 AM
{
Coder: Gerben Wijnja
Modder: Jack
Compiled: Delphi 2007
Website: www.delphibasics.co.nr
}
The original source for "Pixelated Gravity" can be found here:
http://delphi.about.com/od/humorandfun/a/fdac_pixel_grav.htm
"Gravitation is a natural phenomenon by which all objects with mass attract each other. Gravity is the force that causes two particles to pull towards each other. If smaller objects are pixels and a bigger object is your mouse pointer - when you move the mouse the pixels should follow.
What started as an application pixels tracking the cursor evolved as colors were added; then I blur, then converted to assembler to speed things up and finally a color filter.
This piece of great code uses ASM (assembler) a lot. If you want to learn what can be done when using ASM in Delphi and how it can be done - reading the source code of "Pixelated Gravity" is a must!"
I have modified the source to include options to: clear the pixels; reset the pixels; toggle blur; and change the alpha blend value of the form.
Although source may be released in the future, the archive contains only a single executable file.