summaryrefslogtreecommitdiff
path: root/info/examples/lgc/4-6-26.ltx
blob: 96e648f5bcaa3313e881dc8b9fc0735aa3729877 (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
30
31
32
33
34
35
\documentclass{ppex}
\nonstopmode
\usepackage {pstcol,pst-node,multido}
\pagestyle{empty}
\setlength\textwidth{207.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage {pstcol,pst-node,multido}
\newcounter{CtA}     \newcounter{CtB}
\newcommand{\Wheel}[3]{{%
\color{black}     \psset{unit=#2}
\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}}}
\endpspicture}}% 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]}}
}
\end{document}