MathGroup Archive 2011

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

Search the Archive

Re: Texture in version 8, fine, but don't export...?


Hans Michael,
Thanks for this reference.
The Tetrahedral Convex hull is just to much fill and not enough feel
for the surface to get textures. But I've just done a few experiments
so far and it certainly plugs holes in Mathematica models.

I call this Mohawk Asteroid:
Clear[x1, y1, z1, g1, g, ga, gb, t, p, d, a]
(* surface with cusps : asteroid of rotation*)
Clear[x1, y1, z1, g1, \
g, ga, gb, t, p, d, a, surface]
x1 = Cos[t]^3*Sin[p]
y1 = Sin[t]^3*Sin[p]
z1 = Cos[p]
w1 = {x1, z1, y1}
g = Flatten[Table[w1, {t, -Pi, Pi, 2*Pi/50}, {p, -Pi, Pi, 2*Pi/50}],
   1];
Length[g]
d = -0.1;
a[0] = {d, d, d}
a[2] = {d, d, -d}
a[3] = {d, -d, d}
a[4] = {-d, d, d}
a[5] = {-d, d, -d}
a[6] = {-d, -d, d}
a[7] = {-d, d, -d}
a[8] = {-d, -d, -d}
a[1] = {d, -d, -d}
g1 = Table[g[[n]] + a[Mod[n, 8]], {n, 1, Length[g]}];
Needs["TetGenLink`"]
{pts, surface} = TetGenConvexHull[g1];
ga = Graphics3D[{Orange, GraphicsComplex[pts, Polygon[surface]]},
  Boxed -> False]
gb = ParametricPlot3D[1.25*w1, {t, 0, Pi}, {p, -Pi, Pi},
  PlotPoints -> 50, PlotRange -> All,
  PlotStyle -> {LightBlue, Specularity[White, 30]}, Axes -> False,
  Boxed -> False, ColorFunction -> (Hue[2 #4*#5] &)]
gw = Show[{ga, gb}, PlotRange -> All]
(*Export["MohawkAsteriodColor.obj", gw]*)

Roger Bagula




  • Prev by Date: Re: List Manipulation- Advanced beginner question
  • Next by Date: Re: Compilation: Avoiding inlining
  • Previous by thread: Re: Texture in version 8, fine, but don't export...?
  • Next by thread: Re: Texture in version 8, fine, but don't export...?