lena=Import["lena.png"]

piet=Import["piet.gif"]

don=Import["gohome.jpg"]

roteer[t] geeft een rotatiematrix met rotatiehoek t

roteer[t_]:={{Cos[t Degree],-Sin[t Degree]},{Sin[t Degree],Cos[t Degree]}};

spiegelx geeft een matrix die een spiegeling in de x-as voorstelt

spiegelx:={{1,0},{0,-1}};

spiegel[ϕ] geeft een matrix die overeenkomt met een spiegeling in de lijn die hoek ϕ maakt met de positieve x-as

spiegel[ϕ_]:=roteer[-ϕ].spiegelx.roteer[ϕ];

schaal[a,b] geeft een matrix die in de x-richting schaalt met factor a en in de y-richting met factor b.

schaal[a_,b_]={{a,0},{0,b}};

deform[M, plaatje] past de transformatiematrix M toe op het plaatje

transform[matrix_, image_]:=
ImageForwardTransformation[image,Flatten[matrix.{{#[[1]]},{#[[2]]}}]&, DataRange->{{-1,1},{-1,1}},PlotRange->{{-2,2},{-2,2}},AspectRatio->1]

m={{1,0},{0,1}} ;
MatrixForm[m]
transform[m,don]