-10 8 setyrange -10 10 setxrange -5 7 2 SetCamPos 0 0 0 SetCamView 60 setxunit GetCamPos setlightsrc 2 setlightintensity 2 setlinejoin -3 2.5 2 [10 18] newcone [0 0 1 .5] solideqplansepare dup videsolid dup (jaune) (rouge) inoutputcolors dup drawsolid** pop dup videsolid dup (jaune) (rouge) inoutputcolors {0 45 0 rotateOpoint3d} solidtransform {0 3 0 translatepoint3d} solidtransform dup drawsolid**