Moderators: Shine, Insert_witty_name
Nice. What about more than one ant?Kameku wrote:After going through some specifications, I have finally made a good Langton's Ant program! :)
Langton's Ant
Code: Select all
function even(num)
return num - math.mod(num, 2)
end
math.randomseed(os.time())
black = Color.new(0,0,0)
white = Color.new(255,255,255)
blue = Color.new(0,0,255)
red = Color.new(255,0,0)
green = Color.new(0,255,0)
ants = {}
colors = { red, green, blue }
for i = 1, 3 do
ants[i] = {
x = even((math.random(480) + 240) / 2),
y = even((math.random(272) + 136)) / 2,
dir = 0,
color = colors[i]
}
end
canvas = Image.createEmpty(482, 274)
canvas:clear(black)
iter = 1
screenNumber = 0
function shadow(x, y, text, c1, c2)
screen:print(x - 1, y, text, c2)
screen:print(x, y - 1, text, c2)
screen:print(x + 1, y, text, c2)
screen:print(x + 1, y + 1, text, c2)
screen:print(x + 1, y - 1, text, c2)
screen:print(x + 2, y, text, c2)
screen:print(x, y + 1, text, c2)
screen:print(x, y, text, c1)
screen:print(x + 1, y, text, c1)
end
while true do
pad = Controls.read()
if pad:start() then break end
if pad:triangle() then
screen:blit(-1, -1, canvas)
screen.flip()
screen:save("screenshot.png")
end
if pad:r() and pad:l() then
canvas:clear(black)
iter = 1
end
oldpad = pad
for i = 1, 3 do
ant = ants[i]
if canvas:pixel(ant.x,ant.y) == black then
ant.dir = ant.dir + 1
if ant.dir == 4 then ant.dir = 0 end
else
ant.dir = ant.dir - 1
if ant.dir == -1 then ant.dir = 3 end
end
ant.oldx = ant.x
ant.oldy = ant.y
if ant.dir == 0 then ant.x = ant.x + 2 end
if ant.dir == 2 then ant.x = ant.x - 2 end
if ant.dir == 1 then ant.y = ant.y + 2 end
if ant.dir == 3 then ant.y = ant.y - 2 end
if ant.x > 480 then ant.x = 0 end
if ant.x < 0 then ant.x = 480 end
if ant.y > 272 then ant.y = 0 end
if ant.y < 0 then ant.y = 272 end
if canvas:pixel(ant.oldx, ant.oldy) == black and
canvas:pixel(ant.oldx + 1, ant.oldy) == black and
canvas:pixel(ant.oldx, ant.oldy + 1) == black and
canvas:pixel(ant.oldx + 1, ant.oldy + 1) == black then
canvas:fillRect(ant.oldx, ant.oldy, 2, 2, ant.color)
else
canvas:fillRect(ant.oldx, ant.oldy, 2, 2, black)
end
end
screen:clear()
screen:blit(-1, -1, canvas)
for i = 1, 3 do
ant = ants[i]
screen:fillRect(ant.x-1, ant.y-1, 3, 3, white)
end
shadow(2, 262, "Step: " .. iter, black, white)
screen.flip()
--screen.waitVblankStart()
iter = iter + 1
-- if math.mod(iter, 200) == 0 then
-- screen:save("screenshot" .. screenNumber .. ".png")
-- screenNumber = screenNumber + 1
-- end
end
Code: Select all
-- Demonstration No-User-App
-- Author: RanDom_ErrOr
-- Copyright 2006
-- No liscense with this product what so ever. Use at your own risk. I will accept no liability or responsibility if you **** something up.
System.usbDiskModeActivate()
screenwidth = 480
screenheight = 272
organisms =150 -- set this to what ever value you want...
letter = "o"
black = Color.new(0,0,0)
screennum = 0
math.random(1,272) }
organism = { }
color = { }
iter = 1
function shadow(x, y, text, c1, c2)
screen:print(x - 1, y, text, c2)
screen:print(x, y - 1, text, c2)
screen:print(x + 1, y, text, c2)
screen:print(x + 1, y + 1, text, c2)
screen:print(x + 1, y - 1, text, c2)
screen:print(x + 2, y, text, c2)
screen:print(x, y + 1, text, c2)
screen:print(x, y, text, c1)
screen:print(x + 1, y, text, c1)
end
white = Color.new(255,255,255)
math.randomseed(os.time() )
for i=1,organisms do
color[i] = {color = Color.new(math.random(0,255), math.random(0,255), math.random(0,255)) }
organism[i] = {posx = math.random(1,480), posy = math.random(1,272) }
end
while true do
pad = Controls.read()
if pad:start() then break end
if pad:triangle() then
screen.flip()
screen:save("screenshot".. screennum..".png")
screennum = screennum + 1
end
if pad:r() and pad:l() then
screen:clear(black)
iter = 1
end
for i=1,organisms do
x = organism[i].posx
y = organism[i].posy
screen:print(x,y,letter,color[i].color)
organism[i].posx = organism[i].posx + math.random(-1,1)
organism[i].posy = organism[i].posy + math.random(-1,1)
if organism[i].posx >= screenwidth or organism[i].posx <= 0 then
organism[i].posx = math.random(1,480)
end
if organism[i].posy >= screenheight or organism[i].posy <= 0 then
organism[i].posy = math.random(1,272)
end
end
shadow(2, 262, "Step: " .. iter, black, white)
screen.flip()
iter = iter + 1
end
while true do
screen.waitVblankStart()
endCode: Select all
-- Demonstration No-User-App
-- Author: RanDom_ErrOr
-- Copyright 2006
-- No liscense with this product what so ever. Use at your own risk. I will accept no liability or responsibility if you **** something up.
System.usbDiskModeActivate()
clock = {}
clock = Timer.new(0)
screenwidth = 482
screenheight = 274
organisms =1500
letter = "o"
black = Color.new(0,0,0)
red = Color.new (255,0,0)
white = Color.new(255,255,255)
canvas = Image.createEmpty(480,272)
canvas:clear(black)
screennum = 0
organism = { }
color = { }
iter = 1
fpscurrent = 1
speed = 5
function shadow(x, y, text, c1, c2)
screen:print(x - 1, y, text, c2)
screen:print(x, y - 1, text, c2)
screen:print(x + 1, y, text, c2)
screen:print(x + 1, y + 1, text, c2)
screen:print(x + 1, y - 1, text, c2)
screen:print(x + 2, y, text, c2)
screen:print(x, y + 1, text, c2)
screen:print(x, y, text, c1)
screen:print(x + 1, y, text, c1)
end
white = Color.new(255,255,255)
math.randomseed(os.time() )
for i=1,organisms do
color[i] = {color = Color.new(math.random(0,255), math.random(0,255), math.random(0,255)) }
organism[i] = {posx = math.random(1,480), posy = math.random(1,272) }
end
while true do
pad = Controls.read()
if pad:up() then
speed = speed + 1
if speed >= 15 then
speed = 15
end
end
if pad:down() then
speed = speed - 1
if speed <= 1 then
speed = 1
end
end
if pad:start() then
break
end
if pad:triangle() then
screen:blit(-1,-1,canvas)
screen.flip()
screen:save("screenshot".. screennum..".png")
screennum = screennum + 1
end
if pad:r() and pad:l() then
canvas:clear(black)
iter = 1
end
for i=1,organisms do
x = organism[i].posx
y = organism[i].posy
canvas:print(x,y,letter,color[i].color)
organism[i].posx = organism[i].posx + math.random(-speed,speed)
organism[i].posy = organism[i].posy + math.random(-speed,speed)
if organism[i].posx >= screenwidth or organism[i].posx <= 0 then
organism[i].posx = math.random(1,480)
end
if organism[i].posy >= screenheight or organism[i].posy <= 0 then
organism[i].posy = math.random(1,272)
end
end
screen:clear()
screen:blit(-1,-1,canvas)
shadow(2, 262, "Step: " .. iter, black, white)
currenttime = clock:time()
fpscurrent = iter / currenttime * 100
shadow(2,2,"Frames Per Second: " .. fpscurrent,red, white)
shadow(2,11, "Speed: " .. speed, red, white)
shadow(2,20, "Organisms: " .. organisms, red,white)
screen.flip()
iter = iter + 1
end
while true do
screen.waitVblankStart()
end