let set_to_unit_frustum ?(with_near=true) ?(with_far=true) p =
  set_to_unit_frustum' p with_near with_far