DGL • Thema anzeigen - OpenGL - Rendern eines transparenten Bildes

OpenGL - Rendern eines transparenten Bildes

Moderator: DGL-Team

Seite 1 von 3

[ 32 Beiträge ]

Gehe zu Seite 1, 2, 3 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

torud

Betreff des Beitrags: OpenGL - Rendern eines transparenten Bildes

Verfasst: Fr Jul 15, 2016 16:47

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hallo Wissende,

ich habe mal ein Beispiel erstellt, dass sehr Basic ist, aber vielleicht mein Problem etwas veranschaulicht.
Ich möchte ein Bild mit Transparenten Bereichen rendern. Sprich, wenn ich keine Objekte der Szenerie hinzugefügt habe, sollte eigentlich ein komplett schwarzes Bild mit 100% schwarzem Alpha-Kanal gerendert werden. Wäre in der Mitte ein Bild, sollte nur das Bild zu sehen und im Alpha-Kanal an der Stelle des Bildes ein weißer Kasten.

Ich habe mir das Beispiel mal von DelphiGL genommen und die Routine Screenshot benutzt.

Wenn man im Programm den Button Render betätigt, wird erwartungsgemäß das Bild so gerendert, wie im Tutorial.
Will ich es speichern, erhalte ich zwar eine TGA-Datei, ABER
-> der Inhalt ist komplett schwarz
-> es ist kein Alpha-Kanal vorhanden

Einzig die Abmaße stimmen.

Ich habe dann bei GetReadPixels das Format von GL_BGR nach GL_BGRA umgestellt und vorher noch die Datengröße

von
DataSize := Width * Height * 3;

geändert
DataSize := Width * Height * 4;

um Platz für Alphakanal zu schaffen.

Ich finde leider den Fehler nicht...
Ich hänge mal das Projekt an.

Würde mich sehr freuen, wenn ich Hilfe von Euch bekommen könnte.

Vielen Dank
Tom

Nach oben

yunharla

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Fr Jul 15, 2016 22:30

DGL Member

Registriert: Mo Nov 08, 2010 18:41
Beiträge: 769
Programmiersprache: Gestern

Ja klingt sehr danach als würdest du dein TGA falsch aufsetzen. Also falscher Header oder Daten falsch abgelegt...

Hat Delphi hier keine vorgefertigten Sachen für PNG oder so, denen du das einfach deinen Buffer reinschieben kannst? Dann sollte
es gehen... oder zumindest schon einmal häßlich aussehen

_________________
Meine Homepage

Nach oben

Jens01

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Sa Jul 16, 2016 13:34

DGL Member

Registriert: Mo Nov 09, 2009 12:01
Beiträge: 200

http://www.delphipraxis.net/189402-open ... ost1342763

Nach oben

torud

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Di Nov 29, 2016 11:08

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hm, ich weiß - es ist schon ein paar Tage her, dass ich hier bezüglich des Thema gepostet habe.
Das Problem scheint aber weiterhin teilweise aktuell zu sein.

Das Rendern und Erzeugen des TGA´s mit korrektem Alpha funktioniert nur auf meinem Laptop richtig. Auf meinem Büro-Rechner sieht das gerenderte Bild richtig aus, aber die Alpha-Kanala ist immer komplett weiß.

Komplett gleiche Sourcen. Also ich benutze die gleiche exe auf Laptop und PC und erhalte verschiedene Ergebnisse.
Beide Systeme benutzen eine NVidia-Karte. Sicher nicht mit gleichen Treibern und Versionen, aber wer kann mir sagen, woran dieses Problem liegen könnte?

Ich mach notfalls auch einen neuen Thread auf und stell die Sourcen zur Verfügung.

Danke Tom

Nach oben

Vinz

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Mi Nov 30, 2016 18:15

DGL Member

Registriert: Fr Mai 11, 2012 13:25
Beiträge: 229
Programmiersprache: c++, c, JavaScript

Vielleicht kann deine eine Karte bzw. der Treiber nix mit dem Texturformat anfangen und nimmt ein anderes her (eins ohne alpha).
Texturformat könnte sowohl beim schreiben (drwacall o.Ä.) als auch beim Lesen (glReadpixels) Probleme machen.
Ist es denn das gleiche Betriebssystem?

_________________
"Pixel, ich bin dein Vater."
-Darf Shader

Nach oben

yunharla

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Fr Dez 02, 2016 08:45

DGL Member

Registriert: Mo Nov 08, 2010 18:41
Beiträge: 769
Programmiersprache: Gestern

Hi am besten du zeigst hier einmal deinen Code für den Context und ReadPixel, dann sollte klar sein wo der Hase begraben liegt.

_________________
Meine Homepage

Nach oben

torud

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Sa Nov 04, 2017 13:36

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hallo,

ich habe es jetzt nochmals (ich weiß, es ist schon eine Weile her) nochmals auf verschiedenen Systemen ausprobiert.

Alle Rechner haben eine NVidia-Karte. Mein Laptop hat eine Intel on Board und eine dezidierte NVidia. Alle Rechner haben Win7 Pro. Auf allen Rechnern habe ich eine CG-Live-Rendering-Software getestet, die 3D-Live in Echtzeit mit Alpha rendert. Das geht überall. Das Problem muss also in meinen Sourcen liegen.

Ich hänge das Projekt mal an. Vielleicht fällt jemandem etwas auf.
Ich versuche auch noch die korrekte TGA mit richtigem Alpha und die "falsche" anzuhängen. Die falsche liegt aber in dem gepackten Projektordner.

Erstellt habe ich das Projekt mit Delphi7.
https://www.dropbox.com/s/lifgeou1byy3ezw/OrthoPixelTestForum.rar?dl=0

Das gerenderte TGA mit korrektem Alpha liegt hier:
https://www.dropbox.com/s/as7ltmih9ibe54c/test_mit_Alpha.tga?dl=0
Man sieht im Programm schon, wenn man Render drückt, ob es mit dem Alpha klappt oder nicht. Wenn das Image im Programm transparent dargestellt wird, klappt es mit dem Alpha. Ist der Hintergrund schwarz klappt es mit dem Alpha nicht.

Das gerenderte Bild mit falschem Alpha liegt hier:
https://www.dropbox.com/s/9i3b8yy5om7jain/test.tga?dl=0
Wenn man sich den Alpha - der durchaus vorhanden ist, mal im PS anschaut fällt auf, dass dieser echt komisch ist.

Freue mich auf konstruktive Hinweise und helfende Hände. Warum gehts hier und da nicht?

Lg Tom

ps.: Suche immer noch einen Freelancer - auch für dieses kleine Projekt.

Nach oben

torud

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Sa Nov 18, 2017 15:09

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hat keiner eine Idee, woran es liegen könnte?

Nach oben

mathias

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Sa Nov 18, 2017 17:25

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Hast du mal versucht, ein Mini-Code zu kompilieren.
Ein einfaches Rechteck mit einer Textur ?

Somit ist es viel einfacher den Fehler zu suchen.

_________________
OpenGL

Nach oben

torud

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: So Nov 19, 2017 09:32

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hier mal der stark eingekürzte Code.
Auf dem Form befindet sich ein Button, der das Rendern des Inhaltes auslöst. Diesen muss man manchmal 2 mal drücken, damit er rendert.
Darunter befindet sich ein Button, der das gerenderte nach test.tga speichert.
Auf meinem Büro-PC mit NVidia Quadro M2000 ist der Alpha-Kanal immer komplett weiß.
Auf meinem Laptop mit Quadro K1100M erzeugt die gleiche exe ein Bild, mit korrektem Alpha.

Code:

unit frmMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DGLOpenGL, StdCtrls, ExtCtrls, OpenGLTools, glBitmap, libPNG;
 
type
  TTGAHEADER = packed record
    tfType : Byte;
    tfColorMapType : Byte;
    tfImageType : Byte;
    tfColorMapSpec : Array[0..4] of Byte;
    tfOrigX : Word; //Array [0..1] of Byte;
    tfOrigY : Word;
    tfWidth : Word;
    tfHeight : Word;
    tfBpp : Byte;
    tfImageDes : Byte;
  end;
 
type TRGBAColor = Array[0..3] of Single;
 
type
  TForm1 = class(TForm)
    btnRenderToTga: TButton;
    btnRender: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnRenderToTgaClick(Sender: TObject);
    procedure btnRenderClick(Sender: TObject);
  private
    procedure SetupGL;
    procedure Render;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  DC, RC:HDC;
  FontLists: Cardinal;
  Font: TFont;
 
const NearClipping = 1;
      FarClipping  = 1000;
      screenWidth = 1920;
      screenHeight = 1080;
 
implementation
 
uses StdVCL, frmDC;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
 
  DCForm := TDCForm.Create(Form1);
  DCForm.Width := 1920;
  DCForm.Height := 1080;
  DCForm.Visible := false;
  DC:= GetDC(DCForm.Handle);
 
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
 
end;
 
procedure TForm1.SetupGL;
begin
  //Texture wird vorher gebunden
 glDisable(GL_DEPTH_TEST);
 glEnable(GL_BLEND);
 glBlendFunc(GL_SRC_ALPHA,GL_ONE);
  //Render...
 glDisable(GL_BLEND);
 glEnable(GL_DEPTH_TEST);
end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.Render;
var
  bmp: Tbitmap;
begin
  SetupGL;
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
  glViewport(0, 0, screenWidth, screenHeight);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
  glOrtho(0, screenWidth, 0, screenHeight, 1000, -1000); // Origin in lower-left corner
 
  //blaues 4-eck
  glBegin(GL_QUADS);
    glColor3f(0, 0, 1); glVertex2f(800, 100);
    glColor3f(0, 0, 1); glVertex2f(1000, 100);
    glColor3f(0, 0, 1); glVertex2f(1000, 300);
    glColor3f(0, 0, 1); glVertex2f(800, 300);
  glEnd;
 
  {bunte box mit verschiedenen transparenzen}
  glBegin(GL_QUADS);
    glColor4f(0, 1, 1, 1);    glVertex2f(600, 500);
    glColor4f(1, 0, 1, 0.75); glVertex2f(800, 500);
    glColor4f(1, 1, 0, 0.5);  glVertex2f(800, 800);
    glColor4f(1, 0, 0, 0);    glVertex2f(600, 800);
  glEnd;
 
   glDisable(GL_BLEND);
   glEnable(GL_DEPTH_TEST);
 
   SwapBuffers(DC);
 
    bmp := TBitmap.Create;
    try
      GetBitmapFromOpenGL(bmp);
      Image1.Picture.Assign(bmp);
    finally
      FreeAndNil(bmp);
    end;
end;
 
procedure ScreenShot(const Name : string);
var
  DataBuffer : array of Byte;
  f : file;
  tgaHeader : TTGAHEADER;
  width, height : integer;
  DataSize:Integer;
  viewport : Array[0..3] of integer;
begin
  //Viewport-Größe lesen
  glGetIntegerv(GL_VIEWPORT, @viewport);
  width := viewport[2];
  height := viewport[3];
 
  //Größe der Daten berechnen
  DataSize := Width * Height * 4;
 
  //Größe des Puffers festlegen (Speicher reservieren)
  SetLength(DataBuffer,DataSize);
 
  // TGA Kopf mit Daten füllen
  ZeroMemory(@tgaHeader, SizeOf(tgaHeader));
  tgaHeader.tfImageType := 2; // TGA_RGB = 2
  tgaHeader.tfWidth := Width;
  tgaHeader.tfHeight := Height;
  tgaHeader.tfBpp := 32;
 
  //Daten von OpenGL anfordern
  glReadPixels(0,0,Width, Height, GL_BGRA, GL_UNSIGNED_BYTE, @DataBuffer[0]);
 
  //Datei erstellen
  AssignFile(f, Name);
  Rewrite( f,1 );
  try
    // TGA Kopf in die Datei reinschreiben
    BlockWrite(F, tgaHeader, SizeOf(tgaHeader));
 
    // Die eigentlichen Bilddaten in die Datei schreiben
    BlockWrite(f, DataBuffer[0], DataSize );
  finally
    CloseFile(f);
  end;
end;
 
procedure TForm1.btnRenderToTgaClick(Sender: TObject);
begin
  ScreenShot('test.tga');
end;
 
procedure TForm1.btnRenderClick(Sender: TObject);
begin
  Render;
end;
 
end.
 

Nach oben

mathias

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: So Nov 19, 2017 22:25

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Zitat:

Auf meinem Büro-PC mit NVidia Quadro M2000 ist der Alpha-Kanal immer komplett weiß.
Auf meinem Laptop mit Quadro K1100M erzeugt die gleiche exe ein Bild, mit korrektem Alpha.

Wen der Code nicht 100% der OpenGL-Norm entspricht, kann so was passieren.

Was ist eigentlich dein Ziel, willst du ein Bild rendern, und dieses als TGA abspeichern ?

_________________
OpenGL

Nach oben

torud

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Mi Nov 22, 2017 09:48

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hallo Mathias,

als grobes Fernziel wäre ein eigener Renderer erwünscht, der in Full-HD in Echtzeit Templates läd, mit via TCP-IP übergebenen Daten Textobjekte inhaltlich ersetzt, Bilddateien ersetzt (z.B. bei Flaggen) und animiert.

Der dabei enstehende Bildstream sollte in Echtzeit auf einer Videokarte ausgeben werden.
Alle bisher gefundenen bereits geschriebenen Engines sind leider nicht in der Lage (z.b. konnte ich noch keinen Freelancer finden, der es hinbekam), einen RenderStream mit Alpha zu erzeugen. Ich weiß, dass Unity3d es kann, aber aktuell ist mir das zu mächtig.

Nahziel wäre erstmal

das Rendern mit Alpha (breits hier hakt es - der Zwischenschritt mit dem TGA schien mir nötig)
das Erzeugen von Teamplates (notfalls erstmal als XML-Datei mit Nodepad)
das Laden von Templates und dynamische erstellen von Objekten (Images, Rectangles, Circles, Cubes und Texte)
das Animieren von Objekte

Ist jetzt sicher etwas viel, aber gefühlt klingt es nicht unmöglich. Die Ausgabe auf einer Videokarte ist schon gelungen.
Das Rendern von Texten mit TTF gestaltet sich noch als Hindernis.
Das Gruppieren von Objekten wäre noch ein Punkt, der mich interessieren würde, aber dazu vielleicht in einem andern Thread.

Zurück zu meinem aktuellen Problem.
Siehst Du denn einen Fehler oder einen nicht 100%-OpenGL-konformen Code oder einen Ansatzpunkt?

Nach oben

end

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Mi Nov 22, 2017 15:51

Compliance Officer

Registriert: So Aug 08, 2010 08:37
Beiträge: 460
Programmiersprache: C / C++ / Lua

Naja, der Code den du da hast darf nach GL spec meines Wissens kein Alpha rendern, denn Blending ist ausgeschaltet.

Bezueglich Legacy GL Blending siehe z.B. https://www.opengl.org/archives/resourc ... arency.htm

glEnable (GL_BLEND); glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

ist vermutlich was du suchst.

_________________
offizieller DGL Compliance Beauftragter
Never run a changing system! (oder so)

Nach oben

torud

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Mi Nov 22, 2017 20:09

DGL Member

Registriert: Fr Jan 28, 2005 16:58
Beiträge: 36

Hallo,

vielen Dank für Dein Feedback.

Kannst Du mir bitte noch mitteilen, an welcher Stelle ich das einfügen bzw. ändern soll?

In meinen Sourcen - die ich auch nur aus Samples und anderen Tuts zusammen gestellt habe, gibt es 3 Stellen.
Und so ganz erschließt sich mir das Enable und Disable dieser im Code noch nicht...

Ich versuch mal die englische Version zu verstehen. ;-)

Nach oben

mathias

Betreff des Beitrags: Re: OpenGL - Rendern eines transparenten Bildes

Verfasst: Mi Nov 22, 2017 20:16

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Zitat:

Kannst Du mir bitte noch mitteilen, an welcher Stelle ich das einfügen bzw. ändern soll?

Bei Setup GL
Das sieht dann in etwa so aus:

Code:

  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
 
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LESS);

Ich habe noch gesehen, da du

Code:

glDisable(GL_BLEND);

, diese müssten noch entfernt werden.

_________________
OpenGL

Nach oben

Seite 1 von 3

[ 32 Beiträge ]

Gehe zu Seite 1, 2, 3 Nächste

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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