summaryrefslogtreecommitdiff
path: root/info/examples/lgc/4-6-26.ltx
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/lgc/4-6-26.ltx
Initial commit
Diffstat (limited to 'info/examples/lgc/4-6-26.ltx')
-rw-r--r--info/examples/lgc/4-6-26.ltx35
1 files changed, 35 insertions, 0 deletions
diff --git a/info/examples/lgc/4-6-26.ltx b/info/examples/lgc/4-6-26.ltx
new file mode 100644
index 0000000000..96e648f5bc
--- /dev/null
+++ b/info/examples/lgc/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}