rhombicosidodecahedronFaces :: [[Int]]
rhombicosidodecahedronFaces = rhombicosidodecahedronTriangles ++
                              rhombicosidodecahedronQuads ++
                              (chop 5 $ take 60 [0..])           -- pentagonal faces
  where toPoints (i,j,k) = [dodecahedronPoints !! i, dodecahedronPoints !! j, dodecahedronPoints !! k]


-- Snub Dodecahedron


-- used to expands the faces of a dodecahedron of edge length 2/gold into a rhombicosidodecahedron
rhombicosidodecahedronFaces :: [[Int]]
rhombicosidodecahedronFaces = rhombicosidodecahedronTriangles ++
                              rhombicosidodecahedronQuads ++
                              (chop 5 $ take 60 [0..])           -- pentagonal faces
  where toPoints (i,j,k) = [dodecahedronPoints !! i, dodecahedronPoints !! j, dodecahedronPoints !! k]


-- Snub Dodecahedron


-- used to expands the faces of a dodecahedron of edge length 2/gold into a rhombicosidodecahedron
rhombicosidodecahedronFaces = rhombicosidodecahedronTriangles ++
                              rhombicosidodecahedronQuads ++
                              (chop 5 $ take 60 [0..])           -- pentagonal faces
  where toPoints (i,j,k) = [dodecahedronPoints !! i, dodecahedronPoints !! j, dodecahedronPoints !! k]


-- Snub Dodecahedron


-- used to expands the faces of a dodecahedron of edge length 2/gold into a rhombicosidodecahedron