pentagonalFloretIco :: RealFloat a => [[Point3f a]]
pentagonalFloretIco = concatMap (toFloretFace . idsToFace) icosahedronFaces
  where idsToFace [i,j,k] = [icosahedronPoints !! i, icosahedronPoints !! j, icosahedronPoints !! k]
pentagonalFloretIco :: RealFloat a => [[Point3f a]]
pentagonalFloretIco = concatMap (toFloretFace . idsToFace) icosahedronFaces
  where idsToFace [i,j,k] = [icosahedronPoints !! i, icosahedronPoints !! j, icosahedronPoints !! k]
pentagonalFloretIco = concatMap (toFloretFace . idsToFace) icosahedronFaces
  where idsToFace [i,j,k] = [icosahedronPoints !! i, icosahedronPoints !! j, icosahedronPoints !! k]