Retour

FI.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
\def\baseF{1.91734   0.925292
           1.91734   1.85329
           1.82529   1.85329
           1.80567   1.74506
           1.78128   1.65884
           1.74933   1.59241
           1.70729   1.5433
           1.65244   1.50914
           1.58231   1.48763
           1.49411   1.47646
           1.38531   1.47334
           0.805319   1.47334
           0.805319   2.36135
           0.810082   2.42975
           0.828805   2.4713
           0.867728   2.49175
           0.933339   2.49734
           1.47728   2.49734
           1.63035   2.49405
           1.75336   2.48231
           1.85034   2.45932
           1.92523   2.42228
           1.98214   2.36833
           2.02508   2.29475
           2.05809   2.19868
           2.08527   2.07731
           2.18529   2.07731
           2.1733   2.64933
           0.0493522   2.64933
           0.0493522   2.57329
           0.149206   2.56237
           0.228531   2.54628
           0.289462   2.52263
           0.334297   2.48929
           0.365173   2.44388
           0.384471   2.38426
           0.394407   2.30814
           0.397281   2.21329
           0.397281   0.481286
           0.394735   0.369361
           0.38562   0.280839
           0.367308   0.212765
           0.337254   0.162263
           0.292993   0.126378
           0.231898   0.102153
           0.151505   0.0867974
           0.0493522   0.077354
           0.0493522   0.00131387
           1.16934   0.00131387
           1.16934   0.077354
           1.06522   0.0855657
           0.982445   0.0997719
           0.918723   0.122272
           0.871752   0.155283
           0.839234   0.201022
           0.818869   0.261788
           0.808276   0.339799
           0.805319   0.437354
           0.805319   1.30935
           1.38531   1.30935
           1.49526   1.30607
           1.58395   1.2949
           1.65424   1.27322
           1.70877   1.23881
           1.7504   1.18913
           1.78185   1.12196
           1.80583   1.03475
           1.82529   0.925292}
\def\baseFI{1.91734   -0.925292
           1.91734   -1.85329
           1.82529   -1.85329
           1.80567   -1.74506
           1.78128   -1.65884
           1.74933   -1.59241
           1.70729   -1.5433
           1.65244   -1.50914
           1.58231   -1.48763
           1.49411   -1.47646
           1.38531   -1.47334
           0.805319   -1.47334
           0.805319   -2.36135
           0.810082   -2.42975
           0.828805   -2.4713
           0.867728   -2.49175
           0.933339   -2.49734
           1.47728   -2.49734
           1.63035   -2.49405
           1.75336   -2.48231
           1.85034   -2.45932
           1.92523   -2.42228
           1.98214   -2.36833
           2.02508   -2.29475
           2.05809   -2.19868
           2.08527   -2.07731
           2.18529   -2.07731
           2.1733   -2.64933
           0.0493522   -2.64933
           0.0493522   -2.57329
           0.149206   -2.56237
           0.228531   -2.54628
           0.289462   -2.52263
           0.334297   -2.48929
           0.365173   -2.44388
           0.384471   -2.38426
           0.394407   -2.30814
           0.397281   -2.21329
           0.397281   -0.481286
           0.394735   -0.369361
           0.38562   -0.280839
           0.367308   -0.212765
           0.337254   -0.162263
           0.292993   -0.126378
           0.231898   -0.102153
           0.151505   -0.0867974
           0.0493522   -0.077354
           0.0493522   -0.00131387
           1.16934   -0.00131387
           1.16934   -0.077354
           1.06522   -0.0855657
           0.982445   -0.0997719
           0.918723   -0.122272
           0.871752   -0.155283
           0.839234   -0.201022
           0.818869   -0.261788
           0.808276   -0.339799
           0.805319   -0.437354
           0.805319   -1.30935
           1.38531   -1.30935
           1.49526   -1.30607
           1.58395   -1.2949
           1.65424   -1.27322
           1.70877   -1.23881
           1.7504   -1.18913
           1.78185   -1.12196
           1.80583   -1.03475
           1.82529   -0.925292
}
 
\psset{lightsrc=40 20 25,viewpoint=50 30 20 rtp2xyz,Decran=30}
\begin{pspicture}(-7,-2)(7,6)
%\psframe(-7,-2)(7,6)
\psSolid[object=prisme,h=1,hue=0 1,incolor=yellow,
   base=\baseFI,ngrid=1,decal=-2,RotZ=90,RotX=90,unit=4](0,-1,0)
\psSolid[object=grille,base=-4 8 -10 10,ngrid=1,action=draw]%
\psSolid[object=prisme,h=1,hue=0 1,incolor=yellow,
   base=\baseF,ngrid=1,decal=1,RotZ=90,RotX=90,unit=4](0,-1,0)
\end{pspicture}
 
\end{document}