WaveletMatrixPlot[DiscreteWaveletTransform[ImageData[],Automatic,3],ColorFunction->"GreenPinkTones",ImageSize->550]