DGL • Thema anzeigen - Gitterwürfel - drehen/steuern mit der Maus -

Gitterwürfel - drehen/steuern mit der Maus -

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

chris_kuni

Betreff des Beitrags: Gitterwürfel - drehen/steuern mit der Maus -

Verfasst: Sa Jun 16, 2007 14:23

DGL Member

Registriert: Fr Jun 15, 2007 18:20
Beiträge: 2

Hallo!

Ich kam irgentwie auf die Idee mich mal mit OpenGL zu beschäftigen und als Einstiegsprojekt wollte ich einen durchsichtigen Würfel erstellen, den man mit der Maus drehen kann. Dann hab ich hier mal im Forum geguckt und hier wurde schon ein Problem mit dem erstellen eines Würfels geschildert und ich habe mir gedacht, mach doch erstmal einen Würfel aus 12 Linien. Da wir gerade erst in der Schule angefangen haben uns mit Delphi zu beschäftigen sind meine Kenntnisse auch hier nicht sehr ausgeweitet und ich hatte erst so meine Probleme mit dem Einbinden eurer dglOpenGL Unit. Die Tutorials haben mir aber sehr weiter geholfen (dickes Lob!) und ich hab mich dann an den eigentlich OpenGL-Teil begeben.

Gezeichnet wird auf das Formular und der Würfel soll bei Programmstart in der Mitte sein. Man sollte dann mit der Maus den Würfel, ähnlich wie Google Earth drehen können, überlegt hatte ich mir hier die Koordinaten vom Ereignis MouseDown und MouseUp zu nehmen und sie zu Subtrahieren, es wird dann zwar erst nach dem MouseUp verschoben, aber etwas anderes ist mir nicht eingefallen.

Hier dann zwei Fragen:
Wie bekomme ich den Würfel in die Mitte und wie bleibt er beim drehen auf der Stelle?
Wie bekomme ich die Mauskoordinaten von Pixeln in die Einheiten, die OpenGl benutzt? (Im Forum habe ich nur von Einheiten in Pixeln gefunden)
Gibt es eine andere Möglichkeit den Würfel direkt mit der Mausbewegung zu verschieben?

Ich hoffe man konnte es lesen und einigermaßen verstehen.

Chris_Kuni

Nach oben

i0n0s

Betreff des Beitrags: Re: Gitterwürfel - drehen/steuern mit der Maus -

Verfasst: Sa Jun 16, 2007 14:49

Ernährungsberater

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

Willkommen bei DGL

chris_kuni hat geschrieben:

Hier dann zwei Fragen:

Drei *hust*

chris_kuni hat geschrieben:

Wie bekomme ich den Würfel in die Mitte und wie bleibt er beim drehen auf der Stelle?

glLoadIdentity; glTranslatef(-x,0,0); Würfel rendern;
Ansonsten Tutorial Lektion 3 nochmal lesen.

chris_kuni hat geschrieben:

Wie bekomme ich die Mauskoordinaten von Pixeln in die Einheiten, die OpenGl benutzt? (Im Forum habe ich nur von Einheiten in Pixeln gefunden)

gluUnproject

chris_kuni hat geschrieben:

Gibt es eine andere Möglichkeit den Würfel direkt mit der Mausbewegung zu verschieben?

Nein, es gibt keine eingebaute Funktion. Im DGLSDK findest du aber ein Beispiel eines Würfels der sich so bewegen lässt.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

gucky

Betreff des Beitrags:

Verfasst: So Jun 17, 2007 00:01

DGL Member

Registriert: Di Sep 19, 2006 13:24
Beiträge: 173

Also ich hab das bei nem Programm von mir auch mit OnMouseDown gemacht, hab keine AHnung was in dem tut steht aber ich kann ja mal eben hier reinkopieren wie es bei mir aussieht (übrigens dreht er in Echtzeit und nicht erst nachdem man loslässt)

Code:

 
procedure TForm1.Free1Click(Sender: TObject);
begin
mouse_rotate := true;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if mouse_rotate = true then
 begin
 tmpx := x;
 tmpy := y;
 tmpangelx := angelx;
 tmpangelz := angelz;
 mouse_move := true;
 end;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mouse_move = true then
 begin
 angelx := tmpangelx + (tmpy - y);
 angelz := tmpangelz + (tmpx -x);
 end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mouse_move := false;
end;
 
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
zoom := zoom -50;
end;
 
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
zoom := zoom + 50;
end;
 
procedure Tform1.cam(x,z,distance : integer);
begin
if angelx < x then angelx := angelx + 1;
if angelx > x then angelx := angelx - 1;
if angelz < z then angelz := angelz + 1;
if angelz > z then angelz := angelz - 1;
if zoom < distance then zoom := zoom + 2;
if zoom > distance then zoom := zoom -2;
if (round(angelx) = x) and (round(angelz) = z) and (round(zoom) = distance) then turning := false;
end;
 

cam wird in der Zeitroutine so aufgerufen:

Code:

 
 if turning = true then cam(destx,destz,destzoom);
 

Ich habe das ganze geschreiben als ich mit 3D Sachen noch nicht viel Erfahrung hatte, vielleicht geht es auch viel einfacher, hoffe das alles bei ist was du brauchst, wenn es Verständnisprobleme gibt frag nach, dann schau ich nochmal wie das genau funzt.[/pascal]

Nach oben

MatReno

Betreff des Beitrags:

Verfasst: So Jun 17, 2007 10:22

DGL Member

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

Hi,
ich habe das ähnlich wie gucky auch im MouseMove gemacht (Echtzeit). Wobei ich meine Methode für weniger kompliziert halte. Vorweg: Du brauchst 3 globale (oder in der Private-Section der Form-Klasse) deklarierte Array-Variablen. Einmal für die Mouse-Position, einmal für den Status, welche Maustaste gedrückt ist, und dann noch die letztendliche Rotation:

Code:

Var
  mDrag : Array [0..2] of Boolean; // 0=links, 1=mitte, 2=rechts
  mPos  : Array [0..1] of Integer; // 0=X, 1=Y
  mRot  : Array [0..1] of Single;  // 0=Rotation um X Achse, 1=Rotation um Y-Achse

So, hier kommen noch die Event-Procedures:

Code:

procedure TfGL.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Case Button of
    mbLeft   : mDrag[0] := true;
    mbMiddle : mDrag[1] := true;
    mbRight  : mDrag[2] := true;
  End;
 
  mPos[0]:=X;
  mPos[1]:=Y;
end;
 
  
procedure TfGL.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  // Wenn linke Maustatse gedrückt -> Rotation berechnen
  If (mDrag[0]) Then Begin  
    mRot[0] := mRot[0] + (Y - mPos[1]);
    mRot[1] := mRot[1] + (X - mPos[0]);
 
    // Bereich von 0-360
    If mRot[0] < 0    Then mRot[0]:=mRot[0]+360;
    If mRot[0] >= 360 Then mRot[0]:=mRot[0]-360;
 
    If mRot[1] < 0    Then mRot[1]:=mRot[1]+360;
    If mRot[1] >= 360 Then mRot[1]:=mRot[1]-360;
 
    // neue Position speichern
    mPos[0]:=X;
    mPos[1]:=Y;
  End;
end;
 
 
procedure TfGL.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Case Button of
    mbLeft   : mDrag[0] := false;
    mbMiddle : mDrag[1] := false;
    mbRight  : mDrag[2] := false;
  End;
end;

Schliesslich noch das Rendern:

Code:

...
gltranslatef(x, y, z);
glrotatef(mRot[0], 1.0, 0.0, 0.0);
glrotatef(mRot[1], 0.0, 1.0, 0.0);
// Würfel rendern
...

_________________
http://texelviews.delphigl.com

Nach oben

Carmageddon

Betreff des Beitrags:

Verfasst: So Jun 17, 2007 10:48

DGL Member

Registriert: Mo Dez 26, 2005 22:27
Beiträge: 117
Programmiersprache: Pascal, C++

gucky hat geschrieben:

cam wird in der Zeitroutine so aufgerufen:

Code:

 
 if turning = true then cam(destx,destz,destzoom);
 

auf true zu prüfen ist ganz schlechter Stil...

Nimm lieber das dafür:

Code:

if turning then cam(destx,destz,destzoom);

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Nach oben

chris_kuni

Betreff des Beitrags:

Verfasst: So Jun 17, 2007 19:58

DGL Member

Registriert: Fr Jun 15, 2007 18:20
Beiträge: 2

Erstmal vielen Dank für die Lösungsansätze, aber ich habe im Moment wenig Zeit mich damit zu beschäftigen, werde in ein paar Tagen darauf zurückkommen und bestimmt ein paar Fragen haben. :wink:

chris_kuni

Nach oben

Seite 1 von 1

[ 6 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.