Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Вниз

помогите с движением по окружности   Найти похожие ветки 

 
-=zek=-   (2004-02-21 17:54) [0]

Народ помогите заставить Shape двигаться по окружности или подскажите формулу нахождения следующей точки на этой окружности. Зарание спасибо.


 
Powerland Software   (2004-02-21 17:56) [1]

x^2+y^2=r^2. Здесь x,y - координаты точки. А r - радиус окружности. Просто найти x и y, которые удовлетворяют условию.


 
YurikGl   (2004-02-21 17:58) [2]

Строишь уравнение прямой идущей под углом а и проходящей через центр окружности, меняешь угол а с течением времени. На каждый такт прорисовываешь необходимую фигуру на пересечении прямой и окружности. Проблему того, что точек пересечения две обрабатываешь ручками. Можно, например, так: выбирается ближайшее пересечение к предыдущей точке


 
romeo   (2004-02-21 18:59) [3]

R - радиус окружности
alfa - угол поворота в радианах

X := R * cos(alfa);
Y := R * sin(alfa);

и все...


 
romeo   (2004-02-21 19:08) [4]

Извиняюсь:

X := Xc + R * cos(alfa);
Y := Yc + К * sin(alfa);

Xc, Yc - коордлинаты центра окружности



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.01 c
14-6194
Piter
2004-02-11 20:52
2004.03.03
Дурацкие ошибки


3-5969
чайник1
2004-02-05 15:04
2004.03.03
select из двух таблиц


4-6269
DillerXX
2003-12-23 20:06
2004.03.03
Перезагрузка+БАТ2


1-6045
Maxim_________
2004-02-19 01:45
2004.03.03
как получить из функции array of array of.......?


1-6142
WebErr
2004-02-19 15:34
2004.03.03
А в Delphi есть template?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский