Главная страница
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.119 c
2-1272191721
koshkin
2010-04-25 14:35
2010.08.27
Как указать путь к модулю


2-1273166923
worldmen
2010-05-06 21:28
2010.08.27
Ошибка при копиляции из Delphi 7 в Delphi 2010


2-1270656345
Беликов А.А,
2010-04-07 20:05
2010.08.27
ADOQuery и TThread


2-1270711682
12
2010-04-08 11:28
2010.08.27
MSSQL, номер записи в select


15-1269236981
stas
2010-03-22 08:49
2010.08.27
Прочитать титлы с DVD