Texture in version 8, fine, but don't export...?
- To: mathgroup at smc.vnet.net
- Subject: [mg121243] Texture in version 8, fine, but don't export...?
- From: Roger Bagula <roger.bagula at gmail.com>
- Date: Tue, 6 Sep 2011 03:55:34 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
I spent some time uploading to Scultpeo models of one of my surfaces
with both of the new texture types ( color and Black and white)
and I got some pretty pictures in Mathematica.
Maybe I'm doing something wrong, so I made up these demo
programs of Steiner's Roman surface/ projective plane.
In my experiments the surface colors come through, but not the
textures.
Clear[x, y, z, m, t, p]
(*Steiner's projective plane as a spherical harmonic*)
x = Cos[t]*Sin[p];
y = Sin[t]*Sin[p];
z = Cos[p];
m = {{0, x, -y},
{-x, 0, z},
{y, -z, 0}};
mm = m.Transpose[m];
w = {mm[[1, 2]], mm[[1, 3]], mm[[2, 3]]};
(* color texture graphic*)
g1 =
ParametricPlot3D[w, {t, 0, Pi}, {p, 0, Pi}, PlotPoints -> 100,
TextureCoordinateFunction -> ({2 #4, #5} &),
PlotStyle ->
Directive[Pink, Specularity[White, 50],
Texture[ExampleData[{"ColorTexture", "Metal4"}]]], Axes -> False,
Mesh -> None, Boxed -> False, PlotPoints -> 100]
Export["Steiner1.3ds", g1]
Export["Steiner1.obj", g1]
Import["Steiner1.3ds"]
(* texture graphic*)
g2 =
ParametricPlot3D[w, {t, 0, Pi}, {p, 0, Pi}, PlotRange -> All,
Boxed -> False, Axes -> False, PlotPoints -> 100, Mesh -> None,
TextureCoordinateFunction -> ({2 #4, #5} &),
PlotStyle ->
Directive[Cyan, Specularity[White, 50],
Texture[ExampleData[{"Texture", "Bubbles3"}]]]]
Export["Steiner2.3ds", g2]
Export["Steiner2.obj", g2]
Import["Steiner2.3ds"]
Try these yourself...Pink and Cyan is what you get back...