Nest[Manipulate[Rotate[#, r], {{r, Pi/20, "angle"}, 0, 2 Pi}] &, Manipulate[Plot[Sin[n x], {x, 0, 2 Pi}], {n, 1, 10}], 3]