回転をあらわす行列

rot[t_]={{Cos[t],-Sin[t]},{Sin[t],Cos[t]}}

太陽系

P[v_]=Table[Disk[rot[v].{(78Cos[s]+45)-45,78Sin[s]}+{45,0},0.4],{s,0,2Pi,2Pi/70}];
Q[v_]=Table[Disk[rot[v].{(84Cos[s]+45)-45,84Sin[s]}+{45,0},0.4],{s,0,2Pi,2Pi/70}];
Manipulate[
Graphics[{P[t],Q[w],
Red,Disk[{45,0},23],
Blue,Disk[rot[t].{-9-45,0}+{45,0},3.5],
Gray,Disk[rot[u].((1.14-1)*rot[t].{-9-45,0})+rot[t].{-9-45,0}+{45,0},1.4],
Brown,Disk[rot[5t].{13-40,0}+{45,0},1.3],
Yellow,Disk[rot[9/5*t].{3-40,0}+{45,0},2.6],
RGBColor[2,0.2,0,2],Disk[rot[3/5*t].{-25-45,0}+{45,0},2],
Disk[rot[t/11].{-55-45,0}+{45,0},6],
Brown,Disk[rot[t/18].{-90-45,0}+{45,0},5],
RGBColor[0.2,0.2,1],Disk[rot[t/20].{-110-45,0}+{45,0},1.4],
RGBColor[0.1,0.1,1],Disk[rot[t/86].{-130-45,0}+{45,0},1.3],
Gray,Disk[rot[u].((1.04-1)*rot[3/5t].{-25-45,0})+rot[3/5t].{-25-45,0}+{45,0},0.7],
Gray,Disk[rot[u].((1.06-1)*rot[3/5t].{-25-45,0})+rot[3/5t].{-25-45,0}+{45,0},0.7]
},
PlotRange->{{-140,120},{-80,80}}
],{t,0/12,16Pi},{u,0,5Pi},{w,0,Pi/3},SaveDefinitions->True]