[pstricks] correct display (circuits and optic)

[Patrick Drechsler]

Herbert Voss wrote on 17 May 2003 08:13:23 MET:

> > I do not really understand what you are looking for. Can
> > you please give some more informations or point me to a
> > graphic where I can see what you are missing?

Here's what I came up with so far (basically copied from: Raedler &
Sackman, J. Phys. II, France 3 (1993), 724-748):

\documentclass{article}
\usepackage[latin1]{inputenc}
\usepackage{pst-optic}
\newgray{mylightgray}{.9}

\begin{document}
\begin{pspicture}(-7,-8)(7,8)
%  \psgrid[subgriddiv=0,griddots=5,gridlabels=7pt]  
% Coverslide:
  \pnode(-3,5.75){A} \pnode(3,6){B}
% Object center:
  \pnode(0,7.5){M} 
% Objective:
  \pnode(-1.25,5.25){O1} \pnode(1.25,5.25){O2} \pnode(-1.75,5){O3}
  \pnode(1.75,5){O4} \pnode(-1.75,3){O5} \pnode(1.75,3){O6}

%% Object shape:
  \parabola[fillcolor=gray,fillstyle=solid](-2,8)(M)
% Coverslide:
  \psframe[fillcolor=lightgray,fillstyle=solid](A)(B)
%% Lambda/4 plate:
  \psframe[fillcolor=gray,hatchcolor=white,hatchwidth=1.3pt,hatchsep=8pt,fillstyle=hlines*](-1.25,5.25)(1.25,5.5)
% Oil between coverslide and Lambda/4:
  \psframe[fillcolor=mylightgray,fillstyle=solid](-1.25,5.5)(1.25,5.75)
% Objectiv:
  \pspolygon[linewidth=2pt](O1)(O2)(O4)(O3)
  \psline[linewidth=2pt](O4)(O6)\psline[linewidth=2pt](O3)(O5)
% Beam splitter:
  \pnode(-1,0){M1} \pnode(1,-2){M2}
  \psline[linecolor=lightgray,linewidth=4pt](M1)(M2)
  
% Ray light source --> beam splitter:
  \pnode(6.5,-1.5){L} \psline[arrowscale=2]{->}(L)(0.5,-1.5)
% Ray beam splitter --> Lambda/4 plate:
  \psline[arrowscale=2]{->}(0.5,-1.5)(0.5,5.25)
% Ray Lambda/4 --> Object:
  \psline[arrowscale=2]{->}(0.5,5.25)(0.5,7.5)
% Ray Object --> Eye:
  \psline[arrowscale=2,linestyle=dashed]{->}(-0.5,7.5)(-0.5,-6)

% Eye:
  \rput(-0.5,-8){\rotateright{\eye}}

% Polarizer:
  \pnode(4.5,-0.5){P1} \pnode(4.5,-2.5){P2}
  \psline[linewidth=2pt](P1)(P2)
  \psline[linewidth=.8pt](4,-2.1)(5,-1.1)
  \psline[linewidth=.8pt](4,-1.9)(5,-0.9)
% Analyzer:
  \pnode(-1,-5){A1} \pnode(0,-4){A2} \psline[linewidth=2pt](A1)(A2)
  \psline[linewidth=.8pt](-1.2,-4.45)(0.2,-4.45)
  \psline[linewidth=.8pt](-1.2,-4.55)(0.2,-4.55)

% Direction of polarization:
  \rput{45}(2.5,-1.5){\psline{->}(-.5,0)(.5,0)}
  \rput{45}(.5,1){\psline{->}(-.5,0)(.5,0)}
  \rput{45}(.5,6.75){\psline{->}(-.4,0)(.4,0)}
  \rput{0}(.5,6.75){\psline{->}(-.4,0)(.4,0)}
  \rput{235}(-.5,6.75){\psline{->}(-.4,0)(.4,0)}
  \rput{180}(-.5,6.75){\psline{->}(-.4,0)(.4,0)}
  \rput{180}(-.5,1){\psline[linestyle=dashed]{->}(-.4,0)(.4,0)}
  \rput{180}(-.5,-3){\psline[linestyle=dashed]{->}(-.4,0)(.4,0)}

% Tags:
  \uput[0](5.1,-1){monochr. light} \uput[230](4.5,-2){$P_I$}
  \uput[230](-1,-5){$P_A$} \uput[230](-1,0){beam splitter}
  \uput[230](-2,4){objective} \uput[0](3,5){$\lambda/4$ plate}
  \psline{->}(3,5)(1.3,5.4)
\end{pspicture}
\end{document}

Is this a correct way to display something like this?

Patrick
-- 
Psychiatrists say that 1 of 4 people are mentally ill. 
Check 3 friends. If they're OK, you're it.