IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Окружность
Cheburashka
сообщение 10.06.2010 7:39
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Мужской
Реальное имя: Сергей

Репутация: -  2  +


Как в Delphi нарисовать окружность на канве???
Обычным уравнением x^2+y^2=R^2, ничего не получается.


--------------------
♣♣♣
"Себя великим не считай, гордясь величьем предков,
Величья не добудешь ты и золота ценою!
Хоть светит на небе луна, но отраженным светом -
Чужою славой не живи, не будь второй луною!!!"
♣♣♣
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 10.06.2010 9:06
Сообщение #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
сообщение 10.06.2010 9:13
Сообщение #3


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(volvo @ 10.06.2010 10:06) *
Вот и все сложности. И никаких проблем с разными четвертями и вычислением корня из отрицательного числа...
Это-то он сделал.. см. пост №2.
Я задал свой вопрос еще до того, как это увидел. Но все равно интересно разобраться - можно же обойтись и без синусов-косинусов, если аккуратно все сделать (чисто из споривного интересу)).


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 19:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"