Mathematica：围绕另一个旋转一点

Question

我想知道是否可以围绕Mathematica中的其他现有点旋转一个点。我试过这样的事情：

one = Graphics[Point[{1, 1}]];
two = Graphics[Point[{2, 2}]];
two = Rotate[{two}, 60 Degree, {one}]

但它不起作用。它甚至可以吗？ 谢谢！

Answer 1

one = {1, 1};
two = {2, 2};
Graphics[{Point@one, Point@two, Rotate[Point@two, 60 Degree, one]}]