-3 3 setxrange
-3 6 setyrange
30 setxunit
-7 7 8 SetCamPos
0 0 0 SetCamView
2 setlinejoin 
qplanxy

%% 3 newcube
%% dup [0 1] solidrmfaces
%% videsolid
%% dup (cyan) (jaune) inoutputcolors
%% dup [4 {(rouge)} repeat] solidputincolors
%% drawsolid**

0 1.5 6 newcone
dup (jaune) outputcolors

.7 2 newtore
dup [1 9 15 0 8 14] solidrmfaces
dup videsolid
{0 0 3 translatepoint3d} solidtransform
dup (cyan) (orange) inoutputcolors

solidfuz
dup [.5 .8] solidputinhuecolors
drawsolid**

%%solidnumfaces