Merging objects before tumbling animation
- To: mathgroup at smc.vnet.net
- Subject: [mg43191] Merging objects before tumbling animation
- From: mathma18 at hotmail.com (Narasimham G.L.)
- Date: Sun, 17 Aug 2003 04:28:04 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In the program below, dish alone can be rotated through a variable
angle al, but I want dish and warp ( diwa) to be together rotated as a
merged object. How is it done?
Since dish and warp anyhow would be seen together later,to avoid
repetition, how can their first ParametricPlot3D graphics output
appearance be suppressed without jeopardy to succeeding code lines
implementation ?
x= u Cos[v]; y=u Sin[v] ; z= u^2/2 ;
dish=ParametricPlot3D[{x,y,z},{u,0,1},{v,0,2 Pi}];
warp=ParametricPlot3D[{v Cos[w], v Sin[w] ,w }, {v,0,1 },{w,0,1.2}];
diwa=Show[dish,warp]
x1=x Cos[al] - z Sin[al]; z1=x Sin[al] + z Cos[al];
Table[ParametricPlot3D[{x1,y,z1},{u,0,1},{v,0,2 Pi},
PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}, {-1.6, 1.6}},
BoxRatios -> {1, 1, 1.75}], {al, 0,2 Pi,Pi/8}];
TIA and Regards