Dtjytyk

I want to construct a series of circles which ranks shoulder to shoulder in every page footer. The number of circles is just the number of total pages, that is to say, each circle represents a page. At the center of each circle is the current page number.

It's easy to achieve this by foreach from pgf if diametes of all these circles are same. However, I want the circle which represents the current page has a larger diameter.

The typeset is like the attached figure produced by the following MWE.
Anyone can help me with this?

MWE:

documentclassarticle
usepackagefancyhdr,geometry,color,tikz
geometryshowframe

begindocument
pagestylefancy
fancyhf
renewcommandfootrulewidth0.4pt
some text...

cfoot
begintikzpicture
 draw[fill=gray,text=white,radius=0.5](0,0)circle node1;
 draw[fill=red,text=white,radius=1](1.5,0)circle node2;
 draw[fill=gray,text=white,radius=0.5](3,0)circle node3; 
endtikzpicture

enddocument

Something like that?

documentclassarticle
usepackagefancyhdr,geometry,lastpage,refcount,lipsum,tikz
geometryshowframe
usetikzlibrarypositioning
begindocument
pagestylefancy
fancyhf
renewcommandfootrulewidth0.4pt
some text...
newcounterlastpagenumber%
setcounterlastpagenumbergetrefbykeydefaultLastPagepage1%

cfootbegintikzpicture
coordinate (cn-0);
foreach X [remember=X as LastX (initially 0)] in 1,...,thelastpagenumber
ifnumX=thepage
 node[circle,fill=red,text=white,minimum size=1cm,right=0pt of cn-LastX] (cn-X) X;
 else
 node[circle,fill=gray,text=white,minimum size=0.5cm,right=0pt of cn-LastX] (cn-X) X;
 fi

endtikzpicture

lipsum[1-31]
enddocument

Of course, one can customize the output in many ways.

documentclassarticle
usepackagefancyhdr,geometry,lastpage,refcount,lipsum,tikz
geometryshowframe
usetikzlibrarypositioning
begindocument
pagestylefancy
fancyhf
renewcommandfootrulewidth0.4pt
some text...
newcounterlastpagenumber%
setcounterlastpagenumbergetrefbykeydefaultLastPagepage1%

cfootbegintikzpicture
coordinate (cn-0);
foreach X [remember=X as LastX (initially 0)] in 1,...,thelastpagenumber
ifnumX=thepage
 node[circle,draw,thick,font=sffamilyLargebfseries,fill=red,text=white,minimum size=1cm,right=0pt of cn-LastX] (cn-X) X;
 else
 node[circle,draw,font=sffamilybfseries,fill=gray,text=white,minimum size=0.5cm,right=0pt of cn-LastX] (cn-X) X;
 fi

endtikzpicture

lipsum[1-31]
enddocument

And if you find circles a bit dull, you could do

documentclassarticle
usepackagefancyhdr,geometry,lastpage,refcount,lipsum,tikzducks,tikzlings
geometryshowframe
usetikzlibrarypositioning,backgrounds
begindocument
pagestylefancy
fancyhf
renewcommandfootrulewidth0.4pt
some text...
newcounterlastpagenumber%
setcounterlastpagenumbergetrefbykeydefaultLastPagepage1%

cfootbegintikzpicture
coordinate (cn-0);
foreach X [remember=X as LastX (initially 0)] in 1,...,thelastpagenumber
ifnumX=thepage
 node[font=sffamilyLargebfseries,text=white,minimum size=1cm,right=0pt of cn-LastX] (cn-X) X;
 beginscope[scale=0.4,on background layer,shift=(cn-X.center),yshift=-3em]
 marmot
 endscope
 else
 node[font=sffamilybfseries,text=black,minimum size=0.5cm,right=0pt of cn-LastX] (cn-X) X;
 beginscope[scale=0.3,on background layer,shift=(cn-X.center),yshift=-3em]
 koala
 endscope
 fi

endtikzpicture

lipsum[1-31]
enddocument