summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/6_2/0-0-25.tex
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]}}