Retour

HT.tex

Télécharger le fichier Fichier PDF
Image PNG
\def\baseH{0.837345   1.43729
           0.837345   2.21329
           0.839808   2.31027
           0.849005   2.38705
           0.867482   2.44634
           0.897783   2.49077
           0.942536   2.52296
           1.00429   2.5457
           1.08567   2.56155
           1.1893   2.57329
           1.1893   2.64933
           0.077354   2.64933
           0.077354   2.57329
           0.180821   2.56155
           0.262199   2.5457
           0.324033   2.52296
           0.368787   2.49077
           0.399088   2.44634
           0.417564   2.38705
           0.426761   2.31027
           0.429307   2.21329
           0.429307   0.481286
           0.426925   0.368294
           0.418139   0.279197
           0.400155   0.21104
           0.370265   0.160785
           0.325757   0.12531
           0.263923   0.101578
           0.181971   0.0866332
           0.077354   0.077354
           0.077354   0.00131387
           1.1893   0.00131387
           1.1893   0.077354
           1.08805   0.0880292
           1.00774   0.103714
           0.946068   0.12687
           0.900821   0.159799
           0.869535   0.204881
           0.850073   0.26458
           0.840137   0.341277
           0.837345   0.437354
           0.837345   1.26131
           2.04931   1.26131
           2.04931   0.481286
           2.04693   0.368294
           2.03814   0.279197
           2.02015   0.21104
           1.99026   0.160785
           1.94576   0.12531
           1.88384   0.101578
           1.80197   0.0866332
           1.69727   0.077354
           1.69727   0.00131387
           2.8093   0.00131387
           2.8093   0.077354
           2.70805   0.0880292
           2.62774   0.103714
           2.56607   0.12687
           2.52082   0.159799
           2.48953   0.204881
           2.47007   0.26458
           2.46014   0.341277
           2.45734   0.437354
           2.45734   2.21329
           2.45981   2.31027
           2.46901   2.38705
           2.48748   2.44634
           2.51778   2.49077
           2.56254   2.52296
           2.62429   2.5457
           2.70567   2.56155
           2.8093   2.57329
           2.8093   2.64933
           1.69727   2.64933
           1.69727   2.57329
           1.80082   2.56155
           1.8822   2.5457
           1.94395   2.52296
           1.98879   2.49077
           2.01909   2.44634
           2.03756   2.38705
           2.04676   2.31027
           2.04931   2.21329
           2.04931   1.43729}
 
\def\baseT{1.01734   2.48132
           1.01734   0.481286
           1.0148   0.367062
           1.00527   0.277555
           0.985894   0.209316
           0.953786   0.159307
           0.906159   0.124243
           0.840137   0.101004
           0.752765   0.086469
           0.641332   0.077354
           0.641332   0.00131387
           1.80928   0.00131387
           1.80928   0.077354
           1.69859   0.0854015
           1.61089   0.0991971
           1.54363   0.121204
           1.49428   0.153805
           1.46028   0.199297
           1.4391   0.260146
           1.42834   0.33865
           1.4253   0.437354
           1.4253   2.48132
           1.64135   2.48132
           1.79581   2.4773
           1.92014   2.46318
           2.01868   2.43526
           2.09578   2.39026
           2.15581   2.32464
           2.20319   2.23489
           2.24228   2.11763
           2.27734   1.96932
           2.37334   1.96932
           2.34928   2.64933
           0.0932847   2.64933
           0.0693066   1.96932
           0.165301   1.96932
           0.201761   2.11648
           0.242162   2.23317
           0.290529   2.32284
           0.351296   2.38878
           0.428485   2.43427
           0.526369   2.4626
           0.649215   2.47713
           0.801296   2.48132}
 
\psset{lightsrc=40 20 25,viewpoint=50 10 20 rtp2xyz,Decran=30}
\begin{pspicture}(-6,-2)(7,6)
\psframe(-5,-2)(7,6)
\psSolid[object=grille,base=0 4 -10 10,hue=0 1,grid]%
\psSolid[object=prisme,h=1,hue=0 1,incolor=yellow,
   base=\baseH,ngrid=1,decal=1,RotZ=90,RotX=90,unit=4](0,-3,0)
\psSolid[object=prisme,h=1,hue=0 1,incolor=yellow,
   base=\baseT,ngrid=1,decal=-2,RotZ=90,RotX=90,unit=4](0,0,0)
\end{pspicture}