91     stopFiring: boolean;

    91     stopFiring: boolean;

    92 

    92 

    93     //moving

    93     //moving

    94     stopLeft, stopRight, walkingLeft, walkingRight :  boolean;

    94     stopLeft, stopRight, walkingLeft, walkingRight :  boolean;

    95 

    95 

    97 procedure onTouchDown(x,y: Longword; pointerId: SDL_FingerId);

    96 procedure onTouchDown(x,y: Longword; pointerId: SDL_FingerId);

    98 var 

    97 var 

    99     finger: PTouch_Finger;

    98     finger: PTouch_Finger;

   100 begin

    99 begin

   101 finger := addFinger(x,y,pointerId);

   101 finger := addFinger(x,y,pointerId);

   102 case pointerCount of

   102 case pointerCount of

   103         1:

   103         1:

   104         begin

   104         begin

   105             moveCursor:= false;

   105             moveCursor:= false;

   161             moveCursor:= false;

   161             moveCursor:= false;

   162             pinchSize := calculateDelta(finger^, getSecondFinger(finger^)^);

   162             pinchSize := calculateDelta(finger^, getSecondFinger(finger^)^);

   163             baseZoomValue := ZoomValue

   163             baseZoomValue := ZoomValue

   164         end;

   164         end;

   165     end;//end case pointerCount of

   165     end;//end case pointerCount of

   166 end;

   167 end;

   167 

   168 

   168 procedure onTouchMotion(x,y: Longword;dx,dy: LongInt; pointerId: SDL_FingerId);

   169 procedure onTouchMotion(x,y: Longword;dx,dy: LongInt; pointerId: SDL_FingerId);

   169 var

   170 var

   170     finger, secondFinger: PTouch_Finger;

   171     finger, secondFinger: PTouch_Finger;