Fichier paysage_02.jps — Modifié le 8 Janvier 2008 à 10 h 58
usecolor
-7 7 setxrange
-13 3 setyrange
25 setxunit
12 9 10 SetCamPos
0 0 0 SetCamView
0 10 setxrange3d
0 10 setyrange3d
0 3 1 axesRVB
qplanxy
2 setlinejoin
%{DeepSkyBlue} setlight
%5 12 6 setlightsrc
%2 setlightintensity
%/aretescachees false def
/fillstyle {jaune fill} def
2 newcube
3 tronque_cube
%%dup [(DodgerBlue1)] solidputncolors
{90 0 0 rotateOpoint3d} solidtransform
{5 1 1 translatepoint3d} solidtransform
drawsolid*
2 newcube
dup [(orange1) (bleu) (rouge)
(DarkGoldenrod1) (1 0 0 0 setcmykcolor) (jaune)]
solidputfcolors
{1 3 .5 scaleOpoint3d} solidtransform
{0 0 75 rotateOpoint3d} solidtransform
{5 5 .5 translatepoint3d} solidtransform
drawsolid*