How to revolve a surface about a line other than the $x,y,z$ axes? [duplicate]

I just started working with Mathematica 8 and I'm having trouble revolving a function the way I want.

I have to revolve the function $x^2/4 +2$ and $y= 0$ around $y=6$ to form an ashtray, but I can't find how to do it.

EDIT: So far I've got :

RevolutionPlot3D[{{f[x] - 6}, {-6}}, {x, 0, 6}, RevolutionAxis -> x]


And for clarification, this is the complete surface I'm revolving (Or trying to) https://www.dropbox.com/s/irpaw37nayox414/Capture.PNG

Now I just need to revolve the explicit functions "x=0" from 0 to 2 and "x=5" 0 t0 6

-

marked as duplicate by Ｊ. Ｍ.Mar 23 '13 at 13:22

You say you'd like to rotate about $y=6$ but that's not an axis; could you explain? –  acl Mar 21 '13 at 21:43
Why don't you just rotate the graph of $y=x^2/4 + 2 - 6$ around the y-axis? You will get the same shape. However, I don't see an "ashtray" there: perhaps you really want to rotate this graph around the y-axis? –  whuber Mar 21 '13 at 21:53
So the only way to do it is modifying the function? Either way, it worked. Thanks a bunch! –  Fernando Contreras Mar 22 '13 at 18:36
Possible duplicate: mathematica.stackexchange.com/q/8461/121 –  Mr.Wizard Mar 22 '13 at 18:43

You'll need some of these as well:

Graphics3D[{
Red,
Cylinder[{{0, 0, 0}, {0.05, 0.05, 0.05}}, 1/2],
Gray,
Cylinder[{{0.05, 0.05, 0.05}, {0.2, 0.2, 0.2}}, 1/2],
White,
Cylinder[{{0.0, 0.0, 0.0}, {3, 3, 3}}, 1/2],
Orange,
Cylinder[{{3, 3, 3}, {4, 4, 4}}, 1/2],
},
Lighting -> "Neutral",
Boxed -> False]


-
+1 (but we still have no ashtray) –  acl Mar 21 '13 at 23:13
I'm working on it :P. Now I just need to figure out how to revolve implicit functions. –  Fernando Contreras Mar 22 '13 at 18:38
+1 for using graphics glitches to your advantage. –  Mr.Wizard Mar 22 '13 at 18:45
I'm glad to see you're not a smoker. (They would know that the ash is at the tip and the burning part lies between the ash and the unburned part). :-) –  whuber Mar 22 '13 at 19:54
Took me a while to figure out where the texture came from. –  s0rce Mar 23 '13 at 4:44

Not sure what you are expecting.

ClearAll@f;
f[x_] := x;
RevolutionPlot3D[f[x], {x, 0, 4}, RevolutionAxis -> {6, 0, 0}, AxesLabel -> {"x", "y", "z"}]


does revolve it around an axis which, as specified, is pointing along the $x$ axis.

-
Isn't your figure revolving around the x-axis? –  David Carraher Mar 21 '13 at 21:49
@DavidCarraher oh yes, that was why I added the labels... thanks for pointing the typo out –  acl Mar 21 '13 at 21:53

Maybe this?

RevolutionPlot3D[(x^2/4 + 2) - 6, {x, -4, 4}, RevolutionAxis -> {1, 0, 0}]

-