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
]