DGL • Thema anzeigen - Kamera Steuerung

Kamera Steuerung

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

-steve

Betreff des Beitrags: Kamera Steuerung

Verfasst: So Apr 30, 2006 12:36

DGL Member

Registriert: Sa Apr 29, 2006 12:26
Beiträge: 15

Hallo,

ich weiß, dass dieses Thema schon oft behandelt wurde, aber ich habe immer noch ein Problem mit meiner Kamera.

Ich kann mich mit den Pfeiltasten im Raum bewegen und mich mit der Maus umsehen. Dazu rufe ich erst glrotate und dann gltranslate auf. Das bewirkt, dass ich mich zwar um die eigene Achse drehe, aber immer in Richtung der Koordinatenachsen laufe. Wie kann ich mich also wenn ich beispielsweise "links" wirklich nach links bewegen, und nicht entlang der x-Achse?

Hier ein ausschnitt:

Code:

 
procedure TfrmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  glmatrixmode(gl_modelview);
  glloadidentity;
 
    inc(rotate_y,(x-x_alt)); //rotate_x, rotate_y sind glob. Variablen vom Typ integer
 
    inc(rotate_x,(y-y_alt));
 
  glrotatef(-rotate_x*0.1,-1,0,0);
  glrotatef(-rotate_y*0.1,0,-1,0);
  gltranslatef(position_x,position_y,position_z);
 
  x_alt:=x;
  y_alt:=y;
.
.
.
end;
 
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  v,a,b:tvector;
begin
  glmatrixmode(gl_modelview);
  glloadidentity;
 
  if key=vk_escape then application.Terminate
  else if key=vk_left then
    begin
    position_x:=position_x+0.2;
    end
  else if key=vk_right then
    begin
    position_x:=position_x-0.2;
    end
  else if key=vk_up then
    begin
    position_z:=position_z+0.2;
    end
  else if key=vk_down then
    begin
    position_z:=position_z-0.2;
    end;
 
  glrotatef(-rotate_x*0.1,-1,0,0);
  glrotatef(-rotate_y*0.1,0,-1,0);
  gltranslatef(position_x,position_y,position_z);
end;
 

Danke,
-steve

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: So Apr 30, 2006 12:42

Ernährungsberater

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

Such im Forum mal nach: CAD_Template
Das wurde genau zu diesem Zweck gepostet.

Nach oben

-steve

Betreff des Beitrags:

Verfasst: So Apr 30, 2006 19:12

DGL Member

Registriert: Sa Apr 29, 2006 12:26
Beiträge: 15

jo, vielen Dank, ich hab's hinbekommen

Nach oben

r4v3r

Betreff des Beitrags:

Verfasst: Mi Feb 14, 2007 15:36

DGL Member

Registriert: So Jan 07, 2007 19:22
Beiträge: 5

Kann nochmal jemand sagen, wie das geht? Hab nämlich im Moment dasselbe Problem und finde hier im Forum nur 3 Threads (darunter der hier und die anderen 2 erwähnen nur das Wort einmal) und in der wiki und auf der Hauptseite finde ich garnichts... :roll:

Nach oben

PhoenixGL

Betreff des Beitrags:

Verfasst: Mi Feb 14, 2007 15:57

DGL Member

Registriert: Fr Jun 20, 2003 13:59
Beiträge: 134

nehmen wir an du willst dich 0.5 nach vorn bewegen das sieht on dich gedreht zu haben so aus ( 0, 0, 0.5 )
und wenn du dich gedreht hast rechnest du diesen vektor einfach so um das er in die richtung zeigt in die du dich gedreht hast

strecke=0.5

z=cos(rotation)*strecke
x=sin(rotation)*strecke

so habs ich es zumindest immer gemacht
das geht solange nur die rotation um Y möglich ist bzw. sich nur dies rotation auf die bewegungsrichtung auswirkt für alles andere solltest du dir das mal anschaun.

_________________
ghost-site.de

Nach oben

r4v3r

Betreff des Beitrags:

Verfasst: Mi Feb 14, 2007 17:11

DGL Member

Registriert: So Jan 07, 2007 19:22
Beiträge: 5

Hab das Tutorial jetzt mal durchgearbeitet, aber leider funktioniert das immer noch nicht so, wie ich das möchte :-\
Das ist im Moment mein Quelltext:

Code:

 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  keys[key] := true;
 
  UpdateMovement;
 
  if keys[VK_UP] then
    begin
      RotateX:= RotateX-0.8; //Drehung um die x-Achse
      if RotateX > 360 then RotateX:= RotateX-360;
    end;
 
  if keys[VK_DOWN] then
    begin
      RotateX:= RotateX+0.8; //Drehung um die x-Achse
      if RotateX > 360 then RotateX:= RotateX-360;
    end;
 
  if keys[VK_RIGHT] then
    begin
      RotateY:= RotateY+0.8; //Drehung um die y-Achse
      if RotateX > 360 then RotateX:= RotateX-360;
    end;
 
  if keys[VK_LEFT] then
    begin
      RotateY:= RotateY-0.8; //Drehung um die y-Achse
      if RotateX > 360 then RotateX:= RotateX-360;
    end;
end;

Dann meine UpdateMovement-Procedure:

Code:

procedure TForm1.UpdateMovement;
const RotXAxis : TVector3f=(1, 0, 0);
      RotYAxis : TVector3f=(0, 1, 0);
      RotZAxis : TVector3f=(0, 0, 1);
var direction: real;
    LookVec: TVector4f;
begin
  if keys[ord('W')] then direction:= 1
  else if keys[ord('S')] then direction:= -1
  else exit;
 
  LookVec[0]:= 0;
  LookVec[1]:= 0;  
  LookVec[2]:= 1;
  LookVec[3]:= 0;  // W-Wert wird nicht gebraucht
 
  VectorRotate(LookVec, RotZAxis, -degtorad(RotateZ));
  VectorRotate(LookVec, RotYAxis, -degtorad(RotateY));  // LookVektor drehen
  VectorRotate(LookVec, RotXAxis, -degtorad(RotateX));
 
  PosVect[0]:= PosVect[0]+(LookVec[0]* (direction*0.1));
  PosVect[1]:= PosVect[1]+(LookVec[1]* (direction*0.1));
  PosVect[2]:= PosVect[2]+(LookVec[2]* (direction*0.1));
end;

Hab das im Gegensatz zum Tutorial ein bisschen geändert, bei mir ist nicht LookVec[1]:= 1 sonder LookVec[2]:= 1, damit sich die Kamera nach vorne beweget und ich habe RotateVector zu VectorRotate geändert, weil es das erstere in der geometry.pas iwie nicht gibt

Dazu habe ich in der Render-Routine glRotatef vor glTranslatef, damit sich die Kamera um sich selbst dreht.

Trotzdem bewegt sich die Kamera immer noch nur auf der Z-Achse..

Nach oben

PhoenixGL

Betreff des Beitrags:

Verfasst: Do Feb 15, 2007 09:16

DGL Member

Registriert: Fr Jun 20, 2003 13:59
Beiträge: 134

mir sind grad nur ein paar kleine copy and paste fehler aufgefallen aber daran wirds nicht liegen denk ich
könntest du nochmal ein bisschen mehr code posten ( z.B. deine Rendermethode ) in dem hier sieht soweit alles in ordnung aus

Code:

 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
keys[key] := true;
 
UpdateMovement;
 
if keys[VK_UP] then
begin
RotateX:= RotateX-0.8;
if RotateX < 0 then RotateX:= RotateX+360;      //<--HIER
end;
 
if keys[VK_DOWN] then
begin
RotateX:= RotateX+0.8; 
if RotateX > 360 then RotateX:= RotateX-360;
end;
 
if keys[VK_RIGHT] then
begin
RotateY:= RotateY+0.8;
if RotateY > 360 then RotateY:= RotateY-360;      //<--HIER
end;
 
if keys[VK_LEFT] then
begin
RotateY:= RotateY-0.8; 
if RotateY < 0 then RotateY:= RotateY+360;      //<--UND HIER
end;
end; 

_________________
ghost-site.de

Nach oben

r4v3r

Betreff des Beitrags:

Verfasst: So Feb 18, 2007 16:18

DGL Member

Registriert: So Jan 07, 2007 19:22
Beiträge: 5

Ok, hab das jetzt doch anders gemacht, hab sowas ähnliches wie in deinem ersten Beitrag gefunden, wenn man mit ganz einfacher Tirgonometrie arbeitet, also die Strecken einfach mit Winkelfunktionen berechnet! Hab das jetzt so gelöst:

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssShift in Shift) and (Key = Ord('W')) then y:=y-0.1
  else if (ssShift in Shift) and (Key = Ord('S')) then y:=y+0.1
  else case key of
    ord('W'): begin
                Z:= Z + Cos(-angley * (PI / 180)) * (0.1);
                x:= x + Sin(-angley * (PI / 180)) * (0.1);
              end;
    ord('A'):begin
               Z:= Z - Sin(-angley * (PI / 180)) * (0.1);
               x:= x + Cos(-angley * (PI / 180)) * (0.1);
             end;
    ord('S'): begin
                Z:= Z - Cos(-angley * (PI / 180)) * (0.1);
                x:= x - Sin(-angley * (PI / 180)) * (0.1);
              end;
    ord('D'): begin
               Z:= Z + Sin(-angley * (PI / 180)) * (0.1);
               x:=x - Cos(-angley * (PI / 180)) * (0.1);
             end;
    VK_UP: anglex:=anglex+1;
    VK_DOWN: anglex:=anglex-1;
    VK_LEFT: angley:=angley-1;
    VK_RIGHT: angley:=angley+1;
  end;
end;

Ich persönlich find das einfacher, als wenn man das mit dieser UpdateMovement-Routine macht :wink:

Trotzdem danke für deine Hilfe Phoenix!

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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