Zone Marker

-- Interaction check (vehicle only, not walking):
function C:interactInPlayMode(interactData, interactableElements)
  if interactData.isWalking then return end
  -- Quick distance pre-check
  if interactData.vehPos2d:distance(self.pos2d) <= self.radius+2 then
    for _, z in ipairs(self.zones) do
      -- Check if all 4 bbox corners are inside the polygon
      if z:containsPoint2D(interactData.bbPoints[1])
        and z:containsPoint2D(interactData.bbPoints[4])
        and z:containsPoint2D(interactData.bbPoints[5])
        and z:containsPoint2D(interactData.bbPoints[8]) then
        -- Vehicle is inside zone - add all cluster elements
        for _, elem in ipairs(self.cluster.elemData) do
          table.insert(interactableElements, elem)
        end
      end
    end
  end
end

-- Clustering creates one cluster per POI:
local function cluster(pois, allClusters)
  for _, poi in ipairs(pois) do
    table.insert(allClusters, {
      id = 'zoneMarker#'..poi.id,
      zones = poi.markerInfo.zoneMarker.zones,
      visibilityPos = poi.markerInfo.zoneMarker.pos,
      visibilityRadius = poi.markerInfo.zoneMarker.radius,
      elemData = {poi.data},
      create = create,
    })
  end
end