external set_occluder : t -> Convex_planar_polygon.t -> unit = "convex_planar_occluder_set_occluder"