Fichier solide_fuz_02.jps — Modifié le 13 Janvier 2008 à 15 h 48
-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