usecolor
-5 4 setxrange
-6 8 setyrange
25 setxunit
3 5 7 SetCamPos
2 0 0 SetCamView
qplanxy
2 setlinejoin 

{DeepSkyBlue} setlight
5 12 10 setlightsrc
solidgridOff
/aretescachees false def

30 setresolution
newpath
   4 0 smoveto
   4 0 {2 mul Sin 1.3 mul 3 add} Courbe_
   0 0 slineto
currentcpathpointstable 
0 2 newprismedroit
{90 0 0 rotateOpoint3d} solidtransform
drawsolid*