1 2 3 4
/// Multiply a p-vector by a scalar. pub fn sxp(s: f64, p: &[f64; 3]) -> [f64; 3] { [s * p[0], s * p[1], s * p[2]] }