summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/voss/bsp38.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/voss/bsp38.tex')
-rw-r--r--Master/texmf-dist/doc/generic/pstricks/voss/bsp38.tex66
1 files changed, 66 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/voss/bsp38.tex b/Master/texmf-dist/doc/generic/pstricks/voss/bsp38.tex
new file mode 100644
index 00000000000..a8f57f4d168
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pstricks/voss/bsp38.tex
@@ -0,0 +1,66 @@
+\documentclass{article}% <voss@perce.de> 2003-01-24
+\usepackage{pstricks}
+\usepackage{pst-optic}
+\usepackage{pstricks-add}
+\pagestyle{empty}
+\parindent=0pt
+
+\begin{document}
+
+\begin{pspicture}(-8,-3)(7,5)%\psgrid[subgriddiv=0,griddots=10]
+ \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,%
+ arrowsize=5pt,ArrowInside=->,ArrowInsideNo=3}
+ \psline[linecolor=blue,ArrowInsideOffset=-0.2](F')(4,2.5)
+ \psline[linecolor=blue,ArrowInsideOffset=-0.2](4,2.3)(6,2.3)
+ \qdisk(6,2.3){2pt}
+ \psline[linestyle=dashed,arrows=-](F')(5.1,4)
+ \psline[linestyle=dashed,arrows=-](5,2.8)(6,2.8)
+ \psline(4,4)(F')
+ \psline[linecolor=blue,ArrowInsideOffset=-0.2](I)(F')
+ \psline(F')(I)
+ \psline[linecolor=blue,ArrowInsideOffset=-0.3](-7.75,2.5)(I)
+ \psline(I)(-7.75,2.5)
+ }
+ \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}
+
+Sp Spalt; D Drehspiegel; L Sammellinse; E Endspiegel; S halbdurchlässiger Spiegel; M Maßstab
+
+\end{document} \ No newline at end of file