Pixelated Gravity

posted 8 Mar 2010, 18:40 by Delphi Basics   [ updated 8 Mar 2010, 18:48 ]
{
    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.
ċ
Gravity.rar
(159k)
Delphi Basics,
8 Mar 2010, 18:48
Comments