love-cellular-automata/wireworld/main.lua

require "util"

local function initColors()
  local colorbrewer = require("colorbrewer")
  COLORS = colorbrewer.random(4)
  local c = COLORS[#COLORS]
  BG = { c[1], c[2], c[3], 0.9 }
  BLACK = { 0, 0, 0, 1 }
end

local function initScreen()
  local width, height = love.graphics.getDimensions()
  WIDTH, HEIGHT = round2even(width), round2even(height)
  love.graphics.setBackgroundColor(BG)
end

local function initFont()
  FONT = love.graphics.newFont(16)
  love.graphics.setFont(FONT)
  FONT_HEIGHT = FONT:getHeight()
  PLAYING_WIDTH = FONT:getWidth("playing")
  PAUSED_WIDTH = FONT:getWidth("paused")
end

local function initGrid()
  GRID = {}
  GRID.mt = {}
  setmetatable(GRID, GRID.mt)
  GRID.mt.__index = function(table, key)
    table[key] = {}
    table[key].mt = {}
    setmetatable(table[key], table[key].mt)
    table[key].mt.__index = function(innerTable, innerKey)
      innerTable[innerKey] = 1
      return innerTable[innerKey]
    end
    return table[key]
  end
end

local function cloneGrid()
  local grid = {}
  for x, v in pairs(GRID) do
    grid[x] = {}
    for y, set in pairs(v) do
      grid[x][y] = set
    end
    setmetatable(grid[x], grid[x].mt)
  end
  setmetatable(grid, grid.mt)
  return grid
end

function love.load(args)
  UNITS = args[1] or 16
  STEPS_PER_FRAME = args[2] or 1
  PAUSED = false
  initColors()
  initScreen()
  initFont()
  initGrid()
end

local function neighbors(x, y)
  local lowX = x - UNITS
  local highX = x + UNITS
  local lowY = y - UNITS
  local highY = y + UNITS
  local count = 0
  for i = lowX, highX do
    for j = lowY, highY do
      i = wrap(i, WIDTH)
      j = wrap(j, HEIGHT)
      if (i ~= x or j ~= y) and GRID[i][j] == 2 then
        count = count + 1
      end
    end
  end
  return count
end

local function clear(grid, x, y)
  grid[x][y] = 1
end

local function setHead(grid, x, y)
  grid[x][y] = 2
end

local function setTail(grid, x, y)
  grid[x][y] = 3
end

local function setConductor(grid, x, y)
  grid[x][y] = 4
end

local function setSpark(grid, x, y)
  local n = neighbors(x, y)
  if n == 1 or n == 2 then
    setHead(grid, x, y)
  end
end

local function updater(state)
  local match = {
    -- noop
    [1] = function(x, y) end,
    [2] = setTail,
    [3] = setConductor,
    [4] = setSpark,
  }
  return match[state]
end

local function stepCell(grid, x, y)
  local state = GRID[x][y]
  local update = updater(state)
  update(grid, x, y)
end

function love.keypressed(key, _, isrepeat)
  if key == "space" and not isrepeat then
    PAUSED = not PAUSED
    if PAUSED then
      print("pausing")
    else
      print("unpausing")
    end
  end
end

function love.mousepressed(x, y, button)
  x = (x - (x % UNITS))
  y = (y - (y % UNITS))
  local state = GRID[x][y]
  if button == 1 then
    if state == 1 then
      print("setting conductor")
      setConductor(GRID, x, y)
    else
      print("clearing")
      clear(GRID, x, y)
    end
  elseif button == 2 then
    if state == 4 then
      print("setting head")
      setHead(GRID, x, y)
    elseif state == 2 then
      print("setting conductor")
      setConductor(GRID, x, y)
    end
  end
end

FRAMELOCK_COUNTER = 0
FRAMELOCK_FPS = 10
function love.update(dt)
  pcall(function()
    require("lurker").update()
  end)
  if not PAUSED then
    FRAMELOCK_COUNTER = FRAMELOCK_COUNTER + dt
    if FRAMELOCK_COUNTER < (1 / FRAMELOCK_FPS) then
      return
    end
    FRAMELOCK_COUNTER = 0
    local grid = cloneGrid()
    for x = 0, WIDTH, UNITS do
      for y = 0, HEIGHT, UNITS do
        local state = GRID[x][y]
        if state ~= 1 then
          stepCell(grid, x, y)
        end
      end
    end
    GRID = grid
  end
end

local function paintPlayPause()
  local status, width
  if PAUSED then
    status, width = "paused", PAUSED_WIDTH
  else
    status, width = "playing", PLAYING_WIDTH
  end
  love.graphics.setColor(COLORS[1])
  love.graphics.rectangle("fill", -10, HEIGHT - FONT_HEIGHT - 20, width + 30, FONT_HEIGHT + 10, 5, 5)
  love.graphics.setColor(BLACK)
  love.graphics.print(status, 10, HEIGHT - FONT_HEIGHT - 15)
end

local function paintFPS()
  local fps = tostring(love.timer.getFPS()) .. " FPS"
  local width = FONT:getWidth(fps)
  love.graphics.setColor(COLORS[1])
  love.graphics.rectangle("fill", WIDTH - width - 10, HEIGHT - FONT_HEIGHT - 20, width + 30, FONT_HEIGHT + 10,
    5, 5)
  love.graphics.setColor(BLACK)
  love.graphics.print(fps, WIDTH - width - 5, HEIGHT - FONT_HEIGHT - 15)
end

function love.draw()
  for x, v in pairs(GRID) do
    if x ~= "mt" then
      for y, state in pairs(v) do
        if y ~= "mt" then
          local color = COLORS[#COLORS - state + 1]
          love.graphics.setColor(color)
          love.graphics.rectangle("fill", x, y, UNITS, UNITS)
          if state ~= 1 then
            love.graphics.setColor(BLACK)
            love.graphics.rectangle("line", x, y, UNITS, UNITS)
          end
        end
      end
    end
  end
  paintFPS()
  paintPlayPause()
end