%% -2 2 setxrange
%% -2 2 setyrange
%% 100 setxunit
%% 
%% 1.5 -8 6 SetCamPos
%% 0 0 0 SetCamView
%% 
%% -10 10 setxrange3d
%% -3 3 setyrange3d
%% 
%% GetCamPos setlightsrc
%% %1.5 setlightintensity
%% /aretescachees false def
%% 2 setlinejoin 
%% 
%% 
%% .1 setlinewidth
%% gris
%% 1 newcube
%% %dup {normalize3d} solidtransform
%% dup (cyan) outputcolors
%% dup 0 (bleu) solidputfcolor
%% dup (jaune) (bl) false ifputoutcolors
%% drawsolid*

6 -6 4 SetCamPos
0 0 0 SetCamView
2 setlinejoin
.1 setlinewidth


5 [3] newcube
dup .7 solidaffine
dup [.5 .6] solidputhuecolors
dup videsolid
dup (.5 setgray) inputcolors
drawsolid**