26 procedure deleteFinger(id: SDL_FingerId);

    26 procedure deleteFinger(id: SDL_FingerId);

    27 procedure onTouchClick(finger: Touch_Finger);

    27 procedure onTouchClick(finger: Touch_Finger);

    28 

    28 

    29 function findFinger(id: SDL_FingerId): Touch_Finger;

    29 function findFinger(id: SDL_FingerId): Touch_Finger;

    30 procedure aim(finger: Touch_Finger);

    30 procedure aim(finger: Touch_Finger);

    31 function isOnCurrentHog(finger: Touch_Finger): boolean;

    32 function isOnCurrentHog(finger: Touch_Finger): boolean;

    32 function isOnFireButton(finger: Touch_Finger): boolean;

    33 function isOnFireButton(finger: Touch_Finger): boolean;

    33 procedure convertToWorldCoord(var x,y: hwFloat; finger: Touch_Finger);

    34 procedure convertToWorldCoord(var x,y: hwFloat; finger: Touch_Finger);

    34 function fingerHasMoved(finger: Touch_Finger): boolean;

    35 function fingerHasMoved(finger: Touch_Finger): boolean;

    35 function calculateDelta(finger1, finger2: Touch_Finger): hwFloat;

    36 function calculateDelta(finger1, finger2: Touch_Finger): hwFloat;

    85             begin

    86             begin

    86                 moveCursor := true;

    87                 moveCursor := true;

    87                 exit;

    88                 exit;

    88             end;

    89             end;

    89 

    90 

    91             begin

    92             begin

    92                 aiming:= true;

    93                 aiming:= true;

    93                 exit;

    94                 exit;

    94             end;

    95             end;

    95 

    96 

   356 function isOnFireButton(finger: Touch_Finger): boolean;

   357 function isOnFireButton(finger: Touch_Finger): boolean;

   357 begin

   358 begin

   358     isOnFireButton:= (finger.x < 150) and (finger.y > 390);

   359     isOnFireButton:= (finger.x < 150) and (finger.y > 390);

   359 end;

   360 end;

   360 

   361 

   361 function isOnCurrentHog(finger: Touch_Finger): boolean;

   373 function isOnCurrentHog(finger: Touch_Finger): boolean;

   362 var

   374 var

   363     x,y, fingerX, fingerY : hwFloat;

   375     x,y, fingerX, fingerY : hwFloat;

   364 begin

   376 begin

   365     x := CurrentHedgehog^.Gear^.X;

   377     x := CurrentHedgehog^.Gear^.X;