LT[A_]:=Module[{F},
F={{0,0},{1,0},{1,2},{3,2},{3,3},{1,3},{1,4},{4,4},{4,5},{0,5},{0,0}};
原像={Pink,Thickness[0.008], Line[F]};
像={Blue,Thickness[0.008],Line[Map[A.#&,F]]};
Show[Graphics[{原像, 像}],Axes->True,
GridLines->{Table[i,{i,-8,8}],Table[i,{i,-8,8}]},
AspectRatio-> 1, PlotRange->{{-8,8},{-8,8}}]]

A=(({{3/5, 4/5}, {4/5, -3/5}}));

LT[A]