Рисование креста

[lordsyrius]

Здравствуйте. Я тут крест рисую, вот код:

procedure TKrest.Draw(f: TCanvas);
begin
AllPoints[2].X:=((AllPoints[0].X) + (AllPoints[1].X )) div 2;//находим середину
AllPoints[2].Y:=((AllPoints[0].Y) + (AllPoints[1].Y )) div 2;//отрезка
f.MoveTo(AllPoints[0].X, AllPoints[0].Y);
f.LineTo(AllPoints[1].X, AllPoints[1].Y); 
f.MoveTo(AllPoints[2].X, AllPoints[2].Y);
f.LineTo(AllPoints[3].X, AllPoints[3].Y);
end;

Точки задаются рандомно.Рисуется две линии, но одна начинается из середины другой. Как мне сделать, чтобы одна линия пересекала другую через середину?

[Serge_Bliznykov]

дело в том, что для креста нельзя все точки задавать случайным образом.
посмотрите пример:

  DlinaPerekladiny, VysotaKresta : integer;
begin

  DlinaPerekladiny := 150;
  VysotaKresta := 250;
  AllPoints[0].x := 50;   AllPoints[0].y := 300;
  AllPoints[1].x := AllPoints[0].x + DlinaPerekladiny;
  AllPoints[1].y := AllPoints[0].y;
AllPoints[2].X:=((AllPoints[0].X) + (AllPoints[1].X )) div 2;//находим середину
AllPoints[2].Y:= AllPoints[0].Y - (VysotaKresta div 2);//отрезка
  AllPoints[3].x := AllPoints[2].X;
  AllPoints[3].y := AllPoints[2].Y + VysotaKresta;
f.MoveTo(AllPoints[0].X, AllPoints[0].Y);
f.LineTo(AllPoints[1].X, AllPoints[1].Y);
f.MoveTo(AllPoints[2].X, AllPoints[2].Y);
f.LineTo(AllPoints[3].X, AllPoints[3].Y);

[lordsyrius]

спасибо, сейчас буду пробовать

[lordsyrius]

я вот так сделал:

AllPoints[2].X:=((AllPoints[0].X) + (AllPoints[1].X )) div 2;
AllPoints[3].X:=((AllPoints[0].X) + (AllPoints[1].X )) div 2;
f.MoveTo(AllPoints[0].X, AllPoints[0].Y);
f.LineTo(AllPoints[1].X, AllPoints[1].Y);
f.MoveTo(AllPoints[2].X, (AllPoints[0].Y)-50);
f.LineTo(AllPoints[3].X, (AllPoints[1].Y)+50);

так он рандомно выводится. Только теперь новый вопрос, как найти центр креста через четыре точки?

[Alter]

А что узнать длинну линий по координатам концов и поделить на два нельзя?

[lordsyrius]

Я вот сделал:

procedure TFigure.Center;
var
i:integer;
begin
CenterPoint.X:=(AllPoints[0].X+AllPoints[1].X+AllPoints[2].X+AllPoints[3].X)div 4;
CenterPoint.Y:=(AllPoints[0].Y+AllPoints[1].Y+AllPoints[2].Y+AllPoints[3].Y)div 4;
end;

но или в этом проблема, или в моем масштабировании фигуры:

procedure TFigure.ChangeSize(k: real); 
var
i: integer;
TempPoint: TPoint;
begin
center;
for i:=0 to length(AllPoints) - 1 do
begin
TempPoint.X:=round((AllPoints[i].X-CenterPoint.X)*k+CenterPoint.X);
TempPoint.Y:=round((AllPoints[i].Y-CenterPoint.Y)*k+CenterPoint.Y);
AllPoints[i]:=TempPoint;
end; end;

Масштабирование происходит очень странно: при масштабировании линии совершенно не пропорционально изменяют размер. А иногда вообще, как будто фигура переворачивается.

Помогите разобраться...

[lordsyrius]

срочно нужна помощь...