From ee8f910cb0a2761d77a13fb4423a157a6d64b19c Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 20 Apr 2026 14:55:53 +0200
Subject: =?UTF-8?q?=D0=97=D0=B0=D0=BA=D0=BE=D0=BD=D1=87=D0=B8=D0=BB=20Colu?=
 =?UTF-8?q?mns=20=D0=B8=D0=B7=207-=D0=B9=20=D0=B3=D0=BB=D0=B0=D0=B2=D1=8B,?=
 =?UTF-8?q?=20=D1=81=D0=B5=D0=B4=D1=8C=D0=BC=D0=BE=D0=B3=D0=BE=20=D1=83?=
 =?UTF-8?q?=D0=BF=D1=80=D0=B0=D0=B6=D0=BD=D0=B5=D0=BD=D0=B8=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../7/7_columns/unit2.pas"                         | 86 ++++++++++++++++++++++
 1 file changed, 86 insertions(+)
 create mode 100644 "\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/7_columns/unit2.pas"

(limited to 'Занимательное программирование/7/7_columns/unit2.pas')

diff --git "a/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/7_columns/unit2.pas" "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/7_columns/unit2.pas"
new file mode 100644
index 0000000..d4f6f4f
--- /dev/null
+++ "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/7_columns/unit2.pas"	
@@ -0,0 +1,86 @@
+unit Unit2;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+const
+  StartMSecsPerFrame = 20;
+
+type
+  IGameHandler = class(TObject)
+  private
+    MSecsPerFrame: Integer;
+
+  public
+    Finished: Boolean;
+    constructor Create;
+    procedure DoIteration; virtual; abstract;
+
+    procedure SlowDown;
+    procedure SpeedUp;
+  end;
+
+  TActionThread = class(TThread)
+  private
+    FGameHandler: IGameHandler;
+
+  public
+    constructor Create(AGameHandler: IGameHandler);
+    destructor Destroy;
+
+    property GameHandler: IGameHandler read FGameHandler;
+
+    procedure Execute; override;
+  end;
+
+implementation
+
+constructor IGameHandler.Create;
+begin
+  Finished := false;
+  MSecsPerFrame := StartMSecsPerFrame
+end;
+
+procedure IGameHandler.SlowDown;
+begin
+  MSecsPerFrame := StartMSecsPerFrame
+end;
+
+procedure IGameHandler.SpeedUp;
+begin
+  MSecsPerFrame := 100
+end;
+
+constructor TActionThread.Create(AGameHandler: IGameHandler);
+begin
+  inherited Create(false);
+  FGameHandler := AGameHandler
+end;
+
+destructor TActionThread.Destroy;
+begin
+  FreeAndNil(FGameHandler)
+end;
+
+procedure TActionThread.Execute;
+var
+  OldTime: TDateTime;
+  ToWait: Integer;
+begin
+  while not GameHandler.Finished do
+  begin
+    OldTime := Now;
+    Synchronize(@FGameHandler.DoIteration);
+    { Синхронизация с таймером. }
+    ToWait := Round(GameHandler.MSecsPerFrame - (Now - OldTime) * MSecsPerDay);
+    if ToWait > 0 then
+      Sleep(ToWait)
+  end
+end;
+
+end.
+
-- 
cgit v1.2.3