DGL • Thema anzeigen - Licht geht nicht mehr

Licht geht nicht mehr

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Ireyon

Betreff des Beitrags: Licht geht nicht mehr

Verfasst: Mo Dez 03, 2007 19:36

DGL Member

Registriert: Sa Nov 24, 2007 11:59
Beiträge: 116
Programmiersprache: FreePascal

Moin. Iwie geht das Licht bei mir überhaupt nicht, obwohl ich es tutorialgemäß anwende. aber ob ich das licht nun anschalte oder nicht ist egal, es funktioniert einfach nicht. bekomme aber auch keine fehlermeldung o.ä. es geht einfach nicht an.

waere schön, wenn mir jemand helfen könnte.

Code:

procedure Tfrmmain.setupGL;
const
  light_position : Array[0..3] of GlFloat = (0.0, 0.0, 0.0, 1.0);
  light_ambient  : Array[0..3] of GlFloat = (0.8, 0.8, 0.8, 1.0);
  light_diffuse  : Array[0..3] of GlFloat = (0.8, 0.8, 0.8, 1.0);
 
  texnames: array[0..3] of String =
            ('w0', 'w1', 'w2', 'wd');
 
  objnames: array[0..0] of String =
            ('chb');
var
  i: integer;
begin
  glClearColor(0.0, 0.0, 0.0, 0.0);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_TEXTURE_2D);
 
  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT0);
  glEnable(GL_NORMALIZE);
  glDisable(GL_COLOR_MATERIAL);
  glLightfv(GL_LIGHT0, GL_AMBIENT,  @light_ambient[0]);
  glLightfv(GL_LIGHT0, GL_DIFFUSE,  @light_diffuse[0]);
  glLightfv(GL_LIGHT0, GL_POSITION, @light_position[0]);
  glLightModelf(GL_LIGHT_MODEL_LOCAL_VIEWER, GL_TRUE);
  glLightModelf(GL_LIGHT_MODEL_TWO_SIDE, gl_true);
  setlength(objects, length(objnames));
  for i := 0 to high(texnames) do
    tx.load('.\tx' + texnames[i] + '.tga', texnames[i]);
  for i := 0 to high(objnames) do
    begin
    objects[i] := T3DObject.create;
    with objects[i] do
      begin
      load('.\vts' + objnames[i] + '.vts');
      make;
      end;
    end;
end;

Und nein, an meinem Objectloader liegts nicht, auch ganz normale quads werden nicht mehr beleuchtet...

mfg
ireyon

Nach oben

erin

Betreff des Beitrags:

Verfasst: Sa Dez 22, 2007 23:23

DGL Member

Registriert: Mi Mär 28, 2007 17:45
Beiträge: 131

Bist du sicher, dass du deine Lichtquelle nicht unter dem Teppich versteckt hast? Häng die Funzel doch mal höher, vielleicht siehst du dann besser. Was ist mit den Normalen?

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.