In[]:=
g=Graphics[{EdgeForm[Black],Gray,Triangle[],Disk[{1,1},.25]},​​AxesTrue,​​AxesOrigin{0,0},​​PlotRange2]
Out[]=
In[]:=
g/.(x_/;Head[x]Triangle||Head[x]DiskTranslate[x,{0.5,0.5}])
Out[]=
In[]:=
g/.(x_/;Head[x]Triangle||Head[x]DiskRotate[x,π/3,{0,0}])
Out[]=