DGL • Thema anzeigen - Textur-Probleme

Textur-Probleme

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Looper

Betreff des Beitrags: Textur-Probleme

Verfasst: Sa Dez 08, 2007 19:10

DGL Member

Registriert: Do Dez 06, 2007 20:12
Beiträge: 5

Hi erstmal. Bin noch ein richtiger Anfänger, also macht euch auf dumme Fragen gefasst

.
Mein Problem:
Ich erzeuge ein Rechteck, worauf ich eine ganz normale blaue Textur heraufbekommen will. Die tga-Datein kann er nicht laden, also versuche ich es mit jpg oder bmp. Das Laden funktioniert wohl soweit ganz gut, aber die Farbe zeigt er nicht richtig an. Es sind immer graue, waagerechte Striche dazwischen und auch ganz verschiedene Farben.
Der Quellcode stammt noch ganz aus den Tutorials, also da sind wahrscheinlich auch Sachen drinnen, die gar nicht sein müssen. Mein Ziel ist es, etwas in 2D darzustellen, deswegen gl_Ortho.

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DGLOpenGL, ExtCtrls, Textures;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private { Private-Deklarationen }
    FrameCount                        : Cardinal; //FrameCounter
    procedure SetupGl;
    procedure Render;
    procedure ErrorHandler;
  public { Public-Deklarationen }
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
    groesser, kleiner                 : Boolean;
    MyTex                             : glUInt;
    Breite, Hoehe, Tiefe              : Integer;
  end;
 
var
  Form1: TForm1;
 
const
  NearClipping = 1;
  FarClipping  = 1000;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Hoehe := Form1.Height;
  Breite:= Form1.Width;
  Tiefe := 1;
  groesser := true;
  kleiner := false;
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
  Form1.Width := Screen.Width;
  Form1.Height := Screen.Height;
  Form1.Top := 0;
  Form1.Left := 0;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.0, 0.0, 0.0, 0.0);
  glEnable(GL_TEXTURE_2D);
  LoadTexture('G:\Delphi 4 Projekte\Testprojekte\OpenGL\5\Test.bmp', MyTex, False);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewport(0,0,ClientWidth,ClientHeight);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  glOrtho(0,640,480,0,0,128);
  glBindTexture(GL_TEXTURE_2D, MyTex);
  glBegin(GL_QUADS);
    glTexCoord2f(0,0); glVertex3f(-Breite/2, -Hoehe/2, -Tiefe);
    glTexCoord2f(1,0); glVertex3f(+Breite/2, -Hoehe/2, -Tiefe);
    glTexCoord2f(1,1); glVertex3f(+Breite/2, +Hoehe/2, -Tiefe);
    glTexCoord2f(0,1); glVertex3f(-Breite/2, +Hoehe/2, -Tiefe);
  glEnd;
 
  SwapBuffers(DC);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   inc(FrameCount);
   Render;
   If FrameCount = 20 then
      begin
           ErrorHandler;
           FrameCount := 0;
      end;
end;
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#27 then close;
end;
 
end.

Freue mich auf die Antworten, Looper

Nach oben

NerdIII

Betreff des Beitrags:

Verfasst: Sa Dez 08, 2007 20:05

DGL Member

Registriert: Mo Nov 06, 2006 19:15
Beiträge: 172

Die falschen Farben könnten darauf hindeuten, dass LoadTexture einen Fehler hat. Versuche mal die .bmp mit einem anderen Programm zu speichern. Wenn die .bmp in 32-bpp gespeichert ist verusche sie in 24-bpp zu speichern oder umgekehrt.
Welche Formate nimmt LoadTexture denn überhaupt an? Du sagtest ja z.B. das .tga nicht geht. Jetzt wäre es wichtig zu wissen welche anderen Beschränkungen es gibt.

Nach oben

Looper

Betreff des Beitrags:

Verfasst: Sa Dez 08, 2007 20:48

DGL Member

Registriert: Do Dez 06, 2007 20:12
Beiträge: 5

Erstmal vielen Dank für die schnelle Hilfe, Werde mich in den nächsten Tagen wieder melden, ob es nun klappt.
mfg Looper

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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