diff options
author | Karl Berry <karl@freefriends.org> | 2011-02-24 23:36:18 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-02-24 23:36:18 +0000 |
commit | 2a886fbce3b9f2ed32e02e952d4b300e6e3dd7b4 (patch) | |
tree | 1e795c05f0261278a6d0889ad79c977485ec6e5c /Master/texmf-dist/doc/latex/pstricks-examples/36-00-27.ltx | |
parent | 9b3b61b4613379d47f4dc1700f76efc1c1dbfced (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-27.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples/36-00-27.ltx | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/36-00-27.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/36-00-27.ltx new file mode 100644 index 00000000000..015c193d1ef --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples/36-00-27.ltx @@ -0,0 +1,61 @@ +%% +%% 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{352.81416pt} +\setlength\parindent{0pt} +\StartShownPreambleCommands +\usepackage{pstricks} +\StopShownPreambleCommands +\begin{document} +\newcount\WL +\def\WaveToPS#1% + {\definecolor{tmp}{wave}{#1}% + \extractcolorspec{tmp}\tmp + \expandafter\convertcolorspec\tmp{rgb}\tmp + \expandafter\WaveToPSi\tmp,} +\def\WaveToPSi#1,#2,#3,% + {\pstVerb{/Red{#1}def /Green{#2}def /Blue{#3}def}} + +\definecolor[ps]{lambda}{rgb}{Red Corr Green Corr Blue Corr}% +\pstVerb{/Corr{dup 0 gt {Gamma exp}if }def} + +\def\DisplayBar#1#2% + {\linethickness{1.25\unitlength}\WL=360 + \pstVerb{/Gamma{#1}def}% + \multiput(360,#2)(1,0){456}% + {\WaveToPS{\the\WL}% + {\color{lambda}\line(0,1){50}}\global\advance\WL1}% + \linethickness{0.25\unitlength}\WL=360 + \multiput(360,#2)(20,0){23}% + {\picture(0,0) + \line(0,-1){5} + \multiput(5,0)(5,0){3}{\line(0,-1){2.5}} + \put(0,-10){\makebox(0,0){\the\WL}}\global\advance\WL20 + \endpicture}% + \put(350,#2){\makebox(0,50)[r]{\small$\gamma$\,=\,#1}}} + +\unitlength.75pt +\begin{picture}(510,345)(310,-10) +\sffamily\tiny +\DisplayBar{0.4}{0}% +\DisplayBar{0.6}{70}% +\DisplayBar{0.8}{140}% +\DisplayBar{1.0}{210}% +\DisplayBar{1.2}{280}% +\end{picture} +\end{document} |