summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/35-00-9.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_7_de/35-00-9.ltx')
-rw-r--r--info/examples/PSTricks_7_de/35-00-9.ltx77
1 files changed, 77 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/35-00-9.ltx b/info/examples/PSTricks_7_de/35-00-9.ltx
new file mode 100644
index 0000000000..926c77e54c
--- /dev/null
+++ b/info/examples/PSTricks_7_de/35-00-9.ltx
@@ -0,0 +1,77 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 7. Auflage
+%%
+%% Beispiel 35-00-9 auf Seite 822.
+%%
+%% Copyright (C) 2016 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{193.16928pt}
+\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}