it's a feature

--it's a feature (drippy sort) --alexthescott --8/24/21

p={8,136,130,11,139,131,12,140,129} pal(p,1) c=1

function burn() for p=0,2024do x=rnd(128) y=rnd(128) pc=pget(x,y) if (p-1)%3!=0 then --holding a magnet to --a old computer type-beat? pset(x,y+2,pc-1) end end end

function add_brush() local b={}

b.c=c
b.x=0
b.y=rnd(2)\1
b.v=1

b.update=function(slf)
 slf.x+=slf.v
end

b.set_c=function(slf,c)
	slf.c=c
end

b.draw=function(slf)
	pset(slf.x,slf.y,slf.c)
end

b.destroy=function(slf)
	if slf.x>=128 then
		del(brushes,slf)
	end
end

add(brushes,b)

end

brushes={} add_brush()

cls() ::♥:: if t()<2 then print("it's a feature",36,64,1) else --burn() is our unexpected effect burn()

if t()%3==0 then
	add_brush()
end

if t()%6==0 then
	for b in all(brushes) do
		b:set_c(c)
	end
	c+=3
	c%=10
end

for b in all(brushes) do
	b:draw()
	b:update()
	b:destroy()
end

end

flip() goto ♥