Retour

N.tex

Télécharger le fichier Fichier PDF
Image PNG
\def\baseN{2.4493   -0.0427007
           2.4493   2.0613
           2.45669   2.22397
           2.47878   2.35174
           2.51507   2.44429
           2.56533   2.50128
           2.60877   2.52714
           2.66132   2.54628
           2.73178   2.56089
           2.82933   2.57329
           2.82933   2.64933
           1.88934   2.64933
           1.88934   2.57329
           1.9869   2.56328
           2.05776   2.5503
           2.11147   2.53273
           2.15729   2.50932
           2.20911   2.45053
           2.24524   2.35724
           2.26642   2.22799
           2.27332   2.0613
           2.27332   0.713349
           0.733303   2.64933
           0.0493522   2.64933
           0.0493522   2.57329
           0.159964   2.56533
           0.247746   2.5338
           0.333312   2.46695
           0.437354   2.3533
           0.437354   0.589352
           0.434234   0.45
           0.423394   0.338814
           0.402126   0.252591
           0.367801   0.187801
           0.317956   0.141241
           0.249963   0.109462
           0.161277   0.089261
           0.0493522   0.077354
           0.0493522   0.00131387
           0.989343   0.00131387
           0.989343   0.077354
           0.884726   0.0872901
           0.800639   0.107245
           0.734945   0.139763
           0.685757   0.187801
           0.651022   0.253987
           0.628686   0.341113
           0.616779   0.451971
           0.61333   0.589352
           0.61333   2.15729
           2.3813   -0.0427007 }
 
\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=\baseN,ngrid=1,decal=1,RotZ=90,RotX=90,unit=4](0,-1,0)
\end{pspicture}