-- faces are pointing inward
icosahedronFaces :: [[Int]]
icosahedronFaces = [ [0,1,8]
                   , [0,11,1]
                   , [2,3,9]
                   , [2,10,3]
                   , [4,5,0]
                   , [4,3,5]
                   , [6,7,1]
                   , [6,2,7]
                   , [8,9,4]
                   , [8,7,9]
                   , [10,11,5]
                   , [10,6,11]
                   , [0,8,4]
                   , [0,5,11]
                   , [1,7,8]
                   , [1,11,6]
                   , [2,9,7]
                   , [2,6,10]
                   , [3,4,9]
                   , [3,10,5]
                   ]
icosahedronFaces :: [[Int]]
icosahedronFaces = [ [0,1,8]
                   , [0,11,1]
                   , [2,3,9]
                   , [2,10,3]
                   , [4,5,0]
                   , [4,3,5]
                   , [6,7,1]
                   , [6,2,7]
                   , [8,9,4]
                   , [8,7,9]
                   , [10,11,5]
                   , [10,6,11]
                   , [0,8,4]
                   , [0,5,11]
                   , [1,7,8]
                   , [1,11,6]
                   , [2,9,7]
                   , [2,6,10]
                   , [3,4,9]
                   , [3,10,5]
                   ]
icosahedronFaces = [ [0,1,8]
                   , [0,11,1]
                   , [2,3,9]
                   , [2,10,3]
                   , [4,5,0]
                   , [4,3,5]
                   , [6,7,1]
                   , [6,2,7]
                   , [8,9,4]
                   , [8,7,9]
                   , [10,11,5]
                   , [10,6,11]
                   , [0,8,4]
                   , [0,5,11]
                   , [1,7,8]
                   , [1,11,6]
                   , [2,9,7]
                   , [2,6,10]
                   , [3,4,9]
                   , [3,10,5]
                   ]