MathGroup Archive 2006

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

Search the Archive

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?



  • 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?