3 \begin{pspicture
}(-
7,-
8)(
7,
9)
7 \FPeval{\pasrad}{\pas*
\FPpi/
180}
8 \FPmul{\Largeur}{\R}{\pasrad}
9 \FPdiv{\largeur}{\Largeur}{2}
10 %Les coordonn\'{e}es de viewpoint
11 \def\vx{1}\def\vy{-
0.8}\def\vz{1}
12 \FPeval{\RH}{(
\R)/(
\hauteur)
}
14 \FPeval{\OH}{sin(
\phy)*
\hauteur}
15 \FPeval{\zH}{sin(
\phy)*
\OH}
16 \FPeval{\OK}{cos(
\phy)*
\OH}
17 \FPeval{\generatrice}{root(
2,(
\hauteur*
\hauteur)+(
\R*
\R))
}
18 \psset{viewpoint=
{\vx} {\vy} {\vz}}
19 \ThreeDput[normal=
0 0 1](
0,
0,
0)
{%%
20 \psframe*
[linecolor=lightgray!
25](-
10,-
10)(
10,
10)
21 \psgrid[subgriddiv=
0,gridcolor=lightgray,gridlabels=
0pt
](-
10,-
10)(
10,
10)
22 \psaxes(
0,
0)(-
10,-
10)(
10,
10)
23 \pscircle[doubleline=true
]{3}
25 \multido{\n=-
1.50+
0.50}{7}{%
26 \pnode(!
\n\space -
2.50)
{A
}
27 \pnode(!
\n\space -
0.50)
{B
}
28 \psline[linecolor=green
](A)(B)
29 \pslineA[linecolor=green
](A)(B)
31 \multido{\N=-
2.50+
0.50}{5}{%
34 \pslineA[linecolor=green
](A)(B)
35 \psline[linecolor=green
](A)(B)
38 \multido{\n=-
1.50+
0.50}{7}{%
39 \pnode(!
\n\space 2.50)
{A
}
40 \pnode(!
\n\space 0.50)
{B
}
41 \psline[linecolor=green
](A)(B)
42 \pslineA[linecolor=green
](A)(B)
44 \multido{\N=
2.50+-
0.50}{5}{%
47 \pslineA[linecolor=green
](A)(B)
48 \psline[linecolor=green
](A)(B)
50 \multido{\n=-
1.50+
0.50}{7}{%
51 \pnode(!
\n\space -
2.50)
{A
}
52 \pnode(!
\n\space -
0.50)
{B
}
56 \multido{\N=-
2.50+
0.50}{5}{%
62 \multido{\n=-
1.50+
0.50}{7}{%
63 \pnode(!
\n\space 2.50)
{A
}
64 \pnode(!
\n\space 0.50)
{B
}
68 \multido{\N=
2.50+-
0.50}{5}{%
74 \psanamorphosis[type=conical,scale=-
0.7 -
0.7](
0,
1.5)
{tiger.eps
}
75 \pstextA[fontsize=
15,fillcolor=green,scale=
1 -
1](
0,-
0.5)
{Anamorphose
}
76 \pscircle[doubleline=true
]{3}}
79 \FPmul{\tempa}{\FPpi}{\the\n}
80 \FPdiv{\angle}{\tempa}{180}
81 \FPsin{\SIN}{\angle}\FPcos{\COS}{\angle}
82 \FPmul{\xH}{\COS}{\OK}
83 \FPmul{\yH}{\SIN}{\OK}
84 \FPdiv{\grise}{\the\n}{360}
85 \FPsub{\gris}{1}{\grise}
86 \FPdiv{\teinte}{\grise}{2}
87 \definecolor{gris
}{cmyk
}{\teinte,
\teinte,
\teinte,
0}
88 %tester les faces visibles
89 %le produit scalaire du vecteur viewpoint et du vecteur normal \`{a} la face >0 ?
90 \FPeval{\costest}{(
\vx)*
\xH+(
\vy)*
\yH+(
\vz)*
\zH}
92 \ThreeDput[normal=
{\xH} {\yH} \zH](
0,
0,
\hauteur)
{%
93 \pspolygon[linecolor=BleuCiel
]%[fillstyle=solid,fillcolor=gris,dimen=outer]%
94 (
0,
0)(-
\largeur,-
\generatrice)(
\largeur,-
\generatrice)
}\else{}\fi
96 \ThreeDput[normal=
{\xH} {\yH} \zH](
0,
0,
\hauteur)
{%
97 \psline[linestyle=dashed,linecolor=gray
](
0,
0)(
\largeur,-
\generatrice)
}\else{}\fi
98 \ifnum\n<
360 \advance\n by
\pas
100 %Dessin des faces de dessus et de dessous
103 %\ThreeDput[normal=0 0 -1](0,0,0){%
104 %\pscircle[fillstyle=solid,fillcolor=lightgray](0,0){\R}\rput(0,0){\Large\textbf{\textsf{Dessous}}}}\fi
105 \ThreeDput[normal=
1 0 0](
0,
0,
0)
{%
107 \rput{90}(
0,
12)
{\oeil}%
121 \psset{linecolor=red
}
123 \pcline[nodesepB=
2,nodesepA=
1,linecolor=red,arrowsize=
0.175,arrowinset=
0.075]{->
}(P')(I)
124 \pcline[nodesepB=
4,nodesepA=
1,linecolor=red,arrowsize=
0.175,arrowinset=
0.075]{->
}(I)(V)
125 \psline[linestyle=dashed
](I)(P)
}}%