pentagonalHexecontahedronPoints :: RealFloat a => [Point3f a]
pentagonalHexecontahedronPoints = map (center . toPoints) snubDodecahedronFaces
  where toPoints (i:is) = (snubDodecahedronPoints !! i) : toPoints is
        toPoints [] = []
        center ps = times ((/) 1 $ fromIntegral $ length ps) $ foldr add (Point3f 0 0 0) ps
pentagonalHexecontahedronPoints :: RealFloat a => [Point3f a]
pentagonalHexecontahedronPoints = map (center . toPoints) snubDodecahedronFaces
  where toPoints (i:is) = (snubDodecahedronPoints !! i) : toPoints is
        toPoints [] = []
        center ps = times ((/) 1 $ fromIntegral $ length ps) $ foldr add (Point3f 0 0 0) ps
pentagonalHexecontahedronPoints = map (center . toPoints) snubDodecahedronFaces
  where toPoints (i:is) = (snubDodecahedronPoints !! i) : toPoints is
        toPoints [] = []
        center ps = times ((/) 1 $ fromIntegral $ length ps) $ foldr add (Point3f 0 0 0) ps