DGL • Thema anzeigen - Transparenz mit TGLBitmap

Transparenz mit TGLBitmap

Moderator: DGL-Team

Seite 1 von 4

[ 46 Beiträge ]

Gehe zu Seite 1, 2, 3, 4 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

mandumoal

Betreff des Beitrags: Transparenz mit TGLBitmap

Verfasst: Do Mär 11, 2004 13:05

DGL Member

Registriert: Do Mär 11, 2004 12:33
Beiträge: 24

Hallo!

ich benutze die glaux.dll um Texturen zu laden.
jetzt möchte ich, dass eine bestimmte Farbe der Textur transparent dargestellt wird, ich hab aber keine Ahnung wie das mit glaux geht.

ich habe schon versucht das mit Tglbitmap zu machen aber da schaffe ich es nicht mal ganz normal ne Textur anzuzeigen, aber da weiss ich das man bestimmte Farben transparent machen kann.
könnte ihr mir entweder sagen wie ich das mit glaux oder tglbitmap hinbekomme? (Tglbitmap wäre mir lieber, da man sich die anschauen kann was bei der dll schlecht geht)

vielen Dank schon mal
mfg mandumoal

Zuletzt geändert von mandumoal am Do Mär 11, 2004 14:24, insgesamt 1-mal geändert.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 13:10

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Ich arbeite auch gerade mit der glBitmap.
Dein Fehler hatte ich auch. Das liegt daran, dass du nicht TglBitmap sondern TglBitmap2D (für 2D Texturen) verwenden musst.
Dann ganz normal die reihenfolge:
Create [Pfad]
[Load wenn nicht schon bei Create]
genTexture
Bind

Und erst beim Programmende die Texturvariable freigeben.
Wenn du mehrer Texturen verwenden willst solltest du dir ein Feld (eventuell auch dynamisch) anlegen, wo alle TglBitmap2D drinliegen die du brauchst.
Dann aber nur 1x alle Texturen laden.

Zum Alpha Chanel: Zu aller erst brauchst du mal ne Textur die das hat. Zum Bsp. Png (glaube ich) und dann wes ich auch net weiter, da ich das bis Dato net brauchte. Lass mich aber gern belehren.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 13:23

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Ja. Soweit ist das auch richtig. Als Bilder kannst du TGA's nehmen. In denen kannst du einen Alphakanal speichern. Weiß nicht ob png das kann. Du kannst den aber auch mit der glBitmap hinzufügen. Sofern es sich nur um eine Farbe handelt.

Dort gibt es eine Methode namens AddAlphaFromColorKey(). Der übergibst du einen Rot, Grün und Blauwert. Und schon wird der da ein Alphakanal erstellt. Mit dem Parameter Deviation kannst du noch eine maximal zulässige Abweichung von dem Farbwert angeben. Bei JPG's kann es durch die Komprimierung zu einer Farbveränderung kommen.

Zum Zeichnen musst du die Textur Binden. Und eine Alphafunc einstellen. Und diesen dann auch noch aktivieren. Anschließend kannst du deine Flächen zeichnen.

Code:

Textur.Bind;
glAlphaFunc(GL_GREATER, 0.1);
glEnable(GL_ALPHA_TEST);
// zeichnen

Nach oben

mandumoal

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 13:41

DGL Member

Registriert: Do Mär 11, 2004 12:33
Beiträge: 24

Danke erstmal für die Antwort!

ich bekomme es noch nicht ganz hin:

das ist der Code

Code:

 
 
tex : gluInt;
 
 
procedure LoadTextures;
var
textur : tglbitmap2d;
begin
 
textur.Create;
textur.LoadFromFile('textur2.bmp');
 
glGenTextures(1, tex);
glBindTexture(GL_TEXTURE_2D, tex);
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_linear);
glTexImage2D(GL_TEXTURE_2D, 0, 3, textur.Width  , textur.Height , 0, GL_RGB,
GL_UNSIGNED_BYTE, ???  ); // <----  was muss hier als letzer Parameter angegeben werden?
 
end;

ist denn der code prinzipiell richtig?

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 13:49

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Code:

procedure LoadTextures;
var
textur : tglbitmap2d;
begin
 
textur.Create;
textur.LoadFromFile('textur2.bmp');
 
texture.GenTextures;
glBindTexture(GL_TEXTURE_2D, texture.TextureID); 
 
//objekt Zeichen
 

Versuch das mal

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 13:59

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

NEIN. Ist er nicht.

So wie du den Constructor (Create) aufrufst ist das vollkommen Falsch.

Du musst es so machen.

Code:

Texture := TglBitmap2D.Create;

Das ist nicht nur bei meiner Klasse so. Das musst du bei allen Klassen so machen.

Das nächste ist, dass du glGenTextures nicht direkt aufrufen musst. Das macht die glBitmap für dich schon. Du musst dann nur noch folgendes aufrufen.

Code:

Textur.GenTexture;

um deinen Alphakanal noch hinzufügen müsstest du VOR Textur.GenTextur noch AddAlphaFromColorKey aufrufen. Das wars.

PS: Flash. Es existiert auch eine Methode namens Bind bei der Klasse. ;-)

Aber dein Code funktioniert auch nicht.

Also hier mal für alle den Kompletten Code!!!

Code:

procedure LoadTextures;
var
  Textur: TglBitmap2D;
begin
  Textur := TglBitmap2D.Create;
  Textur.LoadFromFile('textur2.bmp'); // Besser sind Absolute Pfadangaben
  // Textur.LoadFromFile(ExtractFileDir(ParamStr(0)) + '\textur2.bmp');
  Textur.AddAlphaFromColorKey(0, 255, 0); // Farbe Grün
 
  Textur.GenTextures;
end;
 
// Später beim Rendern
 
Texture.Bind;
// glEnable(GL_TEXTUR_2D) wird automatisch von Bind auch aufgerufen.
// Evtl. Muss man aber andere TexturTarget wie 1D oder 3D deaktivieren.
 
// Flächen Zeichnen.
 

Nach oben

mandumoal

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 14:19

DGL Member

Registriert: Do Mär 11, 2004 12:33
Beiträge: 24

vielen dank nochmals...

ich habe das jetzt so gemacht aber bekomme bei

Code:

Textur.GenTextur

eine EAccessViolation Zugriffsverletzung.

Das ganze passiert hier:

Code:

procedure TglBitmap2D.GenTexture(TestTextureSize: Boolean);
var
  Comps: Integer;
  Format: Cardinal;
  TexSize: TGLint;
begin
  if Assigned(GetData()) then begin
    // Check Texture Size
    if (TestTextureSize) then begin
      glGetIntegerv(GL_MAX_TEXTURE_SIZE, @TexSize); //<------hier
 
      if ((Height > TexSize) or (Width > TexSize))
        then raise EglBitmapSizeToLargeException.Create('TglBitmap2D.GenTexture - The size for the texture is to large. It''s may be not conform with the Hardware.');
    end;
      

mfg mandumoal

Nach oben

Mars

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 14:53

DGL Member

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

Natürlich sollte zum Zeitpunkt des Texturenladens OpenGL bereits initialisiert sein.
Das PNG Format unterstützt übrigens auch einen Alphakanal, und ist für Texturen an sich perfekt geeignet, da verlustfreie Kompression (wie GIF) und Echtfarbbilder sowie Alphakanal möglich sind.

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

Nach oben

mandumoal

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 15:23

DGL Member

Registriert: Do Mär 11, 2004 12:33
Beiträge: 24

OpenGl ist zu diesem Zeitpunkt initialisiert.

könnte mal jemand einen Code posten mit seiner initialisierung und einem Quad + texturiert(tglbitmap)?
das wäre sehr nett

mfg mandumoal

Nach oben

mandumoal

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 17:57

DGL Member

Registriert: Do Mär 11, 2004 12:33
Beiträge: 24

Hallo!

Ich interpretiere eure plötzliche Stille jetzt einfach mal so, dass ich dreist war und zuviel verlangt habe.

Da aber Unterschiede zu euren Quellcodes nur noch in der Initialisierung liegen können wäre ich euch dankbar wenn ihr mir mal eine von euch zeigen könntet

Meine ist diese hier:

Code:

procedure TForm1.SetupPixelFormat;
var    hHeap: THandle;
  nColors, i: Integer;
  lpPalette : PLogPalette;
  byRedMask, byGreenMask, byBlueMask: Byte;
  nPixelFormat: Integer;
  pfd: TPixelFormatDescriptor;
begin
  FillChar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize     := sizeof(pfd);               // Länge der pfd-Struktur
    nVersion  := 1;                         // Version
    dwFlags   := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
                 PFD_DOUBLEBUFFER;          // Flags
    iPixelType:= PFD_TYPE_RGBA;             // RGBA Pixel Type
    cColorBits:= 24;                        // 24-bit color
    cDepthBits:= 32;                        // 32-bit depth buffer
    iLayerType:= PFD_MAIN_PLANE;            // Layer Type
  end;
  nPixelFormat:= ChoosePixelFormat(myDC, @pfd);
  SetPixelFormat(myDC, nPixelFormat, @pfd);
                                            // Farbpalettenoptimierung wenn erforderlich
  DescribePixelFormat(myDC, nPixelFormat,
                      sizeof(TPixelFormatDescriptor),pfd);
  if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then begin
    nColors  := 1 shl pfd.cColorBits;
    hHeap    := GetProcessHeap;
    lpPalette:= HeapAlloc
       (hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry)));
    lpPalette^.palVersion := $300;
    lpPalette^.palNumEntries := nColors;
    byRedMask  := (1 shl pfd.cRedBits) - 1;
    byGreenMask:= (1 shl pfd.cGreenBits) - 1;
    byBlueMask := (1 shl pfd.cBlueBits) - 1;
    for i := 0 to nColors - 1 do begin
      lpPalette^.palPalEntry[i].peRed  :=
        (((i shr pfd.cRedShift)  and byRedMask)  *255)DIV byRedMask;
      lpPalette^.palPalEntry[i].peGreen:=
        (((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask;
      lpPalette^.palPalEntry[i].peBlue :=
        (((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask;
      lpPalette^.palPalEntry[i].peFlags:= 0;
    end;
    myPalette:= CreatePalette(lpPalette^);
    HeapFree(hHeap, 0, lpPalette);
    if (myPalette <> 0) then begin
      SelectPalette(myDC, myPalette, False);
      RealizePalette(myDC);
    end;
  end;
end;
 

das ist die render procedure:

Code:

procedure render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen
  glLoadIdentity;                                      // World Matrix zurücksetzen
 
  SwapBuffers(form1.myDC);                             //scene ausgeben
end;

ich rufe sie in einem Timer auf (interval sehr klein)
das ist die onCreate:

Code:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.myDC:= GetDC(Handle);
  SetupPixelFormat;
  myRC:= wglCreateContext(myDC);
  wglMakeCurrent(myDC, myRC);
  glEnable(GL_DEPTH_TEST);
 
  glLoadIdentity;
  glenable(gl_texture_2d); //Texturen aktivieren
 
  LoadTextures;            //Textur laden
end;

mfg mandumoal

Nach oben

Raphael O.

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 17:58

DGL Member

Registriert: Sa Jan 04, 2003 21:23
Beiträge: 674
Wohnort: Köln

für die Initialisierung schau dir einfach mal die Templates unter files->templates an...
da kannst du dann ganz genau vergleichen

_________________
. . .

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 18:06

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

In der Datei dglOpenGL.pas sind bereits Funktionen für die Initialisierung enthalten. Dadurch wird die ganze Sache vereinfacht.

Code:

 
procedure TForm1.FormCreate(Sender:TObject);
begin
InitOpenGL;
mydc := GetDC(Handle);
myrc := CreateRenderingContext(mydc, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(mydc , myrc);
...
...
end;
 

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 18:19

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Wir sind nicht überfordert. Wir fahren nur gerne 260 Km quer durch Deutschland. Also zu mindest ich. ;-)

Dein Problem müsste sein, dass du zwar OpenGL Initialisiert hast aber vergessen hast due Extensions zu laden. In den RenderContextHelperFunctions (geiles Wort ;-)

) passiert das automatisch. Da du diese aber nicht benutzt musst du sie von Hand aufrufen.

Hänge das mal unter das wglMakeCurrent in deinem FormCreate.

Code:

  ReadExtensions;
  ReadImplementationProperties;

Dann sollte es gehen.

Nach oben

mandumoal

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 20:24

DGL Member

Registriert: Do Mär 11, 2004 12:33
Beiträge: 24

achso

(260km)

leider werden beide Zeilen als Undefinierte Bezeichner angesehen...
muss ich noch ne Unit einbinden?

mfg mandumoal

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Mär 11, 2004 20:27

DGL Member

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

Welchen Header verwendest du denn? Ich hab das Gefühl das du in deinem Programm nen anderen OpenGL-Header (OpenGL.pas, OpenGL12.pas) verwendest, aber in der glBitmap ja unser dglOpenGL.pas-Header verwendet wird.
Wenn dem so ist, liegt hier dein Problem. Du musst projektübergreifend den gleichen Header verwenden, also am besten unsere dglOpenGl.pas die auf dem neusten Stand ist. Finden tust du die unter Files->Bibliotheken.

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

Nach oben

Seite 1 von 4

[ 46 Beiträge ]

Gehe zu Seite 1, 2, 3, 4 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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