Changeset 19 for trunk/UCore.pas

Timestamp:

Sep 27, 2011, 10:16:41 PM (13 years ago)

Author:

george

Message:

• Added: Helping threading unit.
• Added: Now drawing and engine handling are executed in separated thread.

File:

• trunk/UCore.pas (modified) (10 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList,
-  IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle;
+  IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle,
+  Syncobjs, UThreading;
 
 const
@@ -126 +127 @@
   end;
 
+  { TSystemThread }
+
+  TSystemThread = class(TListedThread)
+    Engine: TEngine;
+    procedure Execute; override;
+  end;
+
+  { TDrawThread }
+
+  TDrawThread = class(TListedThread)
+    Engine: TEngine;
+    procedure Execute; override;
+  end;
+
   { TEngine }
 
   TEngine = class
   private
+    FActive: Boolean;
     FBitmap: TBitmap;
+    FBitmapLock: TCriticalSection;
     FRedrawPending: Boolean;
     FBitmapLower: TBitmapTColor;
+    FDrawThread: TDrawThread;
+    FSystemThread: TSystemThread;
     IntfImage: TLazIntfImage;
     function GetPlayerCount: Integer;
+    procedure SetActive(const AValue: Boolean);
     procedure SetBitmap(const AValue: TBitmap);
     procedure SetPlayerCount(const AValue: Integer);
     procedure Redraw;
     function IsInsideHouses(Pos: TPoint): Boolean;
+    procedure DoDrawToBitmap;
   public
     Keyboard: TKeyboard;
     World: TWorld;
     Players: TObjectList; // <TPlayer>
+    Lock: TCriticalSection;
     constructor Create;
     destructor Destroy; override;
@@ -148 +170 @@
     procedure Tick;
     procedure Draw;
+    procedure NewGame;
     property PlayerCount: Integer read GetPlayerCount write SetPlayerCount;
     property Bitmap: TBitmap read FBitmap write SetBitmap;
-    procedure NewGame;
+    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -171 +194 @@
 function SwapBRComponent(Value: Integer): Integer; inline;
 
+
 implementation
 
@@ -179 +203 @@
   TFastBitmapPixelComponents(Result).R := TFastBitmapPixelComponents(Value).B;
   TFastBitmapPixelComponents(Result).B := TFastBitmapPixelComponents(Value).R;
+end;
+
+{ TSystemThread }
+
+procedure TSystemThread.Execute;
+begin
+  repeat
+    Engine.Tick;
+    Sleep(50);
+  until Terminated;
+end;
+
+{ TDrawThread }
+
+procedure TDrawThread.Execute;
+begin
+  repeat
+    Engine.Draw;
+    Sleep(50);
+  until Terminated;
 end;
 
@@ -580 +624 @@
 function TPlayer.ShowTankProc(Item1, Item2: Byte): Byte;
 begin
-  if Item2 > 0 then Result := Item2 else Result := Item1;
+  if Item2 > 0 then Result := Item2
+    else Result := Item1;
 end;
 
@@ -596 +641 @@
   with Engine.World do begin
     Surface.Merge(Surface.CreateIndex(Position.X - TTank(Tanks[Direction]).Image.Count.X div 2,
-      Position.Y - TTank(Tanks[Direction]).Image.Count.Y div 2), TTank(Tanks[Direction]).Image, ShowTankProc);
+      Position.Y - TTank(Tanks[Direction]).Image.Count.Y div 2),
+      TTank(Tanks[Direction]).Image, ShowTankProc);
   end;
 end;
@@ -761 +807 @@
 end;
 
+procedure TEngine.SetActive(const AValue: Boolean);
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+  if AValue then begin
+    FDrawThread := TDrawThread.Create(True);
+    FDrawThread.Engine := Self;
+    FDrawThread.FreeOnTerminate := False;
+    FDrawThread.Name := 'Draw';
+    FDrawThread.Start;
+    FSystemThread := TSystemThread.Create(True);
+    FSystemThread.Engine := Self;
+    FSystemThread.FreeOnTerminate := False;
+    FSystemThread.Name := 'Engine';
+    FSystemThread.Start;
+  end else begin
+    FreeAndNil(FDrawThread);
+    FreeAndNil(FSystemThread);
+  end;
+end;
+
 procedure TEngine.SetBitmap(const AValue: TBitmap);
 begin
@@ -805 +872 @@
 end;
 
-procedure TEngine.ResizePlayerFrames;
-var
-  HorizFrameCount: Integer;
-  VertFrameCount: Integer;
-  I: Integer;
-begin
-  if Assigned(FBitmapLower) then begin
-    if Players.Count > 1 then begin
-      if Players.Count > 2 then VertFrameCount := 2
-        else VertFrameCount := 1;
-      HorizFrameCount := Round(Players.Count / VertFrameCount);
-    end else begin
-      VertFrameCount := 1;
-      HorizFrameCount := 1;
-    end;
-    FBitmapLower.Count := FBitmapLower.CreateIndex(80 * HorizFrameCount, 60 * VertFrameCount);
-    for I := 0 to Players.Count - 1 do begin
-      TPlayer(Players[I]).ScreenFrame.AsTRect := Rect(
-        (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount),
-        (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount),
-        ((I mod HorizFrameCount) + 1) * (FBitmapLower.Width div HorizFrameCount),
-        ((I div HorizFrameCount) + 1) * (FBitmapLower.Height div VertFrameCount));
-    end;
-  end;
-  Redraw;
-end;
-
-constructor TEngine.Create;
-begin
-  FBitmapLower := TBitmapTColor.Create;
-  IntfImage := TLazIntfImage.Create(1, 1);
-  Players := TObjectList.Create;
-  Keyboard := TKeyboard.Create;
-  World := TWorld.Create;
-  World.Engine := Self;
-  Redraw;
-end;
-
-destructor TEngine.Destroy;
-begin
-  FBitmapLower.Free;
-  IntfImage.Free;
-  Players.Free;
-  Keyboard.Free;
-  World.Free;
-  inherited Destroy;
-end;
-
-procedure TEngine.Tick;
-var
-  I: Integer;
-begin
-  for I := 0 to Players.Count - 1 do begin
-    TPlayer(Players[I]).Control;
-    TPlayer(Players[I]).Tick;
-  end;
-end;
-
-procedure TEngine.Draw;
+procedure TEngine.DoDrawToBitmap;
 var
   I: Integer;
@@ -885 +894 @@
   TargetWidth: Integer;
 begin
+  if Assigned(FBitmap) then
+  try
+    Bitmap.BeginUpdate;
+    RawImage := Bitmap.RawImage;
+    BytePerPixel := RawImage.Description.BitsPerPixel div 8;
+    BytePerRow := RawImage.Description.BytesPerLine;
+    FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
+
+    if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then
+      Ratio := FBitmap.Width / FBitmapLower.Width
+      else Ratio := FBitmap.Height / FBitmapLower.Height;
+
+    // Preserve aspect ratio
+    TargetWidth := Trunc(FBitmapLower.Width * Ratio);
+    TargetHeight := Trunc(FBitmapLower.Height * Ratio);
+
+    Shift.X := Trunc((Bitmap.Width - TargetWidth) / 2);
+    Shift.Y := Trunc((Bitmap.Height - TargetHeight) / 2);
+
+    XDiv := TargetWidth div FBitmapLower.Width;
+    XMod := TargetWidth mod FBitmapLower.Width;
+    YDiv := TargetHeight div FBitmapLower.Height;
+    YMod := TargetHeight mod FBitmapLower.Height;
+
+    PixelRowPtr := PInteger(RawImage.Data + BytePerRow * Shift.Y);
+    YAcc := FBitmapLower.Height div 2;
+    for Y := 0 to FBitmapLower.Height - 1 do begin
+      SubPixelSizeY := YDiv;
+      Inc(YAcc, YMod);
+      if YAcc >= FBitmapLower.Height then begin
+        Dec(YAcc, FBitmapLower.Height);
+        Inc(SubPixelSizeY);
+      end;
+
+      PixelPtr := PixelRowPtr + Shift.X;
+      XAcc := FBitmapLower.Width div 2;
+      for X := 0 to FBitmapLower.Width - 1 do begin
+        SubPixelSizeX := XDiv;
+        Inc(XAcc, XMod);
+        if XAcc >= FBitmapLower.Width then begin
+          Dec(XAcc, FBitmapLower.Width);
+          Inc(SubPixelSizeX);
+        end;
+
+        Color := SwapBRComponent(FBitmapLower.Pixels[X, Y]);
+
+        // Draw large pixel
+        SubPixelRowPtr := PixelPtr;
+        for PixelY := 0 to SubPixelSizeY - 1 do begin
+          SubPixelPtr := SubPixelRowPtr;
+          for PixelX := 0 to SubPixelSizeX - 1 do begin
+            SubPixelPtr^ := Color;
+            Inc(PByte(SubPixelPtr), BytePerPixel);
+          end;
+          Inc(PByte(SubPixelRowPtr), BytePerRow);
+        end;
+        Inc(PByte(PixelPtr), BytePerPixel * SubPixelSizeX);
+      end;
+      Inc(PByte(PixelRowPtr), BytePerRow * SubPixelSizeY);
+    end;
+  finally
+    FBitmap.EndUpdate;
+  end;
+end;
+
+procedure TEngine.ResizePlayerFrames;
+var
+  HorizFrameCount: Integer;
+  VertFrameCount: Integer;
+  I: Integer;
+begin
+  if Assigned(FBitmapLower) then begin
+    if Players.Count > 1 then begin
+      if Players.Count > 2 then VertFrameCount := 2
+        else VertFrameCount := 1;
+      HorizFrameCount := Round(Players.Count / VertFrameCount);
+    end else begin
+      VertFrameCount := 1;
+      HorizFrameCount := 1;
+    end;
+    FBitmapLower.Count := FBitmapLower.CreateIndex(80 * HorizFrameCount, 60 * VertFrameCount);
+    for I := 0 to Players.Count - 1 do begin
+      TPlayer(Players[I]).ScreenFrame.AsTRect := Rect(
+        (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount),
+        (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount),
+        ((I mod HorizFrameCount) + 1) * (FBitmapLower.Width div HorizFrameCount),
+        ((I div HorizFrameCount) + 1) * (FBitmapLower.Height div VertFrameCount));
+    end;
+  end;
+  Redraw;
+end;
+
+constructor TEngine.Create;
+begin
+  Lock := TCriticalSection.Create;
+  FBitmapLower := TBitmapTColor.Create;
+  FBitmapLock := TCriticalSection.Create;
+  IntfImage := TLazIntfImage.Create(1, 1);
+  Players := TObjectList.Create;
+  Keyboard := TKeyboard.Create;
+  World := TWorld.Create;
+  World.Engine := Self;
+  Redraw;
+end;
+
+destructor TEngine.Destroy;
+begin
+  Active := False;
+  FBitmapLower.Free;
+  FBitmapLock.Free;
+  IntfImage.Free;
+  Players.Free;
+  Keyboard.Free;
+  World.Free;
+  Lock.Free;
+  inherited Destroy;
+end;
+
+procedure TEngine.Tick;
+var
+  I: Integer;
+begin
+  try
+    Lock.Acquire;
+    for I := 0 to Players.Count - 1 do begin
+      TPlayer(Players[I]).Control;
+      TPlayer(Players[I]).Tick;
+    end;
+  finally
+    Lock.Release;
+  end;
+end;
+
+procedure TEngine.Draw;
+var
+  I: Integer;
+begin
   if FRedrawPending then
   begin
     FRedrawPending := False;
-    //FBitmapLower.FillAll(0);
-    for I := 0 to Players.Count - 1 do begin
-      TPlayer(Players[I]).Paint;
-    end;
-
-    if Assigned(FBitmap) then
     try
-      Bitmap.BeginUpdate;
-      RawImage := Bitmap.RawImage;
-      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
-      BytePerRow := RawImage.Description.BytesPerLine;
-      //FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
-
-      if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then
-        Ratio := FBitmap.Width / FBitmapLower.Width
-        else Ratio := FBitmap.Height / FBitmapLower.Height;
-
-      // Preserve aspect ratio
-      TargetWidth := Trunc(FBitmapLower.Width * Ratio);
-      TargetHeight := Trunc(FBitmapLower.Height * Ratio);
-
-      Shift.X := Trunc((Bitmap.Width - TargetWidth) / 2);
-      Shift.Y := Trunc((Bitmap.Height - TargetHeight) / 2);
-
-      XDiv := TargetWidth div FBitmapLower.Width;
-      XMod := TargetWidth mod FBitmapLower.Width;
-      YDiv := TargetHeight div FBitmapLower.Height;
-      YMod := TargetHeight mod FBitmapLower.Height;
-
-      PixelRowPtr := PInteger(RawImage.Data + BytePerRow * Shift.Y);
-      YAcc := FBitmapLower.Height div 2;
-      for Y := 0 to FBitmapLower.Height - 1 do begin
-        SubPixelSizeY := YDiv;
-        Inc(YAcc, YMod);
-        if YAcc >= FBitmapLower.Height then begin
-          Dec(YAcc, FBitmapLower.Height);
-          Inc(SubPixelSizeY);
-        end;
-
-        PixelPtr := PixelRowPtr + Shift.X;
-        XAcc := FBitmapLower.Width div 2;
-        for X := 0 to FBitmapLower.Width - 1 do begin
-          SubPixelSizeX := XDiv;
-          Inc(XAcc, XMod);
-          if XAcc >= FBitmapLower.Width then begin
-            Dec(XAcc, FBitmapLower.Width);
-            Inc(SubPixelSizeX);
-          end;
-
-          Color := SwapBRComponent(FBitmapLower.Pixels[X, Y]);
-
-          // Draw large pixel
-          SubPixelRowPtr := PixelPtr;
-          for PixelY := 0 to SubPixelSizeY - 1 do begin
-            SubPixelPtr := SubPixelRowPtr;
-            for PixelX := 0 to SubPixelSizeX - 1 do begin
-              SubPixelPtr^ := Color;
-              Inc(PByte(SubPixelPtr), BytePerPixel);
-            end;
-            Inc(PByte(SubPixelRowPtr), BytePerRow);
-          end;
-          Inc(PByte(PixelPtr), BytePerPixel * SubPixelSizeX);
-        end;
-        Inc(PByte(PixelRowPtr), BytePerRow * SubPixelSizeY);
+      Lock.Acquire;
+      //FBitmapLower.FillAll(0);
+      for I := 0 to Players.Count - 1 do begin
+        TPlayer(Players[I]).Paint;
       end;
     finally
-      FBitmap.EndUpdate;
-    end;
+      Lock.Release;
+    end;
+    Synchronize(DoDrawToBitmap);
   end;
 end;