bad fidget

-- bad fidget -- alexthescott -- 9/9/21

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

function new_clear() local clr={} clr.i=0

clr.update=function(self)
	self.i+=1
end

clr.draw=function(self)
	circfill(64,64,self.i)
end

clr.destroy=function(self)
	if self.i>=91 then
		del(screen_wipe,self)
	end
end

add(screen_wipe,clr)

end

function new_cluster(a,col,row,state) c={} c.state=state -- row x pos c.row=row --timer c.t=0 c.a=a c.c=col -- rotate radius c.r=44 c.a_x=64+cos(c.a)*c.r c.a_y=64+sin(c.a)*c.r --point size c.ps=10 c.p1={} c.p1.a=0 c.p1.x=c.a_x+cos(c.p1.a)*c.ps c.p1.y=c.a_y+sin(c.p1.a)*c.ps c.p1.xg=c.a_x+cos(c.p1.a)*c.ps c.p1.yg=c.a_y+sin(c.p1.a)*c.ps c.p2={} c.p2.a=1/3 c.p2.x=c.a_x+cos(c.p2.a)*c.ps c.p2.y=c.a_y+sin(c.p2.a)*c.ps c.p2.xg=c.a_x+cos(c.p2.a)*c.ps c.p2.yg=c.a_y+sin(c.p2.a)*c.ps c.p3={} c.p3.a=2/3 c.p3.x=c.a_x+cos(c.p3.a)*c.ps c.p3.y=c.a_y+sin(c.p3.a)*c.ps c.p3.xg=c.a_x+cos(c.p3.a)*c.ps c.p3.yg=c.a_y+sin(c.p3.a)*c.ps

c.draw=function(self)
	p1=self.p1
	p2=self.p2
	p3=self.p3
	circ(p1.x,p1.y,5,self.c)
	circ(p2.x,p2.y,5,self.c)
	circ(p3.x,p3.y,5,self.c)
end

c.update=function(self)
	if self.state=='rotate' then
		-- floor self.a
		-- floor self.p1.a & others
		self.a+=0.001
		
		if self.a>=1 then
			self.a=0
		end
		
		self.a_x=64+cos(self.a)*self.r
		self.a_y=64+sin(self.a)*self.r
		
		self.p1.a+=0.003
		self.p2.a+=0.003
		self.p3.a+=0.003
		
		if self.p1.a==0 then
			self.p1.a=0
		end
		if self.p2.a==0 then
			self.p2.a=0
		end
		if self.p3.a==0 then
			self.p3.a=0
		end
		
		self.p1.xg=self.a_x+cos(self.p1.a)*self.ps
		self.p1.yg=self.a_y+sin(self.p1.a)*self.ps
	
		p1_xd=(self.p1.xg-self.p1.x)/20
		p1_yd=(self.p1.yg-self.p1.y)/20
		self.p1.x+=p1_xd
		self.p1.y+=p1_yd
	
		self.p2.xg=self.a_x+cos(self.p2.a)*self.ps
		self.p2.yg=self.a_y+sin(self.p2.a)*self.ps
		
		p2_xd=(self.p2.xg-self.p2.x)/20
		p2_yd=(self.p2.yg-self.p2.y)/20
		self.p2.x+=p2_xd
		self.p2.y+=p2_yd
		
		self.p3.xg=self.a_x+cos(self.p3.a)*self.ps
		self.p3.yg=self.a_y+sin(self.p3.a)*self.ps
	
		p3_xd=(self.p3.xg-self.p3.x)/20
		p3_yd=(self.p3.yg-self.p3.y)/20
		self.p3.x+=p3_xd
		self.p3.y+=p3_yd
	else
		self.p1.xg=self.row
		self.p1.yg=32
		
		p1_xd=(self.p1.xg-self.p1.x)/10
		p1_yd=(self.p1.yg-self.p1.y)/10
		p1.x+=p1_xd
		p1.y+=p1_yd
		
		self.p2.xg=self.row
		self.p2.yg=64
		
		p2_xd=(self.p2.xg-self.p2.x)/10
		p2_yd=(self.p2.yg-self.p2.y)/10
		p2.x+=p2_xd
		p2.y+=p2_yd
		
		self.p3.xg=self.row
		self.p3.yg=96
		
		p3_xd=(self.p3.xg-self.p3.x)/10
		p3_yd=(self.p3.yg-self.p3.y)/10
		p3.x+=p3_xd
		p3.y+=p3_yd
	end
	
	self.t+=1
	
	if self.t==1200 then
		if self.state=='rotate' then
			self.row+=32
			if self.row>96 then
				self.row=32
			end
			self.state='grid'
		else
			self.state='rotate'
		end
		self.t=0
	end
end

c.debug=function(self)
	print(c.a_x,0,0,7)
	print(c.a_y,0,6,7)
end

add(clusters,c)

end

function burn() for i=1,600 do x=(rnd(64)\1)*2 y=(rnd(64)\1)*2 x=rnd(128)\1 y=rnd(128)\1 pc=pget(x,y) if pc%3!=0 then nc=rnd(2)\1 pset(x,y,pc+1) pset(x,y-2,pc+nc) pset(x,y+2,pc+nc) pset(x-2,y,pc+nc) pset(x+2,y,pc+nc)

		if rnd(2)\1==0 and nc==1 then
			pset(x,y+1,pc+nc)
			pset(x,y-1,pc+nc)
			pset(x,y+3,pc+nc)
			pset(x,y-3,pc+nc)
		end
	end
	pset(x,y,0)
end

end

screen_wipe={} clusters={} fc=0

if rnd(2)\1==0 then state='rotate' else state='grid' end new_cluster(0,1,32,state) new_cluster(1/3,4,64,state) new_cluster(2/3,7,96,state)

cls() ::♥:: if t()<2 then print("bad fidget",44,64,4) else burn()

fc+=1
if fc==500 then
	fc=0
end

for clr in all(screen_wipe) do
	clr:draw()
	clr:update()
	clr:destroy()
end

for c in all(clusters) do
	c:draw()
	c:update()
end

end flip() goto ♥