easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v6.2

Browse Source
This commit is contained in:
f1iwq2
2023-07-05 17:38:55 +02:00
parent 045587e758
commit f09fa4c454
14 changed files with 952 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
UnitAnalyseSegCDM.pas
View File

@@ -22,6 +22,7 @@ const
Zmini=50;
Zmaxi=100;
fond_cdm=$303000;
precision_clic=4; // précision du clic sur un élément
type
TFormAnalyseCDM = class(TForm)
@@ -836,7 +837,7 @@ begin
r:=((y1-y)*(y1-y2)-(x1-x)*(x2-x1))/(l*l);
s:=((y1-y)*(x2-x1)-(x1-x)*(y2-y1))/(l*l);
if (r>0) and (r<1) then
if Abs(s*l)<=7 then Result:=True; //s*l=distance
if Abs(s*l)<=precision_clic then Result:=True; //s*l=distance
end;
end;
@@ -869,7 +870,7 @@ begin
if inverse then yArc:=CentreY+round(rayon*sinA) else
yArc:=CentreY-round(rayon*sinA);
trouve:=(abs(x-xArc)<10) and (abs(y-yArc)<10);
trouve:=(abs(x-xArc)<precision_clic) and (abs(y-yArc)<precision_clic);
if deb then
begin
Affiche(intToSTR(x-xArc)+' / '+intToSTR(y-yARc),clyellow);
@@ -1645,7 +1646,8 @@ begin
if coloration_diff then pen.color:=clLime else pen.color:=clWhite;
end;
moveto(portsSeg[0].x,portsSeg[0].y);LineTo(portsSeg[1].x,portsSeg[1].y);
moveTo((portsSeg[0].x+portsSeg[1].x) div 2,(portsSeg[0].y+portsSeg[1].y) div 2);
moveTo((portsSeg[0].x+portsSeg[1].x) div 2,(portsSeg[0].y+portsSeg[1].y) div 2);
LineTo(portsSeg[2].x,portsSeg[2].y);
moveTo((portsSeg[0].x+portsSeg[1].x) div 2,(portsSeg[0].y+portsSeg[1].y) div 2);
LineTo(portsSeg[3].x,portsSeg[3].y);
if formAnalyseCDM.CheckAdresses.checked then coords_aff_aig(canvas,i);
@@ -3437,6 +3439,7 @@ end;
end;
end;
procedure TFormAnalyseCDM.FormCreate(Sender: TObject);
begin
if debug=1 then Affiche('Création fenêtre CDM',clLime);
IndexClic:=0;
@@ -3466,7 +3469,7 @@ begin
with FwicImage do
begin
largeurTrain:=Width; // largeur de l'icone du train
largeurTrain:=Width; // largeur de l'icone du train
hauteurTrain:=Height;
end;
ArcTanHautLargTrain:=ArcTan(HauteurTrain/LargeurTrain);
@@ -3526,6 +3529,16 @@ begin
x1:=(x1+x2) div 2;
y1:=(y1+y2) div 2;
x2:=segment[i].port[2].x;
y2:=segment[i].port[2].y;
coords(x2,y2);
canvas.MoveTo(x1,y1);
canvas.LineTo(x2,y2);
if ctype='turnout_3way' then
begin
canvas.moveTo(x1,y1);
x2:=segment[i].port[3].x;
y2:=segment[i].port[3].y;
coords(x2,y2);
canvas.LineTo(x2,y2);
end;