원위의 점
함수 CirclePoints는 원형에 고루 분포한 점의 좌표를 반환합니다. 다음은 그래픽 프리미티브와 함께 무엇을 할 수 있는지 그 예를 알아봅니다.
원위에서 등거리에 있는 7개의 점을 가리키는 화살표를 그립니다.
In[1]:=
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]Out[1]=
팔각형의 정점에 각각 처음 8개의 다각형을 둡니다.
In[2]:=
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &,
CirclePoints[8]]]Out[2]=
CirclePoints와 BezierCurve를 결합합니다.
In[3]:=
Graphics[{
BezierCurve[{{0, 0}, ##, {2, 0}}],
BezierCurve[{{0, 0}, ##, {0, 2}}],
BezierCurve[{{0, 0}, ##, {-2, 0}}],
BezierCurve[{{0, 0}, ##, {0, -2}}]
} & /@ CirclePoints[32]
]Out[3]=
In[4]:=
Graphics[Table[
Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8],
i], {i, 0, 2 Pi, Pi/16}]]Out[4]=
