Clip
type vertex = Vec3.t * (float * float) * Vec3.t
val near_plane : near:float -> vertex list -> vertex list