[Date Index]
[Thread Index]
[Author Index]
Re: Texture in version 8, fine, but don't export...?
*To*: mathgroup at smc.vnet.net
*Subject*: [mg121498] Re: Texture in version 8, fine, but don't export...?
*From*: Roger Bagula <roger.bagula at gmail.com>
*Date*: Sat, 17 Sep 2011 06:27:31 -0400 (EDT)
*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com
*References*: <j44jpj$8vb$1@smc.vnet.net> <201109070940.FAA21529@smc.vnet.net> <j4v6gv$c9e$1@smc.vnet.net>
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...?**
| |