- | Scale vectors by scalars, @v * s@.
scale :: T -> Float -> T
scale (V3 x0 y0 z0) s =
  V3 (x0 * s) (y0 * s) (z0 * s)

scale :: T -> Float -> T
scale (V3 x0 y0 z0) s =
  V3 (x0 * s) (y0 * s) (z0 * s)
scale (V3 x0 y0 z0) s =
  V3 (x0 * s) (y0 * s) (z0 * s)