Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Show[Graphics3D[{Brown,
- Tube[{{0, 0, -3}, {1, 0, -3}}, f[-3]],
- Tube[{{1, 0, -3}, {1.5, 0.4, -3}}, f[-3]],
- Cylinder[{{2, 0, -3}, {2.1, 0, -3}}, 1],
- Cuboid[{{2, 0.4, -2.8}, {1.4, 0.5, -3.2}}],
- Lighter@Brown,
- Cuboid[{{3, -1.5, -1.5}, {2.1, 1.5, -4.5}}]
- }, PlotRange -> All, Boxed -> False, Lighting -> "Neutral"],
- ParametricPlot3D[{Sin[t] Exp[0.9 z], Cos[t] Exp[0.9 z],
- z + (-Sin[5 (t + Pi)] Exp[2 z] - 1)*0.05}, {t, 0, 2 Pi}, {z, -3,
- 0}, PlotStyle ->
- RGBColor[0.7647058823529411`, 0.6392156862745098`,
- 0.40784313725490196`]]
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement