blob: 56e2fa0d65719f50a3e8c4cedb2f0c060c09dc80 (
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
|
\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]}}
|