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