DGL • Thema anzeigen - [gelöst]Texturen ...geht irgendwie nicht...

[gelöst]Texturen ...geht irgendwie nicht...

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

uci

Betreff des Beitrags: [gelöst]Texturen ...geht irgendwie nicht...

Verfasst: Di Nov 25, 2008 21:18

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Hallo
sry. das ich nochmal störe...

soo also ich habe einen Würfel aber die Textur die ich daruaf laden will klappt nicht ... könnten ihr mir Helfen?
Danke---

Code:

 
unit wow;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGL, StdCtrls, SDL, SDL_Image;
 
type
  TForm1 = class(TForm)
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
  private
   StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    procedure SetupGL;
    procedure Render;
    procedure ErrorHandler;
    procedure drawquads;
    procedure LoadTextur;
  public
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
  end;
 
var
  Form1: TForm1;
  sonrot,sonrot2,weite,a, winkel: Double;
  tex : PSDL_Surface;
const
  NearClipping = 1;
  FarClipping  = 1000;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//Initialisierung von OpenGL
 
 DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,
                               0,
                               0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
  LoadTextur;
  Application.OnIdle := IdleHandler;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren(damit schneller)
end;
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
 
procedure TForm1.LoadTextur;
var TexID: gluInt;
begin
tex := IMG_Load('./kachel1.jpg');
  if assigned(tex) 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);
 
    // Achtung! Einige Bildformate erwarten statt GL_RGB, GL_BGR. Diese Konstante fehlt in den Standard-Headern
    glTexImage2D(GL_TEXTURE_2D, 0, 3, tex^.w, tex^.h,0, GL_RGB, GL_UNSIGNED_BYTE, tex^.pixels);
 
    SDL_FreeSurface(tex);
  end;
end;
 
procedure TForm1.Render;
 
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);     //Farbpuffer und Tiefenpuffer gelöscht
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
glTranslatef(0,-0.3,-10);
 
  sonrot:= sonrot + (0.01*Drawtime);
  If (sonrot > 360) then sonrot := sonrot - 360;
 
  sonrot2:= sonrot2 - (0.1*Drawtime);
  If (sonrot2 > 360) then sonrot2 := sonrot - 360;
//Rotatef(a,0,1,0);
glTranslatef(0,0,weite);
glTranslatef(winkel,0,0);
 
  glDisable(GL_CULL_FACE);
 
  glrotatef(10,1,0,0);
  glrotatef(sonrot,0,1,0);
  glColor3ub(255,255,0);
 
  drawquads;
 
 
  SwapBuffers(DC);
end;
 
procedure TForm1.drawquads;
  begin
  glEnable(GL_TEXTURE_2D);
  glBegin(GL_QUADS);
      glTexCoord2f(0,0); glVertex3f(-1,-1, 1);
      glTexCoord2f(0,1); glVertex3f( -1,1, 1);
      glTexCoord2f(1,1); glVertex3f( 1,1, 1);
      glTexCoord2f(1,0); glVertex3f( 1,-1, 1);
 
      glTexCoord2f(0,0); glVertex3f(-1,-1,1);
      glTexCoord2f(0,1); glVertex3f(-1,1,1);
      glTexCoord2f(1,1); glVertex3f(-1,1, -1);
      glTexCoord2f(1,0); glVertex3f(-1,-1,-1);
 
      glTexCoord2f(0,0); glVertex3f(1,1,1);
      glTexCoord2f(0,1); glVertex3f(1,-1,1);
      glTexCoord2f(1,1); glVertex3f(1,-1,-1);
      glTexCoord2f(1,0); glVertex3f(1,1,-1);
 
      glVertex3f(-1,1,-1);
      glVertex3f( 1, 1,-1);
      glVertex3f( 1,-1,-1);
      glVertex3f( -1,-1,-1);
 
//      glVertex3f(-1,-1, 0);
//      glVertex3f(-1, 1, 0);
//      glVertex3f( -1,-1,0);
//      glVertex3f(-1,1, 0);
//
//      glVertex3f(1,-1, 0);
//      glVertex3f(1, 1, 0);
//      glVertex3f(1,-1,0);
//      glVertex3f(1,1, 0);
  glEnd();
end;
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
 
begin
 
  StartTime:= GetTickCount;
  Render;
  DrawTime:= GetTickCount - StartTime;
  Inc(TimeCount, DrawTime);
  Inc(FrameCount);
 
  if TimeCount >= 1000 then begin
    Frames:= FrameCount;
    TimeCount:= TimeCount - 1000;
    FrameCount:= 0;
    Caption:= InttoStr(Frames) + 'FPS';
    ErrorHandler;
  end;
 
  Done:= false;
end;
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = 'a' then
winkel := winkel+1;
if Key = 'd' then
winkel := winkel-1;
if Key = 'w' then
weite := weite+1;
if Key = 's' then
weite := weite-1;
if Key = 'q' then
a:= a-1;
if Key = 'e'then
a:= a+1;end;
 
 
 
end.

...

Zuletzt geändert von uci am Di Nov 25, 2008 22:53, insgesamt 1-mal geändert.

Nach oben

grey

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 22:24

DGL Member

Registriert: Mi Nov 12, 2008 18:27
Beiträge: 134

würdest du dein problem vielleicht etwas präziser ausdrücken?

das was du hier gepostet hast ist der easySDL code und das hat nix mit der VCL zu tun sondern ist API auf nem extrem vereinfachten Level.

Also ich würd dir empfehlen das easySDL template als grundlage für die tutorials zu nehmen und den code dann selbst zu schreiben und nur bei problemen in die beispiele aus dem sdk zu schauen.
Falls dir damit irgendwie geholfen ist ....
ansonsten kann ich nur mein eingangs statement wiederholen - ohne präzise frage keine antwort.

mfg grey

(ich hoffe ich bin nicht zu schroff, aber erklärt mir mal bitte einer den sinn von diesem post? :wink:

)

Nach oben

uci

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 22:42

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Okay sry es funktioniert alles...

Nach oben

grey

Betreff des Beitrags:

Verfasst: Mi Nov 26, 2008 18:33

DGL Member

Registriert: Mi Nov 12, 2008 18:27
Beiträge: 134

Lol na dann. ^^

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Do Nov 27, 2008 09:43

Guitar Hero

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

@uci: Kannst du kurz erklären wo der Fehler lag. So das andere noch was mitnehmen können.

Nebenbei: Es ist immer besser den Fehler selber zu finden als das andere machen zu lassen. Der Lerneffekt ist da am größten.

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

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

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.