       Re: applying a real texture in Mathematica

• To: mathgroup at smc.vnet.net
• Subject: [mg121468] Re: applying a real texture in Mathematica
• From: Roger Bagula <roger.bagula at gmail.com>
• Date: Fri, 16 Sep 2011 05:47:58 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j4a21t\$441\$1@smc.vnet.net> <j4cnmd\$hk9\$1@smc.vnet.net> <j4kg78\$kkf\$1@smc.vnet.net>

```Working color texture:

x = (Exp[1 + Cos[t]] - 1)/(Exp)^3;
y = Sin[t]^3;
ParametricPlot3D[{y*Sin[p], y*Cos[p], 600*x}, {t, -Pi, Pi}, {p, -Pi,
Pi}, PlotPoints -> 200,    Boxed -> False, Axes -> False,
PlotStyle -> {LightBlue, Specularity[White, 20]}, Mesh -> False]
g1 = ParametricPlot3D[{y*Sin[p], y*Cos[p], 600*x}, {t, -Pi,
Pi}, {p, -Pi, Pi}, PlotPoints -> 200,    Boxed -> False,
Axes -> False, PlotStyle -> {LightBlue, Specularity[White, 20]},
ColorFunction -> (Hue[2 #4*#5] &)]
(* gives a textured model as obj and mtl files*)
(*Export["SinoidAsteriod.obj", g1]*)

```

• Prev by Date: List Manipulation- Advanced beginner question
• Next by Date: Re: Aligning Typeset Math on Equal Signs
• Previous by thread: Re: applying a real texture in Mathematica
• Next by thread: Alignment problem with Row[ ]