theostuff ringlaser in mathematica