Btukfyl

I would like to make some modifications for this code

documentclass{beamer} 

usepackage{tikz}

usetikzlibrary{arrows,automata,positioning}

usepackage{verbatim}

usetikzlibrary{calc,shadows} 

%begin for smartart

makeatletter 

@namedef{color@1}{red!30}

@namedef{color@2}{cyan!30}   

@namedef{color@3}{blue!30} 

@namedef{color@4}{green!30}  

@namedef{color@5}{magenta!30} 

@namedef{color@6}{yellow!30}    

@namedef{color@7}{orange!30}    

@namedef{color@8}{violet!30}   

newcommand{smartart}[1]{%

begin{tikzpicture}[every node/.style={align=center}]  

foreach gritem [count=xi] in {#1}  {globalletmaxgritemxi}  

foreach gritem [count=xi] in {#1}

{% 

pgfmathtruncatemacro{angle}{360/maxgritem*xi}

edefcol{@nameuse{color@xi}}

node[rectangle,

rounded corners,

 thick,

 draw=gray,

 top color= white,

 bottom color=col,

 drop shadow,

 text width=1.75cm,

 minimum width=2cm,

 minimum height=1cm,

 font=small] (satellitexi) at (angle:2.75cm) {gritem };

}%

foreach gritem [count=xi] in {#1}

{% 

pgfmathtruncatemacro{xj}{mod(xi, maxgritem) + 1)} 

edefcol{@nameuse{color@xj}}

draw[<-,>=stealth,line width=.1cm,col,shorten <=0.3cm,shorten >=0.3cm] (satellitexj) to[bend left] (satellitexi);

}%

end{tikzpicture}  

}%

tikzset{

invisible/.style={opacity=0},

visible on/.style={alt=#1{}{invisible}},

alt/.code args={<#1>#2#3}{%

  alt<#1>{pgfkeysalso{#2}}{pgfkeysalso{#3}} % pgfkeysalso doesn't change the path

},

  }

newcommand{smartartov}[1]{%

begin{tikzpicture}[every node/.style={align=center}]  

foreach gritem [count=xi] in {#1}  {globalletmaxgritemxi}  

foreach gritem [count=xi] in {#1}

{% 

pgfmathtruncatemacro{angle}{360/maxgritem*xi}

edefcol{@nameuse{color@xi}}

node[rectangle,

rounded corners,

 thick,

 draw=gray,

 top color= white,

 bottom color=col,

 drop shadow={visible on=<xi->},

 text width=1.75cm,

 minimum width=2cm,

 minimum height=1cm,

 font=small,

 visible on=<xi->] (satellitexi) at (angle:2.75cm) {gritem };

}%

foreach gritem [count=xi] in {#1}

{% 

pgfmathtruncatemacro{xj}{mod(xi, maxgritem) + 1)}

pgfmathtruncatemacro{adv}{xi + 1)}

edefcol{@nameuse{color@xi}}

draw[<-,>=stealth,line width=.1cm,col,shorten <=0.3cm,shorten >=0.3cm,

visible on=<adv->] (satellitexj) to[bend left] (satellitexi);

}%

end{tikzpicture}  

}%

makeatother

%end for smartart

begin{document}

begin{frame}{Smart art}

begin{center}

smartartov{Low economic growth,Low income,Low saving,Low investment}

end{center}

end{frame}

end{document}

which produces the following animated figure

1. The cycle to be clockwise not anticlockwise




2. Double circles as in the lower figure




3. no animation

to look like