S.4　Lissajous

　リサジュ図形は、CRTオッシログラフを利用する電気計測ではお馴染みの２現象の相関図形です。原理は単純ですが、画面寸法に合わせて、見易い大きさに表現します。このとき、VBのシステムプロパティScaleHeight /ScaleWidthを参照しています。

Public Sub Proc4() ' Lissajous
    Dim a, b, x, y, Th, Igra, k
    Select Case Ivar
        Case 1: a = 6: b = 7
        Case 2: a = 5: b = 7
        Case 3: a = 4: b = 5
        Case 4: a = 2: b = 3
        Case Else: a = 6: b = 7
    End Select
    Dperas
    Dpwind 0, 0, 640
    Igra = 0: k = 200
    For Th = 0 To 2 * pie + 0.01 Step pie / k
        x = FormGraphic.Picture1.ScaleWidth * 0.4 * Sin(a * Th)
        y = FormGraphic.Picture1.ScaleHeight * 0.4 * Sin(b * Th)
        DrawPolyLine x, y, Igra
    Next Th
    Dptext -50, 180, ("a =" + CStr(a) + "b=" + CStr(b))
End Sub