MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: applying a real texture in Mathematica


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]*)





  • 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[ ]