DGL • Thema anzeigen - Textur wird nicht angezeigt

Textur wird nicht angezeigt

Moderator: DGL-Team

Seite 1 von 1

[ 10 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

NetJaguar

Betreff des Beitrags: Textur wird nicht angezeigt

Verfasst: Di Jan 07, 2003 13:37

DGL Member

Registriert: Do Okt 10, 2002 10:54
Beiträge: 42

Ich stehe gerade voll auf dem Schlauch: Warum wird die Textur nicht angezeigt? (ist zwar FreePascal, aber die Befehle dürften sich hier decken, habe nicht mit Dynamiscen Variablen herumgefuhrwerkt, ...)

ups, beinahe hätte ich vergessen den Quelltext hinzuzufügen: Biteeschän:

Code:

 
{ASMMODE intel}
 
{$MODE OBJFPC}
 
program
 
 &nbsp; GlutLektion3FreePascal;
 
uses
 
 &nbsp; glut, &nbsp; &nbsp; //für Openglfenster
 
 &nbsp; gl, &nbsp; &nbsp; &nbsp; //OpenGL Unit (gl.... Befehle)
 
 &nbsp; glu, &nbsp; &nbsp; &nbsp;//GL Utilities (glu... Befehle);
 
 &nbsp; glaux; //Dateihandlingbefehle
 
var
 
 &nbsp; tex : GLuint;
 
 &nbsp; 
 
procedure DrawGL; cdecl;
 
begin
 
 &nbsp; glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
 &nbsp; glLoadIdentity;
 
 &nbsp; glTranslatef(0,0,-5);
 
 &nbsp; glBindTexture(GL_TEXTURE_2D, tex);
 
 &nbsp; glBegin(GL_QUADS);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(0,0); glVertex3f(-1,-1,0);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(0,1); glVertex3f(-1,1,0);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(1,1); glVertex3f(1,1,0);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(1,0); glVertex3f(1,-1,0);
 
 &nbsp; glEnd;
 
 &nbsp; GlutSwapBuffers;
 
end;
 
procedure Tasten(key : byte; x,y : integer);
 
begin
 
 &nbsp; x:=x+y;
 
 &nbsp; case char(key) of
 
 &nbsp; &nbsp; &nbsp;'f','F': glutFullscreen;
 
 &nbsp; &nbsp; &nbsp;'Q','q': halt;
 
 &nbsp; end;
 
 &nbsp; writeln(key);
 
end;
 
{------------------------------------------------------------------}
 
{ &nbsp;Initialisierung von OpenGL &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}
 
{------------------------------------------------------------------}
 
procedure InitGL; cdecl;
 
begin
 
 &nbsp;glEnable(GL_TEXTURE_2D); &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert Texture Mapping
 
 &nbsp;glShadeModel(GL_SMOOTH); &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert weiches Shading
 
 &nbsp;glClearColor(0.0, 0.0, 0.0, 0.5); &nbsp; &nbsp;// Bildschirm löschen (schwarz)
 
 &nbsp;glClearDepth(1.0); &nbsp; &nbsp; &nbsp; &nbsp; // Depth Buffer Setup
 
 &nbsp;glEnable(GL_DEPTH_TEST); &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert Depth Testing
 
 &nbsp;glDepthFunc(GL_LEQUAL); &nbsp; &nbsp; &nbsp; &nbsp;// Bestimmt den Typ des Depth Testing
 
 &nbsp;glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Qualitativ bessere Koordinaten Interpolation
 
end;
 
{------------------------------------------------------------------}
 
{ &nbsp;Behandelt Größenveränderung des Fensters &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}
 
{------------------------------------------------------------------}
 
procedure ResizeWndgl(Width, Height : Integer); cdecl;
 
begin
 
 &nbsp;if (Height = 0) then Height := 1;
 
 &nbsp;glViewport(0, 0, Width, Height); &nbsp; &nbsp;// Setzt den Viewport für das OpenGL Fenster
 
 &nbsp;glMatrixMode(GL_PROJECTION); &nbsp; &nbsp; &nbsp; &nbsp;// Matrix Mode auf Projection setzen
 
 &nbsp;glLoadIdentity(); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Reset View
 
 &nbsp;gluPerspective(45.0, GLfloat(Width)/Height, 1.0, 100.0); &nbsp;// Perspektive den neuen Maßen anpassen.
 
 &nbsp;glMatrixMode(GL_MODELVIEW); &nbsp; &nbsp; &nbsp; &nbsp; // Zurück zur Modelview Matrix
 
 &nbsp;glLoadIdentity(); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Reset View
 
end;
 
var
 
 &nbsp; texture1 : PTAUX_RGBImageRec;
 
begin &nbsp; 
 
 &nbsp; texture1 := auxDIBImageLoadA('wall.bmp');
 
 &nbsp; if not Assigned(texture1) then
 
 &nbsp; &nbsp; &nbsp;begin;
 
 &nbsp; &nbsp; &nbsp;writeln('Texturenpfad oder Dateiname falsch! Fehler beim Laden der Textur!');
 
 &nbsp; &nbsp; &nbsp;Halt;
 
 &nbsp; &nbsp; &nbsp;end;
 
 &nbsp; 
 
 &nbsp; glGenTextures(1,@tex);
 
 &nbsp; glBindTexture(GL_TEXTURE_2D,tex);
 
 &nbsp; glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
 
 &nbsp; glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR); 
 
 &nbsp; glTexImage2D(GL_TEXTURE_2D,0,3,texture1^.sizeX,texture1^.sizey,0,GL_RGBA,GL_UNSIGNED_BYTE,texture1^.data);
 
 &nbsp; 
 
 &nbsp; writeln('Vollbild mit F, beenden mit Q');
 
 &nbsp; GlutInit(@argc,@argv);
 
 &nbsp; glutInitWindowSize(400,400);
 
 &nbsp; glutInitWindowPosition(100,100);
 
 &nbsp; glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);
 
 &nbsp; glutCreateWindow('OpenGL via Glut mit FreePascal.');
 
 &nbsp; glutReshapeFunc(@ResizeWndgl);
 
 &nbsp; glutDisplayFunc(@DrawGL);
 
 &nbsp; glutIdleFunc(@DrawGL); //Wird aufgerufen, wenn gerade kein Ereignis anfällt. 
 
 &nbsp; glutKeyboardFunc(@Tasten);
 
 &nbsp; InitGl;
 
 &nbsp; GlutMainLoop;
 
end.

_________________
FreePascal unter Linux

Nach oben

Magellan

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:34

DGL Member

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

Also unter Delphi meckert hier der compiler:

Code:

glGenTextures(1,@tex);

versuch mal:

Code:

glGenTextures(1,tex);

_________________
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

Delphic

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:57

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

Zitat:

Also unter Delphi meckert hier der compiler:

Code:

glGenTextures(1,@tex);

versuch mal:

Code:

glGenTextures(1,tex);

Das ist nicht das Problem, denn Pascals "var" Variablen sind im Normalfall pointer, es kommt hier also nur auf die Unit, an, inder das deklariert ist.

oh, sory flow, ich glaub ich hab gegen das gebot des arbeitsfreien tages verstossen ;-)

Nach oben

NetJaguar

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 19:25

DGL Member

Registriert: Do Okt 10, 2002 10:54
Beiträge: 42

FreePascal meckert, wenn ich das ganze nicht als Pointer übergebe.

_________________
FreePascal unter Linux

Nach oben

NetJaguar

Betreff des Beitrags:

Verfasst: Mi Jan 08, 2003 19:01

DGL Member

Registriert: Do Okt 10, 2002 10:54
Beiträge: 42

Leute helft mir *fleh*

_________________
FreePascal unter Linux

Nach oben

Phobeus

Betreff des Beitrags:

Verfasst: Mi Jan 08, 2003 19:19

Fels i.d. Brandung

Registriert: Sa Mai 04, 2002 19:48
Beiträge: 3830
Wohnort: Tespe (nahe Hamburg)

Es kann auch interessant sein, was in den Header drinne steht und somit erwartet wird. In diesem Fall erwartet der Headere einen Pointer, ergo so wie Du es hattest müßte es richtig sein, da kommts Problem nciht her :-/

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: Mi Jan 08, 2003 19:56

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

findet sich ein glEnable(GL_TEXTURE_2D) im Code? ich hab keins entdeckt

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mi Jan 08, 2003 20:06

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Zitat:

findet sich ein glEnable(GL_TEXTURE_2D) im Code? ich hab keins entdeckt

Doch...und zwar hier :

Code:

 
{------------------------------------------------------------------} 
 
{ &nbsp;Initialisierung von OpenGL &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;} 
 
{------------------------------------------------------------------} 
 
procedure InitGL; cdecl; 
 
begin 
 
 &nbsp;glEnable(GL_TEXTURE_2D); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// <------------ HIER
 
 &nbsp;glShadeModel(GL_SMOOTH); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert weiches Shading 
 
 &nbsp;glClearColor(0.0, 0.0, 0.0, 0.5); &nbsp; &nbsp;// Bildschirm löschen (schwarz) 
 
 &nbsp;glClearDepth(1.0); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Depth Buffer Setup 
 
 &nbsp;glEnable(GL_DEPTH_TEST); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert Depth Testing 
 
 &nbsp;glDepthFunc(GL_LEQUAL); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// Bestimmt den Typ des Depth Testing 
 
 &nbsp;glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST); 
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Qualitativ bessere Koordinaten Interpolation 
 
end;

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: Mi Jan 08, 2003 20:36

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

aber ich hab den fehler jetzt glaub doch gefunden, als ich das ding in delphi nachbauen wollte:
er läd die textur, noch bevor ein RC besteht und übergibt sie an OpenGl - schlechte Idee, denn dann kann er sie später nicht verwenden -> Textur einfach nach InitGl und vor GlutMainLoop laden.

Nach oben

NetJaguar

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 07:50

DGL Member

Registriert: Do Okt 10, 2002 10:54
Beiträge: 42

Jetzt gehts, danke

_________________
FreePascal unter Linux

Nach oben

Seite 1 von 1

[ 10 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.