<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Hi,<br>
<br>
another encountered problem. Beampos doesn't work anymore. The ray
doesn't see the orientation of the grating. Example:<br>
<br>
<meta name="qrichtext" content="1">
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><!--StartFragment--><span style=" color:#800000;">\documentclass</span><span style=" color:#000000;">{standalone}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\usepackage</span><span style=" color:#000000;">[T1]{fontenc}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\usepackage</span><span style=" color:#000000;">[utf8]{inputenc}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\usepackage</span><span style=" color:#000000;">{pst-optexp}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\usepackage</span><span style=" color:#000000;">{fp}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\makeatletter</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\newOptexpTripole</span><span style=" color:#000000;">{transmissiongrating}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\makeatletter</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\def\transmissiongrating@ref</span><span style=" color:#000000;">{</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> </span><span style=" color:#800000;">\POE@calcAngle</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> </span><span style=" color:#800000;">\FPadd\POE@key@angle</span><span style=" color:#000000;">{</span><span style=" color:#800000;">\POE@key@angle0</span><span style=" color:#000000;">}{90}</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> </span><span style=" color:#800000;">\FPround\POE@key@angle</span><span style=" color:#000000;">{</span><span style=" color:#800000;">\POE@key@angle</span><span style=" color:#000000;">}{5}</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> </span><span style=" color:#800000;">\POE@setref</span><span style=" color:#000000;">{/@@y </span><span style=" color:#800000;">\POE@key@gratingwidth\space</span><span style=" color:#000000;"> 0.5 mul def}</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;">}</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\def\transmissiongrating@nodes</span><span style=" color:#000000;">{</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> </span><span style=" color:#800000;">\newOptexpComp</span><span style=" color:#000000;">{</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> {0 0} </span><span style=" color:#800000;">\POE@key@gratingwidth\space</span><span style=" color:#000000;"> 0.5 mul dup neg exch</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> OEangle 180 sub abs 1e-5 lt {</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> trans {1 0}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> } {</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> refl {0 1}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> } ifelse</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;"> 4 1 roll {PlainIfc} 1}</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#000000;">}</span><span style=" color:#606060;">%</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\let\transmissiongrating@comp\optgrating@comp</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;">\makeatother</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#800000;"></span><span style=" color:#606060;">
</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#0000cc;">\begin</span><span style=" color:#000000;">{document}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#0000cc;">\begin</span><span style=" color:#000000;">{pspicture}</span><span style=" color:#9a4d00;">[showgrid](</span><span style=" color:#660066;">4</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">3</span><span style=" color:#9a4d00;">)</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#9a4d00;"> </span><span style=" color:#006699;">\pnode</span><span style=" color:#9a4d00;">(</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">2</span><span style=" color:#9a4d00;">){S</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#9a4d00;"> </span><span style=" color:#006699;">\pnode</span><span style=" color:#9a4d00;">(</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">){G</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">}</span><span style=" color:#006699;">\pnode</span><span style=" color:#9a4d00;">(</span><span style=" color:#660066;">2</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">){G</span><span style=" color:#660066;">11</span><span style=" color:#9a4d00;">} </span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#9a4d00;"> </span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#9a4d00;"> </span><span style=" color:#006699;">\transmissiongrating</span><span style=" color:#9a4d00;">[gratingwidth=</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">, gratingheight=</span><span style=" color:#660066;">0.1</span><span style=" color:#9a4d00;">](S</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">)(G</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">)(G</span><span style=" color:#660066;">11</span><span style=" color:#9a4d00;">)</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#9a4d00;"> </span><span style=" color:#006699;">\optprism</span><span style=" color:#9a4d00;">[prismangle=</span><span style=" color:#660066;">60</span><span style=" color:#9a4d00;">,compname=P</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">,labelalign=t](</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">)(</span><span style=" color:#660066;">2</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">2</span><span style=" color:#9a4d00;">)(</span><span style=" color:#660066;">3</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">)</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#9a4d00;"> </span><span style=" color:#006699;">\drawbeam</span><span style=" color:#9a4d00;">[beampos=-</span><span style=" color:#660066;">0.2</span><span style=" color:#9a4d00;">](</span><span style=" color:#660066;">0</span><span style=" color:#9a4d00;">,</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">){</span><span style=" color:#660066;">1</span><span style=" color:#9a4d00;">}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#0000cc;">\end</span><span style=" color:#000000;">{pspicture}</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" color:#0000cc;">\end</span><span style=" color:#000000;">{document}</span><!--EndFragment--></pre>
<style type="text/css">
p, li { white-space: pre-wrap; }
</style><br>
Any comments on that one?<br>
<br>
Best,<br>
Steffen<br>
<br>
<div class="moz-cite-prefix">El 7/15/13 12:00 PM,
<a class="moz-txt-link-abbreviated" href="mailto:pstricks-request@tug.org">pstricks-request@tug.org</a> escribió:<br>
</div>
<blockquote cite="mid:mailman.9.1373882402.13832.pstricks@tug.org"
type="cite">
<pre wrap="">Send PSTricks mailing list submissions to
<a class="moz-txt-link-abbreviated" href="mailto:pstricks@tug.org">pstricks@tug.org</a>
To subscribe or unsubscribe via the World Wide Web, visit
<a class="moz-txt-link-freetext" href="http://tug.org/mailman/listinfo/pstricks">http://tug.org/mailman/listinfo/pstricks</a>
or, via email, send a message with subject or body 'help' to
<a class="moz-txt-link-abbreviated" href="mailto:pstricks-request@tug.org">pstricks-request@tug.org</a>
You can reach the person managing the list at
<a class="moz-txt-link-abbreviated" href="mailto:pstricks-owner@tug.org">pstricks-owner@tug.org</a>
When replying, please edit your Subject line so it is more specific
than "Re: Contents of PSTricks digest..."
Today's Topics:
1. Re: Transmission grating again (Christoph Bersch)
----------------------------------------------------------------------
Message: 1
Date: Mon, 15 Jul 2013 11:42:26 +0200
From: Christoph Bersch <a class="moz-txt-link-rfc2396E" href="mailto:usenet@bersch.net"><usenet@bersch.net></a>
To: <a class="moz-txt-link-rfc2396E" href="mailto:pstricks@tug.org"><pstricks@tug.org></a>
Subject: Re: [pstricks] Transmission grating again
Message-ID: <a class="moz-txt-link-rfc2396E" href="mailto:51E3C402.3070102@bersch.net"><51E3C402.3070102@bersch.net></a>
Content-Type: text/plain; charset="ISO-8859-1"; format=flowed
Hi,
a classical 'trailing space' error. Add a comment character at the end
of the two lines
\FPadd\POE@key@angle{\POE@key@angle0}{90}%
\FPround\POE@key@angle{\POE@key@angle}{5}%
^^^
and the shift disappears.
Christoph
------------------------------
Subject: Digest Footer
_______________________________________________
PSTricks mailing list
<a class="moz-txt-link-abbreviated" href="mailto:PSTricks@tug.org">PSTricks@tug.org</a>
<a class="moz-txt-link-freetext" href="http://tug.org/mailman/listinfo/pstricks">http://tug.org/mailman/listinfo/pstricks</a>
------------------------------
End of PSTricks Digest, Vol 126, Issue 13
*****************************************
</pre>
</blockquote>
<br>
</body>
</html>