Проблемы с освещением

[k3rn3l]

Имеется четырехугольник, на него наложена текстура, не получается сделать освещение к ней. Да и без наложения текстуры четырехугольник при диффузном освещении (1,1,1) не был полностью белым.(или так и должно быть?).

procedure TForm1.FormCreate(Sender: TObject);
const
  diffuse_light:array[0..3] of GLFloat = (1,1,1,1);
begin
  ghDC := GetDC(Handle);
  if not SetDCPixelFormat(ghDC) then exit;
  ghRC := wglCreateContext(ghDC);
  wglMakeCurrent(ghDC, ghRC);
  glClearColor(0, 0, 0, 0);                      // Black Background

  glShadeModel(GL_SMOOTH);                // Enables Smooth Color Shading
  glClearDepth(1.0);                           // Depth Buffer Setup
  glEnable(GL_DEPTH_TEST);                // Enable Depth Buffer
  glDepthFunc(GL_LESS);                    // The Type Of Depth Test To Do
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);         //Realy Nice perspective calculations

  TextureInit();
  glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE,GL_REPLACE);
  //  CreatePyramidList();
  //  CreateCubeList();

  glLightfv(GL_LIGHT1, GL_DIFFUSE, @diffuse_light);

  glViewPort(0,0,width,height);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
  glFrustum(-1,1,-1,1,1,40);
  moveX:=0;
  moveY:=0;
  moveZ:=0;

  glMatrixMode(GL_MODELVIEW);

end;



procedure TForm1.FormPaint(Sender: TObject);
begin

//CalculateFrameRate();

glClear(GL_DEPTH_BUFFER_BIT xor GL_COLOR_BUFFER_BIT);

    //    glLoadIdentity;
   //     glTranslatef(-2, 0.0, -8.0);
    //    glTranslatef(moveX,moveY,moveZ);
     //   glRotatef(Trot, 1, 1, 1);
     //   glCallList(PyramidDL);

       	glLoadIdentity();
        glTranslatef(0, 0.0, -8.0);
 //     glTranslatef(moveX,moveY,moveZ);
 //  	glRotatef(Qrot, 1.0, 1.0, 1.0);
 //     glCallList(CubeDL);

        glBindTexture(GL_TEXTURE_2D, myTex[1]);
        glEnable(GL_TEXTURE_2D);
        glEnable (GL_LIGHTING);
        glEnable (GL_LIGHT1);
        glBegin(GL_QUADS);
         glNormal3f(0.0, 0.0, 1.0);
      //передняя грань
 glTexCoord2f(0.0, 0.0);      glVertex3f(1.0, 1.0, 1.0);
 glTexCoord2f(0.0, 1.0);      glVertex3f(1.0, -1.0, 1.0);
 glTexCoord2f(1.0, 1.0);      glVertex3f(-1.0, -1.0, 1.0);
 glTexCoord2f(1.0, 0.0);      glVertex3f(-1.0, 1.0, 1.0);

        glEnd;

   //	Trot :=Trot + 1;
   //	Qrot :=Qrot - 1;

    SwapBuffers(ghDC);

end;

Может заменить GL_REPLACE на GL_MODULATE, но тогда насколько я понимаю во внимание принимается и цвет текселя, и цвет фона четырехугольника?

ps закоментированные строчки прошу во внимание не принимать.

[.pixel]

не получается сделать освещение к ней

glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE,GL_REPLACE); - не учитывает затенение объекта, с GL_MODULATE - учитывает (накладываемая текстура будет затенена так же как затенен объект). А уже как у вас затеняется объект разбирайтесь со светом.

но тогда насколько я понимаю во внимание принимается и цвет текселя, и цвет фона четырехугольника?

а вам как надо? Настройте материал для вашего квада.

[NiCola999]

glEnable(GL_TEXTURE_2D);
glEnable (GL_LIGHTING);
glEnable (GL_LIGHT1);

это делается при инициализации приложения, а не при перерисовке


кстати, я где у вас установлена позиция света? По умолчанию наверно он стоит в 0,0,0

light_pos:array[0..2] of GLFloat = (0,2,5);
glLightfv(GL_LIGHT1, GL_POSITION, @light_pos);

тоже при инициализации

[k3rn3l]

Сейчас поэксперементировал, вроде работает, но только при включенном GL_MODULATE (при GL_REPLACE не работает). Почему не работает при GL_REPLACE, ведь при нем текстура просто накладывается на полигон как есть, а каким боком это влияет на освещение текстуры.

Сообщение от .pixel

glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE,GL_REPLACE); - не учитывает затенение объекта, с GL_MODULATE - учитывает (накладываемая текстура будет затенена так же как затенен объект). А уже как у вас затеняется объект разбирайтесь со светом.

Как понять затенение? Если объект на сцене один, то никакого затенения по идеи не должно быть => в моем примере, что при GL_MODULATE, что при GL_REPLACE результат должен быть одинаковым.

Сообщение от NiCola999

кстати, я где у вас установлена позиция света? По умолчанию наверно он стоит в 0,0,0

procedure TForm1.FormCreate(Sender: TObject);
const
   diffuse_light:array[0..3] of GLFloat = (1.0,1.0,1.0,1);
   light_position:array[0..3] of GLFloat = (0,0,2,1);
   LightAmbient: array [0..3] of GLFloat = (1,1,1,1);

  glLightfv(GL_LIGHT0, GL_DIFFUSE, @diffuse_light);
  glLightfv(GL_LIGHT0, GL_AMBIENT, @LightAmbient);
  glLightfv(GL_LIGHT0,GL_POSITION, @light_position);
  glEnable (GL_LIGHTING);
  glEnable (GL_LIGHT0);

Еще не понятно, что делает фоновое освещение. Сколько не менял значение GL_AMBIENT, но так и не углядел разницы.

[NiCola999]

gl_ambient это цвет зеркального блика

[.pixel]

Как понять затенение?

Стороны кубиков на представленном изображении имеют разное «затенение»( Shading)» в зависимости от угла нормали к источнику света.

Я честно говоря вообще не пойму чего вы хотели в итоге добиться то?)

Еще не понятно, что делает фоновое освещение.

Почитайте "OpenGL супер книга" там достаточно просто и понятно написано про «Свет», «Свет»+ материалы, «Свет»+ материал текстура…

[k3rn3l]

Всё норм, надо было

glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE,GL_REPLACE);

поменять на

glTexEnvf(GL_TEXTURE_2D, GL_TEXTURE_ENV_MODE,GL_REPLACE);

Хотя можно было вообще без этой строчки обойтись)

[k3rn3l]

Да, и еще один вопрос, не совсем по теме:
Как можно реализовать управление мышью как в игре? (желательно код)