hedgewars/uTouch.pas
branchtransitional_engine
changeset 15900 128ace913837
parent 14538 1dab5d92aca7
equal deleted inserted replaced
15899:73cdc306888f 15900:128ace913837
   611 function fingerHasMoved(finger: TTouch_Data): boolean;
   611 function fingerHasMoved(finger: TTouch_Data): boolean;
   612 begin
   612 begin
   613     fingerHasMoved := trunc(sqrt(sqr(finger.X-finger.historicalX) + sqr(finger.y-finger.historicalY))) > 30;
   613     fingerHasMoved := trunc(sqrt(sqr(finger.X-finger.historicalX) + sqr(finger.y-finger.historicalY))) > 30;
   614 end;
   614 end;
   615 
   615 
   616 function calculateDelta(finger1, finger2: TTouch_Data): LongInt; inline;
   616 function calculateDelta(finger1, finger2: TTouch_Data): LongInt; 
   617 begin
   617 begin
   618     calculateDelta := Round(sqrt(sqr(finger2.x-finger1.x) + sqr(finger2.y-finger1.y)));
   618     calculateDelta := Round(sqrt(sqr(finger2.x-finger1.x) + sqr(finger2.y-finger1.y)));
   619 end;
   619 end;
   620 
   620 
   621 // Under the premise that all pointer ids in pointerIds:TSDL_FingerId are packed to the far left.
   621 // Under the premise that all pointer ids in pointerIds:TSDL_FingerId are packed to the far left.