Построение куба в Delphi

[mega_tortik]

Помогите, пожалуйста, построить куб по заданной длине стороны.
Т.е. нужно сделать так, чтобы в эдите можно было указать длину ребра куба, по которой будет строиться сам куб.
Не могу понять, как это сделать((

[type_Oleg]

Сообщение от mega_tortik

строиться сам куб

Хорошо, постройте куб со стороной 10.
Тогда можно будет объяснить, как построить с любой стороной, заданной в эдит.

[Serge_Bliznykov]

Сообщение от mega_tortik

Помогите, пожалуйста, построить куб по заданной длине стороны.

что за куб? где Вы его строите?
а если, допустим длина стороны задана равно 50, то как Вы его будете строить?

Сообщение от type_Oleg

Хорошо, постройте куб со стороной 10.

круто. у нас идея совпала!

[mega_tortik]

Смотрела пример с вращение куба, где в эдите пишется длина стороны:

var
  Form1: TForm1;
  a: real;
  B: array[1..5,1..2] of integer;
 
implementation
 
{$R *.dfm}
 
procedure DrawCube;
  var
    i: integer;
  begin
    Form1.Refresh;
//заполняем массив координат вершин куба
    for i:=1 to 5 do begin
      B[i,1]:=trunc(80*sin(a+i*pi/2));
      B[i,2]:=trunc(-20*cos(a+i*pi/2));
    end;
//отрисовываем квадраты
    for i:=1 to 4 do begin
      Form1.Canvas.MoveTo(200+B[i,1],100+B[i,2]);       //Встаём на i вершину
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //Рисуем линию к i + 1 вершине
      Form1.Canvas.MoveTo(200+B[i,1],200+B[i,2]);       //Встаём на i вершину 2го квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],200+B[i+1,2]);   //Рисуем линию к i + 1 вершине 2го квадрата
      Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);   //Cоединяем вершины квадратов
    end;
    a:= a+0.02;
  end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    DrawCube;
  end;
 
//запуск таймера
procedure TForm1.Button1Click(Sender: TObject);
  begin
    Timer1.Interval:=40;
    Timer1.Enabled:= true;
    a:= StrToFloat(Form1.Edit1.Text);
  end;
 
//остановка таймера
procedure TForm1.Button2Click(Sender: TObject);
  begin
    Timer1.Enabled:= false;
  end;

Но тут же а не является стороной куба. Не знаю, как сделать, чтоб построение куба зависила от длины его стороны, которая указана в эдите.

[mega_tortik]

200 и 100 - это и есть длина ребра в данном коде?

[Serge_Bliznykov]

Сообщение от mega_tortik

200 и 100 - это и есть длина ребра в данном коде?

нет. это положение куба на форме.

размеры куба задаются в полярных координатах через эллипс вот тут:

    for i:=1 to 5 do begin
      B[i,1]:=trunc(80*sin(a+i*pi/2));
      B[i,2]:=trunc(-20*cos(a+i*pi/2));
    end;

почему это так происходит, можно прочитать тут:
Вращение объектов

но как пересчитать координаты эллипса в полярных координатх через заданную сторону ромба -
простите, не понимаю, моих знаний математики и геометрии для этого не хватает

[type_Oleg]

А вращение вам вообще-то нужно, или нет?
Может быть достаточно построить, чтоб было так :
Переднюю грань можно построить с помощью Canvas.Rectangle , остальные ребра - Canvas.MoveTo, Canvas.LineTo ..

[type_Oleg]

Если надо, то вот:

procedure PntCube(Canv:TCanvas;a:Integer);
const MRG=5;  // поле
var hh,a2:Integer;
begin
 hh:=Canv.ClipRect.Bottom-Canv.ClipRect.Top;
 a2:=a div 2;
 Canv.Pen.Style:=psSolid;
 Canv.Rectangle(MRG,hh-MRG,MRG+a,hh-MRG-a);
 Canv.MoveTo(MRG+a,hh-MRG);
 Canv.LineTo(MRG+a+a2,hh-MRG-a2);
 Canv.LineTo(MRG+a+a2,hh-MRG-a2-a);
 Canv.LineTo(MRG+a2,hh-MRG-a2-a);
 Canv.LineTo(MRG,hh-MRG-a);
 Canv.MoveTo(MRG+a+a2,hh-MRG-a2-a);
 Canv.LineTo(MRG+a,hh-MRG-a);
 Canv.Pen.Style:=psDot;
 Canv.MoveTo(MRG,hh-MRG);
 Canv.LineTo(MRG+a2,hh-MRG-a2);
 Canv.LineTo(MRG+a2+a,hh-MRG-a2);
 Canv.MoveTo(MRG+a2,hh-MRG-a2);
 Canv.LineTo(MRG+a2,hh-MRG-a2-a);
end;
// ........
procedure TForm1.Button1Click(Sender: TObject);
begin
 PntCube(Image1.Canvas,100);
end;

Топорно, но работает. Осталось доделать ввод a .

[mega_tortik]

Спасибо всем большое))