DGL • Thema anzeigen - Versuch Objekt über "Feld" laufen zu lassen gesche

Versuch Objekt über "Feld" laufen zu lassen gesche

Moderator: DGL-Team

Seite 1 von 1

[ 14 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Adler

Betreff des Beitrags: Versuch Objekt über "Feld" laufen zu lassen gesche

Verfasst: Mo Okt 25, 2004 22:14

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Hallo!

Habe es endlich geschafft mittels gluUnprojekt durch die Mauskoordinaten an die 3D koordinaten zu kommen.
Ich habe nun versucht, mein Objekt nicht immer an die geklickte pos zu setzen, sondern hin "schweben" oder auch laufen zu lassen.
meine momentanen Funktionen klappen nicht so richtig.
Verstehe auch nicht warum nicht.

Code:

 FUNCTION RichtungPosToNewPos(aPos: TGLVectord3; aRichtung, aSpeed:single):TGLVectord3;
VAR
  a,b: single;
  res: TGLVectord3;
BEGIN
a := 0; b := 0;
  a := aSpeed*sin((aRichtung/180)*pi);
  a := aPos[0] + a;
 
  b := aSpeed*cos((aRichtung/180)*pi);
  b := aPos[2] + b;
 
  res[0]:=a;res[1]:=0;res[2]:=b;
  Result := res;
END;
 
FUNCTION OldAndClickedPosToNewPos(aOldPos, aClickedPos: TGLVectord3; aSpeed:single): TGLVectord3;
VAR
  Richtung: single;
  aNewPos: TGLVectord3;
  a,b: single;
BEGIN
  Result := aOldPos;
  a := aOldPos[0] - aClickedPos[0];
  b := aOldPos[2] - aClickedPos[2];
 
  Richtung := arctan(b/a)*180/pi;
  aNewPos := RichtungPosToNewPos(aOldPos , Richtung , aSpeed);
  Result := aNewPos;
END; 

ThX!

_________________
www.audi32.de

Zuletzt geändert von Adler am Fr Aug 19, 2005 09:55, insgesamt 1-mal geändert.

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Mo Okt 25, 2004 22:43

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

Du musst nicht erst den Winkel ausrechnen, sondern addiere einfach den Richtungs Vektor zur Position.

Neue Position = Alte Position + Normierter Richtungs Vektor * Distanz

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Di Okt 26, 2004 12:41

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

- Neue Position = Alte Position + Normierter Richtungs Vektor * Distanz

Wie mache ich das? ^^
Kannste mal nen Beispiel bringen?

_________________
www.audi32.de

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Di Okt 26, 2004 13:04

DGL Member

Registriert: Mi Jul 17, 2002 12:07
Beiträge: 976
Wohnort: Tübingen

Also den (normierten) Richtungsvektor bekommst du so:

Code:

 
//Vektor berechnen:
Dir: Array[0..2] of Extended;
Dir[0]:= ObjectOldPosition.x - ObjectNewPosition.x;
Dir[1]:= ObjectOldPosition.y - ObjectNewPosition.y;
Dir[1]:= ObjectOldPosition.z - ObjectNewPosition.z;
 
//normalisieren
Length: Extended;
Length:= sqrt(Dir[0]*Dir[0]+Dir[1]*Dir[1]+Dir[1]*Dir[1]);
Dir[0]:= Dir[0]/Length;
Dir[1]:= Dir[1]/Length;
Dir[2]:= Dir[2]/Length;
 

Und diesen Vektor zählst du einfach jeden Frame nochmal zu deiner aktuellen ObjectPosition hinzu:

Code:

 
ObjectPosition.x:= ObjectPosition.x + Dir[0] * SPEED;
ObjectPosition.y:= ObjectPosition.y + Dir[1] * SPEED;
ObjectPosition.z:= ObjectPosition.z + Dir[2] * SPEED;
 

_________________
"Du musst ein Schwein sein in dieser Welt, sangen die Prinzen, das ist so 1.0. Du musst auf YouTube zeigen, dass dir dein Schweinsein gefällt, das ist leuchtendes, echtes Web 2.0."
- Hal Faber
Meine Homepage: http://laboda.delphigl.com

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Okt 26, 2004 13:40

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Zum Normieren gibts auch nochmal einen Artikel im Wiki.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Di Okt 26, 2004 14:27

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Ja, ok das klappt so weit so gut.
ABER ...

Wenn es in die nähe der stelle wos hin soll hinkommt, dann Verschwindet mein objekt.

Fraglos...
Hatte mir eben erst gedacht, evtl der Wert zum Wurzelziehen < 0, aber das geht ja net, wegen * + * + *
Also ist das ausgeschlossen.

Evtl. durch etwas anderes?
Jemand ne Antwort noch dafür?

Danke für das bisherige!

_________________
www.audi32.de

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Di Okt 26, 2004 14:34

DGL Member

Registriert: Mi Jul 17, 2002 12:07
Beiträge: 976
Wohnort: Tübingen

Die Berechnung für den Vektor musst du natürlich nicht jeden Frame machen, das reicht einmal ganz am Anfang, vielleicht liegt heir das Problem.
Du musst dein Objekt natürlich anhalten, sonst bewegt es sich in ewige Zeiten weiter.
Je nachdem, von was du den Mauspositionen weist, z.B. Quad parallel zum Beobachter, dann muss hald den Z-Wert deines Objekts überprüfen:

Code:

 
//Quad bei 0|0|-6
if ObjectPosition<= -6 then
 StopAnimation;

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Di Okt 26, 2004 21:15

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Danke!

Alles wunderbar.
Habe (das er net weiter fährt als benötigt, folgendes geschrieben):

Code:

FUNCTION CheckIfPoinInCircle( aCircleCenter, aPoint : TGLVectord3; aRadius : Single ) : Boolean ;
VAR
  a , b : single ;
BEGIN
  a := aPoint[0] - aCircleCenter[0];
  b := aPoint[2] - aCircleCenter[2];
  if sqrt(a*a + b*b) > aRadius then
    Result := False;
  if sqrt(a*a + b*b) <= aRadius then
    Result := True;
END;

Für jeden ders braucht ...
Will ja net geizig sein

_________________
www.audi32.de

Nach oben

Adler

Betreff des Beitrags:

Verfasst: So Okt 31, 2004 19:01

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Und nu isses wieder Futsch.
Also:

Ich habe nun wieder ein Problem hiermit.
Ich Check auch einfach nicht warum ich das habe, ich verstehe nicht was falsch ist, ich finde nichts heraus.
Nun hier der Source, bitte helft mir, ich verzweifele.
So kann das net weiter gehen :-(

Ciao.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

_________________
www.audi32.de

Nach oben

Raphael O.

Betreff des Beitrags:

Verfasst: Mo Nov 01, 2004 19:56

DGL Member

Registriert: Sa Jan 04, 2003 21:23
Beiträge: 674
Wohnort: Köln

hab mir grad mal das Programm angesehen, weiß aber nicht genau, was du erreichen willst? wilslt du, dass das dunkelblaue quad immer zu dem türkisen hinfährt?

_________________
. . .

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Mo Nov 01, 2004 20:46

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Ja genau.

_________________
www.audi32.de

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Mi Nov 03, 2004 21:54

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Mir kann wohl keiner Helfen?!
Dachte das wäre wieder so ein Typisches *Denk lange drüber nach, sogar Tage und finde es nicht raus obwohls so einfach ist* Problem :-(

Oder doch ein Helfer unter euch?

_________________
www.audi32.de

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Mi Nov 03, 2004 23:31

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

~->GEF<-~ Adler hat geschrieben:

Ich Check auch einfach nicht warum ich das habe, ich verstehe nicht was falsch ist, ich finde nichts heraus.

Vieleicht solltest du dir die Muehe machen und das Problem etwas genauer als oben beschreiben?

Nach oben

Mars

Betreff des Beitrags:

Verfasst: Mi Nov 03, 2004 23:59

DGL Member

Registriert: Fr Dez 13, 2002 12:18
Beiträge: 1063

Irgendwo hast du dich mit deinem Code in eine ziemlich unnötige Umständlichkeit verrannt. Prinzipiell ist es doch ganz einfach (ich habe ein separates Programm geschrieben, dir würde ich auch raten das Projekt neu zu beginnen):
Box2 verfolgt Box, Berechnung der Geschwindigkeit erfolgt in der Draw Routine. Die Position von Box wird beim MouseDown Ereignis berechnet - fertig.
Beispielprogramm ist angehängt:

Code:

procedure TFormClickAndMove.DrawClickAndMove;
var elapsed: integer;
    speed: TVec;
    dist: float;
begin
  elapsed := GetTickCount - LastTime;
  LastTime := LastTime + elapsed;
 
  Speed := VectorSub(Box.GetPosv, Box2.GetPosv);
  dist := VectorNormalize(Speed);
  if dist>0.1 then
    Box2.Movev(VectorScale(Speed, elapsed / 200));
 
  bgDrawScene;
  bgSwapBuffers;
end;
 
procedure TFormClickAndMove.PanelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var wx,wy: integer;
    wz: single;
    mv: TMatrix4d;
    proj: TMatrix4d;
    vp: TVector4i;
    ox,oy,oz: double;
begin
  wx := x;
  wy := Panel.ClientHeight - Y;
  glReadPixels(wx, wy, 1, 1, GL_DEPTH_COMPONENT, GL_FLOAT, @wz);
 
  glGetDoublev(GL_MODELVIEW_MATRIX, Addr(mv));
  glGetDoublev(GL_PROJECTION_MATRIX, Addr(proj));
  glGetIntegerv(GL_VIEWPORT, Addr(vp));
  gluUnProject(wx, wy, wz, mv, proj, vp, @ox, @oy, @oz);
 
  Box.SetPos(ox, 0, oz);
end;
 

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

_________________
Viel Spaß beim Programmieren,
Mars
http://www.basegraph.com/

Nach oben

Seite 1 von 1

[ 14 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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