B4J Question Challenge. Human Intelligence.

Sub imageview1_MousePressed (EventData As MouseEvent)
    ' mousex and y are global ints
    mousex = EventData.X
    mousey = EventData.Y
    'Log("X: " & mousex & " Y: " & mousey )
End Sub

Sub imageview1_MouseDragged (EventData As MouseEvent)
    'Log(EventData.X & ", " & EventData.Y)
    'Log("Distance X = " & (EventData.X - mousex).As(Int))
    'Log("Distance Y = " & (EventData.Y - mousey).As(Int))
    Dim img As Image = can.Snapshot
    'the 100 offset in following line is because there is 1 tile (100x100) before first shown
    rectangle = rectangle.InitializeNewInstance("javafx.geometry.Rectangle2D",Array(100 + (mousex - EventData.x),0.0,500.0,100.0))
    ImageView1.SetImage(img)
    ImageView1.As(JavaObject).RunMethod("setViewport",Array(rectangle))
End Sub

Sub horiz_MouseReleased (EventData As MouseEvent)
    Log("x: " & EventData.X)
    Log("y: " & EventData.Y)
    If Sender.As(ImageView).Tag.As(Int) = 0 Then
        Dim img As Image = can.Snapshot
        'the 100 offset in following line is because there is 1 tile (100x100) before first shown
        Dim dist As Int = Round((mousex - EventData.X) / 100) ' Ensure whole tile snap
        Dim offset As Double = dist * 100 + 100.0 ' Maintain tile alignment
        rectangle = rectangle.InitializeNewInstance("javafx.geometry.Rectangle2D",Array(offset,0.0,500.0,100.0))
        ImageView1.SetImage(img)
        ImageView1.As(JavaObject).RunMethod("setViewport",Array(rectangle))
    else if Sender.As(ImageView).Tag.As(Int) = 1 Then
        Dim img As Image = can1.Snapshot
        'the 100 offset in following line is because there is 1 tile (100x100) before first shown
        Dim dist As Int = Round((mousex - EventData.X) / 100) ' Ensure whole tile snap
        Dim offset As Double = dist * 100 + 100.0 ' Maintain tile alignment
        rectangle = rectangle.InitializeNewInstance("javafx.geometry.Rectangle2D",Array(offset,0.0,500.0,100.0))
        ImageView2.SetImage(img)
        ImageView2.As(JavaObject).RunMethod("setViewport",Array(rectangle))
    End If
End Sub