Fichier paysage_03.jps — Modifié le 8 Janvier 2008 à 11 h 35
usecolor
-12 9 setxrange
-9 3 setyrange
25 setxunit
14 7 6 SetCamPos
0 0 1 SetCamUp
0 5 0 SetCamView
0 10 setxrange3d
0 10 setyrange3d
0 3 1 axesRVB
qplanxy
2 setlinejoin
{DeepSkyBlue} setlight
12 12 6 setlightsrc
/aretescachees false def
solidgridOff
2 newcube
3 tronque_cube
dupsolid {1 1 1 translatepoint3d} solidtransform
drawsolid*
dupsolid {9 9 1 translatepoint3d} solidtransform
drawsolid*
dupsolid {1 9 1 translatepoint3d} solidtransform
drawsolid*
{9 1 1 translatepoint3d} solidtransform
drawsolid*
2 newcube
{90 0 135 rotateOpoint3d} solidtransform
{5 5 1 translatepoint3d} solidtransform
drawsolid*
{orange} setlight
.5 setlinewidth
1 {5} newsphere
dupsolid {1 9 3 translatepoint3d} solidtransform
drawsolid*
dupsolid {9 1 3 translatepoint3d} solidtransform
{jaune} setlight
drawsolid*
dupsolid {9 9 3 translatepoint3d} solidtransform
{rouge} setlight
drawsolid*
{1 1 3 translatepoint3d} solidtransform
drawsolid*
%% newoctaedre
%% {-6 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (octaedre)
%% -6 0 0 CamView 0 -2 addv bctext
%%
%% newtetraedre
%% {-3 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (tetraedre)
%% -3 0 0 CamView 0 -2 addv bctext
%%
%% newicosaedre
%% drawsolid*
%% (icosaedre)
%% 0 0 0 CamView 0 -2 addv bctext
%%
%% newdodecaedre
%% {3.5 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (dodecaedre)
%% 3.5 0 0 CamView 0 -2 addv bctext
%%
%% .5 setlinewidth
%% 1 {5} newsphere
%% {6.5 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (sphere)
%% 6.5 0 0 CamView 0 -2 addv bctext