summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-116.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-116.ltx')
-rw-r--r--Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-116.ltx104
1 files changed, 0 insertions, 104 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-116.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-116.ltx
deleted file mode 100644
index 2a51af4bcbd..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-116.ltx
+++ /dev/null
@@ -1,104 +0,0 @@
-%%
-%% A DANTE-Edition example
-%%
-%%
-%% Copyright (C) 2011 Herbert Voss
-%%
-%% It may be distributed and/or modified under the conditions
-%% of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%%
-%% See http://www.latex-project.org/lppl.txt for details.
-%%
-%%
-%% ====
-% Show page(s) 1
-%%
-\documentclass[]{article}
-\pagestyle{empty}
-\setlength\textwidth{375.57637pt}
-
-\usepackage{pstricks}
-\parindent=0pt
-\makeatletter
-\def\@nameedef#1{\expandafter\edef\csname#1\endcsname}
-\newrgbcolor{jaunesale}{1.00 0.90 0.50}
-\newpsstyle{corde}{doubleline=true,
- doublecolor=jaunesale, linewidth=1pt,
- doublesep=4pt}
-\newpsobject{entier}{psccurve}{style=corde}
-\newpsobject{partie}{psecurve}{style=corde}
-
-\newcount\n@eudmax
-
-\def\noeud{%
- \count@=0
- \n@eud
-}
-\def\n@eud{%
- \@ifnextchar+{\n@eudp}{\@ifnextchar({\n@eudm}{\n@@ud}}%
-}
-\def\n@eudp+(#1){%
- \@namedef{noeud\the\count@}{(#1)}%
- \@namedef{pos\the\count@}{+}%
- \advance\count@\@ne
- \n@eud
-}
-\def\n@eudm(#1){%
- \@namedef{noeud\the\count@}{(#1)}%
- \@namedef{pos\the\count@}{-}%
- \advance\count@\@ne
- \n@eud
-}
-\def\n@@ud{%
- \n@eudmax=\count@
- \advance\count@-1
- \@nameedef{noeud-1}{\csname noeud\the\count@\endcsname}%
- \@nameedef{pos-1}{\csname pos\the\count@\endcsname}%
- \advance\count@\m@ne
- \@nameedef{noeud-2}{\csname noeud\the\count@\endcsname}%
- \@nameedef{pos-2}{\csname pos\the\count@\endcsname}%
- \advance\count@2
- \@nameedef{noeud\the\count@}{\csname noeud0\endcsname}%
- \@nameedef{pos\the\count@}{\csname pos0\endcsname}%
- \advance\count@\@ne
- \@nameedef{noeud\the\count@}{\csname noeud1\endcsname}%
- \@nameedef{pos\the\count@}{\csname pos1\endcsname}%
- \count@=0
- \def\chemin{}%
- \loop
- \edef\chemin{\chemin\csname noeud\the\count@\endcsname}%
- \advance\count@\@ne
- \ifnum\count@<\n@eudmax
- \repeat
- \expandafter\entier\chemin
- \count@=0
- \loop
- \if\@nameuse{pos\the\count@}+\relax
- \advance\count@-2
- \edef\chemin{\csname noeud\the\count@\endcsname}%
- \advance\count@\@ne
- \edef\chemin{\chemin\csname noeud\the\count@\endcsname}%
- \advance\count@\@ne
- \edef\chemin{\chemin\csname noeud\the\count@\endcsname}%
- \advance\count@\@ne
- \edef\chemin{\chemin\csname noeud\the\count@\endcsname}%
- \advance\count@\@ne
- \edef\chemin{\chemin\csname noeud\the\count@\endcsname}%
- \advance\count@-2
- \expandafter\partie\chemin
- \fi
- \advance\count@\@ne
- \ifnum\count@<\n@eudmax
- \repeat
-}
-\makeatother
-
-
-\begin{document}
-\begin{pspicture}(0,0)(7,5)
- \noeud(0,2)(1,0)+(3,1)(3.1,1.4)(3.2,1.8)(3,3)(3,4)(4,5)+(5,4)(4,2)
- +(3.2,1.8)(2,2)(1,1)(3,1)(4,1)(5,0)(6,0)(7,2)(6,4)(5,4)(4,3)
- +(3,4)(2,4)(1,3)
-\end{pspicture}
-\end{document}