diff options
Diffstat (limited to 'info/examples/PSTricks_en/33-03-24.ltx')
-rw-r--r-- | info/examples/PSTricks_en/33-03-24.ltx | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/info/examples/PSTricks_en/33-03-24.ltx b/info/examples/PSTricks_en/33-03-24.ltx new file mode 100644 index 0000000000..94b19e609f --- /dev/null +++ b/info/examples/PSTricks_en/33-03-24.ltx @@ -0,0 +1,60 @@ +%% +%% A DANTE-Edition example +%% +%% Example 33-03-24 on page 697. +%% +%% 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{550.0pt} +\setlength\parindent{0pt} + +\usepackage{pst-optic} + +\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} |