\newcount\CtA
\newcount\CtB
\newcommand{\Wheel}[3]{{%
\pspicture(-1,-1)(1,1)
\SpecialCoor
\degrees[#1]
\multido{\ia=1+1}{#1}{%
  \CtA=\ia
  \advance\CtA by 1
  \CtB=#1
  \advance\CtB by -\ia
  \multido{\ib=\CtA+1}
     {\CtB}{#3(1;\ia)(1;\ib)}}
\multido{\i=1+1}{#1}{%
  \rput(1;\i){%
   \pscirclebox[fillstyle=solid,
       fillcolor=white]%
    {\footnotesize\i}}}
\endpspicture}}
\makebox[\columnwidth][s]{%
\psset{unit=2cm}
\Wheel{3}{1.8}{\psline}
\Wheel{5}{1.8}{\psline}
\psset{arcangle=10}
\Wheel{12}{3}{\pcarc[linecolor=blue]}}