Re: Problem loading 3d models
- To: mathgroup at smc.vnet.net
- Subject: [mg121289] Re: Problem loading 3d models
- From: Yves Klett <yves.klett at googlemail.com>
- Date: Wed, 7 Sep 2011 05:41:41 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j44k27$93q$1@smc.vnet.net>
The data seems just fine...
ExampleData[{"Geometry3D", "Zeppelin"}]
Cases[% // Normal, _Polygon, Infinity]
...only ListSurfacePlot3D does not interpret the vertex data in the way
you might expect it to.
Regards,
Yves
Am 06.09.2011 10:02, schrieb Roger Bagula:
> I'm also having problems with downloading Mathematica 3d Models:
> the Rabbit came through fine,
> but only that. I tried the shark and the zephlin too.
> I'm getting fractured results...
> Try:
>
> ExampleData["Geometry3D"]
> ExampleData["ColorTexture"]
> Clear[g0]
> g0 = ListSurfacePlot3D[
> ExampleData[{"Geometry3D", "BassGuitar"}, "VertexData"],
> Lighting -> "Neutral", MaxPlotPoints -> 50, Mesh -> None,
> Axes -> False, Boxed -> False, PlotRange -> All,
> PlotStyle -> {Brown, Specularity[White, 20],
> Texture[ExampleData[{"ColorTexture", "BurlOak"}]]},
> TextureCoordinateFunction -> (Normalize[{#1, #2, #3}] &)]
> Export["BassGuitarMathematica.3ds", g0]
> Export["BassGuitarMathematica.obj", g0]
> Import["BassGuitarMathematica.3ds"]
>