summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_en/33-03-24.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_en/33-03-24.ltx')
-rw-r--r--info/examples/PSTricks_en/33-03-24.ltx60
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}