sfera[u_,v_]:={Cos[u]Cos[v],Sin[u]Cos[v],Sin[v]};

srot[f_][u_,v_]:={f*Cos[u],f* Sin[u],v};

toro[r_][u_,v_]:={(r+Sin[u])Cos[v],(r+Sin[u]) Sin[v],Cos[u]};

sbucciamolt[sup_,c_,k_,vm_,vM_]:=Show[{
ParametricPlot3D[sup,{u,vm/c-2k*Pi,vM/c},{v,vm,vM},RegionFunction->Function[{x,y,z,u,v},c*u<v<c*(u+2k*Pi)],PlotPoints->50,Mesh->None,Boxed->False,Axes->None,PlotLabel->Style[Column[{{x,y,z}==sup, {c*u<v<c*(u+2k*Pi),vm/c-2k*Pi<u<vM/c}},Center],15]],
ParametricPlot3D[sup/. v->c*u,{u,vm/c,vM/c},PlotStyle->{Thick,Green}],
ParametricPlot3D[sup/. v->c*(u+2k*Pi),{u,vm/c-2k*Pi,vM/c-2k*Pi},PlotStyle->{Thick,Red}]}]

figura=GraphicsRow[{sbucciamolt[sfera[u,v],1/10,1/2,-Pi/2,Pi/2],sbucciamolt[srot[1+Sin[v]][u,v],1/10,1/2,-Pi/2,3/2Pi],sbucciamolt[toro[2][u,v],1/10,1/2,-Pi,Pi]},ImageSize->1200,PlotLabel->Style["BUON 2014  ***  Matematica - Curve e Superfici\n\n",20]]

Export["buon2014.jpg",figura,ImageResolution->200]