Gramophone in Mathematica

Show[Graphics3D[{Brown, Tube[{{0, 0, -3}, {1, 0, -3}}, Exp[-2.7]],
   Tube[{{1, 0, -3}, {1.5, 0.4, -3}}, Exp[-2.7]],
   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`]]]