Ant[x_:{0,0},o_:I]:=With[{y=-.05,m=RotationMatrix[-Arg[o]]},{Red,Circle[x+{0,0},.5],Disk[x+m.{0,.3+y},.07],Disk[x+m.{0,.09+y},Abs[m.({.07,.1}1.4)]],Disk[x+m.{0,-.15+y},Abs[m.({.08,.1}1.4)]],{Line[{x+m.{0,.3+y},x+m.{-.1#,.4+y}}],Line[{x+m.{0,0.05},x+m.{.2#,.15}}],Line[{x+m.{0,.05},x+m.{.22#,.05}}],Line[{x+m.{0,0.05},x+m.{.2#,-.05}}],}&/@{-1,1}}]Show[Graphics[Ant[{5,5}]],AspectRatioAutomatic]