DGL • Thema anzeigen - Es werde Licht

Es werde Licht

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

wurstkind

Betreff des Beitrags: Es werde Licht

Verfasst: Mo Jul 12, 2004 16:26

DGL Member

Registriert: Fr Jul 02, 2004 14:26
Beiträge: 32

Hi, ich hab mir nun die Einsteiger Tuts durchgelesen und bin auch grössten teils ohne probleme durchgestiegen, an dieser Stelle nochmal vielen dank an Phobeus.

Aber was mir bis jetzt ein rätsel geblieben ist, ist das licht.

Ich habe ein prgramm das eine fläche in der X-Y ebene zeichnet.
Zusätlich kann man die fläche um ihre Y und X Achse drehen, wenn ich die fläche nun von hinten betrachte, so wird sie dunkel. Ich hab den Code so zusammengebastelt wie in der Lektion beschrieben um eine Kameralampe zu haben. Dazu kommt dass der lichtkegel irgendwie nicht geradeaus von der Cam ausgeht sondern etwas schräg nach unten.

Code:

procedure glDraw;
var xkord, ykord :integer;
begin
 
  glClearColor(0,0,0,0);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glLoadIdentity;
   glMaterialfv(GL_FRONT, GL_SPECULAR,  @mat_specular[0]);
    glMaterialfv(GL_FRONT, GL_SHININESS, @mat_shininess[0]);
    glMaterialfv(GL_FRONT, GL_AMBIENT,   @mat_ambient[0]);
    glMaterialfv(GL_FRONT, GL_DIFFUSE,   @mat_diffuse[0]);
 
    glLightfv(GL_LIGHT0, GL_AMBIENT,  @light_ambient[0]);
    glLightfv(GL_LIGHT0, GL_DIFFUSE,  @light_diffuse[0]);
    glLightfv(GL_LIGHT0, GL_POSITION, @light_position[0]);
 
 
    glEnable(GL_LIGHTING);
    glEnable(GL_LIGHT0);
 
 
 
 
 
  glTranslatef(0,0,-40);
  glrotatef(a,1,0,0);
  glrotatef(b,0,1,0);
  gltranslatef(0,c/10,0);
  glTranslatef(-20,20,0);
 
for xkord := 0 to 100 do
 begin
 
  for ykord := 0 to 100 do
   begin
 
    glbegin(GL_QUADS);
    glLineWidth(10);
    glTexCoord2f(((1/texturbreite)*xkord)-(1/texturbreite),(1/texturbreite)*ykord);                    glVertex3f(-0.25,0.25,sin(myquads[xkord,ykord]*pi/180)/3);
    glTexCoord2f(((1/texturbreite)*xkord)-(1/texturbreite),((1/texturbreite)*ykord)-(1/50.5));         glVertex3f(-0.25,-0.25,sin(myquads[xkord,ykord+1]*pi/180)/3);
    glTexCoord2f((1/texturbreite)*xkord,((1/texturbreite)*ykord)-(1/texturbreite));                    glVertex3f(0.25,-0.25,sin(myquads[xkord+1,ykord+1]*pi/180)/3);
    glTexCoord2f((1/texturbreite)*xkord,(1/texturbreite)*ykord);                                       glVertex3f(0.25,0.25,sin(myquads[xkord+1,ykord]*pi/180)/3);
 
    glEnd();
 
    glTranslatef(0,-0.5,0);
   end;
  glTranslatef(0.5,50.5,0);
 end;
 
 
 
end;

So.
Wäre auch nett wenn ihr die Codestruktur etwas bewerten würdet, sprich ob ich gut strukturiert hab, oder ob ich was ändern sollte...auch wenns n recht kleines programm ist.

Danke, cYa...

Nach oben

Magellan

Betreff des Beitrags:

Verfasst: Mo Jul 12, 2004 16:47

DGL Member

Registriert: Di Nov 26, 2002 22:12
Beiträge: 259
Wohnort: Dresden

Ich sehe nirgends, dass du deine Normalen übergibst. Da deine gesamte Fläche wie du sagtest in der XY-Ebene liegt reicht ein Aufruf von glNormal3f(0, 0, 1) aus.

Die Codestruktur finde ich leicht unübersichtlich. Du könntest das ganze etwas optimieren und damit übersichtlicher gestalten:

Da du immer das selbe Material und Licht verwendest kannst du die ganzen glMaterial*, glLight* und die beiden glEnable auslagern, indem du sie nur einmal nach der Initialisierung der OpenGL aufrufst. Gleiches gilt für glClearColor.

Damit sieht die Zeichenprozedur schon sehr viel übersichtlicher aus. Aber das ist alles Geschmackssache.

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jederman ist überzeugt, dass er genug davon habe.
Rene Descartes, frz. Mathematiker u. Philosoph, 1596-1650

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 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.