Re: Texture in version 8, fine, but don't export...?

*To*: mathgroup at smc.vnet.net*Subject*: [mg121301] Re: Texture in version 8, fine, but don't export...?*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Thu, 8 Sep 2011 05:26:32 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <j44jpj$8vb$1@smc.vnet.net> <201109070940.FAA21529@smc.vnet.net>*Reply-to*: murray at math.umass.edu

Just a quick suggestion without my trying it here... Try exporting to PostScript, view that with GhostView, say. Only then use some graphics utility to convert to the formats you require. It's been the case, in the past at least, that even direct export to pdf can lose some graphics features, but exporting first to .eps and then converting that to .pdf works. On 9/7/11 5:40 AM, Roger Bagula wrote: > 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.. > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305

**References**:**Re: Texture in version 8, fine, but don't export...?***From:*Roger Bagula <roger.bagula@gmail.com>