DGL • Thema anzeigen - Objekt bewegen

Objekt bewegen

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Chef2004

Betreff des Beitrags: Objekt bewegen

Verfasst: Di Apr 13, 2004 01:56

DGL Member

Registriert: Fr Mär 05, 2004 19:15
Beiträge: 118
Wohnort: Lemgo

Hallo!

Habe ein weiteres problem! Hm...das wird schwierig zu erklären. Nagut dann werde ich es mal probieren:

Ich habe mir eine Map-Datei erstellt. Und habe eine Figur. Wenn man mit der Maus irgendwo hinklickt, geht die Figur zu diesem Punkt. Aber mit der Z Achse gibt es irgendwie ein problem. Wenn die Figur Z.b. Unten Links ist und man klickt oben Rechts hin, geht die Figur nur die X Achse und nicht die Z Achse. Das gleiche ist wenn die Figur unten rechts ist und man klickt oben links hin. Wenn die Figur aber oben ist und man klickt irgendwo nach unten rechts oder links geht es! Am Code direkt kann es nicht liegen. Habe es mit einem Button getestet da ging es. Hier mal der Code den ich habe:

Code:

 
  //Z Achse
  If Not (SPosZ=EPosZ) then
  Begin
    If ZN=False then
    SPosZ:=SPosZ+3
   else
    SPosZ:=SPosZ-3;
  end;
 
  //X Achse
  If Not (SPosX=EPosX) then
  Begin
    If XN=False then
    SPosX:=SPosX-3
   else
    SPosX:=SPosX+3;
  end;
 
  PositionGL(SPosX,SPosZ);
  If (SPosZ=EPosZ) And (SPosX=EPosX) then
  Timer1.enabled:=false;
 

Dieser Code steht in einem TTimer. Interval steht auf 30. SPosX und SPosZ sind die Start Punkte. EPosX und EPosZ sind die Endpunkte. XN und ZN sind Boolean Variablen. PositionGL ist eine Prozedure die die Maus Koordinaten umrechnet in OpenGL Koordinaten. Im OnCreate:

Code:

 
  SPosX:=396 div 3*3;
  SPosZ:=287 div 3*3;

Und in OnMouseDown steht folgendes:

Code:

 
    EPosX:=X div 3*3;
    EPosZ:=Y div 3*3;
    If SPosX>EPosX Then
    XN:=False
   else
    XN:=True;
 
    If SPosZ<EPosZ Then
    ZN:=False
   else
    ZN:=True;
    Timer1.Enabled:=True;
 

Als Figur habe ich als Test einen Quad:

Code:

 
  glBindTexture (Gl_TEXTURE_2D, Texture[2]);
  glBegin(GL_QUADS);
  glTexCoord (0,0); glVertex3f(px+30,5,pz);
  glTexCoord (0,1); glVertex3f(px+30,5,pz+5);
  glTexCoord (1,1); glVertex3f(px+30,-1.0,pz+5);
  glTexCoord (1,0); glVertex3f(px+30,-1.0,pz);
  glEnd;
 

PX und PZ sind Variablen von Type TGLFloat. Diese Variablen enthalten die GL Koordinaten die die Prozedure "PositionGL" bzw. GluUnProject zurückgibt. Was mache ich falsch? Woran kann das liegen, dass wenn die Figur unten ist und man klickt irgendwo oben, dass die Figur sich nicht nach oben bewegt?

_________________
irc.euirc.net _> #delphi-hilfe

Nach oben

Chef2004

Betreff des Beitrags:

Verfasst: Di Apr 13, 2004 15:13

DGL Member

Registriert: Fr Mär 05, 2004 19:15
Beiträge: 118
Wohnort: Lemgo

Ubs, sorry! Bin ich doof ^^ ich musste Z -> pz einfach nur um 5 auch senken nach der berechnung der Koordinaten.

_________________
irc.euirc.net _> #delphi-hilfe

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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