Animation Example

circle movement

Definition

x=Cos[t];
y=Sin[t];

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

Do[
	Show[
		Graphics[{waku,ten},
				 {PlotRange -> {{-1.2,1.2},{-1.2,1.2}},
			      AspectRatio -> 1}
			    ]
		],
		{t, 0, 2 Pi, Pi/20}
  ];