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:

"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.
Delphi Basics,
8 Mar 2010, 18:48