Suche Formel zur berechnung eines Punktes

benpicco · Beitrag von **benpicco** » 26.03.2005 18:58

Ich suche nach einer formel, die berechnet, was ich zu X/y addieren muss, damit die Kugel bei Folgendem code an der spitze des Pfeils (zum testen irgeneinen Pfeil und eine kugel malen, geht schnell ^^) abgeschossen wird. Also, angenomme der Kreis (den man sich denken kann) um den Pfeil hat einen Durchmesser von 40pxl, weil der Pfeil so lang ist, muss man, wen der Pfeil -> zeigt (=0°) xs=x+40 und ys=ys+20 rechnen. Bei <- (90°) xs=x+0 ys=y+0,
bei ^ xs=x+20 und ys=y+0 und bei v xs=x+20 ys=y+40, aber was ist dann bei z.b 65°, oder bei 100° (außer, das dan wasser kocht

)
Achso, hier der Code:

Code: Alles auswählen

InitSprite()
InitSprite3D()
InitKeyboard()
OpenScreen(1024,768,16,"Test")
LoadSprite(1,"pfeil.bmp", #PB_Sprite_Texture)
LoadSprite(2,"kugel.bmp")
TransparentSpriteColor(1,255,0,255)
TransparentSpriteColor(2,255,0,255)
CreateSprite3D(1,1)
Sprite3DQuality(1)
Global x.w
Global y.w
Global trans.w
Global speed.w
Global plus.b
Global t.f
Global xs.w
Global ys.w
Global schies.b
Global g.f
g=-1   ;sonst fällt alles nach oben ^^
plus=1
speed=1
;---Anfang Code Template
; Drehen 
Repeat
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left) : winkel - 1 :  If winkel <= 0 : winkel = 360 : EndIf : EndIf 
If KeyboardPushed(#PB_Key_Right) : winkel + 1 : If winkel >= 360 : winkel = 0 : EndIf : EndIf 

; Vorwärts 
If KeyboardPushed(#PB_Key_Up) 
  x=x + Cos(winkel *(2*3.1415/360)) * speed ; Grad zu Bogenmaß 
  y=y + Sin(winkel *(2*3.1415/360)) * speed 
EndIf 

; Rückwärts 
If KeyboardPushed(#PB_Key_Down) 
  x=x + Cos(winkel *(2*3.1415/360)) * -speed 
  y=y + Sin(winkel *(2*3.1415/360)) * -speed 
EndIf 
;---Ende Code Template
If KeyboardReleased(#PB_Key_Add)
  speed=speed+1
EndIf
If KeyboardReleased(#PB_Key_Subtract)
  speed=speed-1
EndIf
If KeyboardReleased(#PB_Key_Space)
  schies=1
  t=0
  xs=x+52
  ys=y+17
EndIf
trans=trans+plus ; sieht cooler aus, find ich ;-)
If trans=255
plus=-1  
EndIf
If trans=0
  plus=1
EndIf
If schies=1
  t=t+1
  xs=xs+speed*t*Cos(winkel) ;Formeln aus dem Tafelwerk
  ys=ys+(-g/2)*Pow(t,2)+speed*t*Sin(winkel)
  DisplayTransparentSprite(2,xs,ys)
EndIf

Start3D()
DisplaySprite3D(1,x,y,trans)
RotateSprite3D(1,winkel,0)
Stop3D()
StartDrawing(ScreenOutput())
Locate(920,10)
DrawingMode(1)
FrontColor(255,255,255)
DrawText("Speed:"+Str(speed))
Locate(920,25)
DrawText(Str(winkel)+"°")
StopDrawing()
FlipBuffers()
ClearScreen(0,0,0)
Until KeyboardPushed(#PB_Key_Escape)

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 26.03.2005 19:50

du hast doch sin() und cos() schon für die bewegung des Sprite drin.

genau das ist der Richtungsvektor des Pfeils
und damit auf die Richtung von seinem Mittelpunkt zu seiner Spitze.

nun musst du nur noch die Differenz LinkeObereEcke zu MIttelpunkt für beide Sprites einbeziehen

benpicco · Beitrag von **benpicco** » 27.03.2005 18:21

du hast doch sin() und cos() schon für die bewegung des Sprite drin.

Ja, das ist aber ein Code Template, das ist nicht von mir, ich hab im Moment noch keine Ahnung, was sin und cos bewirkt, ich weiß nicht, villeicht machen wir das dieses jahr mal mit Mathe...(juhu

)

benpicco · Beitrag von **benpicco** » 31.03.2005 15:15

Kaeru Gaman hat geschrieben:du hast doch sin() und cos() schon für die bewegung des Sprite drin.

genau das ist der Richtungsvektor des Pfeils
und damit auf die Richtung von seinem Mittelpunkt zu seiner Spitze.

nun musst du nur noch die Differenz LinkeObereEcke zu MIttelpunkt für beide Sprites einbeziehen

?
Soll ich jetzt xs=x+Cos(winkel *(2*3.1415/360)) +44und ys=Y+Sin(winkel *(2*3.1415/360)) -22
???
Das hat aber nicht unbedingt den gewünschten effekt...

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 31.03.2005 22:49

ok... dachte das stammt aus deiner feder...

dann mal so:

am anfang

Code: Alles auswählen

#pi=3.14159265

dann in deiner rechnug brauchst du den radiant vom pfeilwinkel...
(weil die sin und cos functions mit radiant rechnen)

der radiant läuft von 0 bis 2*pi, wenn der winkel von 0 bis 360 grad läuft...
(gibts auch tutorials dazu [gibts auch gute? {vllt. sollte ich mal eins schreiben}])

also, mal für die kürze...

mit sin(winkel) bekommst du die x-, mit cos(winkel) die y-koordinate...
(den faktor zw. 0 und 1)
halt winkel in radiant, deshalb (winkel*2*pi/360)

also hast du mit

Code: Alles auswählen

XVerschiebung = PfeilLänge*Sin(Winkel/360*2*#pi)
YVerschiebung = PfeilLänge*Cos(Winkel/360*2*#pi)
X1 = PfeilX + (PfeilSpriteBreite/2)
Y1 = PfeilY + (PfeilSpriteHöhe/2)
KreisMittelX = X1 + XVerschiebung
KreisMittelY = Y1 + YVerschiebung
KreisX = KreismittelX - (KreisSpriteBreite/2)
KreisY = KreismittelY - (KreisSpriteHöhe/2)

und das solltest du halt alles zusammenfassen in eine zeile,
ich hab es nur mal ausführlich gemacht, damit es klarer wird...[/code]

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 03.04.2005 16:20

...öh...

hat das jetzt was geholfen?

benpicco · Beitrag von **benpicco** » 03.04.2005 16:29

Ich weiß nicht recht...
Was meinst du mit dem Kreis?
und xs=x+Xverschiebung macht auch was komisches...
Ich hab keinen Kreissprite, nur einen Pfeil.

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 03.04.2005 18:30

mit 'kreis' meinte ich die kugel, die du ja an die spitze des pfeiles setzen willst,
wenn ich dein erstes post richtig verstehe.

> xs = x + xverschiebung macht was komisches

hm... beschreib das mal besser...

ach, ich seh grad... du hast in deinem prog bei x den Cos und bei Y den Sin.
also liegt dein null-grad-punkt nicht oben, sondern rechts...

> der Kreis (den man sich denken kann) um den Pfeil hat einen Durchmesser von 40pxl

...und ich nehme zusätzlich nochmal an, deine kugel sei ein 10x10 sprite

Code: Alles auswählen

xs = x + 20 + 20*Cos(winkel*3.1415927/180) - 5
ys = y + 20 + 20*Sin(winkel*3.1415927/180) - 5

die erste 20 ist die Hälfte der Größe des Pfeilsprites.
die zweite 20 ist die länge das Pfeils von Mittelpunkt bis Spitze.
die 5 ist die Hälfte der Größe deine Kugel. (musst du halt ändern)

Sin und Cos kommen hier genauso rein wie in der berechnung der bewegung,
da ja der abschusspunkt in der bewegungsrichtung liegt.

benpicco · Beitrag von **benpicco** » 04.04.2005 20:24

Danke, das funktioniert perfekt! Ich glaube, ich habe dich etwas mit dem code verwirrt,

naja, hier ist er nochmal

Achso, meinen Testpfeil und meine Testkugel hab ich jetzt mal hochgeladen.
Bild

Code: Alles auswählen

InitSprite()
InitSprite3D()
InitKeyboard()
OpenScreen(1024,768,16,"Test")
LoadSprite(1,"pfeil.bmp", #PB_Sprite_Texture)
LoadSprite(2,"kugel.bmp")
TransparentSpriteColor(1,255,0,255)
TransparentSpriteColor(2,255,0,255)
CreateSprite3D(1,1)
Sprite3DQuality(1)
#pi=3.14159265
Global x.w
Global y.w
Global trans.w
Global speed.w
Global plus.b
Global t.f
Global xs.f
Global sprite.b
Global ys.f
Global schies.b
Global g.f
g=-1   ;sonst fällt alles nach oben ^^
plus=1
speed=1
;---Anfang Code Template
; Drehen 
Repeat
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left) : winkel - 1 :  If winkel <= 0 : winkel = 360 : EndIf : 

EndIf 
If KeyboardPushed(#PB_Key_Right) : winkel + 1 : If winkel >= 360 : winkel = 0 : EndIf : 

EndIf 

; Vorwärts 
If KeyboardPushed(#PB_Key_Up) 
  x=x + Cos(winkel *(2*#pi/360)) * speed ; Grad zu Bogenmaß 
  y=y + Sin(winkel *(2*#pi/360)) * speed 
EndIf 

; Rückwärts 
If KeyboardPushed(#PB_Key_Down) 
  x=x + Cos(winkel *(2*#pi/360)) * -speed 
  y=y + Sin(winkel *(2*#pi/360)) * -speed 
EndIf 
;---Ende Code Template
If KeyboardReleased(#PB_Key_Add)
  speed=speed+1
EndIf
If KeyboardReleased(#PB_Key_Subtract)
  speed=speed-1
EndIf
If KeyboardReleased(#PB_Key_Space)
  schies=1
  t=0
;XVerschiebung=44*Sin(winkel/360*2*#pi)
;YVerschiebung=22*Cos(winkel/360*2*#pi)
;X1 = x + (44/2) 
;Y1 = y + (44/2) 
;KreisMittelX = X1 + XVerschiebung 
;KreisMittelY = Y1 + YVerschiebung 
;KreisX = KreisMittelX - (44/2) 
;KreisY = KreisMittelY - (44/2)
xs=x+22+22*Cos(winkel*3.1415927/180) - (7/2)
ys=y+22+22*Sin(winkel*3.1415927/180) - (7/2)

EndIf
trans=trans+plus ; sieht cooler aus, find ich ;-)
If trans=255
plus=-1  
EndIf
If trans=0
  plus=1
EndIf
If schies=1
;  StartDrawing(ScreenOutput()); ich wollte wissen, was KreisX und Y ist, und wenn man das 

aktiviert und das clearscreen wegacht, entsteht nach einer 360° Drehung eine Elypse.  
;Circle(KreisX,KreisY,22,RGB(255,255,255))
;StopDrawing()
t=t+1
  xs=xs+speed*t*Cos((360-winkel)) ;Formeln aus dem Tafelwerk, muss ich mir nochmal 

ansehen...
  ys=ys+(-g/2)*Pow(t,2)+speed*t*Sin((360-winkel))
  DisplayTransparentSprite(2,xs,ys)
EndIf

Start3D()
DisplaySprite3D(1,x,y,trans)
RotateSprite3D(1,winkel,0)
Stop3D()
StartDrawing(ScreenOutput())
Locate(920,10)
DrawingMode(1)
FrontColor(255,255,255)
DrawText("Speed:"+Str(speed))
Locate(920,25)
DrawText(Str(winkel)+"°")
Locate(920,40)
DrawText("X="+Str(xs))
Locate(920,55)
DrawText("Y="+Str(ys))
StopDrawing()
FlipBuffers()
ClearScreen(0,0,0)
If KeyboardPushed(#PB_Key_0)
  ClearScreen(0,0,0)
EndIf
If KeyboardPushed(#PB_Key_RightAlt)
  GrabSprite(0,0,0,1024,768)
  sprite=sprite+1
  SaveSprite(0,"Screenshot "+Str(sprite)+".bmp")
EndIf
Until KeyboardPushed(#PB_Key_Escape)

Es ist wirklich genial! Die Kugel Kommt wirklich zur Spitze rauS! Jetzt muss ich mir zwar

nochmal die Fallformel anschauen, aber ich hoffe, das kriege ich selber raus...
Achso, dieses Codetempleate hab ich von einem PureBasic editor, der sich "Just another

PureBasic editor"

nennt. Ein Freund hat ihn mir mal vor zwei Wochen geschieckt, der ist

echt praktisch! Er hat ne codevervollständigungsfunktion und hat sogar Zusatzfunktionen,

wie es schent, und eben Codetempleates. Es gibt ihn glaube ich auf www.scintilla.org

bluejoke · Beitrag von **bluejoke** » 04.04.2005 21:21

*gg* - Ja ich denke wir alle haben zumindest schon von jaPBe gehört oder benutzen ihn. Kannst auch unter purebasic.de schauen, da ist auch ein Downloadlink. Bloß nicht auf scintilla (hab jaPBe zumindest gerade nicht gefunden) - obwohl das Scintilla-Gadget verwendet wird...

Der Entwickler ist übrigens GPI