snubDodecahedronFaces :: [[Int]]
snubDodecahedronFaces = rhombicosidodecahedronTriangles ++
                        (concatMap split rhombicosidodecahedronQuads) ++
                        (chop 5 $ take 60 [0..])           -- pentagonal faces
  where split [i,j,k,l] = [[i,j,k],[i,k,l]]


-- Pentagonal Hexecontahedron


-- dual of snub -> convert faces to vertice
snubDodecahedronFaces :: [[Int]]
snubDodecahedronFaces = rhombicosidodecahedronTriangles ++
                        (concatMap split rhombicosidodecahedronQuads) ++
                        (chop 5 $ take 60 [0..])           -- pentagonal faces
  where split [i,j,k,l] = [[i,j,k],[i,k,l]]


-- Pentagonal Hexecontahedron


-- dual of snub -> convert faces to vertice
snubDodecahedronFaces = rhombicosidodecahedronTriangles ++
                        (concatMap split rhombicosidodecahedronQuads) ++
                        (chop 5 $ take 60 [0..])           -- pentagonal faces
  where split [i,j,k,l] = [[i,j,k],[i,k,l]]


-- Pentagonal Hexecontahedron


-- dual of snub -> convert faces to vertice