thinFloretIco :: RealFloat a => [[Point3f a]]
thinFloretIco = concatMap ((map $ take 4) . toFloretFace . idsToFace) icosahedronFaces
  where idsToFace [i,j,k] = [icosahedronPoints !! i, icosahedronPoints !! j, icosahedronPoints !! k]
thinFloretIco :: RealFloat a => [[Point3f a]]
thinFloretIco = concatMap ((map $ take 4) . toFloretFace . idsToFace) icosahedronFaces
  where idsToFace [i,j,k] = [icosahedronPoints !! i, icosahedronPoints !! j, icosahedronPoints !! k]
thinFloretIco = concatMap ((map $ take 4) . toFloretFace . idsToFace) icosahedronFaces
  where idsToFace [i,j,k] = [icosahedronPoints !! i, icosahedronPoints !! j, icosahedronPoints !! k]