intothecontinuum- Mathematica code-Rot80 = Table[ Table[ RotationTransform[a, {1, 1, 0}, {0, 0, 0}