Description
-- genuary #3 2023
-- glitch art
-- by carson kompon
spr_s=0x0
scr_s=0x6000
scr_e=0x7fff
scr_r=scr_e-scr_s
ball_x=0
ball_y=0
pal({[0]=0,129,131,3,139,11,138,135,7},1)
cls(1)
::_::
for i=1,999 do
x=rnd(128)
y=rnd(128)
c=max(pget(x,y)-rnd(6))
circ(x+rnd(2)-1,y+rnd(2)-1,1,c)
end
ball_x=64+cos(t()/4)*24
ball_y=(ball_y-(128/32))%128
circfill(
ball_x,
ball_y,
3, 8
)
for i=1,1 do
src=scr_s+rnd(scr_r)
l=rnd(scr_e-src)/10
dst=scr_s+rnd(scr_r-l)
memcpy(dst,src,l)
end
memcpy(spr_s,scr_s,scr_r)
for i=1,4 do
sspr(2,2,126,126,rnd(3),rnd(2),128+rnd(2),128+rnd(2))
end
flip()
goto _