summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-02-24 23:36:18 +0000
committerKarl Berry <karl@freefriends.org>2011-02-24 23:36:18 +0000
commit2a886fbce3b9f2ed32e02e952d4b300e6e3dd7b4 (patch)
tree1e795c05f0261278a6d0889ad79c977485ec6e5c /Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx
parent9b3b61b4613379d47f4dc1700f76efc1c1dbfced (diff)
new german doc pstricks examples (23feb11)
git-svn-id: svn://tug.org/texlive/trunk@21511 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx')
-rw-r--r--Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx73
1 files changed, 73 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx
new file mode 100644
index 00000000000..8283d4463f6
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks-examples/36-00-9.ltx
@@ -0,0 +1,73 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%%
+%% Copyright (C) 2010 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[]{exaarticle}
+\pagestyle{empty}
+\setlength\textwidth{190.324pt}
+\setlength\parindent{0pt}
+\StartShownPreambleCommands
+\usepackage{pstricks}
+\psset{unit=1ex}
+\newcount\elcount
+\newcount\Xresult
+\makeatletter
+\def\foreach#1#2{%
+ \ifx\\#2\\%
+ \else\@ReturnAfterFi{\do@foreach{#2}#1\@nil}%
+ \fi%
+}
+\def\do@foreach#1#2#3\@nil{%
+ #1#2%
+ \ifx\\#3\\%
+ \else\@ReturnAfterFi{\do@foreach{#1}#3\@nil}%
+ \fi%
+}
+\long\def\@ReturnAfterFi#1\fi{\fi#1}
+
+\def\lambda#1{\csname do#1\endcsname}
+\expandafter\def\csname do.\endcsname{\OneSignal{0}}
+\expandafter\def\csname do-\endcsname{\OneSignal{1}}
+\def\OneSignal#1{%
+ \lineto(\the\elcount,#1)
+ \advance\elcount by 1
+ \lineto(\the\elcount,#1)
+}
+\def\signal{\@ifnextchar[{\signal@i}{\signal@i[]}}
+\def\signal@i[#1]#2#3{%
+ #2 &
+ \Xresult=0
+ \foreach{#3}{\advance\Xresult by 1 }%
+&
+ \begin{pspicture}[#1](\the\Xresult,1)
+ \elcount=0
+ \pscustom{%
+ \moveto(0,0)
+ \foreach{#3}{\lambda}}
+ \end{pspicture}\\%
+}
+\makeatother
+
+\StopShownPreambleCommands
+\begin{document}
+\psset{yunit=2ex}
+\begin{tabular}{@{}llp{3.75cm}}
+ Text & Parameter & Result\\\hline
+ ~\\[-10pt]
+ \signal[linewidth=1pt,linecolor=red]{XSUS\_G}{-.-.-.-.-.-.-.-.-.-.-}
+ \signal[linewidth=1pt,linecolor=green]{XPR\_U${}_1$}{..--..--..--..--..--.}
+ \signal[linewidth=1pt,linecolor=blue]{XPR\_U${}_2$}{....----....----....-}
+\end{tabular}
+\end{document}