Sub Gesture_onDoubleTap(X As Float, Y As Float, MotionEvent As Object)
' Log(" onDoubleTap x = " & X & ", y = " & Y & ", ev = " & MotionEvent)
' ToastMessageShow("Double-Tap", False)
Dim initial As Double : initial = zoom
Dim f As Double : f = 1.5 * zoom
Dim ctr As Vector2D
Dim increment As Double
Dim finalzoom As Double
If f> 3000 Then f=2999
finalzoom = f
increment = (finalzoom - initial)/10
ctr.Initialize(0,0)
ctr.Xx = x
ctr.Yy =y
Dim v As Double : v= zoom + increment
If v> finalzoom Then
Else
centeredZoom(ctr,zoom+increment)
End If
End Sub