Function supCylinder

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