Licht(er) einfügen in Opengl

Pascal · Beiträge: 155 Win 98, Win XP Delphi 2005, Delphi 5

Ich möchte, wie der Titel schon sagt, ein Licht in eine Opengl Scene einfügen. Dabei sind mir Schatten(,die von Objekten auf andere geworfen werden,) nicht so wichtig, sondern vor allem, dass man gleichfarbige Rechtecke durch unterschiedliche Sichtwinkel unterscheiden kann. Ich suche eine möglichst einfache Methode, die zusammen mit Opengl12.pas funktioniert.

Kann mir da jemand einen Tip geben wie das am besten geht?

Andreas Pfau · Beiträge: 997

Hallo,

1) Licht-Unterstützung aktivieren:

markieren

Delphi-Quelltext

1:	glEnable(GL_LIGHTING);

2) Einzelnes Licht aktivieren

markieren

Delphi-Quelltext

1:	glEnable(GL_LIGHT0 + n); // n = Licht-Index, 0 = erstes Licht usw.

3) mit glLight() die Parameter setzen (Position, Farbe, Art). Onlinehilfe lesen, da gibt es dutzende von Möglichkeiten, wie Spotlights, Ambient-Licht (Hintergrundlicht), Diffuse-Licht (Steulicht), verscheidene Richtungen und Winkel, usw.

PS: Einfach zu implementieren, aber Hardwarehungirg! Geeignet für CAD oder so was, abr in Spielen bitte Lightmaps (oder Vertexlight) verwenden!

_________________
Life is a bad adventure, but the graphic is really good!

Raphael O. · Beiträge: 1596 VS 2013

guckst du auch hier:
www.delphigl.com/mai...licht&head=licht

Pascal · Beiträge: 155 Win 98, Win XP Delphi 2005, Delphi 5

Danke!
Werde ich beides mal ausprobieren.

Pascal · Beiträge: 155 Win 98, Win XP Delphi 2005, Delphi 5

Danke.
Bei Modellen funktioniert es jetzt.

Aber andere Polygons wie z.B.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

  glBegin(GL_POLYGON);
    glColor4f(0, 1, 0, 0.5);
    glVertex3f(-1.0,  1.0, -1.0);
    glVertex3f(-1.0,  1.0,  1.0);
    glVertex3f( 1.0,  1.0,  1.0);
    glVertex3f( 1.0,  1.0, -1.0); 
  glEnd;

werden dadurch dunkel und gleichfarbig. Muss ich da noch was hinzufügen, damit die auch normal beleuchtet werden?

Raphael O. · Beiträge: 1596 VS 2013

du musst damit es richtig beleuchtet wird noch die Normale angeben :

markieren

Delphi-Quelltext

1:	glNormal3f(x,y,z);

Pascal · Beiträge: 155 Win 98, Win XP Delphi 2005, Delphi 5

Danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme