summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-10-14 23:25:45 +0000
committerKarl Berry <karl@freefriends.org>2011-10-14 23:25:45 +0000
commitcf02168f68651051c7b0bd61322a7f5547565129 (patch)
treee1add7fbc36a1399a84a69f06e825f123f53131b /Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx
parent895adaa5b890a2593a7da3e90d8f1d9a96c1220d (diff)
new doc pstricks-examples-en (14oct11)
git-svn-id: svn://tug.org/texlive/trunk@24289 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx')
-rw-r--r--Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx74
1 files changed, 74 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx
new file mode 100644
index 00000000000..f1ff1c713f1
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks-examples-en/36-00-7.ltx
@@ -0,0 +1,74 @@
+%%
+%% A DANTE-Edition example
+%%
+%% Example 36-00-7 on page 772.
+%%
+%% 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}
+\setlength\parindent{0pt}
+
+\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
+
+
+\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}