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

MathGroup Archive 2008

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

Search the Archive

Re: How to put text on a curved surface?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87181] Re: How to put text on a curved surface?
  • From: dh <dh at metrohm.ch>
  • Date: Thu, 3 Apr 2008 05:16:22 -0500 (EST)
  • References: <fsvels$sto$1@smc.vnet.net>


Hi,

here is a first attempt:

a) define a 2dim parameter space. E.g. for a Torus {0,2Pi} x {0,2Pi}

b) write your characters into the flat parameter space

c) map the 2dim parameter space into 3D

here is an example where we write two "A" characters onto a torus:

R=10;r=3;

map[p1_,p2_]:={R Sin[p1]+ r Cos[p2] Sin[p1],R Cos[p1]+ r Cos[p2] 

Cos[p1],r Sin[p2]};

charA2D[p_,pos_,size_]:=Plus[#,pos]&/@{{0.5 

p,p},{0.5+0.5p,1-p},{0.25+0.5p,0.5}};

txt[p_]:=Join[charA2D[p,{0,-.5},1],charA2D[p,{1.1,-.5},1]];

g1={Graphics3D[Thickness[0.02]],ParametricPlot3D[map@@@txt[p],{p,0,1}]}//Show;

g2=ParametricPlot3D[map[p1,p2],{p1,0,2Pi},{p2,0,2Pi}];

Show[g2,g1]

hope thsi helps, Daniel





P_ter wrote:

> I would like to put "Mathematica" on a curved surface, e.g. a torus. 

> Can anyone help here?

> with friendly greetings,

> P_ter

> 




  • Prev by Date: Re: Mixed Numerical Derivatives
  • Next by Date: Re: Colorfunction based upon flux direction
  • Previous by thread: Re: How to put text on a curved surface?
  • Next by thread: Re: How to put text on a curved surface?