Manipulate[
DynamicModule[{fxy,fz,zp,u,plt,x,y,z,v,w},
fxy:=Rx1+Rx2 ((Abs[Sin[((c u)/2)]])^d); 
fz:=Rz1+Rz2 ((Abs[fv[((2c1 v)/2)]])^d1);
Column[{
Row[{
ParametricPlot[ fxy{Cos[u],Sin[u]},{u,0,2Pi},AspectRatio->Automatic,PlotRange->2{{-1,1},{-1,1}},AxesLabel->{"x","y"},ImageSize->{150,150}],"     ",
ParametricPlot[fz{Sin[v],A Cos[v]},{v,0,Pi},AspectRatio->Automatic,PlotRange->2{{-1,1},{-1,1}},AxesLabel->{"x","y"},ImageSize->{150,150}]
}],
plt=ParametricPlot3D[{ fz fxy Sin[v]Cos[u],fz fxy Sin[v] Sin[u],A fz Cos[v]},{u,0,2Pi},{v,0,Pi},BoxRatios->Automatic,PlotRange->Automatic,PlotPoints->ControlActive[6,plotpts],Boxed->False,Axes->None,Mesh->False,ImageSize->{400,250},
ColorFunction->(Function[{x,y,z,u,v},ColorData[color][K0(invcol+(-1)^invcol Mod[  Sqrt[(x^2+y^2+z^2)],1])^a]]),ColorFunctionScaling->False],
Button["Nagy méret",CreateWindow[DocumentNotebook[Show[plt,ImageSize->{800,500}],WindowSize->{900,600}]]]
},Alignment->Center]
],
Style["Egyszerű virtuális gyümölcsök",Bold, Large],
Delimiter,
Style["Keresztmetszet",Bold],
{{c,5,"Gerezdek száma"},0,12,1,ImageSize->Small},
{{d,0.3,"Gerezdek metszete"},0.3,2,ImageSize->Small},
{{Rx1,0.5,"Belső sugár"},0,1,ImageSize->Small},
{{Rx2,0.5,"Külső sugár"},0,2,ImageSize->Small},
Delimiter,
Style["Hosszmetszet alapforma",Bold],
{{c1,5,"Gerezdek bordáinak száma"},0,12,1,ImageSize->Small},
{{d1,0.3,"Gerezdek alakja"},0.3,2,ImageSize->Small},
{{fv,Cos,"Felül horpadt?"},Checkbox[#,{Cos,Sin}]&,ImageSize->Small},
{{Rz1,0.5,"Belső sugár"},0,1,ImageSize->Small},
{{Rz2,0.5,"Külső sugár"},0,2,ImageSize->Small},
{{A,1,"Nyújtottság"},0.5,3,ImageSize->Small},
Delimiter,
{{K0,1.,"Érettség foka"},0,2,ImageSize->Small},
{{color,"PlumColors","Színséma"},{"PlumColors","FruitPunchColors","Rainbow","SunsetColors","SolarColors","Rainbow","AvocadoColors","DeepSeaColors"},PopupMenu},
{{invcol,0.,"Fordított színátmenet"},Checkbox[#,{0.,1.}]&},
{{a,1,"A színváltozás gyorsasága"},0.2,5,ImageSize->Small},
Delimiter,
{{plotpts,10,"Rajz minősége"},10,80,10,ImageSize->Small},ControlPlacement->Left]