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: [mg121284] Re: Texture in version 8, fine, but don't export...?
  • From: Roger Bagula <roger.bagula at gmail.com>
  • Date: Wed, 7 Sep 2011 05:40:46 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <j44jpj$8vb$1@smc.vnet.net>

So how to get real textures into Mathematica
that show up in models?
I don't notice the guys working at Mathematica jumping in on this one, LOL.
I'm learning this stuff the hard way by doing and cr....
Here is a working "VertexData" version using ListSurfacePlot3D:
( as you can see this is my 5th experiment: the first two went very
badly....):

Clear[x, y, z, w, r, g, ga, gb, gc]
x = If[Sin[t]*Cos[p] < 0, Sin[t]*Cos[p]/2, Sin[t]*Cos[p]];
y = Sin[t]*Exp[1 - Sin[p]];
z = Cos[t];
w = {-x, 2*y, z};
r = x^2 + y^2 + z^2;
g = Flatten[Table[N[w/r], {t, 0, Pi, Pi/70}, {p, -Pi, Pi, 2*Pi/70}],
   1];
Length[g]
ga = ListSurfacePlot3D[g, MaxPlotPoints -> 140, Lighting -> "Neutral",
   Mesh -> None, Axes -> False, Boxed -> False,
  PlotStyle -> {Pink, Specularity[White, 20]}]
gb = ParametricPlot3D[N[w/r], {t, 0, Pi}, {p, -Pi, Pi},
  PlotPoints -> 100,
  PlotStyle -> Directive[Purple, Specularity[White, 50]],
  Axes -> False, Mesh -> None, Boxed -> False]
gc = Show[{ga, gb}, PlotRange -> All]
Export["AlienSpaceshipListSurfacePlot5.3ds", gc]
Export["AlienSpaceshipListSurfacePlot5.obj", gc]
Export["AlienSpaceshipListSurfacePlot5.stl", gc]

The obj takes forever and ever..




  • Prev by Date: Re: Invoking pdflatex from a notebook
  • Next by Date: Re: Print bug with -script? (quotes display)
  • Previous by thread: Texture in version 8, fine, but don't export...?
  • Next by thread: Re: Texture in version 8, fine, but don't export...?