Соединение линией 2-х окружностей
Категория: Delphi | Автор: admins | (26 февраля 2017)
 

Соединение линией 2-х окружностей


sample.png (2.65 Kb)
//x1,x2,y1,y2 - координаты окружностей
//r1,r2 - Их радиусы
var len : real;

len := sqrt(sqr(x2-x1)+sqr(y2-y1));

p_x1 := x1+(x2-x1)*r1/len;
p_x2 := x2+(x1-x2)*r2/len;
p_y1 := y1+(y2-y1)*r1/len;
p_y2 := y2+(y1-y2)*r2/len;

//p_x1, p_y1 - координаты начала линии у 1-й окружности,
//p_x1, p_y1 -координаты конца линии у 2-й окружности,




Designed by Freepik


 (Голосов: 0)

 


     

Была ли полезной Вам статья?
Да Нет

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

У нас искали: