mittens-engine 0.7.0

use crate::engine::ecs::ComponentId;
use crate::engine::ecs::World;
use crate::engine::ecs::component::RenderableComponent;
use crate::engine::ecs::component::{BoundsComponent, RaycastableComponent};
use crate::engine::ecs::system::TransformSystem;
use crate::engine::graphics::VisualWorld;
use crate::engine::graphics::primitives::{CpuMeshHandle, TransformMatrix};
use crate::engine::user_input::InputState;
use bvh::aabb::{AABB, Bounded};
use bvh::bounding_hierarchy::BHShape;
use bvh::bvh::BVH;
use bvh::bvh::BVHNode;
use bvh::ray::Ray;
use bvh::{Point3, Vector3};
use std::collections::{HashMap, HashSet};
use std::sync::OnceLock;
use std::time::Instant;

#[derive(Debug, Default)]
pub struct BvhSystem {
    shapes: Vec<RenderableAabb>,
    bvh: Option<BVH>,

    /// Map ECS ComponentId -> shape index in `shapes`.
    index_by_component: HashMap<ComponentId, usize>,

    /// Renderables that were registered this frame (via command flush).
    pending_add: Vec<ComponentId>,

    /// Renderables whose AABBs need updating due to transform propagation.
    pending_refit: HashSet<ComponentId>,

    /// Shape indices that need refitting in the BVH.
    pending_refit_shape_indices: HashSet<usize>,

    /// True when shapes were added/removed and we need a full rebuild.
    dirty_rebuild: bool,
}

#[derive(Debug, Clone)]
struct RenderableAabb {
    component: ComponentId,
    aabb: AABB,
    node_index: usize,
}

impl RenderableAabb {
    fn new(component: ComponentId, min: [f32; 3], max: [f32; 3]) -> Self {
        let min = Point3::new(min[0], min[1], min[2]);
        let max = Point3::new(max[0], max[1], max[2]);
        Self {
            component,
            aabb: AABB::with_bounds(min, max),
            node_index: 0,
        }
    }
}

impl Bounded for RenderableAabb {
    fn aabb(&self) -> AABB {
        self.aabb
    }
}

impl BHShape for RenderableAabb {
    fn set_bh_node_index(&mut self, index: usize) {
        self.node_index = index;
    }

    fn bh_node_index(&self) -> usize {
        self.node_index
    }
}

impl BvhSystem {
    pub fn has_index(&self) -> bool {
        self.bvh.is_some()
    }

    fn profile_spatial_enabled() -> bool {
        static ENABLED: OnceLock<bool> = OnceLock::new();
        *ENABLED.get_or_init(|| {
            matches!(
                std::env::var("CAT_PROFILE_SPATIAL")
                    .unwrap_or_default()
                    .trim()
                    .to_ascii_lowercase()
                    .as_str(),
                "1" | "true" | "yes" | "on"
            )
        })
    }

    pub(crate) fn renderable_is_raycastable(world: &World, renderable_cid: ComponentId) -> bool {
        Self::find_raycastable_for_renderable(world, renderable_cid).is_some()
    }

    /// Return the `RaycastableComponent` governing a renderable (enabled only).
    ///
    /// Checks children of the renderable first (common panel topology), then walks ancestors.
    pub(crate) fn find_raycastable_for_renderable(
        world: &World,
        renderable_cid: ComponentId,
    ) -> Option<RaycastableComponent> {
        // Raycastable is commonly authored as a sidecar of a transform/layout node rather
        // than as a structural ancestor of the renderable generated for that node's Style.
        // Treat an immediate child marker as belonging to its owner at every ancestry level.
        // Nearest owner still wins, so a row can override its containing panel.
        let mut owner = Some(renderable_cid);
        let mut governing = None;
        let mut inherited_priority = 0;
        while let Some(component_id) = owner {
            if let Some(rc) = raycastable_marker_on_node(world, component_id) {
                if governing.is_none() {
                    if !rc.enable {
                        return None;
                    }
                    governing = Some(rc);
                }
                if rc.enable {
                    inherited_priority = inherited_priority.max(rc.interaction_priority);
                }
            }
            owner = world.parent_of(component_id);
        }

        governing.map(|mut rc| {
            // A close control owns enable/pointer-event behavior, while a containing interaction
            // layer can raise its priority over scene geometry.
            rc.interaction_priority = inherited_priority;
            rc
        })
    }

    pub fn queue_renderable_added(&mut self, component: ComponentId) {
        if self.index_by_component.contains_key(&component) {
            return;
        }
        if self.pending_add.contains(&component) {
            return;
        }
        self.pending_add.push(component);
    }

    pub fn queue_renderable_removed(&mut self, component: ComponentId) {
        // If it's still pending add (not committed to shapes yet), just drop it.
        self.pending_add.retain(|&c| c != component);
        self.pending_refit.remove(&component);

        let Some(index) = self.index_by_component.remove(&component) else {
            return;
        };

        // Remove by swap_remove to keep O(1).
        let last_index = self.shapes.len().saturating_sub(1);
        self.shapes.swap_remove(index);
        if index != last_index {
            // We swapped some other shape into `index`; fix its index mapping.
            if let Some(swapped) = self.shapes.get(index) {
                self.index_by_component.insert(swapped.component, index);
            }
        }

        self.dirty_rebuild = true;
        self.pending_refit_shape_indices.clear();
    }

    /// Queue all renderables under the given transform subtree for BVH refit.
    pub fn queue_transform_subtree(&mut self, world: &World, transform_root: ComponentId) {
        let mut stack = vec![transform_root];
        while let Some(node) = stack.pop() {
            if world
                .get_component_by_id_as::<RenderableComponent>(node)
                .is_some()
            {
                self.pending_refit.insert(node);
            }

            let children: Vec<ComponentId> = world.children_of(node).to_vec();
            for ch in children {
                stack.push(ch);
            }
        }
    }

    fn placeholder_aabb() -> AABB {
        // Far away and tiny so it won't get hit.
        let p = 1.0e9_f32;
        AABB::with_bounds(
            Point3::new(p, p, p),
            Point3::new(p + 0.001, p + 0.001, p + 0.001),
        )
    }

    fn compute_aabb_for_renderable(world: &World, cid: ComponentId) -> Option<AABB> {
        let r = world.get_component_by_id_as::<RenderableComponent>(cid)?;
        let model = TransformSystem::world_model(world, cid)?;

        if let Some(local) = world.children_of(cid).iter().find_map(|&child| {
            world
                .get_component_by_id_as::<BoundsComponent>(child)
                .map(|bounds| bounds.local)
        }) {
            let world_bounds = local.transformed(model);
            return Some(AABB::with_bounds(
                Point3::new(
                    world_bounds.min[0],
                    world_bounds.min[1],
                    world_bounds.min[2],
                ),
                Point3::new(
                    world_bounds.max[0],
                    world_bounds.max[1],
                    world_bounds.max[2],
                ),
            ));
        }

        // Use base mesh so UV-baked variants (text glyphs) still behave like their primitive.
        let mesh = r.renderable.base_mesh;
        let (min, max) = aabb_from_world_matrix_for_mesh(mesh, model)?;

        Some(AABB::with_bounds(
            Point3::new(min[0], min[1], min[2]),
            Point3::new(max[0], max[1], max[2]),
        ))
    }

    fn rebuild_from_shapes(&mut self) {
        if self.shapes.is_empty() {
            self.bvh = None;
            return;
        }

        // Build the BVH in-place (sets node indices on shapes).
        self.bvh = Some(BVH::build(&mut self.shapes));
    }

    /// Apply any queued add/remove/refit requests.
    ///
    /// Intended to be called once after `CommandQueue::flush` completes.
    pub fn flush_pending(&mut self, world: &World) {
        let profile = Self::profile_spatial_enabled();
        let started = profile.then(Instant::now);
        let queued_adds = self.pending_add.len();
        let queued_refits = self.pending_refit.len();
        let rebuilding = self.dirty_rebuild || queued_adds > 0;
        // Commit pending adds.
        if !self.pending_add.is_empty() {
            for cid in std::mem::take(&mut self.pending_add) {
                if self.index_by_component.contains_key(&cid) {
                    continue;
                }

                if !Self::renderable_is_raycastable(world, cid) {
                    continue;
                }

                let aabb = Self::compute_aabb_for_renderable(world, cid)
                    .unwrap_or_else(Self::placeholder_aabb);

                let idx = self.shapes.len();
                let mut shape = RenderableAabb {
                    component: cid,
                    aabb,
                    node_index: 0,
                };
                // If we already have a BVH, this will be overwritten by rebuild.
                shape.set_bh_node_index(0);

                self.shapes.push(shape);
                self.index_by_component.insert(cid, idx);
            }

            self.dirty_rebuild = true;
        }

        // Update AABBs for moved renderables.
        if !self.pending_refit.is_empty() {
            let moved = std::mem::take(&mut self.pending_refit);
            for cid in moved {
                let Some(&shape_index) = self.index_by_component.get(&cid) else {
                    continue;
                };

                // If the renderable disappeared, drop it.
                if world
                    .get_component_by_id_as::<RenderableComponent>(cid)
                    .is_none()
                {
                    self.queue_renderable_removed(cid);
                    continue;
                }

                let new_aabb = Self::compute_aabb_for_renderable(world, cid)
                    .unwrap_or_else(Self::placeholder_aabb);

                if let Some(s) = self.shapes.get_mut(shape_index) {
                    s.aabb = new_aabb;
                    self.pending_refit_shape_indices.insert(shape_index);
                }
            }
        }

        // Rebuild if topology changed.
        if self.dirty_rebuild {
            // If any shapes were removed via swap_remove, their indices changed; safest is to
            // refit nothing and rebuild.
            self.pending_refit_shape_indices.clear();
            self.rebuild_from_shapes();
            self.dirty_rebuild = false;
            if let Some(started) = started {
                let line = format!(
                    "[spatial-profile][bvh] shapes={} add={} refit={} rebuild=true elapsed_ms={:.3}",
                    self.shapes.len(),
                    queued_adds,
                    queued_refits,
                    started.elapsed().as_secs_f64() * 1000.0
                );
                eprintln!("{line}");
                crate::utils::profile_log::append("spatial-profile", &line);
            }
            return;
        }

        // Otherwise, update the existing BVH's AABBs and do cheap incremental optimization.
        if !self.pending_refit_shape_indices.is_empty() {
            match self.bvh.as_mut() {
                None => {
                    self.rebuild_from_shapes();
                }
                Some(bvh) => {
                    bvh.optimize(&self.pending_refit_shape_indices, &self.shapes);
                }
            }
            self.pending_refit_shape_indices.clear();
        }

        if let Some(started) = started
            && (queued_adds > 0 || queued_refits > 0 || rebuilding)
        {
            let line = format!(
                "[spatial-profile][bvh] shapes={} add={} refit={} rebuild={} elapsed_ms={:.3}",
                self.shapes.len(),
                queued_adds,
                queued_refits,
                rebuilding,
                started.elapsed().as_secs_f64() * 1000.0
            );
            eprintln!("{line}");
            crate::utils::profile_log::append("spatial-profile", &line);
        }
    }

    pub fn raycast_renderables(
        &self,
        origin: [f32; 3],
        dir: [f32; 3],
        max_distance: f32,
    ) -> Option<(ComponentId, f32)> {
        let Some(bvh) = &self.bvh else {
            return None;
        };

        let origin = Point3::new(origin[0], origin[1], origin[2]);
        let dir = Vector3::new(dir[0], dir[1], dir[2]);
        let ray = Ray::new(origin, dir);

        let candidates = bvh.traverse(&ray, &self.shapes);

        let mut best: Option<(ComponentId, f32)> = None;
        for s in candidates {
            let min = [s.aabb.min.x, s.aabb.min.y, s.aabb.min.z];
            let max = [s.aabb.max.x, s.aabb.max.y, s.aabb.max.z];

            let Some(t) = ray_aabb(
                [origin.x, origin.y, origin.z],
                [dir.x, dir.y, dir.z],
                min,
                max,
            ) else {
                continue;
            };

            if t < 0.0 || t > max_distance {
                continue;
            }

            match best {
                None => best = Some((s.component, t)),
                Some((_, bt)) if t < bt => best = Some((s.component, t)),
                _ => {}
            }
        }

        best
    }

    /// Return ray/AABB hit candidates (sorted by ascending t).
    ///
    /// This is intended to support narrow-phase hit tests that may reject the closest AABB hit
    /// and need to fall through to the next-best candidates.
    pub fn raycast_renderables_candidates(
        &self,
        origin: [f32; 3],
        dir: [f32; 3],
        max_distance: f32,
        limit: usize,
    ) -> Vec<(ComponentId, f32)> {
        let Some(bvh) = &self.bvh else {
            return Vec::new();
        };

        let origin_p = Point3::new(origin[0], origin[1], origin[2]);
        let dir_v = Vector3::new(dir[0], dir[1], dir[2]);
        let ray = Ray::new(origin_p, dir_v);

        let candidates = bvh.traverse(&ray, &self.shapes);

        let mut hits: Vec<(ComponentId, f32)> = Vec::new();
        for s in candidates {
            let min = [s.aabb.min.x, s.aabb.min.y, s.aabb.min.z];
            let max = [s.aabb.max.x, s.aabb.max.y, s.aabb.max.z];

            let Some(t) = ray_aabb(origin, dir, min, max) else {
                continue;
            };

            if !t.is_finite() || t < 0.0 || t > max_distance {
                continue;
            }
            hits.push((s.component, t));
        }

        hits.sort_by(|a, b| a.1.partial_cmp(&b.1).unwrap_or(std::cmp::Ordering::Equal));
        if limit > 0 && hits.len() > limit {
            hits.truncate(limit);
        }
        hits
    }

    pub fn query_point(&self, point: [f32; 3]) -> Vec<ComponentId> {
        let Some(bvh) = &self.bvh else {
            return Vec::new();
        };

        if self.shapes.is_empty() || bvh.nodes.is_empty() {
            return Vec::new();
        }

        let p = Point3::new(point[0], point[1], point[2]);

        let mut hits = Vec::new();
        let mut stack = vec![0usize];
        while let Some(node_index) = stack.pop() {
            match bvh.nodes[node_index] {
                BVHNode::Node {
                    child_l_index,
                    child_l_aabb,
                    child_r_index,
                    child_r_aabb,
                    ..
                } => {
                    if child_l_aabb.contains(&p) {
                        stack.push(child_l_index);
                    }
                    if child_r_aabb.contains(&p) {
                        stack.push(child_r_index);
                    }
                }
                BVHNode::Leaf { shape_index, .. } => {
                    if let Some(s) = self.shapes.get(shape_index) {
                        if s.aabb.contains(&p) {
                            hits.push(s.component);
                        }
                    }
                }
            }
        }

        hits
    }

    pub fn query_aabb(&self, min: [f32; 3], max: [f32; 3]) -> Vec<ComponentId> {
        let Some(bvh) = &self.bvh else {
            return Vec::new();
        };

        if self.shapes.is_empty() || bvh.nodes.is_empty() {
            return Vec::new();
        }

        let query = AABB::with_bounds(
            Point3::new(min[0], min[1], min[2]),
            Point3::new(max[0], max[1], max[2]),
        );

        let mut hits = Vec::new();
        let mut stack = vec![0usize];
        while let Some(node_index) = stack.pop() {
            match bvh.nodes[node_index] {
                BVHNode::Node {
                    child_l_index,
                    child_l_aabb,
                    child_r_index,
                    child_r_aabb,
                    ..
                } => {
                    if aabb_overlap_bvh(&query, &child_l_aabb) {
                        stack.push(child_l_index);
                    }
                    if aabb_overlap_bvh(&query, &child_r_aabb) {
                        stack.push(child_r_index);
                    }
                }
                BVHNode::Leaf { shape_index, .. } => {
                    if let Some(s) = self.shapes.get(shape_index) {
                        if aabb_overlap_bvh(&query, &s.aabb) {
                            hits.push(s.component);
                        }
                    }
                }
            }
        }

        hits
    }
}

fn raycastable_marker_on_node(
    world: &World,
    component_id: ComponentId,
) -> Option<RaycastableComponent> {
    world
        .get_component_by_id_as::<RaycastableComponent>(component_id)
        .copied()
        .or_else(|| {
            world.children_of(component_id).iter().find_map(|&child| {
                world
                    .get_component_by_id_as::<RaycastableComponent>(child)
                    .copied()
            })
        })
}

fn aabb_overlap_bvh(a: &AABB, b: &AABB) -> bool {
    !(a.max.x < b.min.x
        || a.min.x > b.max.x
        || a.max.y < b.min.y
        || a.min.y > b.max.y
        || a.max.z < b.min.z
        || a.min.z > b.max.z)
}

impl crate::engine::ecs::system::System for BvhSystem {
    fn tick(
        &mut self,
        world: &mut World,
        _visuals: &mut VisualWorld,
        _input: &InputState,
        _dt_sec: f32,
    ) {
        self.flush_pending(world);
    }
}

fn aabb_from_world_matrix_for_mesh(
    mesh: CpuMeshHandle,
    m: TransformMatrix,
) -> Option<([f32; 3], [f32; 3])> {
    let local = crate::engine::graphics::bounds::mesh_local_aabb(mesh)?;
    let world = local.transformed(m);
    Some((world.min, world.max))
}

fn ray_aabb(
    origin: [f32; 3],
    dir: [f32; 3],
    aabb_min: [f32; 3],
    aabb_max: [f32; 3],
) -> Option<f32> {
    // Slab test. Returns nearest positive t.
    let mut tmin = 0.0f32;
    let mut tmax = f32::INFINITY;

    for axis in 0..3 {
        let o = origin[axis];
        let d = dir[axis];
        let min = aabb_min[axis];
        let max = aabb_max[axis];

        if d.abs() < 1e-6 {
            if o < min || o > max {
                return None;
            }
            continue;
        }

        let inv_d = 1.0 / d;
        let mut t0 = (min - o) * inv_d;
        let mut t1 = (max - o) * inv_d;
        if t0 > t1 {
            std::mem::swap(&mut t0, &mut t1);
        }
        tmin = tmin.max(t0);
        tmax = tmax.min(t1);
        if tmax < tmin {
            return None;
        }
    }

    if tmin >= 0.0 {
        Some(tmin)
    } else if tmax >= 0.0 {
        Some(tmax)
    } else {
        None
    }
}

#[cfg(test)]
mod tests {
    use super::BvhSystem;
    use crate::engine::ecs::World;
    use crate::engine::ecs::component::{
        BoundsComponent, RaycastableComponent, RenderableComponent, TransformComponent,
    };
    use crate::engine::graphics::bounds::Aabb;
    use crate::engine::graphics::primitives::{CpuMeshHandle, MaterialHandle, Renderable};

    #[test]
    fn imported_renderable_uses_cached_local_bounds() {
        let mut world = World::default();
        let transform = world.add_component(TransformComponent::new().with_position(2.0, 3.0, 4.0));
        let renderable = world.add_component(RenderableComponent::new(Renderable::new(
            CpuMeshHandle(999),
            MaterialHandle::TOON_MESH,
        )));
        let bounds = world.add_component(BoundsComponent::new(Aabb {
            min: [-1.0, -2.0, -3.0],
            max: [1.0, 2.0, 3.0],
        }));
        let _ = world.add_child(transform, renderable);
        let _ = world.add_child(renderable, bounds);

        let aabb = BvhSystem::compute_aabb_for_renderable(&world, renderable)
            .expect("cached imported bounds should produce a BVH shape");
        assert_eq!([aabb.min.x, aabb.min.y, aabb.min.z], [1.0, 1.0, 1.0]);
        assert_eq!([aabb.max.x, aabb.max.y, aabb.max.z], [3.0, 5.0, 7.0]);
    }

    #[test]
    fn transform_raycastable_sidecar_governs_generated_descendant_renderable() {
        let mut world = World::default();
        let panel_row = world.add_component(TransformComponent::new());
        let raycastable = world.add_component(RaycastableComponent::click_only());
        let generated_style_transform = world.add_component(TransformComponent::new());
        let generated_background = world.add_component(RenderableComponent::cube());
        world.add_child(panel_row, raycastable).unwrap();
        world
            .add_child(panel_row, generated_style_transform)
            .unwrap();
        world
            .add_child(generated_style_transform, generated_background)
            .unwrap();

        let governing = BvhSystem::find_raycastable_for_renderable(&world, generated_background)
            .expect("panel row sidecar should govern its generated background");
        assert_eq!(
            governing.pointer_events,
            crate::engine::ecs::component::PointerEvents::ClickOnly
        );
    }

    #[test]
    fn nearest_raycastable_sidecar_can_disable_parent_opt_in() {
        let mut world = World::default();
        let panel = world.add_component(TransformComponent::new());
        let panel_raycastable = world.add_component(RaycastableComponent::enabled());
        let marker = world.add_component(TransformComponent::new());
        let marker_raycastable = world.add_component(RaycastableComponent::disabled());
        let renderable = world.add_component(RenderableComponent::cube());
        world.add_child(panel, panel_raycastable).unwrap();
        world.add_child(panel, marker).unwrap();
        world.add_child(marker, marker_raycastable).unwrap();
        world.add_child(marker, renderable).unwrap();

        assert!(BvhSystem::find_raycastable_for_renderable(&world, renderable).is_none());
    }

    #[test]
    fn nearest_control_inherits_containing_interaction_layer_priority() {
        let mut world = World::default();
        let panel = world.add_component(TransformComponent::new());
        let panel_layer =
            world.add_component(RaycastableComponent::enabled().with_interaction_priority(100));
        let row = world.add_component(TransformComponent::new());
        let row_click = world.add_component(RaycastableComponent::click_only());
        let renderable = world.add_component(RenderableComponent::cube());
        world.add_child(panel, panel_layer).unwrap();
        world.add_child(panel, row).unwrap();
        world.add_child(row, row_click).unwrap();
        world.add_child(row, renderable).unwrap();

        let governing = BvhSystem::find_raycastable_for_renderable(&world, renderable).unwrap();
        assert_eq!(
            governing.pointer_events,
            crate::engine::ecs::component::PointerEvents::ClickOnly
        );
        assert_eq!(governing.interaction_priority, 100);
    }
}