r[t_] := Sin[t]
b[x_] := 
      Show[Graphics[Disk[{0, r[t]}, 0.2], AspectRatio -> Automatic, 
          PlotRange -> {{-1, 1}, {-1.5, 1.5}}], 
        DisplayFunction -> Identity]
c[x_] := 
      Show[{b[x]}, 
        DisplayFunction -> $DisplayFunction]
mass = Table[c[x], {t, 0, 20, 0.1}]