usecolor
-6 2 setxrange
-6 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin 

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

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