X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=doc%2Ffig3d-anacyl.tex;fp=doc%2Ffig3d-anacyl.tex;h=6008b9b7769123eddc556e84e9c87579847168c1;hb=b5bff73d413bccd45ba53b356f64421234755f4a;hp=0000000000000000000000000000000000000000;hpb=20addd135e50ad5d8338c5f2f295095d4ac6b408;p=pst-anamorphosis.git

diff --git a/doc/fig3d-anacyl.tex b/doc/fig3d-anacyl.tex
new file mode 100644
index 0000000..6008b9b
--- /dev/null
+++ b/doc/fig3d-anacyl.tex
@@ -0,0 +1,64 @@
+\def\oeil{\psarc[linewidth=2pt](0,2.5){2.5}{215}{270}%
+\psarc[linewidth=2pt](0,-2.5){2.5}{90}{140}%
+\psarc(-2.5,0){1}{-30}{30}%
+\psarc(0,0){1.75}{160}{200}
+\psclip{%
+\pscircle[linestyle=none](0,0){1.75}}
+\pscircle[fillstyle=solid,fillcolor=lightgray](-2.5,0){0.9}
+\endpsclip}%
+\begin{center}
+\begin{pspicture}(-2,-6)(15,6)
+\psset{Xv=0,Yv=-100}
+\newcommand\Rmirror{3}
+\psset{viewpoint=-1 -1 1}
+\ThreeDput[normal=0 0 1](0,0,0){%
+\psaxes{->}(8,4)
+\pscircle[doubleline=true]{\Rmirror}
+\multido{\i=-2+1,\I=-2+1}{5}{%
+    \pnode(! \i\space -2){A}
+    \pnode(! \i\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \I){A}
+    \pnode(!2 \I){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\input{LouisXIII.pst}
+\input{ALouisXIII.pst}
+\pstextA[fontsize=28,linecolor=red,fillstyle=solid,fillcolor=yellow!50](0,2){LouisXIII}
+    }
+\FPmul{\largeur}{\Rmirror}{0.1745}
+\newcount\n \n=135
+     \loop
+     \FPmul{\tempa}{\FPpi}{\the\n}
+     \FPdiv{\angle}{\tempa}{180}
+     \FPsin{\SIN}{\angle}\FPcos{\COS}{\angle}
+     \FPmul{\xc}{\COS}{\Rmirror}
+     \FPmul{\yc}{\SIN}{\Rmirror}
+      \ThreeDput[normal={\COS} {\SIN} 0.0001](\xc,\yc,0){%
+        \psframe[fillstyle=vlines,hatchangle=0,linestyle=none,hatchcolor=BleuCiel,](0,0)(\largeur,5)}
+     \ifnum\n<315 \advance\n by 10
+\repeat
+\ThreeDput[normal=0.707 -0.707 0.001](2.121,-2.121,0){%
+\psline[linewidth=2\pslinewidth](0,5)}
+\ThreeDput[normal=0.707 -0.707 0.001](-2.121,2.121,0){%
+\psline[linewidth=2\pslinewidth](0,5)}
+\ThreeDput[normal=0 0 1](0,0,5){%
+\pscircle[doubleline=true]{\Rmirror}
+}
+\ThreeDput[normal=-1 0 0](0,0,0){%
+\psaxes(15,5)
+\rput{26.5}(21.5,10.8){\oeil}
+\psline[linestyle=dashed,linecolor=blue](20,10)%
+\psset{arrowsize=0.5,linecolor=red,linewidth=2\pslinewidth}
+\psline{->}(3,1.5)(10,5)
+\psline(3,1.5)(20,10)
+\psline{->}(6,0)(4.5,0.75)
+\psline(6,0)(3,1.5)
+\uput[ur](20,10){\color{red}{$V$}}
+\uput[u](3,1.5){\color{red}{$I$}}
+\uput[u](6,0){\color{red}{$M$}}
+}
+\end{pspicture}
+\end{center}
\ No newline at end of file