DGL • Thema anzeigen - Kamera Bewegung

Kamera Bewegung

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seth

Betreff des Beitrags: Kamera Bewegung

Verfasst: So Nov 12, 2006 12:22

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

hi, in meiner szene rotiere ich erst und verschiebe dann meine szene, damit ich die kamera relativ zum derzeitigen punkt an dem ich mich befinde drehen kann. jetzt möchte ich die kamera relativ zu blickrichtung bewegen, nach vorn oder zurück, jedoch klappt das net, ich denke dass der grundgedanke stimmt, die bewegungsrichtung stimmt nicht so wirklich

Code:

 
  if kforward then
  begin
    cpos.x := cpos.x + sin(crot.y*pi /180) * movespeed * timestep;
    cpos.z := cpos.z + cos(crot.y*pi /180) * movespeed * timestep;
  end;
 
  if kbackward then
  begin
    cpos.x := cpos.x - sin(crot.y*pi /180) * movespeed * timestep;
    cpos.z := cpos.z - cos(crot.y*pi /180) * movespeed * timestep;
  end;
 

cpos ist der positions und crot der rotationsvektor, movespeed ist die bewegungsgeschwindigkeit und timestep ist klar $\";)\"$

die initialwerte sehen so aus:

Code:

 
  crot := to_v3d(0, 180, 0);
  cpos := to_v3d(0, -2, 5);

so gehts:

Code:

 
  if kforward then
  begin
    cpos.x := cpos.x - sin(degtorad(crot.y)) * movespeed * timestep;
    cpos.z := cpos.z + cos(degtorad(crot.y)) * movespeed * timestep;
  end;
 
  if kbackward then
  begin
    cpos.x := cpos.x + sin(degtorad(crot.y)) * movespeed * timestep;
    cpos.z := cpos.z - cos(degtorad(crot.y)) * movespeed * timestep;
  end;
 

mfg

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: So Nov 12, 2006 14:08

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Also gehts doch?
Verstehs nit ganz, du hast die Lösung also schon?

Nach oben

Seth

Betreff des Beitrags:

Verfasst: So Nov 12, 2006 16:41

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

bietet sicher noch raum für optimierungen, aber so läuft das ganze:

Code:

 
procedure TMainForm.Movement;
var
  newspeed: single;
begin
  if kleft then
    crot.y := crot.y - rotspeed * timestep;
  if kright then
    crot.y := crot.y + rotspeed * timestep;
  if kup then
    crot.x := crot.x - rotspeed * timestep;
  if kdown then
    crot.x := crot.x + rotspeed * timestep;
 
  if crot.y < 0 then
    crot.y := crot.y + 360;
  if crot.y > 360 then
    crot.y := 360 - crot.y;
  if crot.x < 0 then
    crot.x := crot.x + 360;
  if crot.x > 360 then
    crot.x := 360 - crot.x;
 
  if (kmleft and (kforward or kbackward)) or
     (kmright and (kforward or kbackward)) then
    newspeed := movespeed / 2 else
      newspeed := movespeed;
 
  if kforward then
  begin
    cpos.x := cpos.x - sin(degtorad(crot.y)) * newspeed * timestep;
    cpos.z := cpos.z + cos(degtorad(crot.y)) * newspeed * timestep;
  end;
  if kbackward then
  begin
    cpos.x := cpos.x + sin(degtorad(crot.y)) * newspeed * timestep;
    cpos.z := cpos.z - cos(degtorad(crot.y)) * newspeed * timestep;
  end;
  if kmleft then
  begin
    cpos.x := cpos.x - sin(degtorad(crot.y - 90)) * newspeed * timestep;
    cpos.z := cpos.z + cos(degtorad(crot.y - 90)) * newspeed * timestep;
  end;
  if kmright then
  begin
    cpos.x := cpos.x + sin(degtorad(crot.y - 90)) * newspeed * timestep;
    cpos.z := cpos.z - cos(degtorad(crot.y - 90)) * newspeed * timestep;
  end;
end;
 

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

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