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]}}
}
|