Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Освещенния в Direct3D


Ford ©   (2005-12-30 16:32:00) 

Помогите, сделать освещенния в Direct3D не как не получаеться его сделать. Где здесь ошибка ?

D3DXCreateTeapot(dDevice, msh, nil);

   ZeroMemory(@l, sizeof(l));
   l._Type:= D3DLIGHT_POINT;
   l.Diffuse.r:= 255;
   l.Diffuse.g:= 0;
   l.Diffuse.b:= 0;
   l.Ambient.r:= 255;
   l.Ambient.g:= 0;
   l.Ambient.b:= 0;
   l.Specular.r:= 255;
   l.Specular.g:= 0;
   l.Specular.b:= 0;

   l.Position.x:= 0;
   l.Position.y:= 1000;
   l.Position.z:= 0;
   l.Attenuation0:= 1;
   l.Range:= 1000;

   dDevice.SetLight(0, l);
   dDevice.LightEnable(0, true);

   dDevice.SetRenderState (D3DRS_LIGHTING, 1);

Всё темно


Ford   (2005-12-30 17:22:00) [1]

Тема закрыта, разобрался


Наверх

Титульная страница Поиск, карта сайта Написать письмо