Best Porn Thumbnails

intothecontinuum: Inspired by an exhibit in the Gallery Room in Antichamber Mathematica code: v[x_, y_, z_] = Flatten[Table[ {(-1)^i*x, (-1)^j*y, (-1)^k*z}, {i, 0, 1}, {j, 0, 1}, {k, 0, 1} ], 2];f = {{1 , 2 , 4 , 3 }, {1 , 2 , 6 , 5 }, {5 ,