\def\baseS{1.78932   2.70534
       1.70532   2.70534
       1.68807   2.64523
       1.66073   2.60277
       1.6237   2.57765
       1.5773   2.56935
       1.49978   2.58126
       1.40132   2.61731
       1.18174   2.68226
       0.977272   2.70534
       0.722299   2.65681
       0.497299   2.52131
       0.405082   2.42006
       0.338732   2.3028
       0.298659   2.16969
       0.285274   2.0213
       0.319763   1.79754
       0.429224   1.59972
       0.622774   1.41766
       0.909279   1.24128
       1.10981   1.12533
       1.27782   1.00724
       1.41044   0.889161
       1.50528   0.773294
       1.54675   0.673768
       1.56129   0.541314
       1.5254   0.357619
       1.42481   0.214818
       1.26936   0.122272
       1.06932   0.0893431
       0.821004   0.131305
       0.606761   0.26031
       0.421834   0.480794
       0.261296   0.797354
       0.169325   0.797354
       0.289297   -0.0506661
       0.377327   -0.0506661
       0.388084   0.0019708
       0.412308   0.0437682
       0.447044   0.0712774
       0.489334   0.0812956
       0.571286   0.0697172
       0.677299   0.037281
       0.910265   -0.0312044
       1.14931   -0.0546898
       1.31641   -0.0403193
       1.47088   0.00106752
       1.60957   0.0670073
       1.72979   0.15479
       1.82833   0.26187
       1.90248   0.385703
       1.94904   0.523659
       1.9653   0.673276
       1.9226   0.907965
       1.78924   1.12574
       1.55685   1.3353
       1.2173   1.54527
       0.948202   1.71025
       0.765821   1.86331
       0.662108   2.01326
       0.629343   2.16928
       0.659398   2.32021
       0.744307   2.4378
       0.875693   2.51409
       1.04535   2.54135
       1.30426   2.48526
       1.53328   2.32128
       1.61466   2.22734
       1.67773   2.12781
       1.72954   2.00792
       1.77734   1.85329
       1.87727   1.85329
}

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