-5 4 setyrange -6 5 setxrange 10 10 10 SetCamPos 0 0 0 SetCamView 50 setxunit GetCamPos setlightsrc 2 setlightintensity 2 setlinejoin 3 newsphere dup (vert) solidputcolors dup .8 (.4 setfillopacity jaune) false solidaffine dup videsolid drawsolid**