In[]:=
xCoord=1.5;​​yCoord=0.475;​​r=0.365;​​drawArcArrow[{xc_,yc_},radius_,{t1_,t2_}]:=Module[{pts},pts=Table[{xc,yc}+radius{Cos[t],Sin[t]},{t,t1,t2,(t2-t1)/30.}];​​Arrow[pts]];​​Graphics[{Green,Thick,Arrowheads[0.1],drawArcArrow[{xCoord,yCoord},r,{-Pi(1/3-1/12),Pi(1/3-1/12)}],drawArcArrow[{xCoord,yCoord},r,{Pi(1/3+1/12),Pi(2/3+1/4)}],drawArcArrow[{xCoord,yCoord},r,{Pi(1+1/12),Pi(3/2+1/12)}]},ImageSize->Small]
Out[]=
In[]:=
xCoord=1.5;​​yCoord=0.475;​​r=0.365;​​Graphics[{Green,Thick,Arrowheads[0.1],Arrow[Circle[{xCoord,yCoord},{r,r},{-Pi(1/3-1/12),Pi(1/3-1/12)}]],Arrow[Circle[{xCoord,yCoord},{r,r},{Pi(1/3+1/12),Pi(2/3+1/4)}]],Arrow[Circle[{xCoord,yCoord},{r,r},{Pi(1+1/12),Pi(3/2+1/12)}]]},ImageSize->Small]
Out[]=