[Date Index]
[Thread Index]
[Author Index]
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
Prev by Date:
**Re: Texture in version 8, fine, but don't export...?**
Next by Date:
**Re: Quit versus Clear["Global`*"]**
Previous by thread:
**Re: Texture in version 8, fine, but don't export...?**
Next by thread:
**Re: Texture in version 8, fine, but don't export...?**
| |