S.3　Dyagonals

　VB_GraphicsのグラフィックスWindowの定義方法は、画面中心座標と横幅を指定するだけです。画面のアスペクト比は、デフォルトで４：３です。任意のアスペクト比の画面でも図が収まるようにした作図法の例です。、図の方の縦横比が変わります。これはビジネスグラフではよく使うテクニックです。

Public Sub Proc3() ' Dyagonals
    Dim x, y, rx, ry, Th, th2, Igra, m
    Select Case Ivar
        Case 1: m = 8
        Case 2: m = 12
        Case 3: m = 19
        Case 4: m = 20
        Case Else: m = 6
    End Select
    Dperas
    Dpwind 0, 0, 640
    If FormGraphic.Picture1.ScaleWidth > FormGraphic.Picture1.ScaleHeight Then
        rx = FormGraphic.Picture1.ScaleWidth * 0.4
        ry = FormGraphic.Picture1.ScaleHeight * 0.4
    Else
        ry = FormGraphic.Picture1.ScaleWidth * 0.4
        rx = FormGraphic.Picture1.ScaleHeight * 0.4
    End If
    Igra = 0
    For Th = 0 To 2 * pie + 0.01 Step 2 * pie / m
        For th2 = Th To 2 * pie - 0.1 Step 2 * pie / m
            x = rx * Sin(Th)
            y = ry * Cos(Th)
            DrawPolyLine x, y, Igra
            x = rx * Sin(th2)
            y = ry * Cos(th2)
            DrawPolyLine x, y, Igra
            Igra = 0
        Next th2
        Igra = 0
    Next Th
    Dptext -20, 180, ("m=" + CStr(m))
End Sub