doc/fig3d-anasphere.tex

   1 \begin{center}
   2 \psscalebox{0.67}{
   3 \begin{pspicture}(-4,-7)(12,4.5)
   4 \psset{lightsrc=viewpoint}
   5 \psset{viewpoint=-100 -100 100,Decran=173.2}
   6 \ThreeDput[normal=0 0 1](0,0,0){%%
   7 \psframe*[linecolor=lightgray!25](-5,-14)(5,5)
   8 \psgrid[subgriddiv=0,gridcolor=lightgray,gridlabels=0pt](-5,-14)(5,5)
   9 \psaxes(0,0)(-5,-14)(5,5)
  10 \psset{type=spherical,Rmirror=5}
  11 \pscircle[doubleline=true]{5}
  12 \multido{\n=-1.00+0.20}{11}{%
  13     \pnode(! \n\space -4.80){A}
  14     \pnode(! \n\space -3.40){B}
  15     \psline(A)(B)
  16     \pslineA(A)(B)
  17     }%
  18 \multido{\N=-4.80+0.20}{8}{%
  19     \pnode(!-1.0 \N){A}
  20     \pnode(!1.0 \N){B}
  21     \pslineA(A)(B)
  22     \psline(A)(B)
  23     }%
  24 \psanamorphosis[scale=0.4 0.4](0,-4){tiger.eps}
  25 \pnode(0,-4){A}
  26 \pnodeA(0,-4){A'}
  27 %\psline(A)(A')
  28     }
  29 \ThreeDput[normal=-1 0 0](0,0,0){%
  30 \pnode(15,5){OE}
  31 \pnode(13.2,4.2){OE'}
  32 \pnode(5,0.4545){I}
  33 \rput{26.5}(OE){\oeil}
  34 }
  35 \psSolid[object=calottesphere,r=5,opacity=0.5,
  36     ngrid=24 36,fillcolor=cyan!50,grid,hollow,
  37     incolor=yellow,theta=90,phi=0,action=draw,linecolor=BleuCiel,linewidth=0.5pt](0,0,0)
  38 \psline[linecolor=red](A')(I)(OE')
  39 \pcline[nodesepB=2.5,linecolor=red,arrowsize=0.175,arrowinset=0.075]{->>}(I)(OE')
  40 \pcline[nodesepB=1,linecolor=red,arrowsize=0.175,arrowinset=0.075]{->>}(A')(I)
  41 \psline(I)(A)
  42 \end{pspicture}
  43 }
  44 \end{center}