\def\baseU{2.44527   2.0613
           2.4479   2.19876
           2.45784   2.30781
           2.47771   2.39206
           2.51023   2.45529
           2.55818   2.50128
           2.62412   2.5338
           2.71092   2.55654
           2.82129   2.57329
           2.82129   2.64933
           1.89328   2.64933
           1.89328   2.57329
           1.99897   2.56081
           2.08363   2.53938
           2.14932   2.5062
           2.19827   2.45825
           2.23259   2.39272
           2.25435   2.30666
           2.26593   2.19712
           2.2693   2.0613
           2.2693   0.981296
           2.26388   0.798422
           2.24729   0.652254
           2.21863   0.534662
           2.17733   0.437354
           2.07016   0.30687
           1.91726   0.207263
           1.72839   0.143622
           1.51333   0.121286
           1.31674   0.139188
           1.15325   0.192728
           1.02276   0.281578
           0.925292   0.405328
           0.879224   0.506332
           0.848266   0.622774
           0.830693   0.762454
           0.825274   0.933339
           0.825274   2.21329
           0.827737   2.31027
           0.837099   2.38705
           0.856067   2.44634
           0.887272   2.49077
           0.933422   2.52296
           0.997391   2.5457
           1.08172   2.56155
           1.1893   2.57329
           1.1893   2.64933
           0.0573175   2.64933
           0.0573175   2.57329
           0.163495   2.56287
           0.246843   2.54792
           0.310073   2.52583
           0.355812   2.4938
           0.386688   2.44913
           0.405493   2.38935
           0.414772   2.31159
           0.417318   2.21329
           0.417318   0.965283
           0.432509   0.72271
           0.478495   0.513969
           0.555684   0.338403
           0.664325   0.195766
           0.804744   0.0855657
           0.977518   0.00730839
           1.18289   -0.0392518
           1.42128   -0.0546898
           1.72265   -0.0285766
           1.97228   0.0492701
           2.16936   0.178111
           2.31331   0.35729
           2.37441   0.487938
           2.41522   0.634763
           2.43813   0.807865
           2.44527   1.01734 }

\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=\baseU,ngrid=1,decal=1,RotZ=90,RotX=90,unit=4](0,-1,0)
\end{pspicture}