Function Textures

RP[a_]:=RevolutionPlot3D[{u^3,Cos[a*u],2u^2},{u,0,1},
ColorFunction->Function[{x,y,z},
ColorData["DeepSeaColors"][Cos[169x+144y+121z]]],
PlotRange->{{-1.5,1.5},{-1.5,1.5},{0,2}},
PlotPoints->150,PlotStyle->Opacity[.7],
Mesh->False,Axes->False,Boxed->False,ImageSize->Large];
RP[8]