summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/6_2/0-0-25.tex
diff options
context:
space:
mode:
Diffstat (limited to 'usergrps/uktug/baskervi/6_2/0-0-25.tex')
-rw-r--r--usergrps/uktug/baskervi/6_2/0-0-25.tex25
1 files changed, 25 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/6_2/0-0-25.tex b/usergrps/uktug/baskervi/6_2/0-0-25.tex
new file mode 100644
index 0000000000..56e2fa0d65
--- /dev/null
+++ b/usergrps/uktug/baskervi/6_2/0-0-25.tex
@@ -0,0 +1,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]}}