X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=doc%2Ffig3d-anasphere.tex;fp=doc%2Ffig3d-anasphere.tex;h=69b5a44e0d51df03983b2529ae660d2afd5e0bc1;hb=49f8f6eef8c14b3f12467e8960fcb43d2700f87e;hp=0000000000000000000000000000000000000000;hpb=4fe314af85dd095278a035d8b5d1ac0c738827c3;p=pst-anamorphosis.git

diff --git a/doc/fig3d-anasphere.tex b/doc/fig3d-anasphere.tex
new file mode 100644
index 0000000..69b5a44
--- /dev/null
+++ b/doc/fig3d-anasphere.tex
@@ -0,0 +1,44 @@
+\begin{center}
+\psscalebox{0.67}{
+\begin{pspicture}(-4,-7)(12,4.5)
+\psset{lightsrc=viewpoint}
+\psset{viewpoint=-100 -100 100,Decran=173.2}
+\ThreeDput[normal=0 0 1](0,0,0){%%
+\psframe*[linecolor=lightgray!25](-5,-14)(5,5)
+\psgrid[subgriddiv=0,gridcolor=lightgray,gridlabels=0pt](-5,-14)(5,5)
+\psaxes(0,0)(-5,-14)(5,5)
+\psset{type=spherical,Rmirror=5}
+\pscircle[doubleline=true]{5}
+\multido{\n=-1.00+0.20}{11}{%
+    \pnode(! \n\space -4.80){A}
+    \pnode(! \n\space -3.40){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    }%
+\multido{\N=-4.80+0.20}{8}{%
+    \pnode(!-1.0 \N){A}
+    \pnode(!1.0 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }%
+\psanamorphosis[scale=0.4 0.4](0,-4){tiger.eps}
+\pnode(0,-4){A}
+\pnodeA(0,-4){A'}
+%\psline(A)(A')
+    }
+\ThreeDput[normal=-1 0 0](0,0,0){%
+\pnode(15,5){OE}
+\pnode(13.2,4.2){OE'}
+\pnode(5,0.4545){I}
+\rput{26.5}(OE){\oeil}
+}
+\psSolid[object=calottesphere,r=5,opacity=0.5,
+    ngrid=24 36,fillcolor=cyan!50,grid,hollow,
+    incolor=yellow,theta=90,phi=0,action=draw,linecolor=BleuCiel,linewidth=0.5pt](0,0,0)
+\psline[linecolor=red](A')(I)(OE')
+\pcline[nodesepB=2.5,linecolor=red,arrowsize=0.175,arrowinset=0.075]{->>}(I)(OE')
+\pcline[nodesepB=1,linecolor=red,arrowsize=0.175,arrowinset=0.075]{->>}(A')(I)
+\psline(I)(A)
+\end{pspicture}
+}
+\end{center} 
\ No newline at end of file