DGL • Thema anzeigen - Timebased Movement

Timebased Movement

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Debo

Betreff des Beitrags: Timebased Movement

Verfasst: Mi Aug 09, 2006 21:57

DGL Member

Registriert: Di Aug 01, 2006 13:31
Beiträge: 4

Hi Leutz,

irgendwie möchte das bei mir nicht klappen - hab dutzende thread gelesen und auch im wiki geguckt aber irgendwas muss falsch sein. Denke ich habe das Grundprinzip verstanden nur weiss ich nicht was ich falsch mache.

zuerst deklariere ich :

Code:

var Freq, StartCount, FrameEndCount, SpeedFactor : Int64;

dann:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
QueryPerformanceFrequency(Freq);
.....
end;

Code:

procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  QueryPerformanceCounter(StartCount);
  StartTime:= GetTickCount;
  Render;
  QueryPerformanceCounter(FrameEndCount);
  SpeedFactor := ((FrameEndCount-StartCount) DIV Freq)*100;
  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;
 
  sleep(1);
  Done:= false;
end;

übrigens werden die Frame bei mir auch nicht als caption angezeigt ?!

und hinterher:

Code:

procedure TForm1.Bewegung;
begin
Ball.X:=(Ball.X+speed*SpeedFactor)*Ball.VektorX;
Ball.Y:=(Ball.Y+speed*SpeedFactor)*Ball.VektorY;
end;

Ball.Vektor ist nur 1 oder -1

Das Ergebnis ist, dass der Ball sich nicht mehr bewegt sindern still steht.

Bitte helft mir - verzweifle nun

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Mi Aug 09, 2006 22:34

DGL Member

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

Was macht denn das "DIV" da? Damit machst du ja eine Integer-Division, bei der das Ergebnis als ein in Richtung 0 gerundeter ganzer Wert ausgegeben wird (in diesem Fall 0). Da aber Speedfactor immer eine Fließkommazahl sein dürfte, muss da "normal" geteilt werden.

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

Kaji

Betreff des Beitrags:

Verfasst: Do Aug 10, 2006 10:04

DGL Member

Registriert: Mi Aug 02, 2006 16:58
Beiträge: 22
Wohnort: Clausthal-Zellerfeld

Und das die FPS nicht angezeigt werden ist eigentllich auch klar. ( ich weiss nicht warum das in dem Tutorial funktioniert hat ) Aber ich musste bei mir auch TForm1.Caption schreiben.

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: Do Aug 10, 2006 10:33

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

Also TForm1.Caption dürfte eigentlich nichgt funkionieren. Nur Form1.Caption und einfach nur Caption (weil der IdleHandler eine Methode von TForm1 ist)

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Do Aug 10, 2006 10:44

DGL Member

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

Im offiziellen DGL-Header heißt es "GLForm". Nichtsdestotrotz sollte das Caption alleine ausreichen.

Nach oben

Debo

Betreff des Beitrags:

Verfasst: Do Aug 10, 2006 14:23

DGL Member

Registriert: Di Aug 01, 2006 13:31
Beiträge: 4

Also, hab jetzt SpeedFactor Extended gemacht, damit

Code:

funktioniert und ich nicht

Code:

nehmen muss. Trotzdem funktioniert es noch nicht. Der Ball fliegt zwar erst los (vorher tat sich garnichts) jedoch immer noch FPS abhängig, denn wenn ich nebenbei mehr Programme anmache, wechselt die Geschwindigkeit.
Dazu gibt es nun ein sehr merkwürdiges Verhalten nach der 1. Kollision. (zu einer 2. kommt es auch erst garnicht

)

Nun warte ich wieder auf Hilfe und probier in derzeit mal ein wenig rum.

Das mit dem TForm1.Caption dacht ich auch erst, aber ging auch nicht.

Nach oben

Debo

Betreff des Beitrags:

Verfasst: Do Aug 10, 2006 15:21

DGL Member

Registriert: Di Aug 01, 2006 13:31
Beiträge: 4

wie gesagt, hab jetzt mal ein wenig (viel) rumgespielt und einfach manches aus dem OpenGL1.5 Templates (hier in den Files) übernommen. FPS werden jetzt angezeigt, nur das mit dem Ball hat noch nicht hin....

hier einfach mal mein ganzer code, ausgenommen die Schlaeger und das Spielfeld, hab ich in extra units gelassen. Hoffe ich könnt mir weiterhelfen, soass ich weiter an meinem Projekt arbeiten kann.

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpengl;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    ShowFPS   : Boolean;    FontBase  : GLUInt;    StartTick : Cardinal;
    Frames    : Integer;    FPS       : Single;
    procedure GoToFullScreen(pWidth, pHeight, pBPP, pFrequency : Word);
    procedure BuildFont(pFontName : String);
    procedure PrintText(pX,pY : Integer; const pText : String);
    procedure ShowText;
    procedure SetupGL;
    procedure Render;
    procedure ErrorHandler;
    procedure Perspektive;
    procedure init;
    procedure Pong;
    procedure Bewegung;
    procedure KollisionWand;
    procedure KollisionSchlaeger;
  public
    { Public declarations }
    DC                                : HDC;   //Handle auf Zeichenfläche
    RC                                : HGLRC; //Rendering Context
  end;
 
type TBall = record
     X       : GlFloat;
     Y       : GlFloat;
     VektorX : GlFloat;
     VektorY : GlFloat;
     end;
 
var
  Form1: TForm1;
 
implementation
 
uses Spielfeld, Schlaeger;//, Spielball;
 
{$R *.dfm}
 
const NearClipping = 0.1;
      FarClipping  = 100;
 
var   Ball : TBall;
      speed: GlFloat;
      Freq, StartCount, FrameEndCount : Int64;
      SpeedFactor : Extended;
 
procedure TForm1.GoToFullScreen(pWidth, pHeight, pBPP, pFrequency : Word);
var
 dmScreenSettings : DevMode;
begin
// Fenster vor Vollbild vorbereiten
WindowState := wsMaximized;
BorderStyle := bsNone;
ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
with dmScreenSettings do
 begin
 dmSize              := SizeOf(dmScreenSettings);
 dmPelsWidth         := pWidth;                    // Breite
 dmPelsHeight        := pHeight;                   // Höhe
 dmBitsPerPel        := pBPP;                      // Farbtiefe
 dmDisplayFrequency  := pFrequency;                // Bildwiederholfrequenz
 dmFields            := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
 end;
if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
 begin
 MessageBox(0, 'Konnte Vollbildmodus nicht aktivieren!', 'Error', MB_OK or MB_ICONERROR);
 exit
 end;
end;
 
procedure TForm1.BuildFont(pFontName : String);
var
 Font : HFONT;
begin
// Displaylisten für 256 Zeichen erstellen
FontBase := glGenLists(96);
// Fontobjekt erstellen
Font     := CreateFont(16, 0, 0, 0, FW_MEDIUM, 0, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS,
                       ANTIALIASED_QUALITY, FF_DONTCARE or DEFAULT_PITCH, PChar(pFontName));
// Fontobjekt als aktuell setzen
SelectObject(DC, Font);
// Displaylisten erstellen
wglUseFontBitmaps(DC, 0, 256, FontBase);
// Fontobjekt wieder freigeben
DeleteObject(Font)
end;
 
procedure TForm1.PrintText(pX,pY : Integer; const pText : String);
begin
if (pText = '') then
 exit;
glPushAttrib(GL_LIST_BIT);
 glRasterPos2i(pX, pY);
 glListBase(FontBase);
 glCallLists(Length(pText), GL_UNSIGNED_BYTE, PChar(pText));
glPopAttrib;
end;
 
procedure TForm1.ShowText;
begin
// Tiefentest und Texturierung für Textanzeige deaktivieren
glDisable(GL_DEPTH_TEST);
glDisable(GL_TEXTURE_2D);
// In orthagonale (2D) Ansicht wechseln
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glOrtho(0,640,480,0, -1,1);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
PrintText(5,15, FloatToStr(FPS)+' fps');
glEnable(GL_DEPTH_TEST);
glEnable(GL_TEXTURE_2D);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
// GoToFullscreen(1600, 1200, 32, 75);
InitOpenGL;
QueryPerformanceFrequency(Freq);
DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
  init;
  BuildFont('MS Sans Serif');
  Application.OnIdle := IdleHandler;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0, 0, 0, 0);         //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
procedure TForm1.init;
begin
S1.Y:=0;             //Startposition Spieler1
S2.Y:=0;             //Startposition Spieler2
Ball.X:=0;           //Startposition Ball X-Koordinate
Ball.Y:=0;           //Startposition Ball Y-Koordinate
speed:=0.1;            //Bewegung des Balls in X-Richtung/Y-Richtung
Ball.VektorX:=1;     // 1 = nach rechts / -1 nach links
Ball.VektorY:=1;     // 1 = nach oben   / -1 nach unten
end;
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(60, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  IdleHandler(Sender, tmpBool);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
// In die Projektionsmatrix wechseln
glMatrixMode(GL_PROJECTION);
// Identitätsmatrix laden
glLoadIdentity;
// Viewport an Clientareal des Fensters anpassen
glViewPort(0, 0, ClientWidth, ClientHeight);
// Perspective, FOV und Tiefenreichweite setzen
gluPerspective(45, ClientWidth/ClientHeight, 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);
 
QueryPerformanceCounter(StartCount);
Render;
QueryPerformanceCounter(FrameEndCount);
SpeedFactor := ((FrameEndCount-StartCount) / Freq)*100;
 
ShowText;
 
// Hinteren Puffer nach vorne bringen
SwapBuffers(DC);
 
// Windows denken lassen, das wir noch nicht fertig wären
Done := False;
 
// Nummer des gezeichneten Frames erhöhen
inc(Frames);
// FPS aktualisieren
if GetTickCount - StartTick >= 500 then
 begin
 FPS       := Frames/(GetTickCount-StartTick)*1000;
 Frames    := 0;
 StartTick := GetTickCount
 end;
end;
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
procedure TForm1.Render;
begin
  {//Matrizen vorbereiten
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
  glMatrixMode(GL_MODELVIEW);}
 
  //Spielfeld zeichnen
  Perspektive; glTranslatef( 35, -25, 0); Wvertikal;   //Rechts
  Perspektive; glTranslatef(-35, -25, 0); Wvertikal;   //Links
  Perspektive; glTranslatef(-35,  25, 0); Woben;       //Oben
  Perspektive; glTranslatef(-35, -25, 0); Whorizontal; //Unten
  Perspektive; glTranslatef(0  , -25, 0); Mittellinie;
 
  //Schläger zeichen + Schläger Bewegungen
  Perspektive; Spieler1;  Perspektive; Spieler2;
 
  //Ballposition Bestimmen + Ball zeichnen
  Perspektive; Pong;
 
  SwapBuffers(DC);
end;
 
procedure TForm1.Perspektive;
begin
glLoadIdentity;
glTranslatef(0, 0, -65);
end;
 
 
 
// Spielball
 
procedure TForm1.Pong;
begin
KollisionSchlaeger;
KollisionWand;
Bewegung;
glTranslatef(Ball.X,Ball.Y,0);
  glBegin(GL_QUADS);
    glColor3f(1, 0, 0); glVertex3f(0  , 0,   0); //Unten Links
    glColor3f(1, 0, 0); glVertex3f(1.5, 0,   0); //Unten Rechts
    glColor3f(1, 0, 0); glVertex3f(1.5, 1.5, 0); //Oben Rechts
    glColor3f(1, 0, 0); glVertex3f(0  , 1.5, 0); //Oben Links
  glEnd;
end;
 
procedure TForm1.Bewegung;
begin
Ball.X:=(Ball.X+speed*SpeedFactor)*Ball.VektorX;
Ball.Y:=(Ball.Y+speed*SpeedFactor)*Ball.VektorY;
end;
 
procedure TForm1.KollisionWand;
begin
if Ball.X>=33.5  then Ball.VektorX:=-1;
if Ball.X<=-34.5 then Ball.VektorX:=1;
if Ball.Y>=23.5  then Ball.VektorY:=-1;
if Ball.Y<=-24.5  then Ball.VektorY:=1;
end;
 
procedure TForm1.KollisionSchlaeger;
begin
if (Ball.X<=-31.5) AND (Ball.Y>=S1.Y) AND (Ball.Y<=S1.Y+10) then
  begin
    Ball.VektorX:=1;
  end;
 
if (Ball.X>=30.5) AND (Ball.Y>=S2.Y) AND (Ball.Y<=S2.Y+10) then
  begin
    Ball.VektorX:=-1;
  end;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
 #27 : Close;
end;
end;
 
end.

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Do Aug 10, 2006 15:35

DGL Member

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

Hmm dass das Ganze immer noch FPS-abhängig abläuft kann ich nicht nachvollziehen.

Grundsätzlich solltest du aber alle OpenGL-Operationen in Idle mit in die Zeitberechnung miteinbeziehen.

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

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.