サインカーブをアニメーションで表示する.

---

Dim Animation As New Animation

Sub Test_ArtistAnimation()
    Const N = 51, Nt = 100
    Dim T As Double, X(N - 1) As Double, Y(N - 1) As Double
    Dim Artist(Nt - 1, 0) As PyObject
    Dim I As Integer, J As Integer
    Dim Fig As Figure, Ax As Axs
    Dim Anim As ArtistAnimation
    Set Fig = Plt.Figure()
    Set Ax = Fig.Gca()
    Call Ax.Grid
    Call Ax.Set_title("Animation")
    For I = 0 To N - 1
        X(I) = I * (2 * Pi() / (N - 1))
    Next
    For I = 0 To Nt - 1
        T = I
        For J = 0 To N - 1
            Y(J) = Sin(X(J) - T)
        Next
        Set Artist(I, 0) = Ax.Plot(N, X(), Y(), "", "color=b")
    Next
    Set Anim = Animation.ArtistAnimation(Fig, Nt, 1, Artist(), "interval = 200")
'   Call Anim.Save("test_anim.mp4")
    Call Plt.Show
End Sub