From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 usergrps/uktug/baskervi/6_2/0-0-25.tex | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 usergrps/uktug/baskervi/6_2/0-0-25.tex

(limited to 'usergrps/uktug/baskervi/6_2/0-0-25.tex')

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]}}
-- 
cgit v1.2.3

