Initial commit

1 files changed, 39 insertions, 0 deletions

diff --git a/info/examples/PSTricks_en/33-03-27.ltx b/info/examples/PSTricks_en/33-03-27.ltx
new file mode 100644
index 0000000000..3de7a1c995
--- /dev/null
+++ b/info/examples/PSTricks_en/33-03-27.ltx
@@ -0,0 +1,39 @@
+%% 
+%%  A DANTE-Edition example
+%% 
+%%  Example 33-03-27 on page 699.
+%% 
+%%  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-optexp}
+
+\begin{document}
+\begin{pspicture}(8.5,1.6)
+\addtopsstyle{Beam}{linecolor=green!90!black}
+\pnode(1.6,1){Laser}\pnode(7.6,1){Diode}
+\optbox[endbox,labeloffset=0](Diode)(Laser){Laser}%
+\optbox[abspos=4,optboxwidth=1,optboxheight=0.6,labeloffset=1,compname=PC,
+        conn=o-,angle=-10,rotateref=l,refractiveindex=2.3](Laser)(Diode){Photonic Crystal}
+\optdetector[dettype=diode, conn=o-](PCInternN)(Diode|PCInternN){PD}
+\defShiftedNode(PCIntern1)(2;170){Angle1}
+\psline[linestyle=dashed](PCIntern1)(Angle1)
+\psarc{<->}(PCIntern1){1.3}{330}{30}
+\psarc[arcsep=1pt]{<->}(PCIntern1){2}{170}{180}
+\uput{2.1}[175](PCIntern1){\small $\varphi$}
+\end{pspicture}
+\end{document}