回転すると（ランダムに）色が変化する回転する三角形をアニメーション化する方法

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}] 

出力現在、私は願ってい

出力（トライアングルはスピン以外のすべてを行います）私が間違って行ったことを知り、正しく動作するようにコードを修正する方法を教えてください。

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}]