gifs={};
Do[
(*変数の用意*)
xsec=Cos[-60 t+Pi/2];
ysec=Sin[-60 t+Pi/2];
xmin=Cos[-t+Pi/2];
ymin=Sin[-t+Pi/2];
xhour=Cos[-t/12+Pi/2];
yhour=Sin[-t/12+Pi/2];
xday=Cos[-t/24+Pi/2];
yday=Sin[-t/24+Pi/2];
gray=0.55Cos[t/24]+0.4;
(*時計*)
xclock=0;
yclock=6;
clock1=Disk[{0+xclock,0+yclock},5];
clock2=Circle[{0+xclock,0+yclock},5];
hourhand=Line[{{-0.5 xhour+xclock,-0.5yhour+yclock},{3 xhour+xclock,2 yhour+yclock}}];
minhand=Line[{{-0.5xmin+xclock,-0.5 ymin+yclock},{4 xmin+xclock,4 ymin+yclock}}];
sechand=Line[{{-0.5xsec+xclock,-0.5 ysec+yclock},{4.5 xsec+xclock,4.5 ysec+yclock}}];

hour=Table[Line[{{4.8Sin[i]+xclock,4.8 Cos[i]+yclock},{4.5Sin[i]+xclock,4.5Cos[i]+yclock}}],{i,0,2 Pi,Pi/6}];
sec=Table[Line[{{4.8Sin[i]+xclock,4.8 Cos[i]+yclock},{4.65Sin[i]+xclock,4.65Cos[i]+yclock}}],{i,0,2 Pi,Pi/30}];
(*背景*)
xbuck=20;
ybuck=20;
color=RGBColor[60/255,200Sin[t/48]/255,211/255];
sun1=Disk[{-1 xbuck xday,-1 ybuck yday},2];
sun2=Table[Line[{{2Sin[i]-xbuck xday,2 Cos[i]-ybuck yday},{3Sin[i]-xbuck xday,3Cos[i]-ybuck yday}}],{i,0,2 Pi,Pi/8}];
moon1=Disk[{xbuck xday,ybuck yday},2];
moon2=Disk[{xbuck Cos[-t/24+Pi/2+4 Pi/360],ybuck Sin[-t/24+Pi/2+4 Pi/360]},2];
mountain=Disk[{-14,-6},{10,17}];
house1=Triangle[{{12,7},{9,3.5},{15,3.5}}];
house2=Rectangle[{10,0},{14,3.5}];
house3=Rectangle[{11,1},{13,2.5}];
house4=Line[{{11,1},{11,2.5},{13,2.5},{13,1},{11,1},{12,1},{12,2.5}}];
(*描写*)
gif=Graphics[{
(*背景の描画*)
color,Rectangle[{-20,0},{20,25}],
Red,sun1,sun2,
Yellow,moon1,
color,moon2,
RGBColor[0,155/255,0],mountain,
RGBColor[210/255,70/255,31/255],house1,
RGBColor[237/255,211/255,170/255],house2,
RGBColor[255/255,255/255,If[Cos[t/24]≤0,1,80/255]],house3,
RGBColor[101/255,45/255,0/255],house4,
(*時計の描画*)
White,clock1,
Black,clock2,
Black,AbsoluteThickness[5],hourhand,
Black,AbsoluteThickness[2],minhand,
(*Black,AbsoluteThickness[1],sechand,*)
Black,hour,
Black,AbsoluteThickness[1],sec,
(*暗くする処理*)
GrayLevel[.15,gray],Disk[{0,0},100]
},{PlotRange->{{-20,20},{0,25}}}];
AppendTo[gifs,gif],{t,0,48 Pi,2Pi/15}
]
ShowAnimation[gifs]
SetDirectory["F:\\"]
Export["C2.gif",gifs]