嗯~~
images = Image[
Table[{i/50 , Sin[#] j/50, #^3 Sin[i j]}, {i, 0, 50}, {j, 0, 50}]] & /@
Range[0, 1, 0.2];
levs = ({{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1,
0}} + #) & /@ (ConstantArray[{0, 0, #}, 4] & /@ Range[0, 1, 0.2]);
Graphics3D[{MapThread[{Texture[#1],
Polygon[#2,
VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0,
1}}]} &, {images, levs}]}]