Re: Fancy pictures in 3D
- To: mathgroup at smc.vnet.net
- Subject: [mg66540] Re: [mg66488] Fancy pictures in 3D
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 19 May 2006 03:40:05 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Would you mean something like the following done with DrawGraphics? I got
the catenary from Alfred Gray's 'Modern Differential Geometry'. I put an
emerald where you wanted a 'diamond medallion'.
Needs["DrawGraphics`DrawingMaster`"]
Needs["Graphics`Polyhedra`"]
gsphere =
SphericalDraw3D[1/8, {\[Theta], 0, \[Pi]}, {\[Phi], 0, 2\[Pi]},
PlotPoints -> {21, 31}];
catenaryunitspeed[a_][s_] := a*{ArcSinh[s/a], 0, Sqrt[1 + s^2/a^2]}
Draw3DItems[
{Gold, AbsoluteThickness[2],
ParametricDraw3D[catenaryunitspeed[1/2][s], {s, -2.5, 2.5}],
AbsoluteThickness[1],
EdgeForm[], SurfaceColor[LightYellow, SteelBlue, 2],
MapThread[(gsphere //
UseTranslateShape[catenaryunitspeed[1/2][#]]) &, {Join[
Range[-2, -1/4, 1/4], Range[1/4, 2, 1/4]]}],
EdgeForm[ColorMix[EmeraldGreen, Black][0.3]],
SurfaceColor[EmeraldGreen],
(First@Polyhedron[Octahedron, {0, 0, 0}, 1/8]) //
UseRotateShape[Pi/4, 0, 0] //
UseTranslateShape[catenaryunitspeed[1/2][0]]},
NeutralLighting[0.3, 0.5, 0],
PlotRange -> All,
Background -> YellowBrown,
BoxStyle -> Gray,
ImageSize -> 400];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Nicolas Larue [mailto:Nicolas.T.Larue at student.uts.edu.au]
To: mathgroup at smc.vnet.net
I want to create like a necklace and a diamond medallion in it. Any help
plz?