Text this: Simulating Fourier optics using Mathematica /