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],
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

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?

```

• Prev by Date: Re: what is K\$
• Next by Date: Re: Insulating data from code
• Previous by thread: Re: Fancy pictures in 3D
• Next by thread: FindRoot syntax?