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[2])^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]*)