hedgewars-draft: comparison hedgewars/uTouch.pas

equal deleted inserted replaced

-:d24257910f8d
+:aaefa587e277
 unit uTouch;
 interface
-uses SysUtils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, GLUnit, uTypes, uCaptions, uAmmos, uWorld, uMobile;
+uses SysUtils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, GLUnit, uTypes, uCaptions, uAmmos, uWorld;
 procedure initModule;
 procedure freeModule;
 invertCursor : boolean;
 xTouchClick,yTouchClick : LongInt;
 timeSinceClick : Longword;
 //Pinch to zoom
 pinchSize : LongInt;
 baseZoomValue: GLFloat;
 //aiming
 aimingCrosshair: boolean;
 aimingUp, aimingDown: boolean;
 targetAngle: LongInt;
 buttonsDown: Longword;
 targetting, targetted: boolean; //true when targetting an airstrike or the like
 procedure onTouchDown(x,y: Longword; pointerId: TSDL_FingerId);
 var
 finger: PTouch_Data;
 begin
 {$IFDEF USE_TOUCH_INTERFACE}
 finger := addFinger(x,y,pointerId);
 begin
 if Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Timerable <> 0 then
 ParseTeamCommand('/timer ' + inttostr((GetCurAmmoEntry(CurrentHedgeHog^)^.Timer div 1000) mod 5 + 1));
 end;
 exit;
 end;
 dec(buttonsDown);//no buttonsDown, undo the inc() above
 if buttonsDown = 0 then
 begin
 moveCursor:= true;
 case pointerCount of
 CursorPoint.X := CursorPoint.X + finger^.dx;
 CursorPoint.Y := CursorPoint.Y - finger^.dy;
 end;
 exit //todo change into switch rather than ugly ifs
 end;
 if aimingCrosshair then
 begin
 aim(finger^);
 exit
 end;
 widget:= finger^.pressedWidget;
 if (buttonsDown > 0) and (widget <> nil) then
 begin
 dec(buttonsDown);
 if widget = @arrowLeft then
 ParseTeamCommand('-left');
 if widget = @arrowRight then
 ParseTeamCommand('-right');
 if widget = @arrowUp then
 ParseTeamCommand('-up');
 if widget = @arrowDown then
 ParseTeamCommand('-down');
 if widget = @fireButton then
 ParseTeamCommand('-attack');
 if widget = @utilityWidget then
 if (CurrentHedgehog <> nil)then
 if(Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0)then
 begin
 ParseTeamCommand('put');
 end
 else if (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amSwitch) then
 ParseTeamCommand('switch')
 else WriteLnToConsole(inttostr(ord(Ammoz[CurrentHedgehog^.CurAmmoType].NameId)) + ' ' + inttostr(ord(sidSwitch)));
 end;
 if targetting then
 AddCaption('Press the target button to mark the target', cWhiteColor, capgrpAmmoInfo);
 deleteFinger(pointerId);
 {$ENDIF}
 end;
 procedure onTouchDoubleClick(finger: TTouch_Data);
 procedure onTouchClick(finger: TTouch_Data);
 begin
 //if (RealTicks - timeSinceClick < 300) and (sqrt(sqr(finger.X-xTouchClick) + sqr(finger.Y-yTouchClick)) < 30) then
 //    begin
 //    onTouchDoubleClick(finger);
 //    timeSinceClick:= 0;//we make an assumption there won't be an 'click' in the first 300 ticks(milliseconds)
 //    exit;
 //    end;
 xTouchClick:= finger.x;
 yTouchClick:= finger.y;
 timeSinceClick:= RealTicks;
 if bShowAmmoMenu then
 begin
 if isOnRect(AmmoRect, finger) then
 begin
 CursorPoint.X:= finger.x;
 CursorPoint.Y:= finger.y;
 ParseTeamCommand('put');
 end
 else
 bShowAmmoMenu:= false;
 exit;
 end;
 exit;
 end;
 if isOnWidget(jumpWidget, finger) then
 begin
 ParseTeamCommand('hjump');
 exit;
 end;
 {$ENDIF}
 end;
 function addFinger(x,y: Longword; id: TSDL_FingerId): PTouch_Data;
 var
 xCursor, yCursor, index : LongInt;
 begin
 //Check array sizes
 if length(fingers) < Integer(pointerCount) then
 begin
 setLength(fingers, length(fingers)*2);
 for index := length(fingers) div 2 to length(fingers) do
 fingers[index].id := nilFingerId;
 end;
 xCursor := convertToCursorX(x);
 yCursor := convertToCursorY(y);
 //on removing fingers, all fingers are moved to the left
 //with dynamic arrays being zero based, the new position of the finger is the old pointerCount
 fingers[pointerCount].id := id;
 fingers[pointerCount].historicalX := xCursor;
 fingers[pointerCount].historicalY := yCursor;
 fingers[pointerCount].y := yCursor;
 fingers[pointerCount].dx := 0;
 fingers[pointerCount].dy := 0;
 fingers[pointerCount].timeSinceDown:= RealTicks;
 fingers[pointerCount].pressedWidget:= nil;
 addFinger:= @fingers[pointerCount];
 inc(pointerCount);
 end;
 function updateFinger(x,y,dx,dy: Longword; id: TSDL_FingerId): PTouch_Data;
 procedure deleteFinger(id: TSDL_FingerId);
 var
 index : Longword;
 begin
 dec(pointerCount);
 for index := 0 to pointerCount do
 begin
 if fingers[index].id = id then
 begin
 //put the last finger into the spot of the finger to be removed,
 //so that all fingers are packed to the far left
 if  pointerCount <> index then
 begin
 fingers[index].id := fingers[pointerCount].id;
 fingers[index].x := fingers[pointerCount].x;
 fingers[index].y := fingers[pointerCount].y;
 fingers[index].historicalX := fingers[pointerCount].historicalX;
 fingers[index].historicalY := fingers[pointerCount].historicalY;
 fingers[index].timeSinceDown := fingers[pointerCount].timeSinceDown;
 fingers[pointerCount].id := nilFingerId;
 end
 else fingers[index].id := nilFingerId;
 procedure ProcessTouch;
 var
 deltaAngle: LongInt;
 begin
 invertCursor := not(bShowAmmoMenu or targetting);
 if aimingCrosshair then
 if CurrentHedgehog^.Gear <> nil then
 begin
 deltaAngle:= CurrentHedgehog^.Gear^.Angle - targetAngle;
 if (deltaAngle > -5) and (deltaAngle < 5) then
 begin
 if(aimingUp)then
 begin
 aimingUp:= false;
 ParseTeamCommand('-up');
 if aimingUp then
 begin
 aimingUp:= true;
 ParseTeamCommand('+up');
 end;
 end;
 end;
 end
 else
 begin
 if aimingUp then
 begin
 ParseTeamCommand('-up');
 aimingUp:= false;
 function findFinger(id: TSDL_FingerId): PTouch_Data;
 var
 index: LongWord;
 begin
 for index := 0 to High(fingers) do
 if fingers[index].id = id then
 begin
 findFinger := @fingers[index];
 break;
 end;
 end;
 procedure aim(finger: TTouch_Data);
 var
 hogX, hogY, touchX, touchY, deltaX, deltaY: LongInt;
 begin
 if CurrentHedgehog^.Gear <> nil then
 begin
 touchX := 0;//avoid compiler hint
 hogY := hwRound(CurrentHedgehog^.Gear^.Y);
 convertToWorldCoord(touchX, touchY, finger);
 deltaX := abs(TouchX-HogX);
 deltaY := TouchY-HogY;
 targetAngle:= (Round(DeltaY / sqrt(sqr(deltaX) + sqr(deltaY)) * 2048) + 2048) div 2;
 end; //if CurrentHedgehog^.Gear <> nil
 end;
 // These 4 convertToCursor functions convert xy coords from the SDL coordinate system to our CursorPoint coor system:
 y := 0;
 convertToFingerCoord(x, y, CrosshairX, CrosshairY);
 isOnCrosshair:= isOnRect((x-HalfRectSize), (y-HalfRectSize), RectSize, RectSize, finger);
 printFinger(finger);
 WriteLnToConsole(inttostr(finger.x) + '   ' + inttostr(x));
-WriteLnToConsole(inttostr(x) + '  ' + inttostr(y) + '   ' + inttostr(round(uMobile.getScreenDPI * 10)));
+WriteLnToConsole(inttostr(x) + '  ' + inttostr(y) + '   ' + inttostr(round(mobileRecord.getScreenDPI() * 10)));
 end;
 function isOnCurrentHog(finger: TTouch_Data): boolean;
 var
 x,y : LongInt;
 y := cScreenHeight - (oldY + WorldDy);
 end;
 procedure convertToWorldCoord(var x,y: LongInt; finger: TTouch_Data);
 begin
 //if x <> nil then
 x := finger.x-WorldDx;
 //if y <> nil then
 y := (cScreenHeight - finger.y)-WorldDy;
 end;
 //Method to calculate the distance this finger has moved since the downEvent
 function fingerHasMoved(finger: TTouch_Data): boolean;
 //uRenderCoordScaleX, uRenderCoordScaleY: Longword;
 begin
 buttonsDown:= 0;
 setLength(fingers, 4);
 for index := 0 to High(fingers) do
 fingers[index].id := nilFingerId;
-rectSize:= round(baseRectSize * uMobile.getScreenDPI);
+rectSize:= round(baseRectSize * mobileRecord.getScreenDPI());
 halfRectSize:= rectSize shl 1;
 end;
 procedure freeModule;
 begin

branch	webgl
changeset 8330	aaefa587e277
parent 8204	9a6030d96273
child 9521	8054d9d775fd