-- sin orbit alt
-- alexthescott
-- 8/20/21
function burn()
for p=0,512 do
x=rnd(128)
y=rnd(128)
if pget(x,y)==13 and rnd(2)\1==1 then
if x<64 then
xd=-1
else
xd=1
end
if y<64 then
yd=-1
else
yd=1
end
pset(x+xd,y+yd,13)
else
pset(x,y,0)
end
end
end
o={}
pal({7,6,134,5,1,129,13,141,133,131,140,6,2},1)
for n=6,1,-1 do
add(o,{0,n/300})
end
cls()
::♥::
burn()
if t()<2 then
print("sin orbit alt",38,64,1)
circ(64,64,63,13)
else
for n=1,6 do
x=64+n*9*(sin(o[n][1]))
y=64+n*9*(-cos(o[n][1]))
circfill(x,y,5,n)
circfill(-x+128,y,5,6+n)
o[n][1]+=o[n][2]
if o[n][1]>=2 then
o[n][1]=0
end
end
circ(64,64,63,13)
end
flip()
goto ♥
