Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Re: Changing "point" styles in 3D plots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79840] Re: [mg79803] Re: Changing "point" styles in 3D plots
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Mon, 6 Aug 2007 03:40:44 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200708050849.EAA22417@smc.vnet.net>
  • Reply-to: murray at math.umass.edu

Or, in Mathematica 6, where StyleForm gets replaced by Style; the part 
"FontSize-> of the option are not needed; and with a termnal semicolon 
after the ParametericPlot3D expression you don't see an extra Graphics3D 
display before the final one:

   point1 = Graphics3D[
     Text[Style["X", 14], {3*Cos[3*(Pi/2)], 3*Sin[3*(Pi/2)], 2}]];
   p1 = ParametricPlot3D[{3*Cos[t], 3*Sin[t], 2}, {t, 0, 2*Pi}];
   Show[{p1, point1}]

Even with those changes, is the letter X really where it should be, from 
an appearance consideration?  You have to use some trial and error, 
perhaps, to get it right.

Another way is to convert the 3D graphics to 2D graphics (by means 
previously posted in this newsgroup), then use the 2D Drawing Tools to 
place the letter visually.

Which brings up a question: When using the Text Tool from the 2D Drawing 
Tools, is there some way to change the font properties except by means 
of the Option Inspector?  (Surely it ought to be on the 2D Graphics 
Inspector that opens from the 2D Drawing Tools palette.)


chuck009 wrote:
> Here's an option for placing letters at points on a ParametricPlot3D.  I just create the graphics primitive.  In the case below, it's a Graphics3D text object.
> 
> point1 = Graphics3D[Text[StyleForm["X", FontSize -> 14], 
>      {3*Cos[3*(Pi/2)], 3*Sin[3*(Pi/2)], 2}]]; 
> p1 = ParametricPlot3D[{3*Cos[t], 3*Sin[t], 2}, {t, 0, 2*Pi}]
> Show[{p1, point1}]
> 

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305


  • Prev by Date: Re: Solving differential equations with parameters
  • Next by Date: Re: Nested Dialogs
  • Previous by thread: Re: Changing "point" styles in 3D plots
  • Next by thread: Re: Changing "point" styles in 3D plots