Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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





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