bad saturn

-- bad saturn
-- alexthescott
-- 22/6/29

-- ty to @aebrer for this maths
rng = stat(6)
if rng == "" then
rng=tostr(rnd(-1)\1)..","..tostr(1+rnd(3)\1)..","..tostr(rnd(16)\1)..","
end
rng_vals = {}
c_num = ""
for i=1,#rng do
if sub(rng,i,i) != "," then
c_num = c_num..sub(rng,i,i)
else
add(rng_vals,tonum(c_num))
c_num = ""
end
end

srand(rng_vals[1])

function forward()
v=c[1]
del(c,v)
c[#c+1]=v
pal(c,1)
end

p1={7,6,135,10,138,11,139,3,131,12,140,1,129,130,128,0}
p2={7,135,10,9,15,143,142,137,14,136,8,2,130,133,128,0}
p3={7,15,143,142,14,8,136,137,9,10,135,138,11,139,12,140}

p={p1,p2,p3}
c=p[rng_vals[2]]
pal(c,1)

for i=1,rnd(rng_vals[3]) do
forward()
end

t=rnd()
r=rnd()
p=rnd()
c,s=sin,cos
cls()
::♥::
if time()<2 then
print("bad saturn",46,59)
print("seed:"..rng_vals[1],46,65)
else
party=rnd()<(1+sin(0.5-t))/2
for i=0,1000 do
x=rnd(128)
y=rnd(128)
-- radial burn
if not party then
a=atan2((64-x)/128,(64-y)/128)
x2=x-cos(a)
y2=y-sin(a)
pset(x2,y2,max(pget(x,y)-1,0))
-- og burn
else
pset(x,y,max(pget(x,y)-1,0))
end
end
for o=1,6 do
j=o*13
for i=1,128 do

		k=o/12
		a=(i-1)/128
		b=i/128
		x,y=64+s(r+k)*c(a+t)*j,64+s(a)*j
		u,v=64-c(p+k)*c(b)*j,64+s(b)*j
		line(x,y,u,v,10-o)
	end
end
t+=0.001
r+=0.0002
r+=0.0006
if rnd(0.7)<(1+sin(t/2))/2 then
	if t*100%8<=4 then
		w=3+rnd(10)
		h=10+rnd(86)
	else
		w=10+rnd(86)
		h=3+rnd(10)
	end
	x=rnd(128-w)
	y=rnd(128-h)
	xo=rnd(4)*(1-2*(rnd(2)\1))
	yo=rnd(4)*(1-2*(rnd(2)\1))
	sspr(x,y,w,h,x+xo,y+yo,w,h)
end
poke(0x5f55,0x6000,8192)

end
flip()
goto ♥