ПО для РЛС

unit uMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm13 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
   Center: TPoint;
   Radius: Integer;
   D: Double;
   Angle: Integer;
   Map: TBitmap;
   Buffer: TBitmap;
  public
  end;
 
var
  Form13: TForm13;
 
implementation
 
{$R *.dfm}
 
procedure TForm13.FormCreate(Sender: TObject);
begin
 Map := TBitmap.Create;
 Map.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Map.bmp');
 Buffer := TBitmap.Create;
 Buffer.Width := Map.Width;
 Buffer.Height := Map.Height;
 Center := Point(PaintBox1.Width shr 1, PaintBox1.Height shr 1);
 Radius := Center.X-1;
 D := Pi/180;
 Angle := 360;
 Timer1.Enabled := True;
end;
 
procedure TForm13.Timer1Timer(Sender: TObject);
Var
   Marker: TPoint;
   R: Integer;
begin
 Buffer.Canvas.Draw(0, 0, Map);
 Inc(Angle);
 if Angle > 360 then Angle := 0;
 for R := 0 to Radius
 do begin
    Marker.X := Round(Center.X + R * Sin(Angle * D));
    Marker.Y := Round(Center.Y - R * Cos(Angle * D));
    if Map.Canvas.Pixels[Marker.X, Marker.Y] <> clWhite
    then Buffer.Canvas.Pixels[Marker.X, Marker.Y] := clRed
    else Buffer.Canvas.Pixels[Marker.X, Marker.Y] := clMedGray;
    end;
 PaintBox1.Canvas.Draw(0,0, Buffer);
end;
 
end.

unit uMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TObj = record
   Position: TPoint;
   Direct: record DX,DY: Integer; end;
   StepCount: Integer;
  end;
 
  TForm13 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
   Center: TPoint;
   Radius: Integer;
   D: Double;
   Angle: Integer;
   Map: TBitmap;
   Buffer: TBitmap;
  public
   Obj: Array[1..3] of TObj;
  end;
 
var
  Form13: TForm13;
 
implementation
 
{$R *.dfm}
 
procedure TForm13.FormCreate(Sender: TObject);
var
  i: Integer;
begin
 Map := TBitmap.Create;
 Map.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Map.bmp');
 Buffer := TBitmap.Create;
 Buffer.Width := Map.Width;
 Buffer.Height := Map.Height;
 Center := Point(PaintBox1.Width shr 1, PaintBox1.Height shr 1);
 Radius := Center.X-1;
 D := Pi/180;
 Angle := 360;
 for i := Low(Obj) to High(Obj) do Obj[i].Position := Center;
 Timer1.Enabled := True;
end;
 
procedure TForm13.Timer1Timer(Sender: TObject);
Var
   Marker: TPoint;
   R: Integer;
   i: Integer;
begin
 Buffer.Canvas.Draw(0, 0, Map);
 
 for i := Low(Obj) to High(Obj)
 do begin
    if Obj[i].StepCount = 0
    then begin
         Obj[i].StepCount := Random(10);
         Obj[i].Direct.DX := -1 + Random(3);
         Obj[i].Direct.DY := -1 + Random(3);
         end;
    Obj[i].Position.X := Obj[i].Position.X + Obj[i].Direct.DX;
    Obj[i].Position.Y := Obj[i].Position.Y + Obj[i].Direct.DY;
    Dec(Obj[i].StepCount);
    Buffer.Canvas.Pixels[Obj[i].Position.X, Obj[i].Position.Y] := clBlue;
    end;
 
 Inc(Angle);
 if Angle > 360 then Angle := 0;
 for R := 0 to Radius
 do begin
    Marker.X := Round(Center.X + R * Sin(Angle * D));
    Marker.Y := Round(Center.Y - R * Cos(Angle * D));
    if Map.Canvas.Pixels[Marker.X, Marker.Y] <> clWhite
    then Buffer.Canvas.Pixels[Marker.X, Marker.Y] := clRed
    else Buffer.Canvas.Pixels[Marker.X, Marker.Y] := clMedGray;
    end;
 PaintBox1.Canvas.Draw(0,0, Buffer);
end;
 
end.

procedure TForm13.Timer1Timer(Sender: TObject);
Var
   Marker: TPoint;
   R: Integer;
   i: Integer;
begin
 Buffer.Canvas.Draw(0, 0, Map);
 Randomize;
 for i := Low(Obj) to High(Obj)
 do begin
    if Obj[i].StepCount = 0
    then begin
         Obj[i].StepCount := Random(10);
         Obj[i].Direct.DX := -1 + Random(3);
         Obj[i].Direct.DY := -1 + Random(3);
         end;
    Obj[i].Position.X := Obj[i].Position.X + Obj[i].Direct.DX;
    Obj[i].Position.Y := Obj[i].Position.Y + Obj[i].Direct.DY;
    Dec(Obj[i].StepCount);
    Buffer.Canvas.Pixels[Obj[i].Position.X, Obj[i].Position.Y] := clBlue;
    end;
 
 Inc(Angle);
 if Angle > 360 then Angle := 0;
 for R := 0 to Radius
 do begin
    Marker.X := Round(Center.X + R * Sin(Angle * D));
    Marker.Y := Round(Center.Y - R * Cos(Angle * D));
 
    if Buffer.Canvas.Pixels[Marker.X, Marker.Y] = clBlue
    then Memo1.Lines.Add(Format('%d:%d',[Marker.X,Marker.Y]));
 
    if Map.Canvas.Pixels[Marker.X, Marker.Y] <> clWhite
    then Buffer.Canvas.Pixels[Marker.X, Marker.Y] := clRed
    else Buffer.Canvas.Pixels[Marker.X, Marker.Y] := clMedGray;
    end;
 PaintBox1.Canvas.Draw(0,0, Buffer);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  da:Integer;
  x,y,az_rad_az:Double;
begin
  if az=1024 then az:=0
  else begin
      for da := 0 to 3199 do
    begin
      az_rad_az := az_rad_ed * az;
      x := x0 + (da * (Sin(az_rad_az)));
      y := y0 - (da * (Cos(az_rad_az)));
      //Image1.Canvas.Pixels[Round(x), Round(y)] := ColCalc(table, az + 1, da + 1);
      PaintBox1.Canvas.Pixels[Round(x), Round(y)] := ColCalc(table, az + 1, da + 1);
    end;
  az:=az+1;
  end;
 
end;