TGA Bilder laden

TGA Dateien - Warum?

In diesem Artikel geht es um das manuelle Laden von Truevision Bilddateien mit der allseits bekannten Endung ".tga".

Dieses Dateiformat ist für den Anfang aus verschiedenen Gründen auf voller Linie empfehlenswert. Es ist sehr einfach aufgebaut und die Pixeldaten liegen auch schon in einer von neueren OpenGL-Implementierungen direkt benutzbaren Ordnung vor.

Komprimierte TGA-Dateien lassen wir außen vor, da sie leider einige Nachteile mit sich bringen: Es ist schwieriger die Datei einzulesen, das Dekodieren benötigt wertvolle Rechenzeit und die RLE-Kompression, die in den TGA-Dateien zum Einsatz kommt, ist vergleichsweise schlecht.

Landkarte und Kompass - oder besser GPS?

Zuerst stellen wir uns die Frage, wie eine TGA-Datei intern aufgebaut ist. Da es sich um eine Binärdatei handelt, lässt sich die Bedeutung der Daten nicht erraten - wir sind also auf fremde Dokumentation angewiesen. Eine ganze Sammlung solcher "Datei-Spickzettel" findet man auf der Internetseite http://www.wotsit.org/.

Nachdem wir uns das entsprechende Dokument von dort besorgt und kritisch überflogen haben, fällt wohl erstmal ins Auge, dass es verschiedene Typen von TGA-Dateien zu geben scheint.

Wir beschäftigen uns hier nur mit Typ 2 (24/32-Bit TGA ohne Kompression), da es das gebräuchlichste Format ist.

Definition eines Datentyps

Welche Daten aus der TGA-Datei sind nun wirklich für unsere Zwecke interessant?

 Image Type Code     - zum überprüfen, ob die Datei das richtige Format hat.
  Width of Image
 Height of Image
Image Pixel Size     - anhand dieser können wir u.a. ermitteln, ob ein Alphakanal
                       vorhanden ist.
Identification Field - die eigentlichen Pixeldaten.

Damit haben wir alles benötigte zusammen und können diese Informationen schon mal in einen Verbundtyp packen (Die Datentypen entnehmen wir der "Length"-Spalte in unserem Dokument von wotsit):

type
  TTGAFile = record
    iType: byte;  // should be 2
     w, h: word;  // Width, Height
      bpp: byte;  // Byte per Pixel
     data: ^byte; // Pixels, dynamic length
  end;

Die Datei laden

Die Schritte, die nun erforderlich sind, um diese Struktur mit Leben zu Füllen sind denkbar einfach. Zuerst wird die Datei binär geöffnet; der Dateizeiger mit Seek positioniert (siehe "Offset"-Spalte in unserem Dokument) und mit Blockread gelesen. Die Felder w, h und bpp liegen in der Datei nebeneinander; deshalb können sie mit nur einer einzigen (anstatt 3) Seek/Blockread-Kombination eingelesen werden. Da wir mit "Bit pro Pixel" wenig anfangen können teilen wir bpp anschließend durch 8 und erhalten "Bytes pro Pixel".

Hinweis: Für den, der es an dieser Stelle lieber objektorientiert mag, bieten sich natürlich auch Streams an. Allerdings ist dies für diesen konkreten Fall nicht von Belang.

function LoadTGA(const filename: string): TTGAFile;
var f: file; bytes: longword;
begin
  assign(f, filename);
  reset(f, 1);

  // type
  seek(f, 2);
  blockread(f, result.iType, 1);

  // w, h, bpp
  seek(f, 12);
  blockread(f, result.w, 5);
  result.bpp := result.bpp div 8;

  // data
  bytes := result.w * result.h * result.bpp;
  getmem(result.data, bytes);
  seek(f, 18);
  blockread(f, result.data^, bytes);

  close(f);
end;

Diese Funktion lädt alle benötigten Daten aus der Datei; reserviert auf Basis dieser Informationen genug Speicher für die Pixeldaten und liest sie dann ein. Der Pointer kann anschließend direkt in OpenGL verwendet werden, wenn die Implementierung die Formate GL_BGR und GL_BGRA unterstützt (je nach dem, ob "bpp" den Wert 3 oder 4 erhalten hat).

Datei rein - Textur raus

Die eigentliche Erzeugung des Texturobjektes gleicht dem "SDL-Weg". Nur wird hier unser eigenes Record anstatt einer SDL-Surface verwendet. Nicht vergessen den dynamisch reservierten Speicher für die Pixeldaten nach der Verwendung mit

FreeMem(TGARecord.data);

wieder freizugeben!

procedure TGATexture(const filename: string; var TexID: longword);
var
  tex: TTGAFile;
  glFormat: longword;
begin
  tex := LoadTGA(filename);
  if tex.iType = 2 then
  begin
    glGenTextures(1, @TexID);
    glBindTexture(GL_TEXTURE_2D, TexID);

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

    if tex.bpp = 3 then glFormat := GL_BGR
      else glFormat := GL_BGRA;

    glTexImage2D(GL_TEXTURE_2D, 0, tex.bpp, tex.w, tex.h,
      0, glFormat, GL_UNSIGNED_BYTE, tex.data);

    FreeMem(tex.data);
  end;
end;

Ich hoffe dieser Artikel war hilfreich (Ich will Feedback!) und wünsche euch viel Spaß und Erfolg bei euren zukünftigen Projekten.

Gruß Waran.