회전 할 때 (무작위로) 색상이 바뀌는 회전 삼각형을 애니메이션하는 방법

Question

그래서 중심에 고정 된 정삼각형을 만들고 동그라미에 3 개의 꼭지점이 있고 회전 할 때 연속적으로 애니메이션을 만들고 싶습니다. 임의의 패턴으로 색상이 변경되었습니다.

지금까지 내가 가진 :

Spinning Triangle

내가 기대했다 :

Animate[Graphics[{Hue[RandomReal[]], 
    Triangle[{{-1/2 - Cos[i], 0 - 1/2 Tan[i]}, {1/2 - Cos[i], 
     0 - 1/2 Tan[i]}, {0 - Cos[i], 3^(1/2)/2 - 1/2 Tan[i]}}]}], {i, 
    0, 2*Pi}] 

출력 현재 I가 바라고 있어요

출력 (삼각형 스핀을 제외하고 모든 것을 않습니다) 내가 뭘 잘못했는지 그리고 제대로 작동하도록 코드를 수정하는 방법

Answer 1

좋은 해결은 processing.org 웹상에서 쉽게 만들 수있는 애니메이션을 만들 수 있습니다. 여기

Answer 2

는 Rotate

c = RegionCentroid[SSSTriangle[1, 1, 1]]; 
Animate[Graphics[{Hue[RandomReal[]], 
    Rotate[SSSTriangle[1, 1, 1], i, c]}, 
    PlotRange -> {{c[[1]] - 2/3, c[[1]] + 2/3}, {c[[2]] - 2/3, 
    c[[2]] + 2/3}}], {i, 0, 2 Pi}] 

원본이 수식은 단순히 잘못된 것입니다와 함께 문제 사용하여이 작업을 수행하는 방법이다. 이 작동합니다.

Animate[Graphics[{Hue[RandomReal[]], 
    Triangle[{{Sin[i], Cos[i]}, {Sin[i + 2 Pi/3], 
     Cos[i + 2 Pi/3]}, {Sin[i + 4 Pi/3], Cos[i + 4 Pi/3]}}]}, 
    PlotRange -> {{-3/2, 3/2}, {-3/2, 3/2}}], {i, 0, 2 Pi}]