Sorry your browser is not supported!

if getPointerPressed()=1
    hit = getSpriteHitTest(1, getPointerX(), getPointerY())
    if hit>0
        rem sprite picked up
        picked = 1
        pX = getPointerX()
        pY = getPointerY()
    endif
else
    if picked>0
        if getPointerState()>0
            rem Sprite being dragged
            cX = getPointerX()
            cY = getPointerY()
            setSpritePosition(1,getSpriteX(1)+cX-pX,getSpriteY(1)+cY-pY)
            pX = cX
            pY = cY
        else
            rem Sprite Dropped
            picked=0
        endif
    endif
endif

//agk 2.0.16
//MR
//simple swipe

SetWindowSize(1280,720,0)
SetVirtualResolution(160,90)

type TDrag
	spr as integer
	xstart as float
	ystart as float
	xend as float
	yend as float
	xtarget as float
	ytarget as float
	l as float
	mu as float
	move as integer
EndType

local drag as TDrag
local x as float
local y as float
local dx as float
local dy as float

local col as integer
col = MakeColor(255,255,0)

spr=CreateSprite(0)
SetSpritePosition(spr,50,50)
do
	print("click over the sprite and move mouse")
	
	if getPointerPressed()=1 
		hit = getSpriteHitTest(spr, getPointerX(), getPointerY())
		if hit=0
			 
		elseif hit=1
			drag.spr = spr
			if drag.spr>0
				drag.move=0
				drag.xstart = GetSpriteXByOffset(drag.spr)
				drag.ystart = GetSpriteYByOffset(drag.spr)
				drag.mu=0
				drag.l=0
			endif
		endif
	else
		if drag.spr>0 and drag.move=0
			if getPointerState()>0
				drag.xend = GetPointerX()
				drag.yend = GetPointerY()
				dx=( drag.xend - drag.xstart ) 
				dy=( drag.yend - drag.ystart )
				drag.xtarget = drag.xstart + dx * 2.0
				drag.ytarget = drag.ystart + dy * 2.0
				
				drag.l=sqrt(dx*dx + dy*dy)					
				 
			endif
		endif
	endif

	if drag.spr>0 and drag.l>5.0
		drag.move=1
		if drag.mu<1.0  
			drag.mu = drag.mu + (1.0 / 60.0)
			if drag.mu=>1.0
				drag.spr=0
				drag.move=0
			endif
		endif
		x=LinearInterpolate(drag.xstart,drag.xtarget,drag.mu)
		y=LinearInterpolate(drag.ystart,drag.ytarget,drag.mu)
		SetSpritePositionByOffset(drag.spr,x,y)	
	endif
	
	sync()
loop
end

function LinearInterpolate( y1 as float, y2 as float, mu as float)

	local f as float
	f=(y1*(1.0-mu)+y2*mu)

endfunction f

// set window properties
SetWindowTitle( "physicstest" )
SetWindowSize( 1024, 768, 0 )
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
 
 
SetPhysicsScale(0.015)
 
SetPhysicsGravity(0,2000)
// Create Ball Sprite
BallImg = LoadImage ("ball.png")
Ball = CreateSprite (BallImg)
SetSpriteSize (Ball,90,-1)
SetSpritePosition (Ball,50,102)
SetSpritePhysicsOn (Ball,2)
SetSpritePhysicsRestitution (Ball,0.5)
setSpriteShapeCircle (Ball,0,0,43)
setspritegroup(Ball,2)
 
do
    
    if  GetPointerstate ( ) = 1 
        x# = GetPointerX ( )
        y# = GetPointerY ( )
        gsh = getspritehitgroup(2,x#,y#)
        gje = getjointexists (1)
        if (gsh=ball) and (gje=0)
            CreateMouseJoint (1,gsh,x#,y#,5000000)
        endif
        if (gje)
           SetJointMouseTarget( 1, x#, y# )
        endif
    else
        if (getjointexists(1))
            DeleteJoint (1)
        endif
    endif
     
    if (getrawkeyreleased(27) = 1)
        end
    endif
     
    Print( ScreenFPS() )
    Sync()
     
loop