Roll a coin around another

coin = Import[
   "http://3.bp.blogspot.com/_Cgkg7Ju_kac/SmW4JlWNayI/AAAAAAAABqY/\
WZd6s5QFuvM/s400/nasa_Appolo+40+years+coin+bronze_reverse.jpeg"];

mask = Graphics[{Disk[{0, 0}, 0.85]}, PlotRange -> {{-1, 1}, {-1, 1}}];
undermask =
  Graphics[{Inset[coin, {Center, Center}, {Center, Center}, 2],},
   PlotRange -> {{-1, 1}, {-1, 1}}];

coinimg = SetAlphaChannel[undermask, ColorNegate@mask];

Manipulate[
 Graphics[{
   Inset[coinimg, {0, 0}, {Center, Center}, 0.75],
   Rotate[
    Inset[coinimg, 0.634 {Cos[t], Sin[t]}, {Center, Center}, 0.75],
    2 t]
   }, PlotRange -> {{-1, 1}, {-1, 1}}, ImageSize -> {400}]
 , {t, 0, 2 Pi}]