alexthescott.bad atom alt

-- bad atom
-- alexthescott
-- 9/23/21 10:27pm

-- ❎,🅾️ change to light burn
-- ⬅️⬆️➡️⬇️ keys cls() 

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

-- new seed every day of the year
srand(31*stat(81)+stat(82))

function new_obj(r,col)
	obj={}
	obj.col=col
	obj.point={x=64,y=64}

	-- state
	obj.grow=true
	obj.need_new=false
	obj.kill=false
	
	-- color transition
	obj.life_span=r
	obj.timer=0
	
	-- radius, rad_goal (spawn)
	-- rad vel, acc
	obj.r=0
	obj.rg=r
	obj.rv=0.25
	obj.ra=0.1
	
	-- angle, angle span
	obj.a=rnd()
	obj.span=.175
	
	-- x,y flip on even odd day	
	obj.coin=stat(82)%2==0
	obj.var=1+rnd()
	
	obj.draw=function(self)
		local p=self.point
		local a1=self.a-self.span/2
		local a2=self.a+self.span/2
		
		-- an if statment in the for
		-- loop felt wrong... 😐
		-- x,y flip
		if self.coin==true then
			--get/set front circle stroke
			x=p.x+cos(a2/self.var)*self.r
			y=p.y+sin(a2)*self.r
			if self.grow==false then
				circ(x,y,2,0)
				circ(x,y,3,0)
			end
			--all points between span
			for at=a2,a1,-0.002 do
				x=p.x+cos(at/self.var)*self.r
				y=p.y+sin(at)*self.r
				-- taper tail
				if at<=self.a then
					circfill(x,y,0,self.col)
				else
					circfill(x,y,1,self.col)
				end
			end
		else
			-- same as comments above
			-- but x is reg, y is flip
			x=p.x+cos(a2)*self.r
			y=p.y+sin(a2/self.var)*self.r
			if self.grow==false then
				circ(x,y,2,0)
				circ(x,y,3,0)
			end
			for at=a2,a1,-0.002 do
				x=p.x+cos(at)*self.r
				y=p.y+sin(at/self.var)*self.r
				if at<=self.a then
					circfill(x,y,0,self.col)
				else
					circfill(x,y,1,self.col)
				end
			end
		end
	end
	
	obj.update=function(self)
		self.a+=0.01
		
		-- color reset from new_col
		if self.need_next==true 
			and self.timer>=0 then
				self.timer-=1
				if self.timer<=0 then
					self.col=self.next_col
					self.need_next=false
				end
		end
		
		-- lh? lol
		if self.grow==true and
			self.r<=self.rg then
				circ(64,64,self.r*2)
				circ(64,64,self.r*1.5)
				self.r+=0.005
				self.r*=1.05
				if self.r>=self.rg then
					self.grow=false
				end
		end
		
		-- death?! fly away
		if self.kill==true then
			self.r+=self.rv
			self.rv+=self.ra
		end
	end
	
	obj.new_col=function(self,new)
		self.next_col=new
		self.timer=self.life_span
		self.need_next=true
	end
	
	obj.destroy=function(self)
		-- rm if center falls off
		local p=self.point
		if self.coin then
			x=p.x+cos(self.a/self.var)*self.r
			y=p.y+sin(self.a)*self.r
			if x<=0 or x>=128 or 
				y<=0 or y>=128 then
					del(objs,self)
			end
		else
			x=p.x+cos(self.a)*self.r
			y=p.y+sin(self.a/self.var)*self.r
			if x<=0 or x>=128 or 
				y<=0 or y>=128 then
					del(objs,self)
			end
		end
	end
	
	return obj
end

function burn()
	for i=1,1200 do 
		x=rnd(128)\1
		y=rnd(128)\1
		pc=pget(x,y)
		if pc!=0 and pc%3!=0 then
			circfill(x,y,1,pc+1)
		else
			pset(x,y,0)
		end
	end
end

function big_burn()
	-- curious that the rnd()
	-- adds ~15% much cpu time!
	for i=1,1200 do 
		x=rnd(128)\1
		y=rnd(128)\1
		pc=pget(x,y)
		if pc!=0 and pc%3!=0 then
			if rnd()<0.25 then
				circfill(x,y,2,pc+1)
			else
				circfill(x,y,1,pc)
			end
		else
			pset(x-1,y,0)
			pset(x+1,y,0)
		end
	end
end

objs={}
fc=0
-- frames till color change
color_cyc=600
global_color=1+3*(rnd(3)\1)

for i=1,32 do
	add(objs,new_obj(i*2,global_color))
end

month=stat(81)
day=stat(82)

cls()
::♥::
if t()<2 then
	print("bad atom",48,59,global_color)
	print(month.."/"..day,55,65)
else
	if btn(4) or btn(5) then
		burn()
	elseif btn(0) or btn(1) or
		btn(2) or btn(3) then
			cls()
	else
		big_burn()
	end
	
	for obj in all(objs) do
		obj:draw()
		obj:update()
		obj:destroy()
	end
	
	fc+=1
	
	if fc%(color_cyc*6)!=0and
		fc%color_cyc==0 then
			global_color+=3
			global_color%=9	
			for obj in all(objs) do
				obj:new_col(global_color)
			end
	end
	
	if fc%(color_cyc*6)==0 then
		for obj in all(objs) do
			obj.kill=true
		end
	end
	
	-- spwan new set set
	-- after last cycle
	if fc%(color_cyc*6.25)==0 then
		global_color+=3
		global_color%=9
		for i=1,32 do
			add(objs,new_obj(i*2,global_color))
		end
		fc=0
	end
	
end
flip()
goto ♥