MathGroup Archive 2007

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

Search the Archive

Re: Irregular Behavior of TranslateShape and RotateShape with ParametricPlot3D


battlecry3289 at yahoo.com wrote:
> Irregular Behavior of TranslateShape and RotateShape with 
> ParametricPlot3D
> 
> I have been successful in creating desired shapes with 
> ParametricPlot3D and then using TranslateShape and RotateShape on 
> them.  Next time I start Mathematica TranslateShape and RotateShape do 
> not recognize the ParametricPlot3D as a graphics object and error 
> out.  Sometimes it works again.  For instance this sample code from 
> the Wolfram website errors out:
> 
> Needs["Graphics`ParametricPlot3D`"]
> Needs["Graphics`Shapes`"]
> 
> Show[TranslateShape[SphericalPlot3D[2, {theta, 0, Pi}, {phi, 0, 2Pi}, 
> \
> DisplayFunction -> Identity], {1, 2, -2}], DisplayFunction -> \
> $DisplayFunction];
> 
> TranslateShape is not a type of graphics.
> 
> This is so frustrating.  Can anybody give me any hints where to start 
> troubleshooting this?
> 
> Thanks
> 

The above code works fine on my system

In[1]:=
$Version

Out[1]=
5.2 for Microsoft Windows (June 20, 2005)

In[2]:=
Needs["Graphics`ParametricPlot3D`"]
Needs["Graphics`Shapes`"]

Show[TranslateShape[SphericalPlot3D[2,{theta,0,Pi},{phi,0,2Pi},\
DisplayFunction\[Rule]Identity],{1,2,-2}],
       DisplayFunction\[Rule]$DisplayFunction];

[graphics discarded]

Regards,
Jean-Marc


  • Prev by Date: Re: Apart question
  • Next by Date: Re: fundamental Integrate question
  • Previous by thread: Re: Irregular Behavior of TranslateShape and RotateShape with ParametricPlot3D
  • Next by thread: Re: NDSolve -- initial conditions