PureBoard

Code: Alles auswählen

Procedure.f min(a.f,b.f)
If a<b 
	ProcedureReturn a
Else
	ProcedureReturn b
EndIf
EndProcedure

Procedure.f max(a.f,b.f)
If a>b 
	ProcedureReturn a
Else
	ProcedureReturn b
EndIf

EndProcedure
Procedure.f DistPoint(X.f,Y.f,X1.f, Y1.f, X2.f,Y2.f)
Protected sx.f,sy.f,m1.f,m2.f
;Prüfe ob Vertikal
 If X1 = X2 
 	ProcedureReturn Abs(X1-X)
 EndIf
;Prüfe ob Horizontal
 If Y1 = Y2 
 	ProcedureReturn Abs(Y1-Y)
EndIf
;Prüfe Schräg
;Verschiebung der Koordinaten nach Null
 X2=X2-X1
 Y2=Y2-Y1
 X=X-X1
 Y=Y-Y1
;// NUR der Ordnung halber X1=0: Y1=0;
 m1=Y2/X2; //Steigung der Geraden
 m2=1/m1; //Steigung der lotrechten Geraden
 Sx=(m2*X+Y)/(m1+m2); //Schnittpunkt X
 Sy=m2*(Sx-X)+Y; //Schnittpunkt Y
 ProcedureReturn Sqr(Sqr(X-Sx)+Sqr(Y-Sy)); //Distanz
EndProcedure

Procedure.l ISNearLine(X.f,Y.f,X1.f,Y1.f,X2.f,Y2.f, Dist.f )
;//Prüfe ob im Rechteck
If  (X>= min(X1,X2)-Dist) And (X <= max(X1,X2)+Dist) And (Y >= min(Y1,Y2)-Dist) And (Y <= max(Y1,Y2)+Dist)
If DistPoint(X,Y,X1,Y1,X2,Y2)<= Dist.f
	ProcedureReturn #True
EndIf
EndIf
EndProcedure

;------------------------------------------------------------------------------------------------------

function DistPoint(X,Y,X1, Y1, X2,Y2: Integer): Double;
VAR
 sx,sy,m1,m2 : Double;
BEGIN
//Prüfe ob Vertikal
 IF X1 = X2 Then BEGIN Result:=Abs(X1-X); Exit; End;
//Prüfe ob Horizontal
 IF Y1 = Y2 Then BEGIN Result:=Abs(Y1-Y); Exit; End;

//Prüfe Schräg

//Verschiebung der Koordinaten nach Null
 X2:=X2-X1;
 Y2:=Y2-Y1;
 X:=X-X1;
 Y:=Y-Y1;
// NUR der Ordnung halber X1:=0; Y1:=0;
 m1:=Y2/X2; //Steigung der Geraden
 m2:=1/m1; //Steigung der lotrechten Geraden
 Sx:=(m2*X+Y)/(m1+m2); //Schnittpunkt X
 Sy:=-m2*(Sx-X)+Y; //Schnittpunkt Y
 Result:=Sqrt(Sqr(X-Sx)+Sqr(Y-Sy)); //Distanz
end;

function ISNearLine(X,Y,X1,Y1,X2,Y2, Dist : Integer) : Boolean;
BEGIN
 //Prüfe ob im Rechteck
 Result:=(X >= min(X1,X2)-Dist) AND (X <= max(X1,X2)+Dist)
    AND (Y >= min(Y1,Y2)-Dist) AND (Y <= max(Y1,Y2)+Dist);
 //JA:Prüfe Distanz
 IF Result Then Result:=(DistPoint(X,Y,X1,Y1,X2,Y2)<= Dist);
End;