pico8-0hh1/visuals.lua

local overlays = {}

function get_main_color(tint)
  if tint == BLUE then
    return 12
  elseif tint == YELLOW then
    return 9
  else
    return 1
  end
end

function get_shade_color(tint)
  if tint == BLUE then
    return 13
  elseif tint == YELLOW then
    return 4
  else
    return 1
  end
end

function spawn_tile_transition(x, y, w, h, from_tint, to_tint)
  local p = #patterns
  local from_color = get_main_color(from_tint)
  local to_color = get_main_color(to_tint)
  add(
    overlays, {
      _draw = function(self)
        fillp()
        rectfill(x, y, x + w, y + h, from_color)
        fillp(patterns[p \ 1] + 0b0.1)
        rectfill(x, y, x + w, y + h, to_color)
        p -= 1
        if p < 1 then
          del(overlays, self)
        end
      end
    }
  )
end