Initializations

Input := 

Off[General::spell];
Needs["Graphics`Colors`"]
Needs["Graphics`Polyhedra`"]
Off[ParametricPlot3D::ppcom];
Off[ParametricPlot::ppcom];
Off[Plot::plnr];
SetOptions[Limit,Analytic->True];