Lines-Glow-Blur Animation
lazarus / 39-Graphics

----------------------------------------------------------------------
Boleeman · 2025-05-27 10:25

I tried making an animation in which the lines glow/blur a bit but the
speed seems to slow down quite a bit.

May be there is a better way of doing it.

What I was after is a glow effect with a reasonable speed.
(Noticed the animation in blur mode works a touch faster after running
the compiled exe)

Just did a quick update: Added some OnChange events.

----------------------------------------------------------------------
Lulu · 2025-05-27 17:56

Thanks to share. The shape is very nice.

----------------------------------------------------------------------
Lulu · 2025-05-27 18:13

I notice a memory leak when using the blur effect.
It appears because
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i GlowBitmap
:=  GlowBitmap.FilterBlurRadial(4, rbFast);generate another image
instance that overwrite GlowBitmap.

To avoid that replace this line by
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
BGRAReplace(GlowBitmap, GlowBitmap.FilterBlurRadial(4, rbFast));

----------------------------------------------------------------------
Boleeman · 2025-05-28 07:29

Thanks Lulu for the nice comment and the fix. The program seems to
work more efficiently now in the blur mode, especially on my Intel CPU
work laptop. I initially used floating points but found the speed too
slow so I switched to integer calculations for faster rendering.

After I uploaded the source I found that the program was seizing up
after a while but could not work out why, until you worked it out.
Need to remember BGRAReplace for future projects.

Your help was greatly appreciated. Thank you.

Also noticed a pulsating pattern if you set divisor2 = 5.00