自己拿ruby写的一个简单的生命游戏

朋友买书送了本Ruby完全自学手册，遂学之

第一次写ruby代码，感觉挺适合写算法的东西，使用了TK库，有兴趣的同学可以玩玩。另，Tk canvas界面

很卡（更新界面代码没有new新的控件），有人若是知道原因能否指明，先谢过

require 'tk'

$g_ground_width = 600
$g_ground_height = 600

root = TkRoot.new do
title "LifeGame"
geometry $g_ground_width.to_s  + "x" + $g_ground_height.to_s
end

$canvas = TkCanvas.new(root)
$canvas.grid :stick => 'news', :column => 0, :row => 0

TkGrid.columnconfigure( root, 0, :weight => 1)
TkGrid.rowconfigure( root, 0, :weight => 1)

class Cell
@@size = 10

def initialize
#puts "come in Cell's init"
@alive = false;
@readyAlive = false;
@x = 0
@y = 0

@tkRect
#puts "end of Cell's init"
end

def self.size
@@size
end

def setX(x)
@x = x
end

def setY(y)
@y = y
end

def getX
@x
end

def getY
@y
end

def wakeUp
@alive = true
@tkRect[:fill] = "black"
end

def kill
@alive = false
@tkRect[:fill] = "white"
end

def readyAlive(alive)
@readyAlive = alive
@readyAlive
end

def getReadyAlive
@readyAlive
end

def isAlive
@alive
end

def initTkRect
@tkRect = TkcRectangle.new($canvas, @x, @y, @x + @@size, @y + @@size)
@tkRect[:fill] = "white"

end

end

class LifeGame
def initialize
@col = $g_ground_width / Cell.size
@row = $g_ground_height / Cell.size

@cellMap = Array.new(@col){ Array.new(@row) }

#puts "come in LifeGame's init"
num = 0

for i in (0..@col-1)
for j in (0..@row-1)
@cellMap[i][j] = Cell.new
@cellMap[i][j].setX(i * Cell.size)
@cellMap[i][j].setY(j * Cell.size)
@cellMap[i][j].initTkRect
num += 1
end
end
puts "total new "+num.to_s+"Cell"

=begin too mass
@cellMap[20][20].wakeUp
@cellMap[21][20].wakeUp
@cellMap[23][20].wakeUp
@cellMap[24][20].wakeUp

@cellMap[20][22].wakeUp
@cellMap[21][22].wakeUp
@cellMap[23][22].wakeUp
@cellMap[24][22].wakeUp

@cellMap[22][18].wakeUp
@cellMap[22][19].wakeUp
@cellMap[22][20].wakeUp
@cellMap[22][21].wakeUp
@cellMap[22][22].wakeUp
@cellMap[22][23].wakeUp
@cellMap[22][24].wakeUp
=end

=begin
@cellMap[29][29].wakeUp
@cellMap[28][30].wakeUp
@cellMap[29][30].wakeUp
@cellMap[30][30].wakeUp
=end

for i in (0..300)
@cellMap[rand(40)+10][rand(40)+10].wakeUp
end

puts "end of LifeGame's init"

end

def findNeighbor(i, j)
aliveNum = 0
[-1, 0, 1].each do |dx|
[-1, 0, 1].each do |dy|

if (dx == 0 and dy == 0)
next
end

if (i + dx < 0 or i + dx >= @col)
next
end

if (j + dy < 0 or j + dy >= @row)
next
end

if (@cellMap[i+dx][j+dy].isAlive)
aliveNum += 1
end

end
end
aliveNum
end

def step
for i in (0..@col-1)
for j in (0..@row-1)
#TODO
num = findNeighbor(i, j)
#puts "end findNeighbor"

#puts "before change"
if num == 3
@cellMap[i][j].readyAlive(true)
elsif num == 2
@cellMap[i][j].readyAlive(@cellMap[i][j].isAlive)
else
#if num >0
#  puts i.to_s+", "+j.to_s+": "+num.to_s
#end
@cellMap[i][j].readyAlive(false)
end

#puts "end step"

end
end

for i in (0..@col-1)
for j in (0..@row-1)

if @cellMap[i][j].getReadyAlive
@cellMap[i][j].wakeUp
else
@cellMap[i][j].kill
end

@cellMap[i][j].readyAlive(false)
end
end

end

def renderAll
for i in (0..@col-1)
for j in (0..@row-1)
if @cellMap[i][j].isAlive()
#puts i.to_s+","+j.to_s+" wakeUp !"
#puts @cellMap[i][j].getX.to_s
#puts @cellMap[i][j].getY.to_s
#puts Cell.size().to_s
TkcRectangle.new($canvas, @cellMap[i][j].getX, @cellMap[i][j].getY, @cellMap[i][j].getX + Cell.size, @cellMap[i][j].getY + Cell.size).fill 'black'
end
end
end
end

end

$g_gameThread;

refreshThread = Thread.new do
puts "start thread"
puts $g_gameThread
$g_gameThread = LifeGame.new
puts "new LifeGame"
puts $g_gameThread

loop do
#sleep(0.1)
$g_gameThread.step()
puts "======================================================"
#$g_gameThread.renderAll()

#x = rand(590)
#y = rand(590)
#TkcRectangle.new(@canvas, x,y,x+20,y+20).fill 'black'
end
end

Tk.mainloop