Manipulate[
 With[{i = Rotate[Text[Style[ToString[st], "Title", FontSize -> f], 
      xy , {0, 0}, {1, 0}], -pr, xy]}, 
  Speak[IloveMath21a] Graphics[{Table[{Hue[
        1/2 + gr (1/2 - Mod[r + bw, 2])], 
       Rotate[i, -ra - r (2 Pi - ra)/k, {0, 0}], 
       Rotate[i, ra + r (2 Pi - ra)/k, {0, 0}]}, {r, 1, k}]}, 
    PlotRange -> 1, ImageSize -> {300, 300}]], {{pr, 0, 
   "original rotation"}, -Pi, Pi}, {{k, 8, "rotated pairs"}, 1, 12, 
  1}, {{ra, Pi, "rotation limits"}, 0, 2 Pi}, {{f, 80, "size"}, 1, 
  240, 1, ImageSize -> Tiny, 
  ControlPlacement -> Left}, {{gr, .5, "hue"}, 0, 1, 
  ImageSize -> Tiny, 
  ControlPlacement -> Left}, {{xy, {-1/12, -1/12}, 
   "translation"}, {-1/4, -1/4}, {1/4, 1/4}, ControlType -> Locator, 
  Appearance -> None}, {{bw, 0, "inversion"}, {0 -> "plain", 1 -> "inverted"}, 
  ControlPlacement -> Left}, {{st, "Math21a", "text"}, 
  ControlType -> None, ControlPlacement -> Left}]