Problem loading 3d models
- To: mathgroup at smc.vnet.net
- Subject: [mg121252] Problem loading 3d models
- From: Roger Bagula <roger.bagula at gmail.com>
- Date: Tue, 6 Sep 2011 03:57:12 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
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"]