DGL • Thema anzeigen

Rendern

Moderator: DGL-Team

Seite 2 von 5

[ 69 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3, 4, 5 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

La Boda

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:23

DGL Member

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

@LH_Freak: Naja, wenns schwarz ist, dann is ja schon mal gut, das zeigt dir, dass (höchstwahrscheinlich) korrekt initialisiert wurde -> wahrscheinlich liegts an was anderem, post mal das Zeug, das gerendert werden soll.

_________________
"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

LH_Freak

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:25

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

hier:

Code:

glBegin(GL_QUADS);
  glColor3f(1,0,0);
  glVertex3f(-1,-1,-5);
  glColor3f(0,1,0);
  glVertex3f(-1,1,-5);
  glColor3f(0,0,1);
  glVertex3f(1,1,-5);
  glColor3f(0,1,1);
  glVertex3f(1,-1,-5);
glEnd;

Ach ja, ich benutz die dglOpenGL!

Zuletzt geändert von LH_Freak am Di Mai 24, 2005 19:20, insgesamt 1-mal geändert.

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:28

DGL Member

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

Stell mal die ganzen Minus-Fünfen auf Plus-Fünfen

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:29

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

ne, irgendwie net!

Nach oben

rswm

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:40

DGL Member

Registriert: Mi Aug 28, 2002 19:27
Beiträge: 568
Wohnort: Chemnitz / Sachsen

schalt mal gl_cull_face ab, evtl liegts daran ...

_________________
Aktuelles Projekt :
www.PicPlace.de

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:44

DGL Member

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

wenns ned hilft, dann post mal alle Prozeduren (selbstgemachte!), in den ein gl-Befehl drinsteht. Versuchen wir mal eine Radikalkur

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:48

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

höhm (wegen selbstgemachte; da gibt's net viele (eigentlich gar keine))
Aber gut:

Code:

procedure TEngine.Init;
var
i: integer;
begin
// Wenn gewollt, dann hier in den Vollbildmodus wechseln
// Muss vorm Erstellen des Kontextes geschehen, da durch den Wechsel der
// Gerätekontext ungültig wird!
 
// OpenGL-Funtionen initialisieren
InitOpenGL;
// Gerätekontext holen
DC := GetDC(Handle);
// Renderkontext erstellen (32 Bit Farbtiefe, 24 Bit Tiefenpuffer, Doublebuffering)
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
// Erstellten Renderkontext aktivieren
ActivateRenderingContext(DC, RC);
// Tiefenpuffer aktivieren
glEnable(GL_DEPTH_TEST);
// Nur Fragmente mit niedrigerem Z-Wert (näher an Betrachter) \"durchlassen\"
glDepthFunc(GL_LESS);
// Löschfarbe für Farbpuffer setzenprocedure TForm1.FormCreate(Sender: TObject);
begin
Engine := TEngine.Create;
Engine.Handle := Handle;
Engine.init;
end;
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
Engine.BeginRender;
 
glBegin(GL_QUADS);
  glColor3f(1,0,0);
  glVertex3f(-1,-1,5);
  glColor3f(0,1,0);
  glVertex3f(-1,1,5);
  glColor3f(0,0,1);
  glVertex3f(1,1,5);
  glColor3f(0,1,1);
  glVertex3f(1,-1,5);
glEnd;
 
Engine.EndRender;
 
Engine.GetFPS;
Caption := '[' + FloatToStr(Engine.FPS) + ' fps]';
Done := False;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Engine.Kill;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
close;
end;
 
end.
// Displayfont erstellen
//BuildFont('MS Sans Serif');
// Idleevent für Rendervorgang zuweisen
//Application.OnIdle := ApplicationEventsIdle;
// Zeitpunkt des Programmstarts für FPS-Messung speichern
StartTick := GetTickCount;
end;
 
procedure TEngine.Kill;
begin
// Renderkontext deaktiveren
DeactivateRenderingContext;
// Renderkontext \"befreien\"
wglDeleteContext(RC);
// Erhaltenen Gerätekontext auch wieder freigeben
ReleaseDC(Handle, DC);
// Falls wir im Vollbild sind, Bildschirmmodus wieder zurücksetzen
ChangeDisplaySettings(devmode(nil^), 0);
end;
 
procedure TEngine.BeginRender;
begin
// In die Projektionsmatrix wechseln
glMatrixMode(GL_PROJECTION);
// Identitätsmatrix laden
glLoadIdentity;
// Viewport an Clientareal des Fensters anpassen
glViewPort(0, 0, Width, Height);
// Perspective, FOV und Tiefenreichweite setzen
gluPerspective(60, Width/Height, 1, 128);
 
// In die Modelansichtsmatrix wechseln
glMatrixMode(GL_MODELVIEW);
// Identitätsmatrix laden
glLoadIdentity;
// Farb- und Tiefenpuffer löschen
end;
 
procedure TEngine.EndRender;
begin
// Hinteren Puffer nach vorne bringen
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
SwapBuffers(DC);
end;
 
procedure TEngine.GetFPS;
begin
inc(Frames);
// FPS aktualisieren
if GetTickCount - StartTick >= 500 then
 begin
 FPS       := Frames/(GetTickCount-StartTick)*1000;
 Frames    := 0;
 StartTick := GetTickCount
 end;
end;
 
end.

Des ist der Quelltext der engine.

Und hier der in meiner Unit XY:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
Engine := TEngine.Create;
Engine.Handle := Handle;
Engine.init;
end;
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
Engine.BeginRender;
 
glBegin(GL_QUADS);
  glColor3f(1,0,0);
  glVertex3f(-1,-1,5);
  glColor3f(0,1,0);
  glVertex3f(-1,1,5);
  glColor3f(0,0,1);
  glVertex3f(1,1,5);
  glColor3f(0,1,1);
  glVertex3f(1,-1,5);
glEnd;
 
Engine.EndRender;
 
Engine.GetFPS;
Caption := 'Morph3D - [' + FloatToStr(Engine.FPS) + ' fps]';
Done := False;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Engine.Kill;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
close;
end;
 
end.

Zuletzt geändert von LH_Freak am Di Mai 24, 2005 19:22, insgesamt 1-mal geändert.

Nach oben

geo

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 20:58

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Ah!!

Code:

procedure TEngine.EndRender; 
begin 
// Hinteren Puffer nach vorne bringen 
SwapBuffers(DC); 
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); 
end; 

sonst löscht du erst das Bild, und bringst es dann auf den Schirm!!!

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 21:02

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

geht immer noch net :heul:

Nach oben

geo

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 21:04

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Hast du noch mal nach meiner Änderung probiert die z werte auf -5 zu setzen...

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 21:10

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

geht net.

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Do Jan 20, 2005 21:48

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

Hier hab aus deinem Copy & Paste Unfall dies hier gebastelt.
Das Funktioniert auch, mit ein wenig fleiss haettest du das
sich auch zum Laufen bekommen

Code:

unit test_main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AppEvnts,dglOpenGL;
 
type
  TEngine = class
  private
    fHandle        : THandle;
    dc             : HDC;
    rc             : HGLRC;
    StartTick      : LongWord;
    Frames         : LongWord;
    FPS            : Single;
    fWidth,fHeight : Integer;
  public
    constructor Create(Handle:THandle; Width,Height:Integer);
    destructor  Destroy;
    procedure   BeginRender;
    procedure   EndRender;
    procedure   GetFPS;
  end;
 
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure FormClose(Sender:TObject; var Action:TCloseAction);
    procedure FormKeyDown(Sender:TObject; var Key:Word; Shift:TShiftState);
    procedure FormCreate(Sender:TObject);
    procedure ApplicationEvents1Idle(Sender:TObject; var Done:Boolean);
  private
    Engine : TEngine;
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
 
 
constructor TEngine.Create(Handle:THandle; Width,Height:Integer);
var
  i: integer;
begin
  inherited Create;
  fHandle := Handle;
  fWidth  := Width;
  fHeight := Height;
 
  // Wenn gewollt, dann hier in den Vollbildmodus wechseln
  // Muss vorm Erstellen des Kontextes geschehen, da durch den Wechsel der
  // Gerätekontext ungültig wird!
 
  // OpenGL-Funtionen initialisieren
  InitOpenGL;
  // Gerätekontext holen
  DC := GetDC(fHandle);
  // Renderkontext erstellen (32 Bit Farbtiefe, 24 Bit Tiefenpuffer, Doublebuffering)
  RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  // Erstellten Renderkontext aktivieren
  ActivateRenderingContext(DC, RC);
  // Tiefenpuffer aktivieren
  glEnable(GL_DEPTH_TEST);
  // Nur Fragmente mit niedrigerem Z-Wert (näher an Betrachter) \"durchlassen\"
  glDepthFunc(GL_LESS);
  // Löschfarbe für Farbpuffer setzen
 
 
  // Displayfont erstellen
  //BuildFont('MS Sans Serif');
  // Idleevent für Rendervorgang zuweisen
  //Application.OnIdle := ApplicationEventsIdle;
  // Zeitpunkt des Programmstarts für FPS-Messung speichern
  StartTick := GetTickCount;
end;
 
destructor TEngine.Destroy;
begin
  // Renderkontext deaktiveren
  DeactivateRenderingContext;
  // Renderkontext \"befreien\"
  wglDeleteContext(RC);
  // Erhaltenen Gerätekontext auch wieder freigeben
  ReleaseDC(fHandle, DC);
  // Falls wir im Vollbild sind, Bildschirmmodus wieder zurücksetzen
  ChangeDisplaySettings(devmode(nil^), 0);
 
  inherited Destroy;
end;
 
procedure TEngine.BeginRender;
begin
  // In die Projektionsmatrix wechseln
  glMatrixMode(GL_PROJECTION);
  // Identitätsmatrix laden
  glLoadIdentity;
  // Viewport an Clientareal des Fensters anpassen
  glViewPort(0, 0, fWidth, fHeight);
  // Perspective, FOV und Tiefenreichweite setzen
  gluPerspective(60, fWidth/fHeight, 1, 128);
 
  // In die Modelansichtsmatrix wechseln
  glMatrixMode(GL_MODELVIEW);
  // Identitätsmatrix laden
  glLoadIdentity;
  // Farb- und Tiefenpuffer löschen
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
end;
 
procedure TEngine.EndRender;
begin
  // Hinteren Puffer nach vorne bringen
  SwapBuffers(DC);
end;
 
procedure TEngine.GetFPS;
begin
  inc(Frames);
  // FPS aktualisieren
  if GetTickCount - StartTick >= 500 then begin
    FPS       := Frames/(GetTickCount-StartTick)*1000;
    Frames    := 0;
    StartTick := GetTickCount
  end;
end;
 
//------------------------------------------------------------------------------
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Engine := TEngine.Create(Handle,Width,Height);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Engine.Free;
end;
 
procedure TForm1.FormKeyDown(Sender:TObject; var Key:Word; Shift:TShiftState);
begin
  close;
end;
 
procedure TForm1.ApplicationEvents1Idle(Sender:TObject; var Done:Boolean);
begin
  Engine.BeginRender;
 
  glBegin(GL_QUADS);
    glColor3f(1,0,0); glVertex3f(-1,-1,-5);
    glColor3f(0,1,0); glVertex3f(-1,1,-5);
    glColor3f(0,0,1); glVertex3f(1,1,-5);
    glColor3f(0,1,1); glVertex3f(1,-1,-5);
  glEnd;
 
  Engine.EndRender;
 
  Engine.GetFPS;
  Caption := '[' + FloatToStr(Engine.FPS) + ' fps]';
  Done := False;
end;
 
end.

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Fr Jan 21, 2005 18:44

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

Des geht auch net!
Es bleibt schwarz!

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Fr Jan 21, 2005 20:37

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Ich muss sagen das mir geht es schon, also das Problem liegt irgendwo anders in deinem Rechner...

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

geo

Betreff des Beitrags:

Verfasst: Fr Jan 21, 2005 20:45

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Oder woanders im Prgramm.

Hatte mal nen Problem mit Objektselektion, wo ich den Fehler absulut nicht finden konnte.

Habe alles in nen ganz neues Programm eingebaut... (Wer weiß, wo mann da irgendwass verändert hatt, irgendwamnn mal)

Und es lief! das Blöde nur, ich hatte den Fehler dabei nicht gefunden.

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

Seite 2 von 5

[ 69 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3, 4, 5 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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