-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**