Sorry your browser is not supported!

Function GetSwipeRight( t#, d )
 
    Output = 0
     touchStart = 0.0
     touchEnd = 0.0
    distanceX = 0.0
	
    If GetPointerPressed() = 1
		touchStart = GetPointerX()
        _UCFSwipeRightX = GetPointerX() + d
        _UCFSwipeRightTime = Timer() + t#
        print(touchStart)
    EndIf
 
    If GetPointerState() = 1 and _UCFSwipeRightTime < Timer() and _UCFSwipeRightX < GetPointerX()
        _UCFSwipeRightTime = 0
        Output = 1
    EndIf
    
    If GetPointerReleased() = 1
		touchEnd = GetPointerX()
		distanceX = touchEnd - touchStart
		print (distanceX)
	EndIf
 
EndFunction Output

touchStart = 0.0
touchEnd = 0.0
distanceX = 0.0

do
	If GetPointerPressed() = 1
		touchStart = GetPointerX()
	EndIf
	print("ts:"+str(touchStart))

	If GetPointerReleased() = 1
		touchEnd = GetPointerX()
		distanceX = touchEnd - touchStart
	EndIf
	print("dist:"+str(distanceX))
	sync()
loop

global down_sprite
down_sprite=CreateSprite(0)
SetSpriteColor(down_sprite, 255, 0, 0, 255)
SetSpriteSize(down_sprite, 16, 16)
SetSpriteOffset(down_sprite, 8, 8)
SetSpriteVisible(down_sprite, 0)

Function Distance2D(x1, y1, x2, y2)
	result as integer
	part1 = Pow((x2 - x1), 2)
	part2 = Pow((y2 - y1), 2)
	underRadical = part1 + part2
	result = Sqrt(underRadical)
EndFunction result

global down_x, down_y

do
    if GetPointerPressed()
		down_x=GetPointerX()
		down_y=GetPointerY()
		
		SetSpritePositionByOffset(down_sprite, down_x, down_y)
		SetSpriteVisible(down_sprite, 1)
		
	endif
    if GetPointerReleased()
		SetSpriteVisible(down_sprite, 0)
	endif
	
    if GetPointerState()
		cur_x=GetPointerX()
		cur_y=GetPointerY()
		Print( Distance2D(down_x, down_y, cur_x, cur_y) )
		
		DrawLine(down_x, down_y, cur_x, cur_y, 255, 255)
	endif
	
    
    Sync()
loop