DGL • Thema anzeigen - texturen mit glaux.dll laden (wie im tutoroial)

texturen mit glaux.dll laden (wie im tutoroial)

Moderator: DGL-Team

Seite 2 von 2

[ 20 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Frase

Betreff des Beitrags:

Verfasst: Do Okt 23, 2003 15:15

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Ahhh... Schön! Prima! Dachte schon mein Rechner dreht durch...

Ich hab bisher eigentlich nur im Files-Bereich hier herumgekrahmt und weniger im Forum.
Und da steht nix von alten und neuen 1.5 Viechern.

Gruß,
Frase

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Okt 23, 2003 15:20

DGL Member

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

Der OpenGL1.5-Header aus der Filessektion war bis vor kurzem leider noch auf nem alten Stand,wird aber jetzt immer mit der neusten (im genannten Thread auffindbaren) Version abgeglichen.Falls du also irgendwelche Probs mit dem Header haben solltest,dann meld dich bitte im passenden Thread und wir sehen was sich da machen lässt.Rein theoretisch sollte der Header aber ohne Probleme funzen.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: Do Okt 23, 2003 16:49

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Ich hätte dann auch mal ein Problemchen mit Texturen. Hier ein Auszug des Codes:

Code:

function BMPToGL(FileName: String): gluInt;
var
   Bild: TBitmap;
   Size: Integer; //In Byte
   PTexture, PStart: Pointer;
   x, y: Integer;
   r, g, b: Byte;
   Texture: GLuInt;
begin
Bild := TBitmap.Create;
Bild.LoadFromFile(FileName);
//Speicher berechnen...
Size := Bild.Width*Bild.Height*3;
//und reservieren:
GetMem(PTexture, Size);
PStart := PTexture;
//Bildinfos in den Speicher schreiben:
For y := 1 to Bild.Height do
   For x := 1 to Bild.Width do
   begin
      r := Bild.Canvas.Pixels[x,y] and 3;
      g := (Bild.Canvas.Pixels[x,y] shr 2) and 3;
      b := (Bild.Canvas.Pixels[x,y] shr 4) and 3;
      Byte(PTexture^) := r;
      Cardinal(PTexture) := Cardinal(PTexture) + 1;
      Byte(PTexture^) := g;
      Cardinal(PTexture) := Cardinal(PTexture) + 1;
      Byte(PTexture^) := b;
      Cardinal(PTexture) := Cardinal(PTexture) + 1;
   end;
PTexture := PStart;
//Bildinfos OpenGL übergeben;
glGenTextures(1, @Texture);
glBindTexture(GL_TEXTURE_2D, Texture);
glTexImage2D(GL_TEXTURE_2D, 0, 3, Bild.Width, Bild.Height, 0, GL_RGB, GL_UNSIGNED_BYTE, PTexture);
 
FreeMem(PTexture);
Bild.Free;
Result := Texture;
end;

Also die Bildinfos im Speicher auf den der pointer zeigt stimmt auf jedenfall. Hab ich teilweise mit Showmessages nachgeprüft :roll:

Code:

 
//Das hier wird einmal am Anfang des programms aufgerufen:
Texture := BMPToGL('D:\GUERILLA_DMBASE.BMP');
 
//und das hier die ganze Zeit zum rendern halt:
    glEnable(GL_TEXTURE_2D); //Texturen aktivieren
    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity;
    glTranslatef(0, 0, -6);
    glBindTexture(GL_TEXTURE_2D, Texture);
 
    glBegin(GL_TRIANGLES);
//     glColor3f(1,0,0);    Farbe braucht man ja nicht
     glTexCoord2f(0, 1);
     glVertex3f(-1.0, -1.0, 0.0);
     glTexCoord2f(0.5, 0);
     glVertex3f(0.0, 1.0, 0.0);
     glTexCoord2f(1, 1);
     glVertex3f(1.0, -1.0, 0.0);
    glEnd;
 
    SwapBuffers(DeviceContext);
 

Ich weiß jetzt nicht ob die Texturkoordinaten da oben richtig sind, aber jedenfalls hab ich schon unterschiedliche Sachen rumprobiert und die haben alle nicht geklappt.
Statt dessen wird die ganze Zeit ein weißes Dreieck angezeigt.

Und wenn ich die Zeilen:

Code:

glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);

noch dazwischen Klatsche, wird ein komplett schwarzes Dreieck angezeigt.

Ich hoffe ihr könnt mir wieder mal helfen

Nach oben

Mars

Betreff des Beitrags:

Verfasst: Do Okt 23, 2003 17:55

DGL Member

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

Dein Code eine RGB-Textur zu laden ist etwas suboptimal - anhand deines Programms scheint es sich um ein 64 Farben Bild (2^6) mit jeweils 2 Bit für die RGB-Kanäle zu handeln - irgendwie bezweifle ich, dass dies tatsächlich der Fall ist.

Warum du nix siehst ? In deinen 8 Bit RGB-Werten sind nur jeweils die 2 niedrigstwertigen Bit gesetzt (also nur Werte von 0 bis 3), den Rest hast du erfolgreich ausmaskiert, alle deine Farben sind also fast schwarz.

Hol dir deine RGB Werte lieber so:

Code:

      r := Bild.Canvas.Pixels[x,y] and $ff; 
      g := (Bild.Canvas.Pixels[x,y] shr 8) and $ff; 
      b := (Bild.Canvas.Pixels[x,y] shr 16) and $ff;

dann klappts wahrscheinlich besser (auch wenn es immer noch relativ langsam sein dürfte - lieber ScanLines verwenden), außerdem solltest du sicher stellen, dass Bild.Width und Bild.Height Zweierpotenzen sind, damit es überall funktioniert.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: Fr Okt 24, 2003 14:32

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Juhu. Nach einigem rumprobieren klappt es jetzt. Das mit den falschen and Werten ist mir gerade eben auch aufgefallen. Blöder Fehler. :oops:

Nach oben

Seite 2 von 2

[ 20 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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