Pensieve header: “House of Mirrors” image transformations.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Classes\\12-267"];

{im1, im2} = {ImageTake[
Import["http://drorbn.net/dbnvp/frames/12-267-120918@0-00-00.jpg"],
{150,480}, {1,400}
] // ImageResize[#, {320, 320}]&,
Import["grid.png"]
}

MakeImage["DeformedProf", 
GraphicsGrid[Table[
F[{x_,y_}] := {x^p, y^q};ImageTransformation[im1, F],
{p, {1/2, 1, 2}}, {q,{1/2,1,2}}
]]
]

MakeImage["DeformedGrid", 
GraphicsGrid[Table[
F[{x_,y_}] := {x^p, y^q};ImageTransformation[im2, F],
{p, {1/2, 1, 2}}, {q,{1/2,1,2}}
]]
]