S.1　Polygon

　第3.1.2項で例示した図のバリエーションを下に示します。このプログラムは、太さを変えて線を引くのと、文字を書かせるだけです。VBのメソッドは、Cls文、Line文、Print文などと共に、プロパティを設定して使うのですが、VB_Graphics内ではサブルーチン名としては、Dperas, Dpensz, DrawPolyline, Dptextなどに書き換えてあります。これは、第3.5節で解説したメタファイルとデバイスドライバの考え方を利用するためです。

Public Sub Proc1() ' Polygon
    Dim x, y, r, rr, p, Th
    Dim n, Igra As Integer
    Select Case Ivar
        Case 1: n = 3
        Case 2: n = 4
        Case 3: n = 5
        Case 4: n = 6
        Case Else: n = 3
    End Select
    Dperas
    Dpwind 0, 0, 640
    r = 200
    Igra = 0
    For p = 1 To 0.2 Step -0.1
        Igra = 0
        Dpensz (Int(3 * p) + 1)
        For Th = 0 To 2 * pie Step 2 * pie / n
            rr = r * p
            x = rr * Sin(Th)
            y = rr * Cos(Th)
            DrawPolyLine x, y, Igra
        Next Th
    Next p
    Dptext -10, 10, ("n=" + CStr(n))
End Sub