class IMICRTS
  class Camera
    attr_reader :viewport, :position, :velocity, :zoom, :drag
    def initialize(viewport:, scroll_speed: 10, position: CyberarmEngine::Vector.new(0.0, 0.0))
      @viewport = CyberarmEngine::BoundingBox.new(viewport[0], viewport[1], viewport[2], viewport[3])
      @scroll_speed = scroll_speed
      @position = position
      @velocity = CyberarmEngine::Vector.new(0.0, 0.0)

      @zoom = 1.0
      @min_zoom = 0.25
      @max_zoom = 4.0

      @drag = 0.8 # Used to arrest velocity
      @grab_drag = 0.5 # Used when camera is panned using middle mouse button
    end

    def window; $window; end

    def draw(&block)
      if block
        Gosu.clip_to(@viewport.min.x, @viewport.min.y, @viewport.max.x, @viewport.max.y) do
          center_point = center
          Gosu.transform(*worldspace.elements) do
            block.call
          end
        end
      end
    end

    def update
      move
      @velocity *= @drag

      @position += @velocity * @scroll_speed

      @viewport.max.x = window.width
      @viewport.max.y = window.height
    end

    def pick(vector)
      inverse = (vector - @position) / @zoom
      inverse.x = inverse.x.floor
      inverse.y = inverse.y.floor

      return inverse
    end

    def center
      (CyberarmEngine::Vector.new(window.width / 2, window.height / 2) - @position)
    end

    def center_around(vector, factor)
      @velocity *= 0
      @position += center.lerp(vector, factor) * window.dt
    end

    def worldspace
      zoom_vector = CyberarmEngine::Vector.new(@zoom, @zoom)
      position_matrix = CyberarmEngine::Matrix.translate(@position)

      CyberarmEngine::Matrix.concat(CyberarmEngine::Matrix.scale(zoom_vector, center), position_matrix)
    end

    def visible?(object)
      if object.is_a?(Map::Tile)
        object.position.x - object.size >= @viewport.min.x - @position.x &&
        object.position.y - object.size >= @viewport.min.y - @position.y &&
        object.position.x <= @viewport.max.x - @position.x &&
        object.position.y <= @viewport.max.y - @position.y
      else
        pp object.class
        exit
      end
    end

    def aspect_ratio
      window.height / window.width.to_f
    end

    def move
      @velocity.x += @scroll_speed * window.dt if Gosu.button_down?(Gosu::KB_LEFT)  || window.mouse_x < 15
      @velocity.x -= @scroll_speed * window.dt if Gosu.button_down?(Gosu::KB_RIGHT) || window.mouse_x > window.width - 15
      @velocity.y += @scroll_speed * window.dt if Gosu.button_down?(Gosu::KB_UP)    || window.mouse_y < 15
      @velocity.y -= @scroll_speed * window.dt if Gosu.button_down?(Gosu::KB_DOWN)  || window.mouse_y > window.height - 15

      if @drag_start
        @velocity *= 0.0
        @position = @position.lerp(@drag_start - CyberarmEngine::Vector.new(window.mouse_x, window.mouse_y), @grab_drag)
      end
    end

    def button_down(id)
      case id
      when Gosu::KB_H
        @position.x, @position.y = 0.0, 0.0
        @velocity *= 0.0
      when Gosu::MS_WHEEL_UP
        @zoom = (@zoom + 0.25).clamp(@min_zoom, @max_zoom)
      when Gosu::MS_WHEEL_DOWN
        @zoom = (@zoom - 0.25).clamp(@min_zoom, @max_zoom)
      when Gosu::MS_MIDDLE
        @drag_start = pick(CyberarmEngine::Vector.new(window.mouse_x, window.mouse_y))
      end
    end

    def button_up(id)
      case id
      when Gosu::MS_MIDDLE
        @drag_start = nil
      end
    end
  end
end