Retour

C.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
\def\baseC{2.48132   1.80131
           2.44527   2.70534
           2.36135   2.70534
           2.33614   2.64925
           2.29828   2.60778
           2.24992   2.58208
           2.19334   2.57329
           2.12428   2.58224
           2.03732   2.60934
           1.74227   2.68128
           1.4533   2.70534
           1.20794   2.68251
           0.969307   2.61583
           0.745703   2.50785
           0.545338   2.36135
           0.359672   2.15286
           0.224261   1.90322
           0.141405   1.61762
           0.113321   1.3013
           0.135246   1.02892
           0.198805   0.775265
           0.30063   0.548622
           0.437354   0.35729
           0.63969   0.183203
           0.880785   0.0537865
           1.15111   -0.0269343
           1.44131   -0.0546898
           1.7683   -0.0209398
           2.06524   0.0777646
           2.32325   0.237235
           2.5333   0.453285
           2.46129   0.525301
           2.24368   0.342345
           2.02878   0.216788
           1.80714   0.144443
           1.56933   0.121286
           1.38589   0.13615
           1.21525   0.180246
           1.05964   0.25292
           0.92135   0.353349
           0.77469   0.529735
           0.666788   0.760237
           0.600027   1.03722
           0.577281   1.35328
           0.594361   1.61236
           0.644453   1.84492
           0.725584   2.04857
           0.835785   2.22077
           0.973166   2.35897
           1.13584   2.46079
           1.32183   2.5237
           1.52934   2.54529
           1.69612   2.52961
           1.8528   2.48329
           1.99675   2.40693
           2.12535   2.30132
           2.20984   2.20574
           2.27677   2.10079
           2.33401   1.97105
           2.38935   1.80131
 }
 
\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=\baseC,ngrid=1,decal=-1,RotZ=90,RotX=90,unit=4](0,-1,0)
\end{pspicture}
 
\end{document}