atan2 ?

Übersicht

BlitzBasic

Beginners-Corner

	Hunter99 Betreff: atan2 ?	Mo, Dez 20, 2004 21:14 Antworten mit Zitat
ich wollte mit dem befehl atan2 bewürken,dass meine figur den winkel von dem punkt der maus zublick... nur der winkelpunkt ist immer oben im ecken wie kann ich es machen, dass der winkelpunkt genau auf der figur ist? (ist sozusagen ne maussteuerung) pls help

Hunter99

Betreff: atan2 ?

Mo, Dez 20, 2004 21:14
Antworten mit Zitat

ich wollte mit dem befehl atan2 bewürken,dass meine figur den winkel von dem punkt der maus zublick... nur der winkelpunkt ist immer oben im ecken

wie kann ich es machen, dass der winkelpunkt genau auf der figur ist?
(ist sozusagen ne maussteuerung)

pls help Crying or Very sad

	Sibitiger	Mo, Dez 20, 2004 21:19 Antworten mit Zitat
Ich weiß nicht wirklich was du meinst oder willst aber du musst das Ergebnis oder die Anfangszahl oder den Winkel vielleicht nur noch mit X addieren. X ist dann die Koordinate an der deine Figur ist(natürlich auch für y und wenn in 3d dann z). Sibitiger

Sibitiger

Mo, Dez 20, 2004 21:19
Antworten mit Zitat

Ich weiß nicht wirklich was du meinst oder willst aber du musst das Ergebnis oder die Anfangszahl oder den Winkel vielleicht nur noch mit X addieren.
X ist dann die Koordinate an der deine Figur ist(natürlich auch für y und wenn in 3d dann z).

Sibitiger

	Kryan	Mo, Dez 20, 2004 21:22 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() playerx=320 playery=240 Repeat Cls Oval playerx-10,playery-10,20,20 winkel=Winkel(MouseX(),MouseY(),playerx,playery) For i=1 To 70 Plot Sin(winkel)i+playerx,Cos(winkel)i+playery Next Flip Until KeyHit(1) End Function Winkel(x1,y1,x2,y2) minx=x1-x2 miny=y1-y2 minx2=-(x2-640-x1) miny2=-(y2-480-y1) minx3=x1-640-x2 miny3=y1-480-y2 If Abs(minx2)<Abs(minx) Then minx=minx2 If Abs(minx3)<Abs(minx) Then minx=minx3 Return 90-ATan2(miny,minx) End Function
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Mo, Dez 20, 2004 21:22
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()

playerx=320
playery=240

Repeat
 Cls
 Oval playerx-10,playery-10,20,20
 
 winkel=Winkel(MouseX(),MouseY(),playerx,playery)
 For i=1 To 70
  Plot Sin(winkel)*i+playerx,Cos(winkel)*i+playery
 Next
 Flip
Until KeyHit(1)
End

Function Winkel(x1,y1,x2,y2)
 minx=x1-x2
 miny=y1-y2
 minx2=-(x2-640-x1)
 miny2=-(y2-480-y1)
 minx3=x1-640-x2
 miny3=y1-480-y2
 If Abs(minx2)<Abs(minx) Then minx=minx2
 If Abs(minx3)<Abs(minx) Then minx=minx3
 Return 90-ATan2(miny,minx)
End Function

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Hunter99	Mo, Dez 20, 2004 22:32 Antworten mit Zitat
he hat geklappt nur jetzt besteht das problem, dass die figur sich in die entgegengesetzte richtung dreht kannst du mir da helfen? hier ein teil von meinem code: ----

Hunter99

Mo, Dez 20, 2004 22:32
Antworten mit Zitat

he hat geklappt

nur jetzt besteht das problem, dass die figur sich in die entgegengesetzte richtung dreht Sad

kannst du mir da helfen?

hier ein teil von meinem code:

----

Zuletzt bearbeitet von Hunter99 am Di, Dez 21, 2004 0:20, insgesamt 2-mal bearbeitet

	D2006 Administrator	Mo, Dez 20, 2004 22:50 Antworten mit Zitat
das Auto muss als normales Bild in Windows nach rechts zeigen. Hast du das berücksichtigt? MfG

D2006

Administrator

Mo, Dez 20, 2004 22:50
Antworten mit Zitat

das Auto muss als normales Bild in Windows nach rechts zeigen. Hast du das berücksichtigt?

MfG

	Hunter99	Mo, Dez 20, 2004 23:16 Antworten mit Zitat
problem hat sich gelöst thx!

Hunter99

Mo, Dez 20, 2004 23:16
Antworten mit Zitat

problem hat sich gelöst thx!

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

atan2 ?

Hunter99

Betreff: atan2 ?

Sibitiger

Kryan

Hunter99

D2006

Hunter99