rhombicosidodecahedronPointsFactory :: RealFloat a => a -> [Point3f a]
rhombicosidodecahedronPointsFactory expansionStep = foldr (++) [] $ map asList dodecahedronFaces
  where asList is = expandFace $ map (\i -> dodecahedronPoints !! i) is
        expandFace ps = map (add $ forceNorm expansionStep $ faceSum ps) ps
        faceSum ps = foldr add (Point3f 0 0 0) ps
rhombicosidodecahedronPointsFactory :: RealFloat a => a -> [Point3f a]
rhombicosidodecahedronPointsFactory expansionStep = foldr (++) [] $ map asList dodecahedronFaces
  where asList is = expandFace $ map (\i -> dodecahedronPoints !! i) is
        expandFace ps = map (add $ forceNorm expansionStep $ faceSum ps) ps
        faceSum ps = foldr add (Point3f 0 0 0) ps
rhombicosidodecahedronPointsFactory expansionStep = foldr (++) [] $ map asList dodecahedronFaces
  where asList is = expandFace $ map (\i -> dodecahedronPoints !! i) is
        expandFace ps = map (add $ forceNorm expansionStep $ faceSum ps) ps
        faceSum ps = foldr add (Point3f 0 0 0) ps