MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Graphic of human in 3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg94758] Graphic of human in 3D
  • From: Hugh Goyder <h.g.d.goyder at cranfield.ac.uk>
  • Date: Tue, 23 Dec 2008 06:59:20 -0500 (EST)

Does anyone have a rough model of a human in 3D? I tried to make one,
which I give below, but it looks like a cross between Frankenstein's
monster and a Dr Who alien.  Is there a Mathematica artist who knows
the correct proportions?

Many thanks

Graphics3D[{
  With[
   {r = 0.15},
   {Sphere[{0, 0, 5 r}, r],(* head *)
    Cuboid[{{-1.5 r, -0.6 r, 0}, {1.5 r, 0.6 r, 4 r}}],(* upper torso
*)
    Cylinder[{{-1.6 r, 0, 4 r}, {-3 r, 0, -r}}, 0.4 r], (* left arm
*)
    Cylinder[{{1.6 r, 0, 4 r}, {3 r, 0, -r}}, 0.4 r], (* right arm
*)
    Cuboid[{{-1.5 r, -0.6 r, 0}, {1.5 r, 0.6 r, -2 r}}], (*  lower
torso *)
    Cylinder[{{-0.8 r, 0, -2 r}, {-0.8 r, 0, -4.5 r}}, 0.6 r],(*  left
upper leg *)
    Cylinder[{{-0.8 r, 0, -4.5 r}, {-0.8 r, 0, -8 r}}, 0.5 r], (*
left lower leg *)
    Cylinder[{{0.8 r, 0, -2 r}, {0.8 r, 0, -4.5 r}}, 0.6 r],  (*
right upper leg *)
    Cylinder[{{0.8 r, 0, -4.5 r}, {0.8 r, 0, -8 r}}, 0.5 r], (*  right
lower leg *)
    Cuboid[{{-0.5 r, -0.5 r, -8 r}, {-1.1 r, 1.1 r, -8.3 r}}], (*
left foot *)
    Cuboid[{{0.5 r, -0.5 r, -8 r}, {1.1 r, 1.1 r, -8.3 r}}] (*  right
foot *)
    }
   ]},
  Boxed -> False
 ]


  • Prev by Date: Re: Re: Problem with the range of a plot
  • Next by Date: Airy pattern
  • Previous by thread: Re: Mathematica 7 much slower than Mathematica 6 on Limit
  • Next by thread: Airy pattern