Sub IP_TouchDown(ScreenX As Int, ScreenY As Int, Pointer As Int) As Boolean
If Pointer <> 0 Then Return False
LastX = ScreenX
LastY = ScreenY
Return True
End Sub
Sub IP_TouchDragged(ScreenX As Int, ScreenY As Int, Pointer As Int) As Boolean
Point.Set(Camera.Position.X, Camera.Position.Y, Camera.Position.Z)
Camera.Position.Set(Point.X, Point.y, Point.Z)
Dim speedx, speedy As Double
speedx = Abs(ScreenX-LastX)/100
speedy = Abs(ScreenY-LastY)/100
If Pointer <> 0 Then Return False
If ScreenX > LastX Then
Camera.Translate(-speedx, 0, 0)
Else
Camera.Translate(speedx, 0, 0)
End If
If ScreenY > LastY Then
Camera.Translate(0,speedy,0)
Else
Camera.Translate(0,-speedy,0)
End If
Camera.Update
LastX = ScreenX
LastY = ScreenY
Return True
End Sub