DGL • Thema anzeigen - freie Rotation einer 3ds-Datei

freie Rotation einer 3ds-Datei

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

MatReno

Betreff des Beitrags: freie Rotation einer 3ds-Datei

Verfasst: Mo Jan 31, 2005 15:25

DGL Member

Registriert: Mo Jan 31, 2005 11:02
Beiträge: 432
Wohnort: Rheinlandpfalz

Hi leute,

Das laden der 3ds-Datei funzt ganz gut (dank gl3ds.pas

)!, jedoch hab
ich folgendes Problem:

Wie kann ich die scene frei drehen mit Hilfe der Maus.
Hab folgende Variablen benutzt:

Opos, Npos :Tpoint; // zum speichern der alten und neuen Mausposition

Jetzt will ich daraus die entsprechenden Winkel in Grad berechnen: XRotate, bzw YRotate.

und dann die Scene rotieren:

...
glRotatef(XRotate,1,0,0);
glRotatef(YRotate,0,1,0);
...

Ich weiß, dass es was mit Sin() und Cos() zu tun hat. Hab schon viel rumprobiert und versucht es alleine zu lösen.
Leider ohne sichtbaren Erfolg. :cry:

Heraus kamen die unmöglichsten Rotationen, die man sich nur vorstellen kann.

Wäre euch sehr dankbar, wenn ihr mir die Formeln explizit für meinen Fall posten könnt.

Danke schon mal im Vorraus, :wink:

pheasant

_________________
http://texelviews.delphigl.com

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Jan 31, 2005 15:56

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Also ich habe auch ein paar Programme in denen ich den Inhalt mit der Maus drehe. Allerdings ist das wesentlich einfacher als du vielleicht denkst.

Ich habe es bei mir so gelöst, dass ich im FormMouseDown mir die Position gemerkt habe. Im FormMouseMove habe ich die Differenz zwischen der alten und der neuen Position einfach zu meinem globalen (bestandteil des Forms) XRotate und YRotate hinzugerechnet. Jeweils den X Anteil auf X und Y auf Y. Dabei aber aufgepasst. Ich habe dort die Werte durch einen Recht hohen Wert gerechnet, da es sich sonst viel zu schnell gedreht hätte. Anschließend habe ich im MouseMove die alten Position auf die Aktuelle gesetzt.

So hast du den Vorteil, dass du die Drehgeschwindigkeit durch anpassen des Divisionsfaktores anpassen kannst. Je nachdem was du vor hast ist das nicht unbedingt nachteilig.

Das war es eigentlich schon. Nur ganz leichte Addition. ;-)

Würde also in etwa so aussehen. Bei der 100 musst du mal rumspielen und testen wie du es haben willst. Kann dir das leider nicht so ganz sagen.

Code:

  private
    FMouseMove : Boolean;
    FMousePos: TPoint;
 
...
 
implementation
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FMouseMove then begin
    FRotateX := FRotateX + (FMousePos.X - X) / 100;
    FRotateY := FRotateY + (FMousePos.Y - Y) / 100;
 
    FMousePos.X := X;
    FMousePos.Y := Y;
  end;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseMove := True;
  FMousePos.X := X;
  FMousePos.Y := Y;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseMove := False;
end;

Nach oben

MatReno

Betreff des Beitrags: @Lossy eX

Verfasst: Di Feb 01, 2005 10:49

DGL Member

Registriert: Mo Jan 31, 2005 11:02
Beiträge: 432
Wohnort: Rheinlandpfalz

Endlich funzt es!!

Und dabei war es ja so einfach. :wink:

Vielen dank für deine Hilfe !!!

pheasant

_________________
http://texelviews.delphigl.com

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

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.