-4 2 setxrange
-2 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin 
10 setresolution
newpath
   pi 0 smoveto
   pi 0 {Sin 2 mul} Courbe_
currentcpathpointstable 0 1 newprismedroit
dup creusesolid
dup (cyan) (jaune) inoutputcolors
dupsolid {0 0 -60 rotateOpoint3d} solidtransform
drawsolid**
dup (.6 setgray) (jaune) inoutputcolors
dupsolid {0 0 60 rotateOpoint3d} solidtransform
drawsolid**