summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-graphics-companion/4-6-26.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-graphics-companion/4-6-26.ltx')
-rw-r--r--Master/texmf-dist/doc/latex/latex-graphics-companion/4-6-26.ltx35
1 files changed, 35 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-graphics-companion/4-6-26.ltx b/Master/texmf-dist/doc/latex/latex-graphics-companion/4-6-26.ltx
new file mode 100644
index 00000000000..96e648f5bca
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/latex-graphics-companion/4-6-26.ltx
@@ -0,0 +1,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}