Retour

I.tex

Télécharger le fichier Fichier PDF
Image PNG
\def\baseI{0.461332   0.437354
           0.458376   0.336186
           0.447947   0.256204
           0.427089   0.194699
           0.393339   0.149288
           0.343741   0.117345
           0.275666   0.0964051
           0.186405   0.0839234
           0.0733303   0.077354
           0.0733303   0.00131387
           1.26131   0.00131387
           1.26131   0.077354
           1.15029   0.0842518
           1.06169   0.0975547
           0.99312   0.11948
           0.94229   0.152327
           0.906816   0.19823
           0.884398   0.259571
           0.872655   0.338485
           0.869288   0.437354
           0.869288   2.21329
           0.872327   2.31192
           0.883248   2.39042
           0.904681   2.45127
           0.939252   2.49676
           0.989589   2.52928
           1.05824   2.55129
           1.14799   2.56516
           1.26131   2.57329
           1.26131   2.64933
           0.0733303   2.64933
           0.0733303   2.57329
           0.187555   2.56418
           0.277308   2.55022
           0.345465   2.52862
           0.394818   2.49676
           0.428157   2.45201
           0.44844   2.39157
           0.45854   2.3129
           0.461332   2.21329 }
 
\psset{lightsrc=40 20 25,viewpoint=50 10 20 rtp2xyz,Decran=30}
\begin{pspicture}(-6,-2)(6,6)
\psframe(-6,-2)(6,6)
\psSolid[object=grille,base=0 4 -10 10,hue=0 1,grid]%
\psSolid[object=prisme,h=1,hue=0 1,incolor=yellow,
   base=\baseI,ngrid=1,decal=1,RotZ=90,RotX=90,unit=4](0,-1,0)
\end{pspicture}