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

diff --git a/doc/fig3d-anacon.tex b/doc/fig3d-anacon.tex
index 7a16c85..a7a97a5 100644
--- a/doc/fig3d-anacon.tex
+++ b/doc/fig3d-anacon.tex
@@ -1,21 +1,13 @@
-\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}
-\psscalebox{0.8}{
-\begin{pspicture}(-7,-7)(7,10)
+\psscalebox{0.7}{
+\begin{pspicture}(-7,-8)(7,9)
 \newcommand\R{3}
 \newcommand\hauteur{5}
 \newcommand\pas{10}
 \FPeval{\pasrad}{\pas*\FPpi/180}
  \FPmul{\Largeur}{\R}{\pasrad}
  \FPdiv{\largeur}{\Largeur}{2}
-%Les coordonnées de viewpoint
+%Les coordonn\'{e}es de viewpoint
 \def\vx{1}\def\vy{-0.8}\def\vz{1}
 \FPeval{\RH}{(\R)/(\hauteur)}
  \FParctan{\phy}{\RH}
@@ -25,7 +17,8 @@
  \FPeval{\generatrice}{root(2,(\hauteur*\hauteur)+(\R*\R))}
 \psset{viewpoint={\vx} {\vy} {\vz}}
 \ThreeDput[normal=0 0 1](0,0,0){%%
-\psframe*[linecolor=gray!25](-10,-10)(10,10)
+\psframe*[linecolor=lightgray!25](-10,-10)(10,10)
+\psgrid[subgriddiv=0,gridcolor=lightgray,gridlabels=0pt](-10,-10)(10,10)
 \psaxes(0,0)(-10,-10)(10,10)
 \pscircle[doubleline=true]{3}
 \psset{type=conical}
@@ -93,7 +86,7 @@
      \FPdiv{\teinte}{\grise}{2}
 \definecolor{gris}{cmyk}{\teinte,\teinte,\teinte,0}
 %tester les faces visibles
-%le produit scalaire du vecteur viewpoint et du vecteur normal à la face >0 ?
+%le produit scalaire du vecteur viewpoint et du vecteur normal \`{a} la face >0 ?
 \FPeval{\costest}{(\vx)*\xH+(\vy)*\yH+(\vz)*\zH}
    \FPifpos{\costest}
    \ThreeDput[normal={\xH} {\yH} \zH](0,0,\hauteur){%