Programmer: Leonel Togniolli (leonel@bestway.com.br)
Description: It simulates water effect, partially based on Roy Willense's
Excellent tutorial, available here
Delphinus-Support
Also partially based on FLUID's demo (FLUiD - NeMeSiS production - only info I got).
Drop a TLTWaterEffect on a form, along with 2 TImages. Set one of them to be the source image, one of them to be the destination image. Load a bitmap (or draw) something in the source. Start the simulation. You can call Disturb to animate a certain point or call StartRain/StopRain. You might want to set the Form's DoubleBuffered to true, to avoid flickering.
There aren't many consistency checks so don't try anything that could break it :), like a ScrImage smaller than the DstImage or starting it without setting the images. I'll proably add the checks later.
Optimize, optimize. It is still very slow, specially the ArcTan draw. It only works for 32 bit images, maybe adding a way to chose the pixel format.