Delphi. Нарисовать фигуру которая двигаеться по линии

[satanclaus]

Помогите написать програму в Delphi . Нужно нарисовать треугольник с вписаним и описаним в него кругом. Далее нарисовать линию(просто задать координати начала и конца). треугольник одной из своих вершин лежит на начале линии нужно по нажатию кнопки сделать чтоб он вместе с вписаним кругом двигался до конца линии. Треугольник и круг я уже нарисовал, как его дигать по линии. Треугольник рисуеться по нажатию кнопки. Рисуеться в пеинтбоксе.

[Скарам]

Хмм..а наработки?..

[raxp]

ну дык по циклу
inc(x)

[Вавел из ГМТУ]

Мда, один ответ лучше другого.....

Я представляю себе это вот так:

Нужно написать процедуру, которая будет отрисовывать треугольник и круги (далее по тексту просто фигура). Примерно её описание выглядит так:

Procedure PrintObject(Pole : TImage; x, y : integer);

Где x и y это координаты точки, которая должна быть связанна с линией, по которой эта фигура должна перемещаться.
Эта точка обычно называется "точка привязки".

И собственно рисовать фигуру надо относительно этой точки, тобишь "точка привязки" - начало координат фигуры.
А для того чтоб описать траекторию, по которой двигается фигура, нужно будет составить уравнение вида y(x). Гугли по маске "Уравнение линии через две точки".

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

[Stilet]

на начале линии нужно по нажатию кнопки сделать чтоб он вместе с вписаним кругом двигался до конца линии.

линия прямая или сплайн?

[Lokuson]

Если стукнешься - помогу 2552343

[DeKot]

Задачу можно решить по разному.Можно взять (создать сначала в граф-редакторе) готовый рисунок и уже программно работать с ним. Интересней все делать программно, т.е. создать рисунок в программе , а затем организовать его перемещение.
Сначала вспомним немного геометрию.
Смотрим рисунок ниже.
Рисунок с вписанной и описывающей треугольник окружностями может быть разным в зависимости от типа треугольника (произвольный-рис.1;равнобедренный - рис.2; произвольный прямоугольный - рис.3; равнобедренный прямоугольный - рис.4).
В каждом случае нужно задавать какие то начальные значения для построения чертежа.Самый простой - последний случай - рис.4.
Здесь достаточно задать всего лишь радиус одной из окружности и координаты ее центра.Третий параметр (углы треугольника) истекают автоматически из условия равнобедренноготреугольника - 45 град.

Все нужные значения для построения видно из чертежа и вычисляются следующим способом (исходя из радиуса большой окружности и координат ее центра R, x, y:

Определяем катеты треугольника :
  a = b = 2R * sin u ;

Координаты вершин треугольника :
  x1 = x – b/2 ;  y1 = y – a/2 ;
  x2 = x1 ;  y2 = y1 + a ;
  x3 = x2 + b ;  y3 = y2 ;

Радиус  и координаты  центра  вписанной (малой) окружности :  
  R1 = b – R ;
  xR = x3 – R ;  yR = y1 + R ;

Координаты прямоугольной области рисования описывающей (большой) окружности :
 xE1  = x – R ;  yE1 = y – R ;
 xE2 = x + R ;  yE2 = y + R ;

Координаты прямоугольной области рисования малой окружности :
 xM1  = xR – R1 ;  yM1 = yR – R1 ;
 xM2 = xR + R1 ;  yM2 = yR + R1 ;

Реализующая программа во вложении. Там все довольно просто - математические вычисления необходимых координат и простенькая графика.

[satanclaus]

вот мой код для рисования фигуры, как теперь ее продвинуть от начала до конца прямой линии?

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 xa,ya,xb,yb,xc,yc,kinx,kiny:Integer;
a,b,c:Double;
Lc,Lb:Double;
S,p,r:Double;
cx,cy,bx,by:Double;
K1,K2:Double;
x,y:Double;

begin



xa:=strtoint(edit1.Text); ya:=strtoint(edit4.Text);
xb:=strtoint(edit5.Text); yb:=strtoint(edit6.Text);
xc:=strtoint(edit7.Text); yc:=strtoint(edit8.Text);
kinx:=strtoint(edit2.Text); kiny:=strtoint(edit3.Text);
a:=sqrt((xb-xc)*(xb-xc)+(yb-yc)*(yb-yc));
b:=sqrt((xa-xc)*(xa-xc)+(ya-yc)*(ya-yc));
c:=sqrt((xa-xb)*(xa-xb)+(ya-yb)*(ya-yb));

p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
r:=S/p;
 
Lb:=a/c;
Lc:=a/b;
 
cx:=(xb+Lc*xa)/(Lc+1);
cy:=(yb+Lc*ya)/(Lc+1);
 
bx:=(xc+Lb*xa)/(1+Lb);
by:=(yc+Lb*ya)/(1+Lb);
 
K1:=(cy-yc)/(cx-xc);
K2:=(by-yb)/(bx-xb);
 
x:=(K1*xc-K2*xb+(yb-yc))/(K1-K2);
y:=K1*(x-xc)+yc;

Paintbox1.Canvas.MoveTo(xa,ya);
Paintbox1.Canvas.LineTo(kinx,kiny);
Paintbox1.Canvas.MoveTo(xa,ya);
Paintbox1.Canvas.LineTo(xb,yb);
Paintbox1.Canvas.LineTo(xc,yc);
Paintbox1.Canvas.LineTo(xa,ya);

 
xa:=Trunc(x-r);
ya:=trunc(y-r);
xb:=trunc(x+r);
yb:=trunc(y+r);
 
Paintbox1.Canvas.Ellipse(xa,ya,xb,yb);

end;

[ОДИНОЧЕСТВО В СЕТИ]

про метод базовой точки при построении графических изображений почитай! и будет тебе счастье!

[satanclaus]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

про метод базовой точки при построении графических изображений почитай! и будет тебе счастье!

не могу найти, помогите плиз а то завтра здать надо