Получить координаты переведенного многоугольника

Question

У меня есть много многоугольников следующей формы, которые я хочу выполнить более сложную обработку и анализ на основе их обновленного местоположения (например, отношений между геометриями).

Translate[Polygon[{{0, 0}, {0, 50}, {100, 50}, {100, 0}}], {954, 840}]

Я думал, что нашел свое решение, как восстановить координаты переведенного Polygonиз более раннего потока о Points. Однако, когда я попытался применить, NormalM12.1 снова просто вернул выражение.

Normal[Translate[Polygon[{{0, 0}, {0, 50}, {100, 50}, {100, 0}}], {954, 840}]]

Я пробовал более сложные способы извлечения координат из Graphicsобъекта, но безрезультатно. Есть ли у кого-нибудь предложения по поводу восстановления Polygonsобновленных экстентов?

Answer 1

translateToNormal[t_Translate] := TranslationTransform[#2] /@ # & @@ t

tp = Translate[Polygon[{{0, 0}, {0, 50}, {100, 50}, {100, 0}}], {954, 840}]

translateToNormal[tp]

 Polygon[{{954, 840}, {954, 890}, {1054, 890}, {1054, 840}}]

В качестве альтернативы,

translateToNormal2 = # /. Translate -> (TranslationTransform[#2] /@ # &) &;

translateToNormal2 @ tp

 Polygon[{{954, 840}, {954, 890}, {1054, 890}, {1054, 840}}]

Graphics[{FaceForm[], EdgeForm[{AbsoluteThickness[10], Red}], translateToNormal[tp],
  EdgeForm[{Thin, Black}], tp}]

Чтобы получить координаты:

normalCoords[t_Translate] := TranslationTransform[#2] @ #[[1]] & @@ t
normalCoords[tp]

{{954, 840}, {954, 890}, {1054, 890}, {1054, 840}}