多角形を一般的に描くには？ (ID:119259)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 先日、この場で多角形の描き方について教えて頂きました。 それを下記のように整理しました。 例えば点1(p(1),q(1)),点2(p(2),q(2)),点3(p(3),q(3))の三角形を描くために Public Function MakePoints3(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal x3 As Double, ByVal y3 As Double) As Point() Dim p1 As New Point(x1, y1) Dim p2 As New Point(x2, y2) Dim p3 As New Point(x3, y3) Dim PN As Point() = {p1, p2, p3} Return PN End Function というFunctionを作っておいて PN = MakePoints3((p(1),q(1)),(p(2),q(2)),(p(3),q(3))) pg.FillPolygon(MyBrush, PN) と命令すれば、三角形は描けます。 但し、pg,MyBrush, PNは該当プロシジャーの中でそれぞれ必要な型に宣言しておきます。 質問は、 このやり方ですと一般的にN角形を描こうとすると、N角形毎にFunctionを作っておかなければならないので、 頂点の数が数百になった時大変なので、何かうまい方法がないかということです。 よろしくお願いします。