-- unsacred geometry
-- alexthescott
-- 22/3/19
-- new seed every day of the year
srand(31*stat(81)+stat(82))
p1={[0]=129,1,133,130,2,136,8,137,142,14,143,15,135,7}
p2={[0]=0,128,130,2,129,1,131,140,12,139,138,10,135,7}
p3={[0]=0,128,130,133,5,132,4,142,137,14,143,15,135,7}
p={p1,p2,p3}
c=rnd(p)
pal(c,1)
-- framecount
f=rnd(1)
-- line count
v=64
-- geometry seed
q=30+rnd(22)\1
-- ants seed
g=rnd()
month=stat(81)
day=stat(82)
cls(0)
_set_fps(60)
::♥::
if t()<2 then
print("unsacred geometry",30,59,7)
print(month.."/"..day,55,65)
else
-- party determine glitch rate
-- and burn type (classic, radial)
party=rnd()<(1+sin(0.5-f))/2
-- burn method, ❎ will show
-- skeleton of the sketch
if not btn(❎) then
for i=0,1500 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
else
cls(0)
end
-- draw geometry
-- rotate lines around a circle
for i=f,v+f do
-- change color if ❎ pressed
pc=13
if(btn(❎))pc=1
a=i/v
b=i/(v/q)
c=(i+1)/v
d=(i+1)/(v/q)
x1=64+cos(a)*24+cos(b+f)*22
y1=64+sin(a)*24+sin(b+f)*22
x2=64+cos(c)*24+cos(d+f)*22
y2=64+sin(c)*24+sin(d+f)*22
line(x1,y1,x2,y2,pc)
end
-- glitch effect
-- poke pushes screen to sprsheet
if not btn(❎) then
for i=0,1 do
if rnd(0.5)<(1+sin(f/2))/2 then
if f*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
end
end
poke(0x5f55,0x6000,8192)
-- draw colorful circle
for i=0,300 do
a=f/8+i/300
x=64+50*cos(a)
y=64+50*sin(a)
pset(x,y,1+i/24)
end
-- draw rotating square border
-- ty john huges on stackoverflow for the maths
-- https://math.stackexchange.com/questions/2468060/find-x-y-coordinates-of-a-square-given-an-angle-alpha
for e=0,4 do
for i=0,100 do
gl=1
if(g>0.25)gl=g
a=f
z=60-sin(f)-e*2
k=max(abs(cos(a+i/100+e/8)),abs(sin(a+i/100+e/8)))
xr=z*cos(f+i/100+gl*e/8)/k
yr=z*sin(f+i/100+e/8/gl)/k
pset(64+xr,64+yr,1+i/8)
end
end
-- increment framecount
f+=.00025
if btn(❎) then
flip()
end
-- nothing lasts forever...
if f>=256 then
extcmd("reset")
end
end
goto ♥
