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


/colorie {
3 dict begin
   /solid exch def
   /n solid solidnombrefaces def
   0 1 n 1 sub {
      /i exch def
      i 2 mod 0 eq {
         solid i (rouge) solidputfcolor
      } if
      i 2 mod 1 eq {
         solid i (jaune) solidputfcolor
      } if
   } for
end
} def

5 [5] newcube
dup colorie
%dup [.5 .6] solidputhuecolors
%dup (.5 setgray) (jau) false ifputincolors
drawsolid*