Coder: Gerben Wijnja
Compiled: Delphi 2007
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 - Free Delphi Source Code - Ultimate Programming Resource > Delphi Basics Project Releases >