通常の五角形を構成するために、あなたは特別な中間的より小さい円を造ります。

スクリプトは以下の特徴を特に示します。 特定の諸条件に関する情報を得て、その時それ(Smileの)を選択するには、⌘⇧Fを押してください。

• 正しい位置に名前を引くのにどう位置パラメタを使用するか: [rt] [t]
• どう線にポイントの名前印刷を持っているか: markpoint
• どうより薄い線を描くか: SetPenWidth(0.5)
• 命名されたポイントのリストをそれに与えるなら、 DrawPolygonは自動的にポイントの名前を描きます。

輸入スクリプト

BeginFigure(0)
SetTextFont(「モナコ」)
SetTextSize(10)
SetUserTransformation({150, 0, 0, 150, 200, 200})
SetArrowSize({3, 8, 4})

CirclePath({0, 0}, 1)
DrawVector({-1.2, 0}, {1.2, 0})
DrawVector({0, -1.2}, {0, 1.2})
DrawPath(2)
(sqrt5)/4にrを設定してください。
CirclePath(-0.25、0、r)
-0.25+rにx1を設定してください。
MoveTo(x1、-1.2)
LineTo(x1、1.2)
sqrtにy1を設定してください。(1--x1*x1)
lを設定します。1、0、x1、y1
-0.25へのセットx2--r
MoveTo(x2、-1.2)
LineTo(x2、1.2)
SetPenWidth(0.5)
DrawPath(2)

「: -0.25、0が命名するポイント: ヒント: 」 -1/4インチ、「t」をmarkpointする、-1、0、1、0、大きさ3
DrawPath(2)
SetPenWidth(1)
sqrtにy2を設定してください。(1--x2*x2)
lからlを設定してください。x2、y2、x2、-y2、x1、-y1
llを設定します。point:item 1 of l, name:"A_1", hint:"rb"
2〜5までのiで、繰り返してください。
ﾂ????llへのet llpoint:item i of l, name:"A_" & i
終わりの反復
SetTextOffset(3, 4)
SetCenter({-0.25, 0})
SetPenColor({1, 0, 0})
DrawPolygon(ll)
DrawPath(2)

TextMoveTo({1, 0})
引き紐(「[rt]1インチ)」
TextMoveTo({0, 0.5})
引き紐(「[rt]1/2インチ)」
TextMoveTo({0, 1})
引き紐(「[tr]1インチ)」
EndFigure()