Function supSphere

Sphere support function

Vector!(float,3) supSphere (
  Vector!(float,3) dir,
  float radius
);