diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples/33-03-24.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples/33-03-24.ltx | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/33-03-24.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/33-03-24.ltx new file mode 100644 index 00000000000..22f1d45cb6e --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples/33-03-24.ltx @@ -0,0 +1,59 @@ +%% +%% 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{550.0pt} +\setlength\parindent{0pt} +\StartShownPreambleCommands +\usepackage{pst-optic} +\StopShownPreambleCommands +\begin{document} +\begin{pspicture}(-7,0)(13,6) + \pnode(-6,1){A}\pnode(-2,1){B}\pnode(-4,5){C} + \uput[-135](A){A}\uput[-45](B){B}\uput[30](C){C} + \pnode(12.5,0.5){E1}\pnode(12.5,5.5){E2} + \psframe[fillcolor=lightgray,fillstyle=solid](E1)(12.75,5.5) + \pspolygon[fillcolor=lightgray,fillstyle=solid,linecolor=blue](A)(B)(C) + \psset{linecolor=black,linewidth=2pt,arrowsize=5pt,arrows=->} + \pnode(-7,1){P1}\pnode(-6,2){P2} + \ABinterCD(P1)(P2)(C)(A){END} \arrowLine(P1)(END){2} +% + \psset{linecolor=blue,linewidth=0.5pt,arrowsize=2pt} + \refractionRay(P1)(P2)(C)(A){1}{1.528}{END} + \ABinterCD(END)(END')(C)(B){Out} \arrowLine(END)(Out){1} + \refractionRay(END)(Out)(C)(B){1.528}{1}{Q}\psline(Q)(Q') + \ABinterCD(Q)(Q')(E1)(E2){END}\arrowLine(Q)(END){4}\qdisk(END){1.5pt} +% + \psset{linecolor=green} + \refractionRay(P1)(P2)(C)(A){1}{1.523}{END} + \ABinterCD(END)(END')(C)(B){Out}\arrowLine(END)(Out){1} + \refractionRay(END)(Out)(C)(B){1.523}{1}{Q}\psline(Q)(Q') + \ABinterCD(Q)(Q')(E1)(E2){END}\arrowLine(Q)(END){4}\qdisk(END){1.5pt} +% + \psset{linecolor=yellow} + \refractionRay(P1)(P2)(C)(A){1}{1.517}{END} + \ABinterCD(END)(END')(C)(B){Out}\arrowLine(END)(Out){1} + \refractionRay(END)(Out)(C)(B){1.517}{1}{Q}\psline(Q)(Q') + \ABinterCD(Q)(Q')(E1)(E2){END}\arrowLine(Q)(END){4}\qdisk(END){1.5pt} +% + \psset{linecolor=red} + \refractionRay(P1)(P2)(C)(A){1}{1.511}{END} + \ABinterCD(END)(END')(C)(B){Out}\arrowLine(END)(Out){1} + \refractionRay(END)(Out)(C)(B){1.511}{1}{Q}\psline(Q)(Q') + \ABinterCD(Q)(Q')(E1)(E2){END}\arrowLine(Q)(END){4}\qdisk(END){1.5pt} +\end{pspicture} +\end{document} |