lst={{0,0},{1,0},{-1,1}};pol2=Polygon[lst];
lst2=Map[(#+{1,-2}&),lst]
pol=Polygon[lst2];

Graphics[{{Red,Rotate[pol,40 Degree, {0,0}]},{Blue,pol2}},Axes->True,PlotRange->{{-3,3},{-3,3}}]

Graphics[{{Lighter[Red,0.7],Rotate[pol,40 Degree,{0,0}]},{Blue,pol2},{Red,pol}},Axes->True,PlotRange->{{-4,4},{-4,4}}]