Re: Problem loading 3d models
- To: mathgroup at smc.vnet.net
- Subject: [mg121270] Re: Problem loading 3d models
- From: Roger Bagula <roger.bagula at gmail.com>
- Date: Wed, 7 Sep 2011 05:38:15 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j44k27$93q$1@smc.vnet.net>
On Sep 6, 1:02 am, Roger Bagula <roger.bag... at gmail.com> wrote:
> 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"]
The models load as graphics fine,
if you do it right:
Clear[t]
t = ExampleData["Geometry3D"]
g = Table[ExampleData[t[[n]]], {n, 1, Length[t]}]
Two things:
The models in "Geometry3D" have mostly more than just "VertexData"
so ListSurfacePlot3D[] fails.
Here is away to see the other data:
ExampleData[{"Geometry3D", "SpaceShuttle"}, "GraphicsComplex"]
Creating big tables of vertex data can get some 3d graphics
"visible" to model programs but it costs a lot of memory:
Clear[f, g, h, k, s0, ff, ll, kk, mm, a, g3, ga, x]
f[x_] := 0 /; 0 <= x <= 1/8
f[x_] := 1 /; 1/8 < x <= 2/8
f[x_] := -1 /; 2/8 < x <= 3/8
f[x_] := 0 /; 3/8 < x <= 4/8
f[x_] := 1 /; 4/8 < x <= 5/8
f[x_] := 0 /; 5/8 < x <= 6/8
f[x_] := 0 /; 6/8 < x <= 7/8
f[x_] := -1 /; 7/8 < x <= 1
ff[x_] = f[Mod[Abs[x], 1]]
Plot[ff[x], {x, 0, 4}]
s0 = Log[2]/Log[3]
kk[x_] = Sum[ff[3^k*x]/3^(s0*k), {k, 0, 20}];
Plot[kk[x], {x, 0, 4}]
s0 = Log[2]/Log[3]
ll[x_] = Sum[ff[3^k*(x + 1/2)]/3^(s0*k), {k, 0, 20}];
Plot[ll[x], {x, 0, 4}]
a = Table[{ll[n/10000], kk[n/10000]}, {n, 1, 10000}];
ListPlot[a]
mm[x_] = Sum[ff[3^k*(x - 1/2)]/3^(s0*k), {k, 0, 20}];
digits = 50000
g3 = Table[{ll[n/digits], kk[n/digits], mm[n/digits]}, {n, 1,
digits}];
ga = ListSurfacePlot3D[g3, MaxPlotPoints -> 500,
Lighting -> "Neutral", Mesh -> None, Axes -> False, Boxed -> False,
PlotStyle -> {Cyan, Specularity[White, 20],
Texture[ExampleData[{"ColorTexture", "StoneWall"}]]},
TextureCoordinateFunction -> (Normalize[{#1, #2, #3}] &)]
Export["graycode3d.3ds", ga]