DGL • Thema anzeigen - Lektion 4

Lektion 4 - Problem

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

cytexX

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 09:15

DGL Member

Registriert: So Mai 11, 2003 09:07
Beiträge: 3

Hi,
erstmal bin ich neu hier, hoffe das ich das richtige forum dafür getroffen hab...

also ich habe mit der 4. Lektion von den TUTs auf delphigl.com ein Problem... ich habe irgendwo in meinem quelltext 'nen Fehler, weiß aber nicht wo ! Vielleicht könnte mir ja jemand helfen. Hier mein Quellcode

Code:

 
 
{
--==## VCL Template ##==--
Source by: BlueToby
Visit us: http://www.delphigl.com/
}
unit Unit1;
 
interface
 
uses
 &nbsp;Windows, Messages, ExtCtrls, Classes, AppEvnts, Graphics, Controls, Forms, Dialogs,
 &nbsp;OpenGL12, Glaux, Glu, Textures, Math, SysUtils;
 
type
 &nbsp;TDemoForm = class(TForm)
 &nbsp; &nbsp;ApplicationEvents: TApplicationEvents;
 &nbsp; &nbsp;FramesTimer: TTimer;
 &nbsp; &nbsp;procedure FormCreate(Sender: TObject);
 &nbsp; &nbsp;procedure SetPixelFormat;
 &nbsp; &nbsp;procedure StartGl;
 &nbsp; &nbsp;procedure SetupGL;
 &nbsp; &nbsp;procedure FormShow(Sender: TObject);
 &nbsp; &nbsp;procedure FormDestroy(Sender: TObject);
 &nbsp; &nbsp;procedure FormResize(Sender: TObject);
 &nbsp; &nbsp;procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
 &nbsp; &nbsp;procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 &nbsp; &nbsp; &nbsp;Y: Integer);
 &nbsp; &nbsp;procedure FramesTimerTimer(Sender: TObject);
 &nbsp;private
 &nbsp; &nbsp;{ Private-Deklarationen }
 &nbsp;public
 &nbsp; &nbsp;{ Public-Deklarationen }
 &nbsp;end;
 
const
 &nbsp;WinCaption = 'VCL Template '; // Der Titel unseres Fensters
 &nbsp;NearClipping = 1; // Sollte immer >= 1 sein
 &nbsp;FarClipping = 256; // Ab diesem Entfernung, werden deine Objekte nicht mehr dargestellt
 
var
 &nbsp;DemoForm: TDemoForm;
 &nbsp;IsOpenGLInit: Boolean; &nbsp;// Fürs Init von OpenGL
 &nbsp;RenderContext: HGLRC; &nbsp; // OpenGL Rendering Context
 &nbsp;Frames, Frame: Integer; // Frames fürs durchzählen, Fame zum Speichern
 &nbsp;rx, ry, rz: integer; &nbsp; &nbsp;// Rotationsvariablen
 &nbsp;taste: char; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// tastendruck
implementation
 
{&#036;R *.DFM}
 
// Zeichenprozedur
procedure TDemoForm.ApplicationEventsIdle(Sender: TObject;
 &nbsp;var Done: Boolean);
 &nbsp;var x:integer;
 &nbsp; &nbsp; &nbsp;outrot:integer;
 &nbsp; &nbsp; &nbsp;texture1: PTAUX_RGBImageRec;
 &nbsp; &nbsp; &nbsp;tex: TGLuint;
 
begin
 &nbsp;if not IsOpenGLInit then
 &nbsp; exit; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Falls OpenGL noch nicht initialisiert ist, erstmal garnix tun
 &nbsp;Done := false; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Wichtig, damit immer was getan wird
 &nbsp;inc(Frames, 1); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Frames zählen
 
 &nbsp;glClearColor(0, 0, 0, 0.5); &nbsp; // Löschen der Farbe
 &nbsp;glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT); // Leeren des Speichers
 
 BEGIN;
 
 &nbsp;texture1 := auxDIBImageLoadA('./texture/wall.bmp');
 &nbsp; &nbsp;glGenTextures(1, @tex);
 &nbsp; &nbsp;glBindTexture(GL_TEXTURE_2D, tex);
 &nbsp; &nbsp;glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_Linear);
 &nbsp; &nbsp;glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_Linear);
 &nbsp; &nbsp;glTexImage2D(GL_TEXTURE_2D, 0, 3,
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;texture1^.sizeX, texture1^.sizeY, 0,
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;GL_RGB, GL_UNSIGNED_BYTE, texture1^.data);
 
 
 &nbsp; &nbsp; &nbsp; &nbsp;IF NOT Assigned( texture1 ) THEN
 &nbsp; &nbsp; &nbsp; &nbsp;BEGIN;
 &nbsp; &nbsp; &nbsp; &nbsp; MessageBox(0,'Texturenpfad oder Dateiname falsch!',
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Fehler beim Laden der Textur!',MB_OK or MB_ICONERROR);
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Halt;
END;
 
glloadidentity;
gltranslatef(0,0,-20);
glBindTexture(GL_TEXTURE_2D, tex);
 &nbsp;x:=x+1;
 &nbsp;outrot:=outrot+2;
 
glPushMatrix;
 &nbsp; &nbsp; glTranslatef(0,sin(x/50),0);
 &nbsp; &nbsp; glRotatef(x,0,1,0);
 &nbsp; &nbsp; glMatrixMode(GL_TEXTURE);
 &nbsp; &nbsp; glloadidentity;
 &nbsp; &nbsp; glColor3f(1,1,1);
 &nbsp; &nbsp; glTranslatef(0,-(x/100),0);
 &nbsp; &nbsp; glMatrixMode(GL_MODELVIEW);
 
 &nbsp; &nbsp;glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glVertex3f(0,1,0);
 &nbsp; &nbsp; glVertex3f(1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glbegin(GL_QUADS);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,-1);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,-1);
 &nbsp; &nbsp; glend();
 
glPopMatrix;
 
glEnable(GL_BLEND);
glBlendFunc(GL_SRC_ALPHA,GL_ONE);
glDisable(GL_DEPTH_TEST);
 
 
glPushMatrix;
 &nbsp; &nbsp;glRotatef(x,0,1,0);
 &nbsp; &nbsp;glScalef(2,2,2);
 
 &nbsp; &nbsp;IF Sin(x/50)<0.9 THEN glColor4f(1,1,1,0.4)
 &nbsp; &nbsp;ELSE glColor4f(1,0.3,0.3,0.5);
 
 &nbsp; &nbsp;glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glbegin(GL_QUADS);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,-1);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,-1);
 &nbsp; &nbsp; glend();
 
glPopMatrix;
 
 &nbsp; &nbsp;// Blaue äußere Pyramide
 &nbsp; &nbsp;glPushMatrix;
 &nbsp; &nbsp; &nbsp; &nbsp; glColor4f(0.3,0.3,0.8,0.8);
 &nbsp; &nbsp; &nbsp; &nbsp; glRotatef(outrot,0,1,0);
 &nbsp; &nbsp; &nbsp; &nbsp; glTranslatef(5,0,0);
 &nbsp; &nbsp; &nbsp; &nbsp; glRotatef(outRot,-0.5,1,0);
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glVertex3f(0,1,0);
 &nbsp; &nbsp; glVertex3f(1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glbegin(GL_QUADS);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,-1);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,-1);
 &nbsp; &nbsp; glend();
 &nbsp; &nbsp;glPopMatrix;
 
 &nbsp; &nbsp;// Grüne äußere Pyramide
 &nbsp; &nbsp;glPushMatrix;
 &nbsp; &nbsp; &nbsp; &nbsp; glColor4f(0.3,0.8,0.3,0.8);
 &nbsp; &nbsp; &nbsp; &nbsp; glRotatef(outrot,0,1,0);
 &nbsp; &nbsp; &nbsp; &nbsp; glTranslatef(-5,0,0);
 &nbsp; &nbsp; &nbsp; &nbsp; glRotatef(OutRot,0.5,1,0);
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glBegin(GL_TRIANGLES);
 &nbsp; &nbsp; glTexCoord2f(0,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp; glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp; glTexCoord2f(1,0);glVertex3f(-1,-1,1);
 &nbsp; &nbsp; glEnd();
 
 &nbsp; &nbsp; glbegin(GL_QUADS);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,1);
 &nbsp; &nbsp; &nbsp;glvertex3f(1,-1,-1);
 &nbsp; &nbsp; &nbsp;glvertex3f(-1,-1,-1);
 &nbsp; &nbsp; glend();
 &nbsp; &nbsp;glPopMatrix;
 
 &nbsp;x:=x+1;
 &nbsp;outrot:=outrot+2;
 
 &nbsp;SwapBuffers(Canvas.Handle); // Und anzeigen
 
end;
end;
 
procedure glBindTexture(Target: TGLenum; Texture: TGLuint);
 external opengl32; // Funktion für Texturen
 
procedure TDemoForm.FormCreate(Sender: TObject);
begin
 if not InitOpenGL then &nbsp; &nbsp;// Wichtig für OpenGL >= 1.2
 &nbsp;Halt(100);
 IsOpenGLInit := false; &nbsp; &nbsp;// OpenGL ist noch nicht initialisiert
end;
 
procedure TDemoForm.SetPixelFormat;
var
 &nbsp;PixelFormat: TGLuint; // Das PixelFormat
 &nbsp;PFD: PIXELFORMATDESCRIPTOR; // Die "Beschreibung" dazu
begin
 with PFD do // Für die "Beschreibung" verändern wir:
 begin
 &nbsp;nSize := SizeOf(PIXELFORMATDESCRIPTOR); // Die Größe ist die eines PIXELFORMATDESCRIPTORS
 &nbsp;nVersion := 1; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Version ist 1
 &nbsp;dwFlags := PFD_DRAW_TO_WINDOW &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Einige wichtige Einstellungen
 &nbsp; or PFD_SUPPORT_OPENGL
 &nbsp; or PFD_DOUBLEBUFFER;
 &nbsp;iPixelType := PFD_TYPE_RGBA; // Pixeltyp
 &nbsp;cColorBits := 32; &nbsp; // Farbtiefe
 &nbsp;cRedBits := 0; &nbsp; &nbsp; &nbsp;// Einige Einstellungen zu den Farben. Bei 0 belassen
 &nbsp;cRedShift := 0;
 &nbsp;cGreenBits := 0;
 &nbsp;cBlueBits := 0;
 &nbsp;cBlueShift := 0;
 &nbsp;cAlphaBits := 0; &nbsp; &nbsp;// Das gleiche mit der Transparenz
 &nbsp;cAlphaShift := 0;
 &nbsp;cAccumBits := 0; &nbsp; &nbsp; &nbsp; // Nochmal mit dem AccumBuffer
 &nbsp;cAccumRedBits := 0;
 &nbsp;cAccumGreenBits := 0;
 &nbsp;cAccumBlueBits := 0;
 &nbsp;cAccumAlphaBits := 0;
 &nbsp;cDepthBits := 16; &nbsp; &nbsp; &nbsp; // Z-Buffer Tiefe, 16bit ist GraKa Standard
 &nbsp;cStencilBits := 0; &nbsp; &nbsp; &nbsp;// Stencil Bits, bei 0 belassen
 &nbsp;cAuxBuffers := 0; &nbsp; &nbsp; &nbsp; // Anzahl der AuxBuffers, auch 0 lassen
 &nbsp;iLayerType := PFD_MAIN_PLANE; &nbsp;// Layertyp, so lassen, wie es ist
 &nbsp;bReserved := 0; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Einfach 0 lassen
 &nbsp;dwLayerMask := 0; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Verschiedene Masken, auch bei 0 lassen
 &nbsp;dwVisibleMask := 0;
 &nbsp;dwDamageMask := 0
 end;
 PixelFormat := ChoosePixelFormat(Canvas.Handle, @pfd); // Das Pixelformat übergeben
 if PixelFormat = 0 then // Bei Fehler Fehlermeldungen ausgeben
 &nbsp;Application.MessageBox('Kein passendes PixelFormat gefunden!', 'Fehler', MB_ICONERROR or MB_OK);
 if not Windows.SetPixelFormat(Canvas.Handle,PixelFormat,@pfd) then
 &nbsp;Application.MessageBox('Pixelformat kann nicht gesetzt werden!', 'Fehler', MB_ICONERROR or MB_OK);
end; 
 
procedure TDemoForm.StartGl;
begin
 RenderContext := wglCreateContext(Canvas.Handle); // Den RenderContext erstellen 
 if RenderContext = 0 then // Wenn er doch nicht erstellt wurde, Fehlermeldungen
 begin
 &nbsp;Application.MessageBox('RenderContext kann nicht erstellt werden!', 'Fehler', MB_ICONERROR or MB_OK);
 &nbsp;Halt(100);
 end;
 if not wglMakeCurrent(Canvas.Handle, RenderContext) then
 begin
 &nbsp;Application.MessageBox('RenderContext kann nicht aktiviert werden!', 'Fehler', MB_ICONERROR or MB_OK);
 &nbsp;Halt(100);
 end;
end;
 
procedure TDemoForm.SetupGL;
begin
 glEnable(GL_DEPTH_TEST); &nbsp;// Den Z-Buffer-Test aktivieren (3D)
 glDepthFunc(GL_LESS); &nbsp; &nbsp; // Typ des Z-Buffers festlegen &nbsp; &nbsp; 
 glEnable(GL_TEXTURE_2D); &nbsp;// Texturen aktivieren
 glShadeModel(GL_SMOOTH) &nbsp; // Die Modelle weich zeichnen
end; 
 
procedure TDemoForm.FormShow(Sender: TObject);
begin
 &nbsp;RenderContext := 0; // RenderContext erst mal auf Null setzten
 &nbsp;SetPixelFormat; // Das Format setzen
 &nbsp;StartGL; &nbsp; &nbsp; &nbsp; &nbsp;// OpenGL starten
 &nbsp;ClearExtensions; // OpenGL Extensions löschen ...
 &nbsp;ReadExtensions; &nbsp;// Und auslesen
 &nbsp;SetupGL; &nbsp; &nbsp; &nbsp; &nbsp; // Letzte Einstellungen
 &nbsp;IsOpenGLInit := true; // Initalisierung komplett
end; 
 
procedure TDemoForm.FormDestroy(Sender: TObject);
begin
 IsOpenGLInit := False; // OpenGL ist nicht mehr initialisiert
 if RenderContext <> 0 then // Wenn der RenderContext gesetzt werden konnte
 begin &nbsp;// Jetzt versuchen wir, ihn zu löschen
 &nbsp;if not wglMakeCurrent(Canvas.Handle, 0) then
 &nbsp; Application.MessageBox('Fehler beim Leeren der Contexts!','Fehler', MB_ICONERROR or MB_OK);
 &nbsp;if not wglDeleteContext(RenderContext) then
 &nbsp; Application.MessageBox('Fehler beim Leeren des RenderContexts!','Fehler', MB_ICONERROR or MB_OK);
 &nbsp;end;
 &nbsp;RenderContext := 0; // Und jetzt noch leeren
end; 
 
procedure TDemoForm.FormResize(Sender: TObject);
begin
 glViewport(0, 0, ClientWidth, ClientHeight); // Blickfeld für das Fenster einstellen
 glMatrixMode(GL_PROJECTION); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // In Projektionsmodus wechseln
 glLoadIdentity; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Nullpunkt laden &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 gluPerspective(45, ClientWidth/ClientHeight, NearClipping, FarClipping);
 &nbsp;// Berechnung der Relation zwischen Breite und Höhe
 glMatrixMode(GL_MODELVIEW); // Zurück zum ModelviewMatrixMode
 glLoadIdentity; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Und den Nullpunkt wieder laden
end;
 
procedure TDemoForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 &nbsp;Y: Integer);
begin
 // Wenn der Cursor im Fenster ist ...
 if (X > DemoForm.Left) and (Y > DemoForm.Top) and (X < DemoForm.Left + DemoForm.Width) and (Y < DemoForm.Top + DemoForm.Height) then
 &nbsp;ShowCursor(true) // Zeige ihn nicht
 else
 &nbsp;ShowCursor(True); // Ist er nicht im Fenster, zeige ihn
end;
 
procedure TDemoForm.FramesTimerTimer(Sender: TObject);
begin
 Frame := Frames; // Speichern der aktuellen Anzahl Renderdurchläufen
 Frames := 0; // Wieder auf 0 setzten
 DemoForm.Caption := WinCaption + '[' + IntToStr(Frame) + ' fps]'; // Und ausgeben
end;
 
end.
 
 

Nach oben

Mars

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 10:28

DGL Member

Registriert: Fr Dez 13, 2002 12:18
Beiträge: 1063

Erst mal willkommen auf DGL !

Wenn du einen Link auf das ganze gezippte Projekt postest (bitte auch mit folgenden Units dabei: OpenGL12, Glaux, Glu, Textures), sodass man nicht mordsmäßig umständlich den Code rumkopieren muss, bevor man das Ganze starten kann, schaue ich es mir gerne an.
Außerdem bin ich sicher, dass auch andere potentielle Helfer viel motivierter wären, wenn nicht einfach die ganze Codewurst hier gepostet wird (glaubst du wirklich, dass das jemand liest ??).

Eine etwas exaktere Fehlerbeschreibung (Programm lässt sich nicht compilieren/ macht nicht das was ich will (was macht es statt dessen ?)/ formatiert regelmäßig meine Festplatte) wäre auch wünschenswert.

_________________
Viel Spaß beim Programmieren,
Mars
http://www.basegraph.com/

Nach oben

Mars

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 10:38

DGL Member

Registriert: Fr Dez 13, 2002 12:18
Beiträge: 1063

So beim Drüberscrollen sind folgende Codezeilen sowieso Blödsinn:
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>if (X > DemoForm.Left) and (Y > DemoForm.Top) and (X < DemoForm.Left + DemoForm.Width) and (Y < DemoForm.Top + DemoForm.Height) then
ShowCursor(true) // Zeige ihn nicht
else
ShowCursor(True); // Ist er nicht im Fenster, zeige ihn
</pre></td></tr></table>

wenn schon

<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>if (X >= DemoForm.Left) and (Y >= DemoForm.Top) and (X < DemoForm.Left + DemoForm.Width) and (Y < DemoForm.Top + DemoForm.Height) then
ShowCursor(False) // Zeige ihn nicht <-- Cursor ausschalten
else
ShowCursor(True); // Ist er nicht im Fenster, zeige ihn
</pre></td></tr></table>

Ist zwar nicht tragisch, unter Windows gehört aber das linke obere Pixel ZU einem rechteckigen Zeichenbereich, das rechte untere hingegen NICHT!

_________________
Viel Spaß beim Programmieren,
Mars
http://www.basegraph.com/

Nach oben

cytexX

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 14:36

DGL Member

Registriert: So Mai 11, 2003 09:07
Beiträge: 3

das mit dem cursor true hab ich nur zum testen gemacht... ich lad das projekt gleich hoch und geb dir dann den link...

Nach oben

cytexX

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 14:57

DGL Member

Registriert: So Mai 11, 2003 09:07
Beiträge: 3

<a href='http://schumacher_michael.bei.t-online.de/cytexX/pyra.zip' target='_blank'>hier</a> is der link für die zip... wär nett wenn mir jemand sagen könnte wo mein fehler liegt, das die animation nicht funktioniert...

Nach oben

Mars

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 17:25

DGL Member

Registriert: Fr Dez 13, 2002 12:18
Beiträge: 1063

Das Hauptproblem ist, dass du für deine Animation eine lokale Variable raufzählen willst, deren Inhalt natürlich bei jedem Prozeduraufruf wieder undefiniert ist.

Ersetze
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>// Zeichenprozedur
procedure TDemoForm.ApplicationEventsIdle(Sender: TObject;
var Done: Boolean);
var x:integer;
outrot:integer;
texture1: PTAUX_RGBImageRec;
tex: TGLuint;
</pre></td></tr></table>

durch

<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>// Zeichenprozedur
var x:integer = 0;
procedure TDemoForm.ApplicationEventsIdle(Sender: TObject;
var Done: Boolean);
var
outrot:integer;
texture1: PTAUX_RGBImageRec;
tex: TGLuint;
</pre></td></tr></table>

Das Demo schaut übrigens nett aus, dennoch schwächelt der Code noch an mehreren Ecken und Enden:

1) Die Textures.pas benötigt GL.pas und GLU.pas, ersetze dies in der Textures durch OpenGL12, um zu vermeiden, dass dein Code durch das mehrfache Einbinden der selben Routinen aus den OpenGL DLLs unnötig aufgebläht wird

2) Deine Formatierung ist - lassen wir das, ich gehe mal davon aus, dass die etwas willkürlichen begin/end Marken durch die bisherige Fehlersuche entstanden sind.

3) du berechnest die FpS über eine Timer - das ist ok. Schön wäre es, wenn du diesen Wert in die Animation einfließen lassen würdest (sodass das Ganze auf jedem Rechner gleich schnell ist).

4) Glaux sollte nur in Notfällen verwendet werden (wenn grad nichts anderes zur Hand ist) - ziemlich buggy und unflexibel, außerdem initialisierst du OpenGL soweit ich gesehen habe ohnehin über die OpenGL12.

Das Wichtigste ist meiner Ansicht aber Punkt 1: schreibe die Textures.pas so um, dass sie mit der OpenGL12 zufrieden ist (OpenGL12 beinhält bereits die nötigen GLU Aufrufe)

_________________
Viel Spaß beim Programmieren,
Mars
http://www.basegraph.com/

Nach oben

Raphael O.

Betreff des Beitrags:

Verfasst: So Mai 11, 2003 19:39

DGL Member

Registriert: Sa Jan 04, 2003 21:23
Beiträge: 674
Wohnort: Köln

noch ein Tipp, zu deinem Code daoben...
du musst nicht für jedes Dreieck ein neues

Code:

glbegin(GL_TRIANGLES);

benutzen....
du kannst die Punkte auch alle nacheinander angeben und OpenGL nimmt dann immer drei zusammen zu einem Dreieck...
das ganze ist dann jedenfalls um einiges schneller, was natürlich bei deinem Projekt zur Zeit noch nicht wichtig ist... aber für später mal

Code:

glbegin(GL_TRIANGLES);
 &nbsp; &nbsp;glTexCoord2f(0,0);glVertex3f(1,-1,1);
 &nbsp; &nbsp;glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp;glTexCoord2f(1,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp;
 &nbsp; &nbsp;glTexCoord2f(0,0);glVertex3f(1,-1,-1);
 &nbsp; &nbsp;glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp;glTexCoord2f(1,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp;
 &nbsp; &nbsp;glTexCoord2f(0,0);glVertex3f(-1,-1,-1);
 &nbsp; &nbsp;glTexCoord2f(0.5,1);glVertex3f(0,1,0);
 &nbsp; &nbsp;glTexCoord2f(1,0);glVertex3f(-1,-1,1);
glEnd;

Fiji-Fighter

_________________
. . .

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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