DGL • Thema anzeigen - Render Problem

Render Problem

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

maximus Caesar

Betreff des Beitrags: Render Problem

Verfasst: Sa Mär 05, 2005 17:32

DGL Member

Registriert: Mo Jan 24, 2005 15:55
Beiträge: 28
Wohnort: Biberach an der Riß

Also, Ich lade 3ds dateien mit Noeskas Loader.
Ich verwende mehrere TAll3dsMesh Objekte.
Ich kann das Objekt Start anzeigen. Sobald ich versuche das Objekt Optionen anzuzeigen bekomme ich keine Fehlermeldung, es wird aber auch nicht das Entsprechende Objekt angezeigt. Wenn ich es über Start lade, wird es angezeigt.
Hier mal der bisherige Programmtext:

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, gl3ds, dglopengl, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Initalisieren;
  private
    { Private-Deklarationen }
   myDC : HDC;
   myRC : HGLRC;
   myPalette : HPALETTE;
 
  public
    { Public-Deklarationen }
    procedure glinit();
  end;
  T3DFiguren = class
   private
   public
     Meshes : TAll3dsMesh;
     x1,x2,x3,x4,y1,y2,y3,y4 : Integer;
   ausgewaehlt : boolean;
   auswahl : Integer;
  end;
  T3DSpielfeld = class
   private
   public
    Meshes : TAll3dsMesh;
    xpos,ypos:Integer;
  end;  
  TMenue = class
   private
   public
    Auswahl : Integer;
    Aktiv : Boolean;
    
   end;
 
var
  Form1: TForm1;
  scale : single = 1; //Für die Skalierung
  rotation : integer = 0; //Zahl in °, um die gedreht wird
  move : single = 0; //Größe der Bewegung
  scaledir : boolean; //Richtung der Skalierung (größer / kleiner)
  movedir : boolean; //Richtung der Bewegung (rauf / runter)
  Spielfeld : T3dSpielfeld;
  Rot : T3DFiguren;
  Blau : T3DFiguren;
  Gruen : T3DFiguren;
  Gelb : T3DFiguren;
  Auswahl : T3DFiguren;
  Menue : TMenue;
  zpos,ypos,xpos : Integer;                //Z-Position
  
  Optionen : TAll3dsMesh;
  Start : TAll3dsMesh;
  Hilfe : TAll3dsMesh;
  Ende : TAll3dsMesh;
  Hintergrund: TAll3dsMesh;
  Pfeile : TAll3dsMesh;
 
 
implementation
 
{$R *.dfm}
 
procedure Tform1.glInit();
begin
  glClearColor(0.3, 0.3, 0.3, 0.0);       // Black Background
  glShadeModel(GL_SMOOTH);                 // Enables Smooth Color Shading
  glClearDepth(1.5);                       // Depth Buffer Setup
  glEnable(GL_DEPTH_TEST);
  glDepthFunc (GL_LEQUAL);
//  glEnable( GL_CULL_FACE );
//  glCullFace( GL_FRONT );
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);   //Realy Nice perspective calculations
  glEnable(GL_TEXTURE_2D);                     // Enable Texture Mapping
  wglSwapIntervalEXT(0);
end; 
 
 
 
procedure Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
 
  glTranslatef(0,0,-2);
 
 
  SwapBuffers(form1.myDC);
end;
 
procedure RenderMenue;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
 
  glTranslatef(0,0,-50);
 
  Hintergrund.Render;
  Pfeile.Render;
{  case Menue.Auswahl of
    1 : Start.Render;
    2 : Optionen.Render;
    3 : Hilfe.Render;
    4 : Ende.Render;
  end;    }
  Start.Render;
  SwapBuffers(form1.myDC);
end;
 
procedure TForm1.Initalisieren;
begin
 mydc := getdc(handle);
InitOpenGL();
myrc := CreateRenderingContext(mydc,[opDoublebuffered],32,24,0,0,0,0);
ActivateRenderingContext(mydc, myrc);
glInit();
 
 { Gruen := T3dFiguren.Create;
  Gruen.Meshes := TAll3dsMesh.Create(nil);
  Gruen.Meshes.TexturePath:='files';
  Gruen.Meshes.LoadFromFile('files\grün.3ds');
  Gruen.Meshes.BuildDisplayList;
 
  Blau := T3dFiguren.Create;
  Blau.Meshes := TAll3dsMesh.Create(nil);
  Blau.Meshes.TexturePath:='files';
  Blau.Meshes.LoadFromFile('files\blau.3ds');
  Blau.Meshes.BuildDisplayList;
 
  Gelb := T3dFiguren.Create;
  Gelb.Meshes := TAll3dsMesh.Create(nil);
  Gelb.Meshes.TexturePath:='files';
  Gelb.Meshes.LoadFromFile('files\gelb.3ds');
  Gelb.Meshes.BuildDisplayList;
 
  Rot := T3dFiguren.Create;
  Rot.Meshes := TAll3dsMesh.Create(nil);
  Rot.Meshes.TexturePath:='files';
  Rot.Meshes.LoadFromFile('files\rot.3ds');
  Rot.Meshes.BuildDisplayList;
 
  Auswahl := T3dFiguren.Create;
  Auswahl.Meshes := TAll3dsMesh.Create(nil);
  Auswahl.Meshes.TexturePath:='files';
  Auswahl.Meshes.LoadFromFile('files\Auswahl.3ds');
  Auswahl.Meshes.BuildDisplayList;
 
  Spielfeld :=T3dSpielfeld.Create;
  Spielfeld.Meshes := TAll3dsMesh.Create(nil);
  Spielfeld.Meshes.TexturePath:='files';
  Spielfeld.Meshes.LoadFromFile('files\Spielfeld.3ds');
  Spielfeld.Meshes.BuildDisplayList;      }
 
  Menue := TMenue.Create;
  
 
 
  Start := TAll3dsMesh.Create(nil);
  Start.TexturePath:='files';
  Start.LoadFromFile('files\Menüd1.3ds');
  Start.BuildDisplayList;
 
 { Optionen := TAll3dsMesh.Create(nil);
  Optionen.TexturePath:='files';
  Start.LoadFromFile('files\Menüd2.3ds');
  Optionen.BuildDisplayList;
 
 
 
  Hilfe := TAll3dsMesh.Create(nil);
  Hilfe.TexturePath:='files';
  Start.LoadFromFile('files\Menüd3.3ds');
  Hilfe.BuildDisplayList;
 
  Ende := TAll3dsMesh.Create(nil);
  Ende.TexturePath:='files';
  Start.LoadFromFile('files\Menüd4.3ds');
  Ende.BuildDisplayList;        }
 
  Hintergrund := Tall3dsMesh.Create(nil);
  Hintergrund.TexturePath:='files';
  Hintergrund.LoadFromFile('files\Hintergrund.3ds');
  Hintergrund.BuildDisplayList;
 
  Pfeile := TAll3dsMesh.Create(nil);
  Pfeile.TexturePath:='files';
  Pfeile.LoadFromFile('files\Pfeile.3ds');
  Pfeile.BuildDisplayList;
 
  Menue.Auswahl:=1;
 
  Menue.Aktiv:=True;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ypos:=0;
xpos:=0;
zpos:=-50;
Form1.Initalisieren;
 
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 DeactivateRenderingContext;
DestroyRenderingContext(myrc);
releasedc(handle,mydc);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
if Height=0 then Height:=1;
 
  glViewport(0, 0, Width, Height);    // Set the viewport for the OpenGL window
  glMatrixMode(GL_PROJECTION);        // Change Matrix Mode to Projection
   glLoadIdentity();                   // Reset View
    gluPerspective(45.0, Width/Height, 1.0, 1000.0);  // Do the perspective calculations. Last value = max clipping depth
 
  glMatrixMode(GL_MODELVIEW);         // Return to the modelview matrix
   glLoadIdentity();                   // Reset View
 
   //if needed a faster feedback
   OnPaint(self);
end;
 
 
 
procedure TForm1.FormPaint(Sender: TObject);
begin // this is only an alternative....OnIdle for intensiv drawing
render;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
begin
  if Menue.Aktiv then
   rendermenue
   else
  render;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (GetAsyncKeyState(VK_ESCAPE))<>0 then Close;
  if key='X' then ypos:=ypos-1;
  if key='Y' then ypos:=Ypos+1;
end;
 
end.

Kann mir jemand helfen?

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Mär 07, 2005 12:34

Guitar Hero

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

Also...hm...als erstes muss der entsprechende Code auskommentiert sein....OK,OK, ich weiß das du das wusstest

Is dir nebenbei aufgefallen, dass selbst im options teil nicht Options.LoadFromFile sondern Start.LoadFromFile steht? Sollten das deine letzten änderungen sein, würde ich dich bitten mal die Codeversion zu posten wo du am ehesten denkst, dass sie funktionieren sollte. (Bei solchen "Ich hab alles mögliche schon probiert"-Codes sehen wir auch net durch.)

Nochwas allgemeinses. Ich glaube nicht, dass es so doll ist 3DS-Meshs als Menüs zu verwenden. Vorallem, da du die wirklich einfach per Hand im Orthomodus machen kannst. Und dabei (im Orthomodus) ist die Selektion nun wirklichd as absolute Kinderspiel. Da brauchst du noch netmal die OpenGLSelektion für.

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

Nach oben

maximus Caesar

Betreff des Beitrags:

Verfasst: Mo Mär 07, 2005 13:28

DGL Member

Registriert: Mo Jan 24, 2005 15:55
Beiträge: 28
Wohnort: Biberach an der Riß

Flash hat geschrieben:

Is dir nebenbei aufgefallen, dass selbst im options teil nicht Options.LoadFromFile sondern Start.LoadFromFile steht?

Nee, noch net! Danke! Das war der Fehler... :oops:

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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