everything comes and goes in the procession of time
source code:
function rot(a,cx,cy,x,y)
return (x-cx)*cos(a)-(y-cy)*sin(a)+cx, (y-cy)*cos(a)+(x-cx)*sin(a)+cy
end
r=rnd
loop_counter = 0
oa_zero = false
_set_fps(60)
seed = r(-1)
srand(seed)
::_::
oa=t()%8/8
for i=0,1000do
x=r(168)-20
y=r(168)-20
if r(64+20)>r(x+20) and r(64+20)>r(y+20) then
x,y = rot(oa,64,64,x,y)
?"\^p♥",x,y,7
end
x=r(168)-20
y=r(168)-20
if r(64+20)<r(x+20) and r(64+20)<r(y+20) then
x,y = rot(oa,64,64,x,y)
?"\^p♥",x,y,0
end
end
if oa <= 0.01 and not oa_zero then
oa_zero = true
end
if oa > 0.01 and oa_zero then
oa_zero = false
loop_counter+=1
srand(seed)
end
flip()
-- -- gif recording
-- if loop_counter == 2 and not loop_started then
-- extcmd("rec") -- start recording
-- loop_started = true
-- end
-- if loop_counter == 4 and not loop_ended then
-- extcmd("video") -- save video
-- loop_ended = true
-- end
goto _
