輸入スクリプト
AngleToPtに関して(a、r)
ﾂ????lobal c
ﾂ????cにcxであって、cyなet
ﾂ????et1〜2*パイ*a
ﾂ????cx+r*(aを犯します)、cy+r*(cos a)
終わりのAngleToPt
500にxを設定してください。
セット5へのn --側の数
2にkを設定してください --頂点iをi+kに接合してください。
x/50へのセットrr --アークの半径
x/2.5にrを設定してください。
cを設定します。x/2、x/2
重心にaを設定してください。AngleToPt(0、r)、AngleToPt(k/n、r)
BeginFigure(0)
SetPenWidth(x/50)
SetPenColor({0.0, 0.3, 1})
SetFillColor({1, 0.7, 0.0})
MoveTo(a)
kによるkからk*nまでのiで、繰り返してください。
ﾂ????rcToPointPath(AngleToPt(i/n、r)、AngleToPt(i/n+k/n、r)、rr)
終わりの反復
ClosePath()
DrawPath(3)
EndFigure() |
