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: [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...?