pico_galaxy_020

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 _