Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вращение объектов (шара вокруг своей оси) [D7, XP]

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

Сергей (2010-03-27 17:42:00) [1]
Всем большое спасибо я разобрался

Б (2010-03-23 12:39:00) [2]
Тут двойная буфферизация и вращение по окружности:
http://subscribe.ru/archive/comp.soft.prog.delphiprogr/200712/14121853.html

Омлет (2010-03-23 12:33:00) [3]
http://www.delphisources.ru/pages/sources/graph/2007_year/opengl_rotating_globe.html

DrPass (2010-03-23 12:14:00) [4]

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

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

AntonioBanderas (2010-03-23 12:11:00) [5]
проше нарисовать 10 имагов, а чем больше тем лучше качество ;) и менять их по очериди, и даже скорость можно регулировать таймером

DrPass (2010-03-23 12:00:00) [6]
Проще всего вращать шар с нулевым радиусом

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

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

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

oldman (2010-03-23 10:50:00) [8]
если шар одноцветный, то и на источник света можно забить.

DrPass (2010-03-23 10:23:00) [9]

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

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

12 (2010-03-23 08:57:00) [10]
вращение шара?
или я чего не понимаю, или Shape1.Left := Shape1.Left
равно как и остальное Shape1.ххх

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

> AntonioBanderas

:)

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

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

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

AntonioBanderas (2010-03-22 23:43:00) [13]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »