Winkel über 0 rechnen

Übersicht

BlitzBasic

Allgemein

	Hubsi Betreff: Winkel über 0 rechnen	Mo, Okt 01, 2012 17:52 Antworten mit Zitat
Hai beisammen. Ich stell mich gerade etwas blöd an. Meine Spielfigur kann sich um 360 Grad drehen. Jetzt ist mein Problem das die Figur auf dem kürzesten Weg zum Ziel drehen soll. Sprich der Ist-Winkel ist z.B. 270 Grad und er soll jetzt auf 45 Grad drehen. Kürzester Weg wäre jetzt nach rechts, also über 360 Grad drüber. Und da liegt jetzt meine Denkblockade. Was ich bisher probiert habe: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If player_angle(i,j)<>player_dest_angle(i,j) Then ; Ausrichten tmp_int=Abs(player_dest_angle(i,j)-player_angle(i,j)) ; Normalisieren If tmp_int<180 Then player_angle(i,j)=player_angle(i,j)+5 If tmp_int>180 Then player_angle(i,j)=player_angle(i,j)-5 If tmp_int=180 Then If Rand(0,1)=0 Then player_angle(i,j)=player_angle(i,j)-5 EndIf If player_angle(i,j)>=360 Then player_angle(i,j)=0 If player_angle(i,j)<=-1 Then player_angle(i,j)=355 EndIf Ich komm nicht auf den Trichter, kann mir jemand einen Schubs in die richtige Richtung geben bitte?
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Betreff: Winkel über 0 rechnen

Mo, Okt 01, 2012 17:52
Antworten mit Zitat

Hai beisammen.

Ich stell mich gerade etwas blöd an. Meine Spielfigur kann sich um 360 Grad drehen. Jetzt ist mein Problem das die Figur auf dem kürzesten Weg zum Ziel drehen soll. Sprich der Ist-Winkel ist z.B. 270 Grad und er soll jetzt auf 45 Grad drehen. Kürzester Weg wäre jetzt nach rechts, also über 360 Grad drüber. Und da liegt jetzt meine Denkblockade. Was ich bisher probiert habe:

BlitzBasic: [AUSKLAPPEN]

If player_angle(i,j)<>player_dest_angle(i,j) Then ; Ausrichten
  tmp_int=Abs(player_dest_angle(i,j)-player_angle(i,j)) ; Normalisieren
  If tmp_int<180 Then player_angle(i,j)=player_angle(i,j)+5
  If tmp_int>180 Then player_angle(i,j)=player_angle(i,j)-5
  If tmp_int=180 Then
    If Rand(0,1)=0 Then player_angle(i,j)=player_angle(i,j)-5
  EndIf
  If player_angle(i,j)>=360 Then player_angle(i,j)=0
  If player_angle(i,j)<=-1 Then player_angle(i,j)=355
EndIf

Ich komm nicht auf den Trichter, kann mir jemand einen Schubs in die richtige Richtung geben bitte? Mr. Green

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Okt 01, 2012 18:01 Antworten mit Zitat
Hallo Hubsi, hier mal ein Beispiel mit einem Panzer Code: [AUSKLAPPEN] [EINKLAPPEN] If posPanzer > Winkel If posPanzer -180 < Winkel posPanzer = posPanzer -1 Else posPanzer = posPanzer +1 End If Else If posPanzer -180 > Winkel posPanzer = posPanzer +1 Else posPanzer = posPanzer -1 End If End If
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Okt 01, 2012 18:01
Antworten mit Zitat

Hallo Hubsi,

hier mal ein Beispiel mit einem Panzer
Code: [AUSKLAPPEN]

If posPanzer > Winkel
If posPanzer -180 < Winkel
posPanzer = posPanzer -1
Else
posPanzer = posPanzer +1
End If
Else
If posPanzer -180 > Winkel
posPanzer = posPanzer +1
Else
posPanzer = posPanzer -1
End If

End If

[BB2D | BB3D | BB+]

	Hubsi	Mo, Okt 01, 2012 18:22 Antworten mit Zitat
Tausend vielen lieben Dank Funktioniert im 1:1 Zustand nicht wie geplant, aber der Schubs ging in die richtige Richtung. Damit kann ich basteln. Danke
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mo, Okt 01, 2012 18:22
Antworten mit Zitat

Tausend vielen lieben Dank Mr. Green

Funktioniert im 1:1 Zustand nicht wie geplant, aber der Schubs ging in die richtige Richtung. Damit kann ich basteln. Danke Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Ana	Mi, Okt 03, 2012 3:31 Antworten mit Zitat
Falls das noch aktuell ist, ich hätte den Drehwinkel so berechnet BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function Turn(S:Double,Z:Double) Local a:Double,b:Double If S < Z a = S - Z b = S + (360 - Z) Else a = Z - S b = Z + (360 - S) EndIf If Abs(a) < Abs(b) Return a Else Return b EndIf End Function
Don't only practice your art, but force your way into its secrets, for it and knowledge can raise human to divine

Ana

Mi, Okt 03, 2012 3:31
Antworten mit Zitat

Falls das noch aktuell ist, ich hätte den Drehwinkel so berechnet
BlitzBasic: [AUSKLAPPEN]

Function Turn(S:Double,Z:Double)
	Local a:Double,b:Double
	If S < Z
		a = S - Z
		b = S + (360 - Z)
	Else
		a = Z - S
		b = Z + (360 - S)
	EndIf
	
	If Abs(a) < Abs(b)
		Return a
	Else 
		Return b
	EndIf	
End Function

Don't only practice your art,
but force your way into its secrets,
for it and knowledge
can raise human to divine

	Der Eisvogel	Do, Okt 04, 2012 11:21 Antworten mit Zitat
Hallo Hubsi, ich stand damals vor dem selben Problem: https://www.blitzforum.de/foru...ght=winkel MfG Der Eisvogel
Ungarische Notation kann nützlich sein. BlitzMax ; Blitz3D Win 7 Pro 64 Bit ; Intel Core i7-860 ; 8 GB Ram ; ATI HD 5750 1 GB Projekte: Window-Crasher Ich liebe es mit der WinAPI zu spielen.

Der Eisvogel

Do, Okt 04, 2012 11:21
Antworten mit Zitat

Hallo Hubsi,

ich stand damals vor dem selben Problem: https://www.blitzforum.de/foru...ght=winkel

MfG
Der Eisvogel

Ungarische Notation kann nützlich sein.
BlitzMax ; Blitz3D
Win 7 Pro 64 Bit ; Intel Core i7-860 ; 8 GB Ram ; ATI HD 5750 1 GB
Projekte: Window-Crasher
Ich liebe es mit der WinAPI zu spielen.

	Hubsi	So, Okt 07, 2012 9:18 Antworten mit Zitat
Vielen Dank auch Euch natürlich, das Problem ist gelöst
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Okt 07, 2012 9:18
Antworten mit Zitat

Vielen Dank auch Euch natürlich, das Problem ist gelöst Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Winkel über 0 rechnen

Hubsi

Betreff: Winkel über 0 rechnen

Rallimen

Hubsi

Ana

Der Eisvogel

Hubsi