Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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]*)




  • Prev by Date: Re: passing Indeterminate and Infinity to C via MathLink
  • Next by Date: Calculus and InterpolatingFunction
  • Previous by thread: Re: Texture in version 8, fine, but don't export...?
  • Next by thread: getting data written to notebook to look nice