summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl
blob: 2331474e25f6f4888020a32b2bf7b0fe7ebae9bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
\newcounter{CtA}
\newcounter{CtB}

\newcommand{\Wheel}[3]{{%
  \color{black}
  \psset{unit=#2}
  \begin{pspicture}(-1,-1.2)(1,1.2)
    \SpecialCoor
    \degrees[#1]
    \multido{\ia=1+1}{#1}{%
      \setcounter{CtA}{\ia}%
      \stepcounter{CtA}%
      \setcounter{CtB}{#1}%
      \addtocounter{CtB}{-\ia}%
      \multido{\ib=\value{CtA}+1}{%
        \value{CtB}}{#3(1;\ia)(1;\ib)}}
    \multido{\i=1+1}{#1}{%
      \rput(1;\i){%
        \pscirclebox[fillstyle=solid,fillcolor=white]{\footnotesize\i}}}
  \end{pspicture}}}% end of newcommand

{%
 \color{white}
 \fbox{\Wheel{3}{1.2}{\psline}
 \Wheel{5}{1.2}{\psline}}
 \psset{arcangle=10}
 \fbox{\Wheel{12}{3}{\pcarc[linecolor=blue]}}
}