Fichier solide_deform_02.jps — Modifié le 8 Janvier 2008 à 11 h 07

solide_deform_02.pdf
Source
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**