![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Cheburashka |
![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 195 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Как в Delphi нарисовать окружность на канве???
Обычным уравнением x^2+y^2=R^2, ничего не получается. -------------------- ♣♣♣
"Себя великим не считай, гордясь величьем предков, Величья не добудешь ты и золота ценою! Хоть светит на небе луна, но отраженным светом - Чужою славой не живи, не будь второй луною!!!" ♣♣♣ |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Сергей Меркурьев
Знаешь, что такое полярная система координат? Если принять за центр этой системы твою точку центра окружности, то ρ(φ) = r, при 0 <= φ < 2π Что тебе это дает? Все просто: phi := 0;
while phi < 2 * pi do
begin
X := center_x + trunc(r * cos(phi));
Y := center_y - trunc(r * sin(phi));
// рисуешь на канве точку с координатами X, Y
phi := phi + delta_phi; { <--- приращение угла подберешь сам }
end;
Вот и все сложности. И никаких проблем с разными четвертями и вычислением корня из отрицательного числа... |
Lapp |
![]()
Сообщение
#3
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Вот и все сложности. И никаких проблем с разными четвертями и вычислением корня из отрицательного числа... Это-то он сделал.. см. пост №2. Я задал свой вопрос еще до того, как это увидел. Но все равно интересно разобраться - можно же обойтись и без синусов-косинусов, если аккуратно все сделать (чисто из споривного интересу)). -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 19:13 |