Рисование пирамиды на канве

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Unit1, StdCtrls;
 
type
  TPYR = array [1 .. 3, 1 .. 7] of real; // для пирамиды
 
  TForm2 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure mash; // процедура масштабирования
    procedure osi; // процедура рисования осей
    procedure pyr; // процедура рисования пирамиды
  private
    { Private declarations }
  public
    { Public declarations }
 
    P: TPYR;
 
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
var
  mx, my, xc, yc: real; // - для масштабирования
 
  // Процедура рисования линии по двум координатам
procedure Line(x1, y1, x2, y2: integer);
begin
  with Form2.PaintBox1.Canvas do
  begin
    MoveTo(x1, y1);
    LineTo(x2, y2);
  end;
end;
 
procedure TForm2.FormActivate(Sender: TObject);
begin
  // Ввод данных для пирамиды
  P[1, 1] := StrToInt(Form1.Edit8.Text);
  P[1, 2] := StrToInt(Form1.Edit9.Text);
  P[1, 3] := StrToInt(Form1.Edit10.Text);
  P[2, 1] := StrToInt(Form1.Edit11.Text);
  P[2, 2] := StrToInt(Form1.Edit12.Text);
  P[2, 3] := StrToInt(Form1.Edit13.Text);
  P[3, 1] := StrToInt(Form1.Edit14.Text);
  P[3, 2] := StrToInt(Form1.Edit15.Text);
  P[3, 3] := StrToInt(Form1.Edit16.Text);
 
end;
 
procedure TForm2.mash;
begin
  mx := PaintBox1.Width;
  my := PaintBox1.Height;
  xc := round(mx / 2); // - центр по оси X
  yc := round(my / 2); // - центр по оси Y
end;
 
procedure TForm2.osi;
 
var
  a, b: real; // для вычисления вспомогательных значений
begin
  b := mx / 2 - 100;
  a := b * sin(30 * pi / 180) / cos(30 * pi / 180);
  with PaintBox1.Canvas do
  begin
    Pen.Color := clGreen;
    // Рисование осей координат и стрелок на координатных
    // осях
    Line(round(mx / 2), round(my / 2), round(mx / 2), 10);
    Line(round(mx / 2), 10, round(mx / 2) - 10, 30);
    Line(round(mx / 2), 10, round(mx / 2) + 10, 30);
    Line(round(mx / 2), round(my / 2), round(mx / 2 - b), round(my / 2 + a));
    Line(round(mx / 2), round(my / 2), round(mx / 2 + b), round(my / 2 + a));
    Line(round(mx / 2 - b), round(my / 2 + a), round(mx / 2 - b) + 15,
      round(my / 2 + a) - 20);
    Line(round(mx / 2 - b), round(my / 2 + a), round(mx / 2 - b) + 30,
      round(my / 2 + a) - 10);
    Line(round(mx / 2 + b), round(my / 2 + a), round(mx / 2 + b) - 15,
      round(my / 2 + a) - 20);
    Line(round(mx / 2 + b), round(my / 2 + a), round(mx / 2 + b) - 30,
      round(my / 2 + a) - 10);
    // Надписи на осях координат
    Font.Color := clRed;
    Font.Size := 15;
    TextOut(round(mx / 2) - 20, 10, 'Z');
    TextOut(round(mx / 2 - b), round(my / 2 + a) - 40, 'X');
    TextOut(round(mx / 2 + b), round(my / 2 + a) - 40, 'Y');
  end;
end;
 
procedure TForm2.pyr;
var
  x1, x2, x3, y1, y2, y3: real;
 
begin
  // Преобразование координат из мировых в экранные
  x1 := xc - P[1, 1] * cos(30 * pi / 180) + P[1, 2] * cos(30 * pi / 180);
  y1 := yc + P[1, 1] * sin(30 * pi / 180) + P[1, 2] * sin(30 * pi / 180)
    - P[1, 3];
 
  x2 := xc - P[2, 1] * cos(30 * pi / 180) + P[2, 2] * cos(30 * pi / 180);
  y2 := yc + P[2, 1] * sin(30 * pi / 180) + P[2, 2] * sin(30 * pi / 180)
    - P[2, 3];
 
  x3 := xc - P[3, 1] * cos(30 * pi / 180) + P[3, 2] * cos(30 * pi / 180);
  y3 := yc + P[3, 1] * sin(30 * pi / 180) + P[3, 2] * sin(30 * pi / 180)
    - P[3, 3];
 
  with PaintBox1.Canvas do
  begin
    Pen.Color := clFuchsia;
    Line(round(x1), round(y1), round(x2), round(y2));
    Line(round(x2), round(y2), round(x3), round(y3));
 
    { ??????????????????????????? }
 
  end;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
 
begin
  mash; // масштабирование
  osi; // рисование осей
  pyr; // рисование пирамиды
end;
 
end.