Ca pourrait être utile dans un jeu 2D...

dim x%(14),y%(14), i%

data  100,80,  400,50,  600,70,  900,90,  1000,200, 1100,300
data 1200,450, 1100,700, 1200,600,  750,600,  400,700,  150,600
data  80,400,  70,250
for i%=1 to 14
  read x%(i%)
  read y%(i%)
next i%


full_space 0
picture 1 : full_space 1

2d_target_is 1
print_target_is 1

2d_fill_color 255,255,0
2d_rectangle 300,200,800,500

' tracer le cercle symbolisant le vaisseau
2d_fill_color 0,0,255
2d_circle 600,300,5

' tracer les cercles symbolisant les 14 cibles "hors cadre"
for i%=1 to 14
  2d_fill_color 255,0,0
  2d_circle x%(i%),y%(i%),5
  2d_fill_color 255,255,255
  print_locate x%(i%)+10,y%(i%)-10
  print str$(i%)
next i%

' tracer les 14 flèches vers les cibles
for i%=1 to 14
  Fleche(i%, 300,200,800,500, 600,300, x%(i%),y%(i%))
next i%

end

' xc1%,yc1%: coin en haut à gauche du cadre d'affichage (zone visible)
' xc2%,yc2%: coin en bas à droite du cadre d'affichage (zone visible)
' xv%,yv%:  position du vaisseau
' x%,y%      position de la cible hors cadre à viser par une flèche
sub Fleche(i%,xc1%,yc1%,xc2%,yc2%, xv%,yv%, xcible%,ycible%)
  ' équations des 4 côtés de la zone de visualisation
  ' X = xc1%  <== côté gauche
  ' Y = yc1%  <== côté haut
  ' X = xc2%  <== côté droit
  ' Y = yc2%  <== côté bas
 
  ' équation de la droite entre le vaisseau et la cible
  ' Y = aX + b
  '    a = (ycible%-yv% )/(xcible%-xv%)
  ' avec point (xv%,yv%):
  ' yv% = (ycible%-yv% )/(xcible%-xv%)*xv% + b
  ' ==>  b = yv% - (ycible%-yv% )/(xcible%-xv%)*xv%
  ' équation définitive;
  ' Y = ((ycible%-yv% )/(xcible%-xv%))*X + yv% - ((ycible%-yv% )/(xcible%-xv%))*xv%
  ' ou, avec des variables intermédiaires regroupant en fait des termes constants:
  '  cc1% = ycible%-yv%
  '  cc2% = xcible%-xv%
  ' ==>  Y = (cc1//cc2%)*X + yv% - (cc1%/cc2%)*xv% 
  ' et, acec cc2% = cc1%/cc2%:
  ' ==>  Y = cc3%*X + yv% - cc3%*xv%
  dim_local XX%,YY%
  dim_local cc1, cc2, cc3
 
  ' rayon de la navette vers a cible
  2d_pen_dot
  2d_poly_from xv%,yv%
  2d_poly_to xcible%,ycible%
  2d_pen_solid
 
  ' calcul des variables intermédiaires:
  cc1 = ycible%-yv%
  cc2 = xcible%-xv% + 1  : ' +1 pour éviter une division par 0 !
  cc3 = cc1 / cc2        : ' ceci est la pente de la droite entre navette et cible !
  ' la routine calcule l'intersection du rayon navette/cible avec un des 4 bords.
  ' les coordonnées de ce point sont (XX%,YY%)
     
  ' intersection avec le bord gauche:
  if xcible%<xv%
    XX% = xc1%
    ' pour info: Y = cc3*X + yv% - cc3*xv%
    YY% = cc3*XX% + yv% - cc3*xv%
    if (YY%>=yc1%) and (YY%<=yc2%)
      2d_fill_color 0,0,0
      2d_circle XX%,YY%,5
      print_locate XX%+10,YY%
      2d_fill_color 255,255,0
      print str$(i%)
      exit_sub
    end_if
  end_if
 
  ' intersection avec le bord haut:
  if ycible%<yv%
    YY% = yc1%
    ' pour info: Y = cc3*X + yv% - cc3*xv%
    XX% = (YY% - (yv% - cc3*xv%))/cc3
    if (XX%>=xc1%) and (XX%<=xc2%)
      2d_fill_color 0,0,0
      2d_circle XX%,YY%,5
      print_locate XX%,YY%+10
      2d_fill_color 255,255,0
      print str$(i%)
      exit_sub
    end_if
  end_if
 
  ' intersection avec le bord droit:
  if xcible%>xv%
    XX% = xc2%
    ' pour info: Y = cc3*X + yv% - cc3*xv%
    YY% = cc3*XX% + yv% - cc3*xv%
    if (YY%>=yc1%) and (YY%<=yc2%)
      2d_fill_color 0,0,0
      2d_circle XX%,YY%,5
      print_locate XX%-10,YY%
      2d_fill_color 255,255,0
      print str$(i%)
      exit_sub
    end_if
  end_if
 
  ' intersection avec le bord bas:
  if ycible%>yv%
    YY% = yc2%
    ' pour info: Y = cc3*X + yv% - cc3*xv%
    XX% = (YY% - (yv% - cc3*xv%))/cc3
    if (XX%>=xc1%) and (XX%<=xc2%)
      2d_fill_color 0,0,0
      2d_circle XX%,YY%,5
      print_locate XX%,YY% -20
      2d_fill_color 255,255,0
      print str$(i%)
      exit_sub
    end_if
  end_if
 
end_sub