WaveletImagePlot[DiscreteWaveletTransform[ImageCrop[Import["ExampleData/peacock.tif"],{150,150}],Automatic,4],ImageSize->135,PlotLayout->"Grid"]