TransformItems example

Example for TransformItems method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    Call cAvax1.Add_Line(0, 0, 0, 10, 0, 0)
    Call cAvax1.Add_Line(0, 10, 0, 0, 0, 0)
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Static i As Short
    Static x As Single
    Dim [Handles]() As Integer
    Dim done As Short
    Dim TransArr33(,) As Single
    Dim fTransformStay As Boolean
    Dim Answer As Boolean
    Dim oMath As Avax.avMath.cAvaxMath
    oMath = New Avax.avMath.cAvaxMath
    fTransformStay = True
    i = i + 1
    x = x + i * 10
    If CAvax1.GetAllHandlesArr([Handles]) > 0 Then
        ReDim TransArr33(3, 3)
        If oMath.Mirror2dMat(x, 0, x + 10, 10, done, TransArr33) = True Then
            Answer = CAvax1.TransformItems([Handles], TransArr33, fTransformStay)
        End If
    End If
    CAvax1.Command = Avax.AvaxCommand.AutoLimits_c
End Sub