local geom = {}

local function class(tbl)
   setmetatable(tbl, tbl)
   return tbl
end

-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--
-- point
--
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

geom.point = class{
   __call = function(this, x, y)
      local pt = {}
      pt.x = x
      pt.y = y
      setmetatable(pt, {__index=this})
      return pt
   end,

   distance_to = function(self, pt)
      local d_x = self.x - pt.x
      local d_y = self.y - pt.y
      return math.sqrt(d_x*d_x + d_y*d_y)
   end,
}


-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--
-- square
--
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

geom.square = class{
   __call = function(this, center, span)
      local square = {}
      square.center = center
      square.span = span
      square.x = this.axis_range(center.x, span/2)
      square.y = this.axis_range(center.y, span/2)
      setmetatable(square, {__index=this})
      return square
   end,

   axis_range = function(c, r) return {min=c-r, max=c+r} end,
}

return geom