Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Вращение объектов (шара вокруг своей оси)   Найти похожие ветки 

 
Сергей   (2010-03-22 22:55) [0]

Подскажите как сделать вращающийся шар вокруг своей оси! Если можно то реально для чайников, а не часть кода!


 
AntonioBanderas   (2010-03-22 23:43) [1]

var
 x: Integer=0;

````````````````````````````````````````

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 x:= x+0.1;
 Shape1.Left := 265+trunc(150*cos(x));
 Shape1.Left := 150-trunc(150*sin(x));
end;


 
AntonioBanderas   (2010-03-22 23:44) [2]


> Shape1.Left := 150-trunc(150*sin(x));

ой т.е. тут Shape1.Top := 150-trunc(150*sin(x));


 
Германн ©   (2010-03-23 01:30) [3]


> AntonioBanderas

:)


 
12 ©   (2010-03-23 08:57) [4]

вращение шара?
или я чего не понимаю, или Shape1.Left := Shape1.Left
равно как и остальное Shape1.ххх


 
DrPass ©   (2010-03-23 10:23) [5]


> Сергей   (22.03.10 22:55) 
> Подскажите как сделать вращающийся шар вокруг своей оси!
>  Если можно то реально для чайников, а не часть кода!

Если в твоей модели отсутствуют источники света, а шар одноцветный, то можешь не заморачиваться - все равно никто не поймет, вращается он или стоит на месте.


 
oldman ©   (2010-03-23 10:50) [6]

если шар одноцветный, то и на источник света можно забить.


 
Дмитрий Белькевич   (2010-03-23 11:02) [7]


> если шар одноцветный, то и на источник света можно забить.


Если шар полностью прозрачный, то можно и на источник света и на сам шар забить.


 
DrPass ©   (2010-03-23 12:00) [8]

Проще всего вращать шар с нулевым радиусом


 
AntonioBanderas   (2010-03-23 12:11) [9]

проше нарисовать 10 имагов, а чем больше тем лучше качество ;) и менять их по очериди, и даже скорость можно регулировать таймером


 
DrPass ©   (2010-03-23 12:14) [10]


> проше нарисовать 10 имагов, а чем больше тем лучше качество
> ;) и менять их по очериди, и даже скорость можно регулировать
> таймером

Говорят, примерно так Джеймс Камерон делал свой "Аватар"


 
Омлет ©   (2010-03-23 12:33) [11]

http://www.delphisources.ru/pages/sources/graph/2007_year/opengl_rotating_globe.html


 
Б   (2010-03-23 12:39) [12]

Тут двойная буфферизация и вращение по окружности:
http://subscribe.ru/archive/comp.soft.prog.delphiprogr/200712/14121853.html


 
Сергей   (2010-03-27 17:42) [13]

Всем большое спасибо я разобрался



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.052 c
3-1238357118
VoznikVopros
2009-03-30 00:05
2010.08.27
TIBDataSet - добавление поля, равное послед. знач. из др. таблицы


2-1275046068
Крапивин Олег
2010-05-28 15:27
2010.08.27
Как очистить DBLookComboBox.Text


2-1275290377
user51
2010-05-31 11:19
2010.08.27
как в DLL организовать таймер, или вывернутся другим способом


15-1269108673
POP
2010-03-20 21:11
2010.08.27
Несколько форм в едиторе - Delphi 2007


15-1269253044
Правильный$Вася
2010-03-22 13:17
2010.08.27
автоматический перевод часов в системе