1 files changed, 52 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/33-03-15.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/33-03-15.ltx
new file mode 100644
index 00000000000..efd287d08db
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks-examples-en/33-03-15.ltx
@@ -0,0 +1,52 @@
+%% 
+%%  A DANTE-Edition example
+%% 
+%%  Example 33-03-15 on page 691.
+%% 
+%%  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{pst-optic,graphicx}
+
+\begin{document}
+\resizebox{\linewidth}{!}{\begin{pspicture}(-8,-3.5)(7,5)
+  \rput(0,0){%
+    \lens[lensWidth=1,lensGlass=true,lensHeight=6,focus=4,drawing=false,AB=2.5]}
+  { \psset{linewidth=0.5pt,linestyle=dashed,arrowsize=5pt,arrows=|<->|}
+    \psline(-8,0)(4,0)\pcline(-7.75,-3)(0,-3)\lput*{:U}{2f}
+    \pcline(0,-3)(4,-3)\lput*{:U}{f}\pcline(7,0)(7,4)\lput*{:U}{f}
+    \pcline(4,5)(5,5)\lput*{:U}{s}\pcline(5.25,2.3)(5.25,2.8)\lput*{:U}{s} }
+  \uput[90](0,3){\Large L}\uput[45](-7.7,3){\Large B}\uput[45](-7.7,-2){\Large E}
+  \uput[270](3,-0.5){\Large D}\uput[-45](4,0){\Large A=F}\uput[270](3,2){\Large S}
+  \uput[90](4,4){\Large Sp}\uput[90](3.5,3.25){\Large B'}
+  \uput[0](6.3,2.25){\Large B''}\uput[-90](6,1.1){\Large M}
+  \psarc[linewidth=0.5pt](-7.75,2.5){0.5}{-90}{0}\qdisk(-7.55,2.3){1pt}
+  \rput{210}(F'){\mirrorTwo}
+  { \psset{fillstyle=solid,fillcolor=lightgray}
+    \rput{210}(4,2.5){\psframe(-1,0)(1,0.2)}
+    \psframe(-8,-3)(-7.75,3)\psframe(3,4)(3.8,4.2)\psframe(4.2,4)(5,4.2)
+  }{\psset{linewidth=1pt,linecolor=red,arrows=->,arrowsize=5pt}
+    \arrowLine[linecolor=blue,arrowOffset=-0.2](F')(4,2.5){2}
+    \arrowLine[linecolor=blue,arrowOffset=-0.2](4,2.3)(6,2.3){1}\qdisk(6,2.3){2pt}
+    \psline[linestyle=dashed,arrows=-](F')(5.1,4)
+    \psline[linestyle=dashed,arrows=-](5,2.8)(6,2.8)
+    \arrowLine(4,4)(F'){3}\arrowLine[linecolor=blue,arrowOffset=-0.2](I)(F'){2}
+    \arrowLine(F')(I){2}\arrowLine[linecolor=blue,arrowOffset=-0.3](-7.75,2.5)(I){3}
+    \arrowLine(I)(-7.75,2.5){3}}
+  \psframe(5.5,1.1)(6.5,3.5)\multido{\r=1.3+0.2}{12}{\psline(6.1,\r)(6.5,\r)}
+\end{pspicture}}
+\end{document}