Merge branch 'dev'

Author: Kazuo256

.gitignore

@@ -3,6 +3,7 @@
 .*
 !.git*
 /lua51*
+/profiling
 savedir
 /log*
 import

game/assets/texture/Keyboard_A.png

@@ -1,5 +1,8 @@
 
+-- luacheck: globals love
+
 local math     = require 'common.math'
+local vec2     = require 'cpml' .vec2
 local Camera   = require "steaming.extra_libs.hump.camera"
 local VIEWDEFS = require 'view.definitions'
 
@@ -41,6 +44,14 @@ function CAM:isTileInFrame(i, j)
          and i <= cy + _HALF_H
 end
 
+function CAM:relativeTileToScreen(i, j) -- luacheck: no self
+  j = _HALF_W + j - 1
+  i = _HALF_H + i - 1
+  local x = (j - 0.5) * _TILE_W
+  local y = (i - 0.5) * _TILE_H
+  return vec2(x, y)
+end
+
 function CAM:tilesInRange()
   local cx, cy = self:position() -- start point
   local rx, ry

game/assets/texture/Keyboard_D.png

@@ -0,0 +1,82 @@
+
+-- luacheck: globals love
+
+local SWITCHER    = require 'infra.switcher'
+local Class       = require 'steaming.extra_libs.hump.class'
+
+local Profiler = Class{}
+
+local SAMPLES = 10
+
+function Profiler:init()
+  self.profiling = {}
+  self.last_state = nil
+  self.output = io.open("profiling", "w")
+end
+
+function Profiler:update(dt)
+  local GS = require 'gamestates'
+  local state = self.last_state
+  self.last_state = SWITCHER.current()
+  if state then
+    local name = "???"
+    for k,v in pairs(GS) do
+      if v == state then
+        name = k
+        break
+      end
+    end
+    if dt > 0.2 then
+      local warning = ("%.2f lag on state %s at frame %d\n"):format(
+        dt, name, GS[name].frame or -1
+      )
+      self.output:write(warning)
+      print(warning)
+      for mark, slice in pairs(self.slices) do
+        self.output:write(("%16s: %.3f\n"):format(mark, 1000*slice))
+      end
+    end
+    local sample = self.profiling[name] or { times = {} , n = 1 }
+    sample.times[sample.n] = dt
+    sample.n = (sample.n % SAMPLES) + 1
+    self.profiling[name] = sample
+  end
+  self:start()
+end
+
+function Profiler:start()
+  self.started_at = love.timer.getTime()
+  self.slices = {}
+end
+
+function Profiler:mark(name)
+  if not self.slices then return end
+  local t = love.timer.getTime()
+  local dt = t - self.started_at
+  self.started_at = t
+  self.slices[name] = (self.slices[name] or 0) + dt
+end
+
+local function average(sample)
+  local sum = 0
+  for _,time in ipairs(sample.times) do
+    sum = sum + time
+  end
+  return sum / math.max(#sample.times, SAMPLES)
+end
+
+function Profiler:draw()
+  local g = love.graphics
+  g.push()
+  g.origin()
+  g.setColor(1,1,1)
+  local i = 0
+  for name,sample in pairs(self.profiling) do
+    g.print(("%s: %.2f"):format(name, 1 / average(sample)), 32, 32+i*32)
+    i = i + 1
+  end
+  g.pop()
+end
+
+return Profiler()
+

game/assets/texture/Keyboard_S.png

@@ -4,6 +4,8 @@ local SCHEMATICS = require 'domain.definitions.schematics'
 
 local TILE = require 'common.tile'
 
+local _cache
+
 --LOCAL FUNCTIONS DECLARATIONS--
 
 local updateOctant
@@ -15,7 +17,6 @@ local visibilityOfShadow
 local addProjection
 local transformOctant
 local projectTile
-local fullShadow
 local isInRange
 
 local VISIBILITY = {}
@@ -47,11 +48,31 @@ function VISIBILITY.resetFov(fov, sector)
 
 end
 
+function VISIBILITY.isCached(actor, sector)
+  if not _cache then
+    _cache = {}
+  end
+  local key = ("%s/%s"):format(sector:getId(), actor:getId())
+  local cached = _cache[key] or {}
+  local i, j = actor:getPos()
+  local range = actor:getFovRange()
+  if cached.i ~= i or cached.j ~= j or cached.range ~= range then
+    cached.i = i
+    cached.j = j
+    cached.range = range
+    return false
+  else
+    return true
+  end
+end
+
 --Update actors field of view based on his position in a given sector
 function VISIBILITY.updateFov(actor, sector)
-  VISIBILITY.resetFov(actor:getFov(sector), sector)
-  for octant = 1, 8 do
-    updateOctant(actor, sector, octant)
+  if not VISIBILITY.isCached(actor, sector) then
+    VISIBILITY.resetFov(actor:getFov(sector), sector)
+    for octant = 1, 8 do
+      updateOctant(actor, sector, octant)
+    end
   end
 end
 
@@ -61,55 +82,49 @@ end
 
 function updateOctant(actor, sector, octant)
   local line = newShadowLine()
-  local full_shadow = false
 
   --Actor current position
   local actor_i, actor_j = actor:getPos()
   local fov = actor:getFov(sector)
 
-  local row = 0
-  while true do
-
+  for row = 0, actor:getFovRange() do
     do
       local d_i, d_j = transformOctant(row, 0, octant)
       local pos = {actor_i + d_i, actor_j + d_j}
 
-      --Check if tile is inside sector
+      -- Check if tile is inside sector
       if not sector:isInside(pos[1],pos[2]) then break end
-      if row > actor:getFovRange() then
-        full_shadow = true
-      end
     end
 
+    local full_shadow = false
+
     for col = 0, row do
       local d_i, d_j = transformOctant(row, col, octant)
       local pos = {actor_i + d_i, actor_j + d_j}
 
       --Check if tile is inside sector
       if not sector:isInside(pos[1],pos[2]) then break end
 
-      if full_shadow then
-        if fov[pos[1]][pos[2]] then --Was seen once
-          fov[pos[1]][pos[2]] = 0 --Make it invisible
-        end
-      else
-        --Set visibility of tile
-        local projection = projectTile(row, col)
-        local visible = 1 - visibilityOfShadow(line, projection)
-        if isInRange(pos[1], pos[2], actor) and (fov[pos[1]][pos[2]] or visible == 1)  then
-          fov[pos[1]][pos[2]] = visible
-        end
-
-        --Add any wall tiles to the shadow line
-        if visible == 1 and
-           sector.tiles[pos[1]][pos[2]] and
-           sector.tiles[pos[1]][pos[2]].type == SCHEMATICS.WALL then
-              addProjection(line, projection)
-              fullShadow = fullShadow or isShadowLineFull(line)
-        end
+      --Set visibility of tile
+      local projection = projectTile(row, col)
+      local visible = 1 - visibilityOfShadow(line, projection)
+      if isInRange(pos[1], pos[2], actor) and (fov[pos[1]][pos[2]] or visible == 1)  then
+        fov[pos[1]][pos[2]] = visible
       end
+
+      --Add any wall tiles to the shadow line
+      if visible == 1 and
+         sector.tiles[pos[1]][pos[2]] and
+         sector.tiles[pos[1]][pos[2]].type == SCHEMATICS.WALL then
+            addProjection(line, projection)
+            full_shadow = full_shadow or isShadowLineFull(line)
+      end
+    end
+
+    -- Check if shadow is full and no other tiles behind it will be visible
+    if full_shadow then
+      break
     end
-    row = row + 1
   end
 end
 
@@ -163,9 +178,10 @@ end
 function addProjection(line, projection)
   local list = line.shadow_list
   local index = 1;
+  local n = #list
 
   --Figure out where to slot the new shadow in the list
-  while index <= #list do
+  while index <= n do
      --Stop when we hit the insertion point.
      if list[index].start >= projection.start then break end
      index = index + 1