Fichier solide_deform_02.jps — Modifié le 8 Janvier 2008 à 11 h 07
autocrop
-13 10 setxrange
-10 10 setyrange
20 setxunit
6 20 15 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView
2 setlinejoin
/solidgrid false def
{cyan} setlight
5 8 12 setlightsrc
2 setlightintensity
/gro {
4 dict begin
/M defpoint3d
/a -.3 def
/b 1 a 3 sqrt mul sub def
/k M norme3d a mul b add def
M k mulv3d
end
} def
1 [6] newcube
{0 0 -70 rotateOpoint3d} solidtransform
{gro} solidtransform
{8 dup dup scaleOpoint3d} solidtransform
drawsolid**