地球

rotZ[z_]={{Cos[z],-Sin[z],0},
{Sin[z],Cos[z],0},{0,0,1}}

Manipulate[ParametricPlot3D[rotZ[3*a].{Cos[g]*Cos[s],Cos[g]*Sin[s],Sin[g]},{s,0,2Pi},{g,-Pi/2,Pi/2},Lighting->{{"Point",White,{0,0,0}},{"Point",White,{0,-3,0}}},Background->Black,Axes->False,Boxed->False,Mesh->False,PlotStyle->Texture[]],{a,-1,1},SaveDefinitions->True]

Button["押してください",Speak["thank you"]]