Pixelated Gravity

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.