Update ComplexScene.R

Clean up a bit; add exponential and negative exponential functions. Reinstate rotation code.