v7.2

2023-08-20 12:05:08 +02:00
parent af03d91a65
commit 15d124f2a2
22 changed files with 1627 additions and 1300 deletions
--- a/UnitAnalyseSegCDM.pas
+++ b/UnitAnalyseSegCDM.pas
@@ -180,6 +180,7 @@ procedure affichage(imprime : boolean);
 procedure Aff_train(adr: integer;train:string;x1,y1,x2,y2 :integer);
 procedure D_Arc(Canvas: TCanvas; CenterX,CenterY: integer;
                rayon: Integer; StartDegres, StopDegres: Double);
+function point_Sur_Segment(x,y,x1,y1,x2,y2 : integer): Boolean;

 implementation