%autocrop
-2 2 setxrange
-1.5 1.5 setyrange
100 setxunit

5 -3 6 SetCamPos
0 0 0 SetCamView

-10 10 setxrange3d
-3 3 setyrange3d

5 -3 10 setlightsrc
1.5 setlightintensity

2 setlinejoin 

%/aretescachees false def
1 newcube
dup [.5 .6] solidputhuecolors
dup 0 solidrmface
dup videsolid
%dup (jaune) inputcolors
drawsolid**