三角格子を線とマーカーで描画する.

---

Sub Test_Triplot()
    Const N = 256
    Dim X(N - 1) As Double, Y(N - 1) As Double, Z(N - 1) As Double
    Dim I As Integer
    Dim Fig As Figure, Ax As Axs
    '-- Make data
    For I = 0 To N - 1
        X(I) = -3 + 6 * Rnd()
        Y(I) = -3 + 6 * Rnd()
'        Z(I) = (1 - X(I) / 2 + X(I) ^ 5 + Y(I) ^ 3) * Exp(-X(I) ^ 2 - Y(I) ^ 2)
    Next
    '-- Plot
    Set Fig = Plt.Figure()
    Set Ax = Fig.Gca()
    Call Ax.Triplot(N, X(), Y())
    Call Ax.Set_xlim(-3, 3)
    Call Ax.Set_ylim(-3, 3)
    Call Plt.Show
End Sub