\def\baseE{2.38935   0.677299
       2.27734   0.677299
       2.20278   0.530557
       2.12584   0.412473
       2.04151   0.320338
       1.94477   0.251277
       1.83055   0.202418
       1.69399   0.170967
       1.52984   0.154215
       1.33333   0.149288
       1.22535   0.149288
       1.08534   0.152819
       0.966268   0.162755
       0.878814   0.177947
       0.833321   0.197327
       0.811807   0.238303
       0.805319   0.321323
       0.805319   1.30935
       1.42128   1.30935
       1.53222   1.3064
       1.62107   1.29597
       1.69095   1.27536
       1.74474   1.24177
       1.78571   1.19266
       1.81667   1.12533
       1.84089   1.03705
       1.86134   0.925292
       1.95331   0.925292
       1.95331   1.85329
       1.86134   1.85329
       1.84196   1.74818
       1.82332   1.67272
       1.80164   1.61754
       1.77331   1.57328
       1.64825   1.49781
       1.42128   1.47334
       0.805319   1.47334
       0.805319   2.36135
       0.810739   2.42975
       0.830775   2.4713
       0.871095   2.49175
       0.937281   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.437354
       0.394243   0.342263
       0.383896   0.26573
       0.364106   0.20562
       0.332737   0.159799
       0.287655   0.126131
       0.226807   0.102564
       0.148057   0.0870438
       0.0493522   0.077354
       0.0493522   0.00131387
       2.20935   0.00131387
}

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