...
function VecteurRebond(V.x, V.y, N.x, N.y, byref v2.x, byref v2.y)
    'Vecteur v2;
    pscal = V.x*N.x + V.y*N.y
    v2.x = V.x -2*pscal*N.x
    v2.y = V.y -2*pscal*N.y
end function
 
function GetNormale(A.x, A.y, B.x, B.y, byref N.x, byref N.y)
    'Vecteur AC,u,N =
    u.x = B.x - A.x
    u.y = B.y - A.y
    AC.x = C.x - A.x
    AC.y = C.y - A.y
    parenthesis = u.x*AC.y-u.y*AC.x '  // calcul une fois pour les deux
    N.x = -u.y*(parenthesis)
    N.y = u.x*(parenthesis)
    norme = sqr(N.x*N.x + N.y*N.y)  '    '// normalisons
    N.x = N.x / norme
    N.y = N.y / norme
end function
 
function PointImpact(A.x, A.y, B.x, B.y, C.x, C.y, byref I.x, byref I.y)
  'Vecteur u,AC;
    u.x = B.x - A.x
    u.y = B.y - A.y
    AC.x = C.x - A.x
    AC.y = C.y - A.y
    ti = (u.x*AC.x + u.y*AC.y)/(u.x*u.x + u.y*u.y)
    'Point I;
    I.x = A.x + ti*u.x
    I.y = A.y + ti*u.y
end function
 
function CollisionSegment(A.x, A.y, B.x, B.y, C.x, C.y, C.Rayon)
     '// si on ne touche pas la droite, on ne touchera jamais le segment
    if CollisionDroite(A.x, A.y, B.x, B.y, C.x, C.y, C.rayon) = 0 then exit function
    AB.x = B.x - A.x
    AB.y = B.y - A.y
    AC.x = C.x - A.x     ' Vecteur AB,AC,BC;
    AC.y = C.y - A.y
    BC.x = C.x - B.x
    BC.y = C.y - B.y
    pscal1 = AB.x*AC.x + AB.y*AC.y '  // produit scalaire
    pscal2 = (-AB.x)*BC.x + (-AB.y)*BC.y '  // produit scalaire
    if (pscal1>=0 and pscal2>=0) then CollisionSegment = 1 : exit function ' // I entre A et B, ok.
   '// dernière possibilité, A ou B dans le cercle
    if CollisionPointCercle(A.x, A.y, C.x, C.y, C.Rayon) then CollisionSegment = 1 : exit function
    if CollisionPointCercle(B.x, B.y, C.x, C.y, C.Rayon) then CollisionSegment = 1 : exit function
end function
 
function CollisionDroite(A.x, A.y, B.x, B.y, C.x, C.y, C.rayon)
    u.x = B.x - A.x
    u.y = B.y - A.y
    AC.x = C.x - A.x
    AC.y = C.y - A.y
    numerateur = abs(u.x*AC.y - u.y*AC.x)  ' // norme du vecteur v
   ' if numerateur < 0 then numerateur = -numerateur '   // valeur absolue ; si c'est négatif, on prend l'opposé.
    denominateur = sqr(u.x*u.x + u.y*u.y) ' // norme de u
    CI = numerateur / denominateur
    if CI < C.rayon then CollisionDroite = 1
end function
 
function CollisionPointCercle(P.x, P.y, C.x, C.y, C.rayon)
    d2 = (P.x-C.x)*(P.x-C.x) + (P.y-C.y)*(P.y-C.y)
    CollisionPointCercle = 1   'true
    if d2 > C.rayon*C.rayon then CollisionPointCercle = 0  ' false
end function
 
function CollisionCercleCercle(C1.x, C1.y, C1.rayon, C2.x, C2.y, C2.rayon)
    d2 = (C1.x-C2.x)*(C1.x-C2.x) + (C1.y-C2.y)*(C1.y-C2.y)
    CollisionCercleCercle = 1  'true
    if d2 > ((C1.rayon + C2.rayon)*(C1.rayon + C2.rayon)) then CollisionCercleCercle = 0 ' false
end function
...