;Grafikkramm
gfx=1024
gfy=768

ghx=gfx/2
ghy=gfy/2
Graphics gfx,gfy,0,1
SetBuffer BackBuffer()




;Masse
MposX#=ghx   ;Positionsvektor, bestehend aus X,Y
MposY#=ghy
MvelX#=0     ;Geschwindigkeitsvektor, bestehend aus X-Geschwindigkeit und Y-Geschwindigkeit
MvelY#=0




;Hauptschleife

While Not KeyHit(1)
Cls
;Mausposition
 mx=MouseX()
 my=MouseY()


;Kraft anwenden
     If MouseHit(1)   ; beginnen mit Mausklicken

         If RectsOverlap (mx-10,my-10,20,20, MposX,MposY,1,1)  kraftmodus = 1     
                                 
     End If


     If kraftmodus=1
       If MouseDown(1)=0 Then kraftmodus=0
       
     
      Color 255,0,0
      Line MposX,MposY,mx,my                      ;Kraft einzeichnen


      DeltaXF#=MposX-mx                           ;"Kraftvektor", bestehend aus der X und Y Differenz
      DeltaYF#=MposY-my


      wkf#=(ATan2(DeltaXF,DeltaYF)+360) Mod 360   ;Winkel, Richtung in welcher die Kraft wirkt

      lnf#=Sqr((DeltaXF#)^2+(DeltaYF)^2)          ;Länge der Auslenkung

      federkonstante=100                          ;Elstizität des "Gummibandes"

   
     
      MvelX=MvelX-(Sin(wkf)*lnf)/federkonstante   ;"Geschwindigkeitsvektor", wird entsprechend des Winkels,
      MvelY=MvelY-(Cos(wkf)*lnf)/federkonstante   ;Proportional zur Auslenkung, und der Federkonstante angepasst.

     
      ;DÄMPFUNG????? -> Wie wird die Dämpfende Kraft des Gummibandes umgesetzt?
     
       
     EndIf








;Masse bewegen und Zeichnen

MposX=MposX+MvelX
MposY=MposY+MvelY

Color 255,255,0
Oval MposX-10,MposY-10,20,20



;Gravitation
;MvelY=MvelY+0.1



;Randbegrenzung
If  MposX < 0   MvelX= 0 : MvelY=0 : MposX=0
If  MposX > gfx MvelX= 0 : MvelY=0 :MposX=gfx
If  MposY < 0   MvelY= 0 : MvelX=0 :MposY=0
If  MposY > gfy MvelY= 0 : MvelX=0 : MposY=gfY

;cursor
Color 255,255,255
Rect mx-10,my-10,20,20,0

Text 0,0,"Benutze die Maus, um eine Kraft auf die Kugel auszuüben"

Flip
Wend
End

MvelX=MvelX*.95
MvelY=MvelY*.95

Graphics 512,512,0,2
SetBuffer BackBuffer()

xp#=100
yp#=100
xg#=0
yg#=0


While Not KeyHit(1)

   mx=MouseX()
   my=MouseY()

   ;Richtungsvektor an Geschwindigkeit anlegen
   xg=xg+(mx-xp)/100.0
   yg=yg+(my-yp)/100.0

   ;Ein einfacher Luftwiederstandersatz
   xg=xg*.98
   yg=yg*.98

   ;Geschwindigkeit an Position anwenden
   xp=xp+xg
   yp=yp+yg

   Color 255,0,0:Line mx,my,xp,yp
   Color 255,255,0:Oval xp-4,yp-4,9,9,1
   Color 255,255,255:Rect mx-4,my-4,9,9,0

   Flip
   Cls
Wend
End