?Rectangle

(*Animate[
x=Cos[t];
y=Sin[t];

waku=Circle[{0,0},1];
ten=Disk[{x,y},0.05];

Graphics[{waku,ten},{PlotRange->{{-1.2,1.2},{-1.2,1.2}}}],{t,0,2 Pi,Pi/20}
]*)

Animate[
If[t<3.5,Graphics[{
Black,Rectangle[{-2.7,-2},{2.4,2}],
White,Rectangle[{-2.4,-2},{-2.1,2}],
White,Rectangle[{-1.8,-2},{-1.5,2}],
White,Rectangle[{-1.2,-2},{-0.9,2}],
White,Rectangle[{-0.6,-2},{-0.3,2}],
White,Rectangle[{0,-2},{0.3,2}],
White,Rectangle[{0.6,-2},{0.9,2}],
White,Rectangle[{1.2,-2},{1.5,2}],
White,Rectangle[{1.8,-2},{2.1,2}],
Yellow,Rectangle[{t-3,0.8},{t-2.3,1.2}],
Blue,Rectangle[{t-3,-0.8},{t-2.3,-1.2}]
}
,{PlotRange->{{-3,2.7},{-3,3}}}], Graphics[{
Gray,Rectangle[{-2.7,-2},{2.4,2}],
Yellow,Rectangle[{t-3,0.8},{t-2.3,1.2}],
Blue,Rectangle[{t-3,-0.8},{t-2.3,-1.2}]
},{PlotRange->{{-3,2.7},{-3,3}}}]]


,{t,0,6,1/10}

]