[pstricks] transmission grating in pst-optexp

[Christoph Bersch]

Hi,

Am 12.07.2013 10:03, schrieb Steffen Wittek:
>
> it seems that transmission gratings have not beem implemented yet in the
> pst-optexp.

do you have an examplary picture on how this should look like, or how it 
should behave?

Should it be like a semitransparent mirror, that you can use both 
transmitted and reflected beams? Or do you only need the transmitted beams?

The following example shows the simplest variant, but without raytracing 
(grating has only one interface):

\documentclass{article}
\usepackage{pst-optexp}
\newOptexpDipole{transmissiongrating}
\makeatletter
\def\transmissiongrating at comp{%
   \psrotate(0,0){-90}{\optgrating at comp}}%
\makeatother
\begin{document}
\begin{pspicture}[showgrid](5,5)
   \transmissiongrating(0,1)(5,1)
   \psdot[dotstyle=x](\oenodeCenter{})
   \drawbeam(0,1){}(5,1)
   %
   \transmissiongrating[angle=20, gratingalign=c](0,3)(5,3)
   \psdot[dotstyle=x](\oenodeCenter{})
   \drawbeam(0,3){}(5,3)
\end{pspicture}
\end{document}


Christoph