Graphics 500,600,32,2
SetBuffer BackBuffer()


Global ink=LoadImage("ink.png")
MaskImage ink,255,0,255
Global feldred=LoadImage("feldred.png")
Global ball=LoadImage("ink.png")
MaskImage ball,255,0,255


Type line
   Field x,y
   Field nummer
End Type

Global number


Global winkel=10
Global x=100,y=100
Global x_speed=Cos(winkel)*1
Global y_speed=Sin(winkel)*1

timer=CreateTimer(60)

Repeat
   WaitTimer(timer)
   Cls
   
   If MouseDown(1) Then createline()
   
   updateball()
   drawline()
   
   
   
   
   
   ;------------FPS-------------
   FPScount = FPScount + 1
   If MilliSecs() > lastcheck+1000
      fps = fpscount
      fpscount = 0
      lastcheck = MilliSecs()
   End If
   If vorlast<fpscount Then vorlast=fpscount
   Text 20, 20,"FPS: "+ vorlast
   
   
   Flip 0
Until KeyHit(1)



Function createline()
   l.Line=New line
   l\x=MouseX()
   l\y=MouseY()
   l\nummer=number
End Function

Function drawline()
   
   For l.Line=Each line
      DrawImage ink,l\x,l\y
   Next
   
End Function

Function updateball()
   
   If winkel<0 Then winkel=360
   If winkel>360 Then winkel=0
   
   x_speed=Cos(winkel)*1
   y_speed=Sin(winkel)*1
   
   x=x+x_speed
   y=y+y_speed
   
   For l.Line=Each line
      If ImagesCollide(ball,x,y,0,ink,l\x,l\y,0)Then winkel=winkel-90
Next
   
   DrawImage ball,x,y
End Function

Eine Linie ist definiert durch Start und Endpunkt.
Daraus bildet sich ein Vektor, der wie folgt aussieht:
vx=endx-startx
vy=endy-starty
vz=0 ;2d
um davon die Normale zu erhalten, Kreuzmultipliziere man es mit dem Vektor:
(0 / 0 / 1)
das ergibt folgenden resultatsvektor:
vx=endy-starty
vy=startx-endx
Abstand von Punkt und Gerade ergeben sich nun aus der HNF (Hessesche Normal Form):
Da der Vektor noch verschoben sein kann muss ein D eingefügt werden:
vd=-vx*startx-vy*starty
d=(vx*punktx+vy*punkty+vd)/sqr(vx^2+vy^2)
ist dieser Abstand nun kleiner als der Radius, dann muss der Ball reflektiert werden, weil er gegen die Gerade prallt.
Wohin und wie - das ist eine andere Sache (und komplexer).

type linie
 field startx
 field starty
 field endx
 field endy
end type

while not keyhit(1)

if mousedown(1) then
 if millisecs()-timer>100 then
  l.linie=last linie
   tmpx=l\endx
   tmpy=l\endy
  l.linie=new linie
   l\startx=tmpx
   l\starty=tmpy
   l\endx=mousex()
   l\endy=mousey()
  timer=millisecs()
 endif
endif

for l.linie=each linie
 line l\startx,l\starty,l\endx,l\endy
 abprallalgo
next

flip 0 : cls
wend : end

Function updateball()
   
   altx=x
   alty=y
   
   x#=x#+x_speed# ;Links oder rechts kollidierr?
   For ax=0 To 20
      For ay=0 To 20
            If lvl1(ax,ay)>1 Then If ImageRectCollide(ball,x,y,0,ax*25,ay*25,25,25)Then
            x_speed#=x_speed*-1;+Rnd(0.0,0.3)
            x=altx
         EndIf
      Next
   Next
   
   For l.Line=Each line
      If l\d>-15 And l\d<15 Then
         x_speed#=x_speed*-1;+Rnd(0.0,0.3)
         x=altx
      EndIf
   Next
   
   
   y#=y#+y_speed# ;Oben oder unten kollidiert?
   
   For ax=0 To 20
      For ay=0 To 20
            If lvl1(ax,ay)>1 Then If ImageRectCollide(ball,x,y,0,ax*25,ay*25,25,25)Then
            y_speed#=y_speed*-1;+Rnd(0.0,0.3)
            y=alty
         EndIf
      Next
   Next
   
   For l.Line=Each line
      If l\d>-15 And l\d<15 Then
         y_speed#=y_speed*-1;+Rnd(0.0,0.3)
         y=alty
      EndIf
   Next

Local NX#,NY#,XG#,YG#,XP#,YP#
Local W1#,W2#,W3#,XPA#,YPA#,Speed#


If CountCollisions(Objekt) Then
   NX=CollisionNX(Objekt,1)
   NY=CollisionNY(Objekt,1)
   W1=ATan2(YG,XG)
   W2=ATan2(NY,NX)
   W3=180+(W2*2)-W1
   Speed=Sqr(XG^2+YG^2)/2
   XG=Cos(W3)*Speed
   YG=Sin(W3)*Speed
   XP=XPA
   YP=YPA
End If