rlife 0.0.1

data/README

@@ -0,0 +1,5 @@
+To launch the application execute the following command:
+
+rake run
+
+

data/Rakefile

@@ -0,0 +1,12 @@
+require 'rake'
+require 'rake/testtask'
+
+task :default => [:run_tests]
+
+desc "Run unit tests"
+Rake::TestTask.new("run_tests")
+
+desc "Launches the Conway GUI"
+task :run do
+  ruby "-Clib conway_fx_gui.rb"
+end

data/lib/cell.rb

@@ -0,0 +1,44 @@
+class Cell
+  attr_accessor :cell_state
+  attr_writer :queued_state
+  attr_reader :neighbors
+  protected :neighbors
+  
+  # creates a new Cell with a state of "dead"
+  def initialize
+    @neighbors = []
+    @cell_state = :dead
+    @queued_state = nil
+  end
+  
+  # adds a neighbor to this cell.  this
+  # method takes care of hooking up the bi-directional
+  # relationship so the 2 cells do not need to be added
+  # to each other as neighbors, only 1 of them needs
+  # to be notified of the relationship 
+  def add_neighbor(cell)
+    unless @neighbors.include? cell
+      @neighbors << cell
+      cell.neighbors << self
+    end
+  end
+  
+  # return the number of neighbors that this cell has
+  def number_of_neighbors
+    @neighbors.size
+  end
+  
+  # returns the number of live neighbors this cell has
+  def number_of_live_neighbors
+    live_neighbors = @neighbors.find_all {|cell| cell.cell_state == :live}
+    live_neighbors.size
+  end
+  
+  # Transitions this cell to its next state of evolution
+  def transition_state
+    if @queued_state != nil
+      @cell_state = @queued_state
+      @queued_state = nil
+    end
+  end
+end

data/lib/cellgrid.rb

@@ -0,0 +1,66 @@
+require 'cell'
+
+class CellGrid
+
+  def initialize (rows, columns)
+    @cells = Array.new rows
+    for row in 0...rows
+      @cells[row] = Array.new columns
+      for column in 0...columns
+        cell = Cell.new
+        @cells[row][column] = cell
+        if row > 0
+          cell.add_neighbor @cells[row-1][column]
+          cell.add_neighbor @cells[row-1][column+1] if column <= columns - 2
+        end
+        if column > 0
+          cell.add_neighbor @cells[row][column-1]
+          cell.add_neighbor @cells[row-1][column-1] if row > 0
+        end
+      end
+    end
+  end
+  
+  def cell_at (row, column)
+    @cells[row][column]
+  end
+  
+  def row_count
+    @cells.size
+  end
+  
+  def column_count
+    @cells[0].size
+  end
+  
+  def evolve
+    each_cell do |cell|
+      # kill the lonely
+      cell.queued_state = :dead if cell.cell_state == :live && cell.number_of_live_neighbors < 2
+      
+      # kill the overcrowded
+      cell.queued_state = :dead if cell.cell_state == :live && cell.number_of_live_neighbors > 3
+      
+      # give birth
+      cell.queued_state = :live if cell.cell_state == :dead && cell.number_of_live_neighbors == 3
+    end
+    each_cell do |cell|
+      cell.transition_state
+    end
+  end
+  
+  def kill_all
+    each_cell do |cell|
+      cell.cell_state = :dead
+      cell.queued_state = nil
+    end
+  end
+  
+  def each_cell
+    @cells.each do |row|
+      row.each do |cell|
+        yield cell
+      end
+    end
+  end
+end

data/lib/conway_fx_gui.rb

@@ -0,0 +1,89 @@
+require 'fox14'
+require 'fx_grid_canvas'
+require 'cellgrid'
+include Fox
+
+class ConwayWindow < FXMainWindow
+  WIDTH = 769
+  HEIGHT = 430
+  GRIDSIZE = 25
+  def initialize(app)
+    super(app, "RLife - Conways Game Of Life", nil, nil, DECOR_TITLE | DECOR_BORDER | DECOR_CLOSE |LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, WIDTH, HEIGHT)
+    FXToolTip.new(app)
+    FXStatusBar.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
+    @cell_grid = CellGrid.new(16, 16)
+    
+    rightFrame = FXVerticalFrame.new(self,LAYOUT_SIDE_TOP|LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y)
+    desc = <<EOS
+Conway's Game Of Life is a cellular automaton originally conceived by 
+John Conway in the early 1970's.
+
+Use the mouse to interactively define a starting grid by clicking on
+cells in the grid to bring them to life. Clicking on a cell toggles its
+live state.  Click and drag to bring a bunch of cells to life.  Live 
+cells are represented with green circles.
+
+The rules of evolution are as follows:
+
+- If a live cell has more than 3 live neighbors, it dies from overcrowding
+- If a live cell has fewer than 2 live neighbors, it dies from loneliness
+- If a dead cell has exactly 3 live neighbors, it comes to life
+
+Click the \"Evolve\" button to iterate through generations one at a time.
+Click the "Clear" button to clear the grid.
+EOS
+    FXLabel.new(rightFrame, desc, nil, JUSTIFY_LEFT)
+    buttonFrame = FXHorizontalFrame.new(rightFrame,
+                                        LAYOUT_SIDE_TOP|LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y)
+    nextGenerationButton = FXButton.new(buttonFrame,
+                                        "&Evolve\tEvolve The System\tEvolve The System",
+                                        nil, nil, 0,FRAME_RAISED|FRAME_THICK|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,0, 0,
+                                        70, 30)
+    clearButton = FXButton.new(buttonFrame,
+                               "&Clear\tClear all live cells\tClear all live cells",
+                               nil, nil, 0,FRAME_RAISED|FRAME_THICK|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,0, 0,
+                               70, 30)
+    quitButton = FXButton.new(buttonFrame,
+                              "&Quit\tExit the Program\tExit the Program",
+                              nil, nil, 0,FRAME_RAISED|FRAME_THICK|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,0, 0,
+                              70, 30)
+    canvasFrame = FXVerticalFrame.new(self,
+                                      FRAME_RIDGE|LAYOUT_FILL_X|LAYOUT_FILL_Y|
+                                      LAYOUT_TOP|LAYOUT_LEFT,
+                                      0, 0, 0, 0, 0,0,0,0)
+    @canvas = GridCanvas.new(canvasFrame, @cell_grid)
+    
+    quitButton.connect(SEL_COMMAND) {
+      getApp().exit(0)
+    }
+    
+    nextGenerationButton.connect(SEL_COMMAND) {
+      @cell_grid.evolve
+      @canvas.draw_grid
+    }
+    
+    clearButton.connect(SEL_COMMAND) {
+      @cell_grid.kill_all
+      @canvas.draw_grid
+    }
+  end
+  
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Construct an application
+  application = FXApp.new("RLife", "rubygroup")
+  
+  # Construct the main window
+  ConwayWindow.new(application)
+  
+  # Create the application
+  application.create
+  
+  # Run it
+  application.run
+end

data/lib/fx_grid_canvas.rb

@@ -0,0 +1,89 @@
+require 'fox14'
+require 'fox14/colors'
+require 'cellgrid'
+
+include Fox
+
+class GridCanvas < FXCanvas
+  GRIDSIZE = 25
+  def initialize(frame, cell_grid)
+    super(frame, nil, 0, FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    @cell_grid = cell_grid
+    @width = @cell_grid.column_count * GRIDSIZE
+    @height = @cell_grid.row_count * GRIDSIZE
+    @grid_background = FXColor::DarkGray
+    @grid_foreground = FXColor::LightGray
+    @live_cell_color = FXColor::SpringGreen
+    @dragging = false
+    connect(SEL_PAINT) do |sender, sel, event|
+      draw_grid
+    end
+    
+    # the dragging stuff here is almost certainly not the
+    # "correct" way to git-r-dun... pending enlightenment
+    connect(SEL_LEFTBUTTONPRESS) do |sender, sel, event|
+      toggle_cell_at_location(event.click_x, event.click_y)
+      @dragging = true
+    end
+    connect(SEL_LEFTBUTTONRELEASE) do |sender, sel, event|
+      @dragging = false
+    end
+    connect(SEL_MOTION) do |sender, sel, event|
+      handle_drag(event.win_x, event.win_y) if @dragging
+    end
+  end
+  
+  def draw_grid
+    FXDCWindow.new(self) do |dc|
+      self.backColor = @grid_background
+      dc.foreground = self.backColor
+      dc.fillRectangle(0, 0, width, height)
+      dc.foreground = @grid_foreground
+      0.step(@width, GRIDSIZE) do |column|
+        dc.drawLine(column, 0, column, @height)
+      end
+      0.step(@height, GRIDSIZE) do |row|
+        dc.drawLine(0, row, @width, row)
+      end
+      dc.foreground = @live_cell_color
+      for row in 0...@cell_grid.row_count
+        for column in 0...@cell_grid.column_count
+          cell = @cell_grid.cell_at(row, column)
+          if(cell.cell_state == :live)
+            x = (column * GRIDSIZE) + (GRIDSIZE / 2)
+            y = (row * GRIDSIZE) + (GRIDSIZE / 2)
+            dc.fillCircle(x, y, GRIDSIZE / 3)
+          end
+        end
+      end
+    end
+  end
+  
+  def handle_drag(x, y)
+    cell = cell_at_location(x, y)
+    if cell && cell.cell_state == :dead
+      cell.cell_state = :live
+      draw_grid
+    end
+  end
+  
+  def toggle_cell_at_location(x, y)
+    cell = cell_at_location(x, y)
+    if cell
+      if cell.cell_state == :dead
+        cell.cell_state = :live
+      else
+        cell.cell_state = :dead
+      end
+      draw_grid
+    end
+  end
+  
+  def cell_at_location(x, y)
+    cell = nil
+    column = x / GRIDSIZE
+    row = y / GRIDSIZE
+    cell = @cell_grid.cell_at(row, column) if column < @cell_grid.column_count && row < @cell_grid.row_count
+    cell
+  end
+end

data/test/test_cell.rb

@@ -0,0 +1,83 @@
+require 'test/unit'
+require 'cell'
+
+class CellTest < Test::Unit::TestCase
+
+  def test_initial_state
+    c = Cell.new
+    assert_equal :dead, c.cell_state
+  end
+  
+  def test_add_neighbor
+    c1 = Cell.new
+    c2 = Cell.new
+    assert_equal 0, c1.number_of_neighbors
+    assert_equal 0, c2.number_of_neighbors
+    
+    c1.add_neighbor c2
+    
+    assert_equal 1, c1.number_of_neighbors
+    assert_equal 1, c2.number_of_neighbors
+  end
+  
+  def test_add_neighbor_multiple_times
+    c1 = Cell.new
+    c2 = Cell.new
+    assert_equal 0, c1.number_of_neighbors
+    assert_equal 0, c2.number_of_neighbors
+    
+    c1.add_neighbor c2
+    c1.add_neighbor c2
+    
+    assert_equal 1, c1.number_of_neighbors
+    assert_equal 1, c2.number_of_neighbors
+  end
+  
+  def test_number_of_live_neighbors
+    c1 = Cell.new
+    c2 = Cell.new
+    c3 = Cell.new
+    
+    c1.add_neighbor c2
+    
+    assert_equal 0, c1.number_of_live_neighbors
+    
+    c2.cell_state = :live
+    
+    assert_equal 1, c1.number_of_live_neighbors
+    
+    c3.cell_state = :live
+    c1.add_neighbor c3
+    assert_equal 2, c1.number_of_live_neighbors
+  end 
+  
+  def test_state_queuing
+    c1 = Cell.new
+    assert_equal :dead, c1.cell_state
+    
+    c1.cell_state = :live
+    assert_equal :live, c1.cell_state
+    
+    c1.queued_state = :dead
+    assert_equal :live, c1.cell_state
+    
+    c1.transition_state
+    assert_equal :dead, c1.cell_state
+    
+    c1.queued_state = :live
+    assert_equal :dead, c1.cell_state
+    
+    c1.transition_state
+    assert_equal :live, c1.cell_state
+    
+    c1.transition_state
+    assert_equal :live, c1.cell_state
+    
+    c1.cell_state = :dead
+    assert_equal :dead, c1.cell_state
+    
+    c1.transition_state
+    assert_equal :dead, c1.cell_state
+  end
+  
+end

data/test/test_cellgrid.rb

@@ -0,0 +1,110 @@
+require 'cell'
+require 'cellgrid'
+require 'test/unit'
+
+class CellGridTest < Test::Unit::TestCase
+  ROWS = 10
+  COLUMNS = 5
+  
+  def setup
+    @cell_grid = CellGrid.new ROWS, COLUMNS
+  end
+  
+  def test_get_cell_at
+    cell = @cell_grid.cell_at(2, 2)
+    assert_not_nil cell
+    assert_equal :dead, cell.cell_state
+  end
+  
+  def test_column_count
+    assert_equal COLUMNS, @cell_grid.column_count
+  end
+  
+  def test_row_count
+    assert_equal ROWS, @cell_grid.row_count
+  end
+  
+  def test_number_of_neighbors
+    cell = @cell_grid.cell_at(0, 0)
+    
+    # corner cells should all have 3 neighbors
+    assert_equal 3, cell.number_of_neighbors
+    cell = @cell_grid.cell_at(0, COLUMNS - 1)
+    assert_equal 3, cell.number_of_neighbors
+    cell = @cell_grid.cell_at(ROWS - 1, COLUMNS - 1)
+    assert_equal 3, cell.number_of_neighbors
+    cell = @cell_grid.cell_at(ROWS - 1, 0)
+    assert_equal 3, cell.number_of_neighbors
+    
+    # cells in the first and last row (except corners) should all have 5 neighbors
+    for column in 1...COLUMNS-1
+      cell = @cell_grid.cell_at(0, column)
+      assert_equal 5, cell.number_of_neighbors
+      cell = @cell_grid.cell_at(ROWS - 1, column)
+      assert_equal 5, cell.number_of_neighbors
+    end
+    
+    # cells in the first and last column (except corners) should all ahve 5 neighbors
+    for row in 1...ROWS-1
+      cell = @cell_grid.cell_at(row, 0)
+      assert_equal 5, cell.number_of_neighbors
+      cell = @cell_grid.cell_at(row, COLUMNS-1)
+      assert_equal 5, cell.number_of_neighbors
+    end
+    
+    # cells not along the edges should each have 8 neighbors
+    for row in 1...ROWS-1
+      for column in 1...COLUMNS-1
+        cell = @cell_grid.cell_at(row, column)
+        assert_equal 8, cell.number_of_neighbors
+      end
+    end
+  end
+  
+  def test_lonely_cell
+    cell = @cell_grid.cell_at(3, 3)
+    assert_equal :dead, cell.cell_state
+    cell.cell_state = :live
+    @cell_grid.evolve
+    assert_equal :dead, cell.cell_state
+  end
+  
+  def test_overcrowded_cell
+    c1 = @cell_grid.cell_at(0, 0)
+    c1.cell_state = :live
+    c2 = @cell_grid.cell_at(1, 0)
+    c2.cell_state = :live
+    c3 = @cell_grid.cell_at(2, 0)
+    c3.cell_state = :live
+    c4 = @cell_grid.cell_at(0, 1)
+    c4.cell_state = :live
+    crowded_cell = @cell_grid.cell_at(1, 1)
+    crowded_cell.cell_state = :live
+    
+    @cell_grid.evolve
+    
+    assert_equal :dead, crowded_cell.cell_state
+  end
+
+  def test_new_birth
+    c1 = @cell_grid.cell_at(0, 0)
+    c1.cell_state = :live
+    c2 = @cell_grid.cell_at(1, 0)
+    c2.cell_state = :live
+    c3 = @cell_grid.cell_at(2, 0)
+    c3.cell_state = :live
+    
+    candidate_cell = @cell_grid.cell_at(1, 1)
+    
+    assert_equal :dead, candidate_cell.cell_state
+    @cell_grid.evolve
+    assert_equal :live, candidate_cell.cell_state
+  end
+  
+  def test_kill_all
+    c1 = @cell_grid.cell_at(3, 3)
+    c1.cell_state = :live
+    @cell_grid.kill_all
+    assert_equal :dead, c1.cell_state
+  end
+end

metadata

@@ -0,0 +1,61 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: rlife
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2006-06-14 00:00:00 -05:00
+summary: A Ruby implementation of Conway's Game Of Life
+require_paths: 
+- lib
+email: brown_j@ociweb.com
+homepage: http://rubyforge.org/projects/rlife
+rubyforge_project: 
+description: 
+autorequire: conway_fx_gui
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Jeff S. Brown
+files: 
+- lib/cell.rb
+- lib/cellgrid.rb
+- lib/conway_fx_gui.rb
+- lib/fx_grid_canvas.rb
+- Rakefile
+- README
+- test/test_cell.rb
+- test/test_cellgrid.rb
+test_files: 
+- test/test_cell.rb
+- test/test_cellgrid.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: fxruby
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        version: 1.4.4
+    version: