external set_occluder : t -> Convex_planar_occluder.t -> unit = "occluder_node_set_occluder"