summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl')
-rw-r--r--Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl29
1 files changed, 29 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl b/Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl
new file mode 100644
index 00000000000..2331474e25f
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pstricks/lgc/4-6-26.inl
@@ -0,0 +1,29 @@
+\newcounter{CtA}
+\newcounter{CtB}
+
+\newcommand{\Wheel}[3]{{%
+ \color{black}
+ \psset{unit=#2}
+ \begin{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}}}
+ \end{pspicture}}}% 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]}}
+}
+