Mathematica notebook for doing perspective shifts