DGL • Thema anzeigen - Nur eine Seite sichtbar

Nur eine Seite sichtbar

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Lt.Cmd.Data

Betreff des Beitrags: Nur eine Seite sichtbar

Verfasst: Mo Jan 16, 2006 16:57

DGL Member

Registriert: Mo Jan 16, 2006 16:52
Beiträge: 20

Hallo,

ich versuche ein Quadrat zu erstellen, das sich dreht. Funktioniert auch soweit ganz gut. Nur sehe ich bei der Drehung nur eine Seite des Quadrats. Was mache ich falsch?

Code:

 
unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DGLOpenGL, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    procedure SetupGL;
//    procedure Init;
    procedure Render;
    procedure ErrorHandler;
  public
    { Public-Deklarationen }
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
 end;
 
CONST
  NearClipping = 1;
  FarClipping  = 100;
  
var
  Form1: TForm1;
  rotx: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SetupGL;
begin
  glClearColor(0, 0, 0, 0.0); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
procedure TForm1.Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glTranslatef(0,0,-5);
  glRotatef(rotx,1,0,0);
  glBegin(GL_QUADS);
    glColor3f(1,0,0);  //Rot  
    glVertex3f(1,-1,0);  
    glColor3f(1,1,0);  //Gelb  
    glVertex3f(1,1,0);  
    glColor3f(0,1,0);  //Grün
    glVertex3f(-1,1,0);  
    glColor3f(0,0,1);  //Blau  
    glVertex3f(-1,-1,0);  
  glEnd;
 
  SwapBuffers(DC);
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;
 
inc(roty);
if rotx>360 then
  rotx:=rotx - 360;
  sleep(5);
  Done:= false;
end;
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
  rotx := 0;
  Application.OnIdle := IdleHandler;
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;
 
end.

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Mo Jan 16, 2006 17:10

DGL Member

Registriert: Mi Jul 17, 2002 12:07
Beiträge: 976
Wohnort: Tübingen

Deaktivier mal Face-Culling: glDisable(GL_CULL_FACE);

_________________
"Du musst ein Schwein sein in dieser Welt, sangen die Prinzen, das ist so 1.0. Du musst auf YouTube zeigen, dass dir dein Schweinsein gefällt, das ist leuchtendes, echtes Web 2.0."
- Hal Faber
Meine Homepage: http://laboda.delphigl.com

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Jan 16, 2006 18:55

Guitar Hero

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

Willkommen in der Welt des geschwindigkeitsoptimierten OpenGL.

Dein Fehler ist gar kein Fehler, sondern eine Optimierung. Du findest mehr dazu im Wiki unter http://wiki.delphigl.com/index.php/Backface_Culling

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

Nach oben

Lt.Cmd.Data

Betreff des Beitrags:

Verfasst: Mo Jan 16, 2006 21:32

DGL Member

Registriert: Mo Jan 16, 2006 16:52
Beiträge: 20

Alles klar, das war das Problem. Danke.

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

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.