Как зная координаты линии построить вторую линию по углом..

[TiG]

Есть Line1 с координатами 50,50 100,100.
Как постороить Line2, чтобы она была смежна с line1 под углом 77 градусов?

[Faust]

Пускай у Line выделены начало и конец. Тогда, если X1 и Y1 - координаты вектора с началом в начале и концом в конце (коряво, правда?), то координаты точно такого же по длине вектора, составляющего угол Alpha с данным вектором, равны:
X2=X1 * Cos(Alpha) + Y1 * Sin(Alpha)
Y2=Y1 * Cos(Alpha) - X1 * Sin(Alpha)
Это при условии, что вектор поворачивается на угол Alpha по часовой стрелке.

[TiG]

Сеньк)
Плиз расшифруй):

Line?.X2=Line?.X1 * Cos(Alpha) + Line?.Y1 * Sin(Alpha)
Line?.Y2=Line?.Y1 * Cos(Alpha) - Line?.X1 * Sin(Alpha)

так?:

Line2.X2=Line2.X1 * Cos(Alpha) + Line2.Y1 * Sin(Alpha)
Line2.Y2=Line2.Y1 * Cos(Alpha) - Line2.X1 * Sin(Alpha)

[TiG]

Dim x
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
x = x + 5
Text1.Text = x
Line2.X1 = Line1.X2
Line2.Y1 = Line1.Y2
Line2.X2 = Line1.X1 * Cos(3.14159265358979 / 180 * x) + (Line1.Y1 * Sin(3.14159265358979 / 180 * x))
Line2.Y2 = Line1.Y1 * Cos(3.14159265358979 / 180 * x) - (Line1.X1 * Sin(3.14159265358979 / 180 * x))
End Sub

Короче после 45 градусов начинается ересь, до 45 с длинной непонятки.

[Faust]

Под (X1,Y1) и (X2,Y2) в понимались координаты двух векторов, а не начала и конца какого-то одного вектора. Моя вина - я выбрал обозначения, использованные в Line. Нужный тебе код будет выглядеть следующим образом:

Код: Выделить всё


'начало Line2 помещайте, куда вам понадобиться
Line2.X2=Line2.X1+(Line1.X2-Line1.X1)*Cos(alpha)+(Line1.Y2-Line1.Y1)*Sin(alpha)
Line2.Y2=Line2.Y1+(Line1.Y2-Line1.Y1)*Cos(alpha)-(Line1.X2-Line1.X1)*Sin(alpha)


[TiG]

Сеньк) Терь пашет!