Re: Texture in version 8, fine, but don't export...?
- To: mathgroup at smc.vnet.net
- Subject: [mg121587] Re: Texture in version 8, fine, but don't export...?
- From: Roger Bagula <roger.bagula at gmail.com>
- Date: Wed, 21 Sep 2011 05:33:29 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201109170839.EAA25186@smc.vnet.net> <j59ooe$mm$1@smc.vnet.net>
Here is a texture that has a pattern that you can see
based on a tetrahedral basis for the polygons:
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};
(*creating the parametric point array*)
g = Flatten[Table[w1, {t, -Pi, Pi, 2*Pi/50}, {p, -Pi, Pi, 2*Pi/50}],
1];
Length[g]
d = 0.075;
a[0] = {d, d, d};
a[1] = {d, -d, -d};
a[2] = {-d, d, -d};
a[3] = {-d, -d, d};
(*adding polygon data to the array*)
g1 = Table[
Polygon[Table[g[[n]] + a[Mod[i + n, 4]], {i, 0, 4}]], {n, 1,
Length[g]}];
ga = Graphics3D[{Yellow, EdgeForm[], g1}, Boxed -> False]
gb = ParametricPlot3D[w1, {t, 0, Pi}, {p, -Pi, Pi}, PlotPoints -> 50,
PlotRange -> All,
PlotStyle -> {LightYellow, Specularity[White, 30]}, Axes -> False,
Boxed -> False, Mesh -> False]
gw = Show[{ga, gb}, PlotRange -> All]
(*Export["Asteroidpolygonstetra.3ds",gw] \
Export["Asteroidpolygonstetra.obj",gw] \
Export["Asteroidpolygonstetra.stl",gw]*)