0     """333DDDUUUfffwwwˆˆˆ™™™ªªª»»»ÌÌÌÝÝÝîîîÿÿÿ
0      ÿÿÿÿ    ÿÿÿÿ2Tv˜ºÜþïÍ«‰gE#2Tv˜ºÜþ2Tv˜ºÜþ„9 """""""""""""23333333333333333333333333333333333333333333333333"""""""""""""""                     """""""""""""23333333333333333333333333333333333333333333333333"""""""""""""""                     """""""""""""23333333333333333333333333333333333333333333333333"""""""""""""""                     """"""""""""3333333333333333333333333333333333333333333333333333#"""""""""""""                     """"""""""""3333333333333333333333333333333333333333333333333333#"""""""""""""                     """"""""""""3333333333333333333333333333333333333333333333333333#"""""""""""""                     !"""""""""""""333333333333333333333333333333333333333333333333333333"""""""""""""                   !"""""""""""""333333333333333333333333333333333333333333333333333333"""""""""""""                   !"""""""""""""333333333333333333333333333333333333333333333333333333"""""""""""""                   !"""""""""""23333333333333333333333333333333333333333333333333333333333""""""""""""                  !"""""""""""23333333333333333333333333333333333333333333333333333333333""""""""""""                  !"""""""""""23333333333333333333333333333333333333333333333333333333333""""""""""""                  """"""""""""333333333333333333333333333333333333333333333333333333333333333""""""""""                """"""""""""333333333333333333333333333333333333333333333333333333333333333""""""""""                """"""""""""333333333333333333333333333333333333333333333333333333333333333""""""""""                """""""""""""23333333333333333333333333333333333333333333333333333333333333333333""""""""""             """""""""""""23333333333333333333333333333333333333333333333333333333333333333333""""""""""             """""""""""""23333333333333333333333333333333333333333333333333333333333333333333""""""""""             """""""""""""""333333333333333DDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333333"""""""""             """""""""""""""333333333333333DDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333333"""""""""             """""""""""""""333333333333333DDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333333"""""""""             """""""""""""233333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333"""""""             """""""""""""233333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333"""""""             """""""""""""233333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333"""""""             """"""""""""3333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD433333333333333333333333333333#"""""""             """"""""""""3333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD433333333333333333333333333333#"""""""             """"""""""""3333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD433333333333333333333333333333#"""""""             """"""""""23333333333DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333"""""""             """"""""""23333333333DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333"""""""             """"""""""23333333333DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD43333333333333333333333333333333"""""""             """""""""333333333DDDDDDDDDDDDDDDUUUUUUUUUDDDDDDDDDDDDDDDDDDDDD333333333333333333333333333333333""""""             """""""""333333333DDDDDDDDDDDDDDDUUUUUUUUUDDDDDDDDDDDDDDDDDDDDD333333333333333333333333333333333""""""             """""""""333333333DDDDDDDDDDDDDDDUUUUUUUUUDDDDDDDDDDDDDDDDDDDDD333333333333333333333333333333333""""""             """""""233333333CDDDDDDDDDDDTUUUUUUUUUUUUUUUUUEDDDDDDDDDDDDDD433333333333333333333333333333333333#"""""             """""""233333333CDDDDDDDDDDDTUUUUUUUUUUUUUUUUUEDDDDDDDDDDDDDD433333333333333333333333333333333333#"""""             """""""233333333CDDDDDDDDDDDTUUUUUUUUUUUUUUUUUEDDDDDDDDDDDDDD433333333333333333333333333333333333#"""""             """"""333333333DDDDDDDDDDTUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDDDDDD433333333333333333333333333333333333#""""""""             """"""333333333DDDDDDDDDDTUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDDDDDD433333333333333333333333333333333333#""""""""             """"""333333333DDDDDDDDDDTUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDDDDDD433333333333333333333333333333333333#""""""""             """"23333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDDDD333333333333333333333333333333333333333"""""""             """"23333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDDDD333333333333333333333333333333333333333"""""""             """"23333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDDDD333333333333333333333333333333333333333"""""""             3333333333333CDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDDDD3333333333333333333333333333333333333333#"""""             3333333333333CDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDDDD3333333333333333333333333333333333333333#"""""             3333333333333CDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDDDD3333333333333333333333333333333333333333#"""""             333333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDD433333333333333#"""""""3333333333CDDDD333333""""             333333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDD433333333333333#"""""""3333333333CDDDD333333""""             333333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDD433333333333333#"""""""3333333333CDDDD333333""""             333333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDD3333333333333#"""""""""""""3333333CDDDDD43333""""             333333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDD3333333333333#"""""""""""""3333333CDDDDD43333""""             333333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDD3333333333333#"""""""""""""3333333CDDDDD43333""""             3333333333CDDDDDDDUUUUUUUUUUUUffffffUUUUUUUUUUUUDDDDDDDDD3333333333#"""""""""""""""""233333CDDDDDDD3333#""             3333333333CDDDDDDDUUUUUUUUUUUUffffffUUUUUUUUUUUUDDDDDDDDD3333333333#"""""""""""""""""233333CDDDDDDD3333#""             3333333333CDDDDDDDUUUUUUUUUUUUffffffUUUUUUUUUUUUDDDDDDDDD3333333333#"""""""""""""""""233333CDDDDDDD3333#""             3333333333CDDDDDDDUUUUUUUUUUefffffffUUUUUUUUUUEDDDDDDDD43333333333"""""""""""""""""""233333CDDDDDDD333333"             3333333333CDDDDDDDUUUUUUUUUUefffffffUUUUUUUUUUEDDDDDDDD43333333333"""""""""""""""""""233333CDDDDDDD333333"             3333333333CDDDDDDDUUUUUUUUUUefffffffUUUUUUUUUUEDDDDDDDD43333333333"""""""""""""""""""233333CDDDDDDD333333"             333333333DDDDDDDTUUUUUUUUUUUefffffVUUUUUUUUUUUEDDDDDDD3333333333#""""""""""""""""""""""3333CDDDDDDDD433333             333333333DDDDDDDTUUUUUUUUUUUefffffVUUUUUUUUUUUEDDDDDDD3333333333#""""""""""""""""""""""3333CDDDDDDDD433333             333333333DDDDDDDTUUUUUUUUUUUefffffVUUUUUUUUUUUEDDDDDDD3333333333#""""""""""""""""""""""3333CDDDDDDDD433333             333333333DDDDDDDTUUUUUUUUUUUeffffUUUUUUUUUUUUDDDDDDD43333333333""""""""""""""""""""""""3333CDDDDDDDD433333             333333333DDDDDDDTUUUUUUUUUUUeffffUUUUUUUUUUUUDDDDDDD43333333333""""""""""""""""""""""""3333CDDDDDDDD433333             333333333DDDDDDDTUUUUUUUUUUUeffffUUUUUUUUUUUUDDDDDDD43333333333""""""""""""""""""""""""3333CDDDDDDDD433333             333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDD3333333333#""""""""""""""""""""""""""233CDDTUUEDD433333             333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDD3333333333#""""""""""""""""""""""""""233CDDTUUEDD433333             333333333DDDDDDDTUUUUUUUUUUUUUUUUUUUUUUUUUUEDDDDDDD3333333333#""""""""""""""""""""""""""233CDDTUUEDD433333             333333333DDDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDD333333333"""""""""""""""""""""""""233CDDTUUEDDDD3333             333333333DDDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDD333333333"""""""""""""""""""""""""233CDDTUUEDDDD3333             333333333DDDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUDDDDDDDDD333333333"""""""""""""""""""""""""233CDDTUUEDDDD3333             3333333333CDDDDDDDUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDD433333333#""""""""""""""""""""233CDUUUUUUDDD3333             3333333333CDDDDDDDUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDD433333333#""""""""""""""""""""233CDUUUUUUDDD3333             3333333333CDDDDDDDUUUUUUUUUUUUUUUUUUUUUUEDDDDDDDD433333333#""""""""""""""""""""233CDUUUUUUDDD3333             3333333333CDDDDDDDDTUUUUUUUUUUUUUUUUUUUDDDDDDDDD333333333"""""""""""""""""""233CDUUUUUUDDD333"             3333333333CDDDDDDDDTUUUUUUUUUUUUUUUUUUUDDDDDDDDD333333333"""""""""""""""""""233CDUUUUUUDDD333"             3333333333CDDDDDDDDTUUUUUUUUUUUUUUUUUUUDDDDDDDDD333333333"""""""""""""""""""233CDUUUUUUDDD333"             333333333333DDDDDDDDDUUUUUUUUUUUUUUUDDDDDDDDDD433333333#""""""""""""""!""23DDDUUUUUUD433#""             333333333333DDDDDDDDDUUUUUUUUUUUUUUUDDDDDDDDDD433333333#""""""""""""""!""23DDDUUUUUUD433#""             333333333333DDDDDDDDDUUUUUUUUUUUUUUUDDDDDDDDDD433333333#""""""""""""""!""23DDDUUUUUUD433#""             333333333333DDDDDDDDDDTUUUUUUUUUUDDDDDDDDDD433333333#""""""""""""""""!""23DTUffffVUD433#""             333333333333DDDDDDDDDDTUUUUUUUUUUDDDDDDDDDD433333333#""""""""""""""""!""23DTUffffVUD433#""             333333333333DDDDDDDDDDTUUUUUUUUUUDDDDDDDDDD433333333#""""""""""""""""!""23DTUffffVUD433#""             3333333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDD333333333"""""""""""""""!""23UefffffVUD43""""             3333333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDD333333333"""""""""""""""!""23UefffffVUD43""""             3333333333333CDDDDDDDDDDDDDDDDDDDDDDDDDDDD333333333"""""""""""""""!""23UefffffVUD43""""             """"23333333333DDDDDDDDDDDDDDDDDDDDDDDD3333333333#""""""""""""""!"3CDfvwwwwfVUD43""""             """"23333333333DDDDDDDDDDDDDDDDDDDDDDDD3333333333#""""""""""""""!"3CDfvwwwwfVUD43""""             """"23333333333DDDDDDDDDDDDDDDDDDDDDDDD3333333333#""""""""""""""!"3CDfvwwwwfVUD43""""             """""""23333333333DDDDDDDDDDDDDDDDDD333333333333"""""""""""""!"DdfˆˆˆˆxwUED3#""""             """""""23333333333DDDDDDDDDDDDDDDDDD333333333333"""""""""""""!"DdfˆˆˆˆxwUED3#""""             """""""23333333333DDDDDDDDDDDDDDDDDD333333333333"""""""""""""!"DdfˆˆˆˆxwUED3#""""             """""""""333333333333DDDDDDDDDDDD333333333333"""""""""""""""13U…ˆªš™wgfUED3#""             """""""""333333333333DDDDDDDDDDDD333333333333"""""""""""""""13U…ˆªš™wgfUED3#""             """""""""333333333333DDDDDDDDDDDD333333333333"""""""""""""""13U…ˆªš™wgfUED3#""             """"""""""233333333333333333333333333333333#""""""""""""""f–™Ý­ª™‰ˆfVUD43"""             """"""""""233333333333333333333333333333333#""""""""""""""f–™Ý­ª™‰ˆfVUD43"""             """"""""""233333333333333333333333333333333#""""""""""""""f–™Ý­ª™‰ˆfVUD43"""             """""""""""""233333333333333333333333333#""""""""""""""ˆ¸»ˆˆˆwgfUED3#""             """""""""""""233333333333333333333333333#""""""""""""""ˆ¸»ˆˆˆwgfUED3#""             """""""""""""233333333333333333333333333#""""""""""""""ˆ¸»ˆˆˆwgfUED3#""             """"""""""""""""233333333333333333333#""""""""""""""""!"3CDUUUDDD333"""             """"""""""""""""233333333333333333333#""""""""""""""""!"3CDUUUDDD333"""             """"""""""""""""233333333333333333333#""""""""""""""""!"3CDUUUDDD333"""             """""""""""""""""""233333333333333#"""""""""""""""""""3333#""""               """""""""""""""""""233333333333333#"""""""""""""""""""3333#""""               """""""""""""""""""233333333333333#"""""""""""""""""""3333#""""               """"""""""""""""""""""""""""""""""""""""""""""!""                  """"""""""""""""""""""""""""""""""""""""""""""!""                  """"""""""""""""""""""""""""""""""""""""""""""!""                  """"""""""""""""""""""""""""""""""""""""""                     """"""""""""""""""""""""""""""""""""""""""                     """"""""""""""""""""""""""""""""""""""""""                     !""""""""""""""""""""""""""""""""""""""                        !""""""""""""""""""""""""""""""""""""""                        !""""""""""""""""""""""""""""""""""""""                        """"""""""""""""""""""""""""""""""""                              """"""""""""""""""""""""""""""""""""                              """"""""""""""""""""""""""""""""""""                              !""""""""""""""""""""""""""""""""                                    !""""""""""""""""""""""""""""""""                                    !""""""""""""""""""""""""""""""""                                    !""""""""""""""""""""""""""""""""                                    !""""""""""""""""""""""""""""""""                                    !"""""""""""""""""""""""""""""""" -- title:  Dispersion Simulation
-- author: TylerDurden
-- desc:   Simulating dispersion by taking the average of the cell neighbors
-- script: lua
-- version: 1.0

grid={}
w,h=70,40

for y=0,h do
	grid[y]={}
	for x=0,w do
		grid[y][x]=0
	end
end

function get_n(x,y)
	local ns,sum={},0
	
	for _y=-1,1 do
		for _x=-1,1 do
			local nx,ny=x+_x,y+_y
			if nx>=0 and nx<=w and
						ny>=0 and ny<=h then
				table.insert(ns,grid[ny][nx])
				sum=sum+grid[ny][nx]
			end
		end
	end
	
	return ns,sum
end

cls(0)

function TIC()
	local mx,my,ml,mm,mr=mouse()
	
	if mx>=0 and my>=0 and mx<=212 and my<=122 then
		if ml then
			grid[my//3][mx//3]=grid[my//3][mx//3]+3
		end
		if mr then
			grid[my//3][mx//3]=grid[my//3][mx//3]-3
		end
	end
	
	for y=0,h do
		for x=0,w do
			local ns,sum=get_n(x,y)
			
			grid[y][x]=sum/#ns
		end
	end
	
	for y=0,h do
		for x=0,w do
			local v=grid[y][x]
			v=math.max(0,math.min(1,v))
			rect(x*3,y*3,3,3,v*15)
		end
	end
end

function OVR()
	local mx,my,ml,mm,mr=mouse()
	rectb(0,0,(w+1)*3,(h+1)*3,12)
end