Движение куба в пространстве вдоль отрезка P1 P2

[goto ∞]

Сообщение от Black Fregat

Как раз косоугольная проекция выходит.
Коэффициенты k1, k2 - как раз проекции орта направления проектирования

Я не вижу коэффициенты в вышеописанной программе или я что то не понимаю.

[Black Fregat]

Сообщение от goto ∞

Я не вижу коэффициенты в вышеописанной программе или я что то не понимаю.

Я про тот код, который приводил я. В нём лично я коэффициенты вижу:

Сообщение от Black Fregat

Xэкр = Xцентр + X + Y*k1 
Yэкр = Yцентр - Z + Y*k2

[Аватар]

Здесь куб по оси X бегает. Сообрази как переделать на ось Y

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    a: Integer;
    k: Real;
    tStart,tFinish,tCenter: TPoint;
    ToRight: Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=60; //сторона куба
  k:=0.6; //коеф.искажения
  tStart.X:=50;   tStart.Y:=200;   //точка старта
  tFinish.X:=550; tFinish.Y:=200;  //точка финиша
  tCenter.X:=50;  tCenter.Y:=200;  //положение центра куба
  PaintBox1.Width:=600;
  PaintBox1.Height:=400;
  ToRight:=True;
  Timer1.Enabled:=True;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var d: Real;
begin
  d:=k/Sqrt(2);
  with PaintBox1.Canvas do begin
    Rectangle(0,0,PaintBox1.Width,PaintBox1.Height);
    MoveTo(tStart.X,tStart.Y);
    LineTo(tFinish.X,tFinish.Y);

    MoveTo(Round(tCenter.X-a*(1+d)*0.5),Round(tCenter.Y-a*(1-d)*0.5));
    LineTo(Round(tCenter.X-a*(1+d)*0.5),Round(tCenter.Y+a*(1+d)*0.5));
    LineTo(Round(tCenter.X+a*(1-d)*0.5),Round(tCenter.Y+a*(1+d)*0.5));
    LineTo(Round(tCenter.X+a*(1-d)*0.5),Round(tCenter.Y-a*(1-d)*0.5));
    LineTo(Round(tCenter.X-a*(1+d)*0.5),Round(tCenter.Y-a*(1-d)*0.5));

    LineTo(Round(tCenter.X-a*(1-d)*0.5),Round(tCenter.Y-a*(1+d)*0.5));
    LineTo(Round(tCenter.X+a*(1+d)*0.5),Round(tCenter.Y-a*(1+d)*0.5));
    LineTo(Round(tCenter.X+a*(1-d)*0.5),Round(tCenter.Y-a*(1-d)*0.5));

    MoveTo(Round(tCenter.X+a*(1+d)*0.5),Round(tCenter.Y-a*(1+d)*0.5));
    LineTo(Round(tCenter.X+a*(1+d)*0.5),Round(tCenter.Y+a*(1-d)*0.5));
    LineTo(Round(tCenter.X+a*(1-d)*0.5),Round(tCenter.Y+a*(1+d)*0.5));
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ToRight then begin
    Inc(tCenter.X,5);
    if tCenter.X>tFinish.X then begin tCenter.X:=tFinish.X; ToRight:=False; end;
  end
  else begin
    Dec(tCenter.X,5);
    if tCenter.X<tStart.X then begin tCenter.X:=tStart.X; ToRight:=True; end;
  end;
  PaintBox1.Repaint;
end;

end.

[goto ∞]

Всем спасибо за помощь, программу newerow1989 после коррекции приняли. Может препод не совсем разбирается в теме но поставили оценку 5, потому что никаких проекции тут не было и матриц переноса тем более.