Fichier paysage_03.jps — Modifié le 8 Janvier 2008 à 11 h 35

paysage_03.pdf
Source
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