Genuary 2023 Day 3 - Glitch Art

-- 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 _