09-18-2023, 05:50 PM
This is a great effect, Terry. Always liked it since you first posted it. Music fits. I thought wouldn't it be cool if it was dancing to the music somehow - so I played around with that.
I set BLOOMAMOUNT to 20, and put a TIMER thing that changes the x/y position randomly on the screen every .46 seconds (instead of mouse movement) and it looks like it's popping to the music on time, on my slow laptop. If would neat it it could really respond to the music somehow.
- Dav
I set BLOOMAMOUNT to 20, and put a TIMER thing that changes the x/y position randomly on the screen every .46 seconds (instead of mouse movement) and it looks like it's popping to the music on time, on my slow laptop. If would neat it it could really respond to the music somehow.
- Dav
Code: (Select All)
Dim t As Single: t = Timer
Do
_Limit 60
If Timer - t > .46 Then
t = Timer
Blooms = BLOOMAMOUNT
While Blooms > 0
HOCUS Rnd * _Width, Rnd * _Height ' a one-a , and-a...
HOCUS Rnd * _Width, Rnd * _Height ' ...two-a...
Blooms = Blooms - 1
Wend
End If
POCUS
_Display
Loop Until _KeyDown(27) ' leave when ESC pressed