DGL • Thema anzeigen - Eine Textur in eine andere Kopieren

Eine Textur in eine andere Kopieren

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Dropye

Betreff des Beitrags: Eine Textur in eine andere Kopieren

Verfasst: Mi Sep 12, 2012 20:48

DGL Member

Registriert: Do Jan 07, 2010 21:58
Beiträge: 240

Hallo,

ich hab mich nun lange genug geweigert euch um Rat zu fragen.

mein Problem ist dass ich eine Textur habe die völlig schwarz ist und diese nun mit einer anderen "Überschrieben" werden soll.

Die schwarze Textur ist derzeit 2048x2048 Pixel groß und die andere Textur soll beliebig groß sein können. Idee war die Pixel der 2. Textur reihe für reihe in die 2. Textur zu schreiben aber wie ich es auch drehe und wende ich komm nicht auf eine brauchbare lösung.

Die Prozedure sieht derzeit so aus

Code:

procedure TForm1.CTexturenChange(Sender: TObject);
var
  ImageDataS, ImageDataT, Rs, Gs, Bs, Rt, Gt, Bt : PGluByte;
  Height, Width, Heights, Widths, X, RowS, A, B : Integer;
begin
  TexMgr.BindTexture(CTexturen.Text);
  glGetTexLevelParameteriv(GL_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, @widths);
  glGetTexLevelParameteriv(GL_TEXTURE_2D, 0, GL_TEXTURE_HEIGHT, @heights);
  ImageDataS := AllocMem(Heights*Widths*3);
  glGetTexImage(GL_TEXTURE_2D, 0, GL_RGB, GL_UNSIGNED_BYTE, ImageDataS);
 
  TexMgr.BindTexture('MapLayer');
  glGetTexLevelParameteriv(GL_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, @width);
  glGetTexLevelParameteriv(GL_TEXTURE_2D, 0, GL_TEXTURE_HEIGHT, @height);
  ImageDataT := AllocMem(Height*Width*3+3);
  glGetTexImage(GL_TEXTURE_2D, 0, GL_RGB, GL_UNSIGNED_BYTE, ImageDataT);
 
   RowS := 0; A := 0; B := 0;
    for X := 0 to (Width*Height)-1 do begin
      Rs := Pointer(integer(ImageDataS) + ((WidthS * RowS) + A)*3);
      Gs := Pointer(integer(ImageDataS) + ((WidthS * RowS) + A)*3+1);
      Bs := Pointer(integer(ImageDataS) + ((WidthS * RowS) + A)*3+2);
 
      Rt := Pointer(integer(ImageDataT) + (X)*3);
      Gt := Pointer(integer(ImageDataT) + (X)*3+1);
      Bt := Pointer(integer(ImageDataT) + (X)*3+2);
 
      Writeln('Punkt : ' + floattostr(((WidthS * RowS) + A)*3));
      Writeln('Punkt : ' + floattostr(((WidthS * RowS) + A)*3+1));
      Writeln('Punkt : ' + floattostr(((WidthS * RowS) + A)*3+2));
      
      if not (Rt=nil) or (Gt=nil) or (Bt=nil) or
               (Rs=nil) or (Gs=nil) or (Bs=nil) then begin
        Rt^ := Rs^;
        Gt^ := Gs^;
        Bt^ := Bs^;
      end;
 
   inc(A);
   inc(B);
   if B > Width then begin
    inc(RowS);
    A := 0;
   end;
   if A > WidthS then begin
    A := 0;
   end;
   if RowS > HeightS then RowS := 0;
  end; 
 
  glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB8, Width, Height, 0, GL_RGB, GL_UNSIGNED_BYTE, ImageDataT);
  glBindTexture(GL_TEXTURE_2D, 0);
 
  FreeMem(ImageDataT);
  FreeMem(ImageDataS);
end;

Ihr seht ich benötige eine Vielzahl von Hilfsvariablen. Aber ich bekomme keine Zugriffsverletzungen mehr das ganze Bild verwandelt sich von schwarz in einen Grünen Matsch statt der feinen graßtextur die ich eigentlich wollte.

vieleicht sieht einer von euch nen groben fehler?

Nach oben

breakdancingYoda

Betreff des Beitrags: Re: Eine Textur in eine andere Kopieren

Verfasst: Mi Sep 12, 2012 22:15

DGL Member

Registriert: Sa Mär 31, 2012 23:14
Beiträge: 26
Programmiersprache: PASCAL

Diese Codestelle könnte falsch sein

Code:

 
  if B > Width then begin
   inc(RowS);
   A := 0;                      // besser B := 0 glaub ich
  end;
 

Hab das jetzt nicht getestet, aber da RowS bei "overflow" auf 0 zurückgeht könnte das dafür sorgen dass die Texel der Original-Textur nicht sinvoll ausgelesen werden; und das ohne AccessViolation.

Anmerkung: Ich find diese Methode eine Textur zu kopieren etwas umständlich...
Ginge das was du vorhast nicht auch/besser mit glCopyTexSubImage2D oder RenderToTexture?

_________________
The force, strong it is in OpenGL.

Nach oben

Dropye

Betreff des Beitrags: Re: Eine Textur in eine andere Kopieren

Verfasst: Sa Sep 15, 2012 19:56

DGL Member

Registriert: Do Jan 07, 2010 21:58
Beiträge: 240

aha ich habe also das Rad neu erfunden

das Ergebnis von beiden wegen sieht identisch aus, ich werde das nochmal bisschen testen müssen und dann meld ich mich wieder danke erstmal

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

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