AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi OpenGL Kamera Problem - Drehung
Thema durchsuchen
Ansicht
Themen-Optionen

OpenGL Kamera Problem - Drehung

Ein Thema von Neutral General · begonnen am 27. Sep 2005 · letzter Beitrag vom 3. Okt 2005
 
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#13

Re: OpenGL Kamera Problem - Drehung

  Alt 2. Okt 2005, 12:51
Delphi-Quellcode:
procedure Render;
begin
 glClear(GL_COLOR_BUFFER_Bit or GL_DEPTH_BUFFER_BIT);
 glLoadIdentity;
 glpushname(0);

 glrotated(25,0.5,0,0);
 glrotated(180,0.0,1.0,0.0); // Hier setze ich die Position wo die kamera startet.. und genau das ist das problem -.-
 gltranslated(-5,-0.2,0.0); // wenn ich das weglasse gehts -.-

 if Mauspos = 1 then begin
  Grad := Grad - (0.3* timefactor);
 end;
 if Mauspos = 2 then begin
  Grad := Grad + (0.3* timefactor);
 end;

 if GetAsyncKeystate(Ord('W')) <> 0 then begin
   PosX := PosX + sin(degtorad(Grad)) * 0.1 * Timefactor;
   PosZ := PosZ - cos(degtorad(Grad)) * 0.1 * Timefactor;
 end
 else
 if GetAsyncKeystate(Ord('S')) <> 0 then begin
   PosX := PosX - sin(degtorad(Grad)) * 0.1 * Timefactor;
   PosZ := PosZ + cos(degtorad(Grad)) * 0.1 * Timefactor;
 end;

glrotated(Grad,0,1,0);
glTranslated(PosX,0,PosZ);
Siehe Quelltext...
Danke nochmal für alles
Aber wo setze ich jetzt die Anfangsposition ?
Michael
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz