DGL • Thema anzeigen - 2D Tutorial aber trotzdem kein Plan!

2D Tutorial aber trotzdem kein Plan!

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

juKx

Betreff des Beitrags: 2D Tutorial aber trotzdem kein Plan!

Verfasst: So Feb 12, 2006 22:08

DGL Member

Registriert: Di Jan 24, 2006 16:26
Beiträge: 25

hi,

ich habe mir das 2D Tutorial durchgelesen aber ich kann einfach nicht zeichen bei mir. Woran liegt es?Nicht richtig eingestellt?

Code:

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DGLOpenGL;
 
const  NearClipping = 1;
       FarClipping  = 1000;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private    { Private-Deklarationen }
    StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    procedure SetupGL;
    procedure Render;
    procedure ErrorHandler;
  public    { Public-Deklarationen }
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
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;
  Application.OnIdle := IdleHandler;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, 640, 480);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glOrtho(0,640,0,480, 0,128);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool);
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);
  glOrtho(0,640,0,480, 0,128);
 
  glTranslatef(0, 0, -5);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glBegin(GL_QUADS);
    glColor3f(1, 0, 0); glVertex3f(1, 1, 0);
    glColor3f(0, 1, 0); glVertex3f(1, 2, 0);
    glColor3f(0, 0, 1); glVertex3f(2, 2, 0);
    glColor3f(1, 1, 0); glVertex3f(2, 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;
 
  Done:= false;
end;
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
end.
 
 

thx im Voraus!

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: So Feb 12, 2006 23:43

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Wieso? Siehst du nicht den Pixel den du mit deiner Routine gezeichnet hast?
In einer Ecke solltest du einen bunten (welche Farbe OGL wohl nimmt...) Pixel sehen.
Mehr zeichnest du aber auch nicht.
Wenn er nicht schon durch glEnable(GL_CULL_FACE); ausgeblendet wird, was ich jetzt nicht überprüft habe.

Nach oben

juKx

Betreff des Beitrags:

Verfasst: Mo Feb 13, 2006 00:01

DGL Member

Registriert: Di Jan 24, 2006 16:26
Beiträge: 25

Heh,

danke für deine schnelle Antwort! Ich müsste das Quad erstmal viel größer zeichnen und dann noch glDisable(GL_CULL_FACE) an machen.

danke für die Hilfe!!!

Nach oben

Malax

Betreff des Beitrags:

Verfasst: Mo Feb 13, 2006 00:04

DGL Member

Registriert: Mo Jan 02, 2006 22:37
Beiträge: 39
Wohnort: Köln

i0n0s hat geschrieben:

Wenn er nicht schon durch glEnable(GL_CULL_FACE); ausgeblendet wird, was ich jetzt nicht überprüft habe.

Was i0n0s damit meint ist, das in OGL die Rückseite von Flächen nicht angezeigt werden wenn GL_CULL_FACE enabled ist. OGL bestimmt Vorder- und Rückseite anhand der Richtung in der du die Vertices gesetzt hast. In deinem Fall:

juKx hat geschrieben:

glColor3f(1, 0, 0); glVertex3f(1, 1, 0);
glColor3f(0, 1, 0); glVertex3f(1, 2, 0);
glColor3f(0, 0, 1); glVertex3f(2, 2, 0);
glColor3f(1, 1, 0); glVertex3f(2, 1, 0);

zeichnest du im uhrzeigersinn. OGL nimmt aber an, dass entgegen des Uhrzeigersinnes gezeichnet wird. Demnach wird deine "Vorderseite" einfach nicht angezeigt, weil es für OGL eine Rückseite ist

-Malax

Edit: Da du vor meinem Absenden schon geantwortet hast, füge ich gerade noch hinzu, dass du lieber die Zeichenrichtung OGL konform halten solltest, anstatt einfach das Culling zu deaktivieren.

Nach oben

Seite 1 von 1

[ 4 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.