砂 + computeSpectrum

fork http://wonderfl.net/c/2rWu