[Code Snippet] Collision cercle contre cercle

set display mode desktop width(),desktop height(),32,1
sync on

Type Tcercle
x as float
y as float
t as float
EndType

Global nx as float
Global ny as float

arbre_max as integer : arbre_max=99
dim arbre(arbre_max) as Tcercle

joueur as Tcercle
joueur.x = screen width()/2
joueur.y = screen height()/2
joueur.t = 20

do
   cls

   old_msc=msc
   msc=mouseclick()
   msx=mousex()
   msy=mousey()

   rem déplacement du joueur
   if rightkey()=1 : angle=angle+2 : endif
   if leftkey()=1 : angle=angle-2 : endif
   if upkey()=1
   joueur.x=joueur.x+cos(angle)*2
   joueur.y=joueur.y+sin(angle)*2
   endif

   rem le clic gauche de la souris permet de rajouter des arbres
   if msc=1 && old_msc=0
      arbre(nArbre).x=msx
      arbre(nArbre).y=msy
      arbre(nArbre).t=30+rnd(20)
      inc nArbre
      if nArbre=arbre_max+1 : nArbre=0 : endif
   endif

   ink rgb(168,230,29),0

   rem on vérifie la distance entre le joueur et les arbres de la scène
   rem si le joueur est en collision avec un arbre, on ajuste la position du joueur
   for i=0 to arbre_max

      if distance(joueur.x,joueur.y,arbre(i).x,arbre(i).y)-joueur.t-arbre(i).t<0

         CoeficientDirecteurInv(joueur.x,joueur.y,arbre(i).x,arbre(i).y,joueur.t+arbre(i).t)
         joueur.x=arbre(i).x+nx : joueur.y=arbre(i).y+ny

      endif

      circle arbre(i).x,arbre(i).y,arbre(i).t

   next a

   ink rgb(255,255,255),0
   circle joueur.x,joueur.y,joueur.t
   line joueur.x,joueur.y,joueur.x+cos(angle)*joueur.t,joueur.y+sin(angle)*joueur.t
   text 0,0,str$(screen fps())
   text 0,14,str$(nArbre)

   Sync
Loop

function CoeficientDirecteurInv(x1 as float, y1 as float, x2 as float, y2 as float, Taille as float)
   Normalex as float : Normaley as float : MagnitudeInv as float
   Normalex=x1-x2
   Normaley=y1-y2
   MagnitudeInv = Taille / Sqrt(Normalex^2+Normaley^2)
   nx=Normalex * MagnitudeInv : ny=Normaley * MagnitudeInv
endfunction

function distance(x1 as float, y1 as float, x2 as float, y2 as float)
   result as float : result = sqrt((x2-x1)^2+(y2-y1)^2)
endfunction result

function distance(x1 as float, y1 as float, x2 as float, y2 as float)
   result as float : result = sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
endfunction result