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

3 newcube
.2 solidtronque
dup [.5 .6] solidputhuecolors
dup .5 4 (.5 setfillopacity jaune) false solidaffine
dup videsolid
dup (.5 setgray) inputcolors
drawsolid**