Function supCone

Cone support function

Vector!(float,3) supCone (
  Vector!(float,3) dir,
  float radius,
  float height
);