function  TOPoint_Ravno X OB =
(	
	local Eps3

     	Eps3=Eps*Eps*Eps;
     	if (X.W==1) and (OB.W==1) then
     	(
          	if ((Abs (X.X.Re-OB.X.Re))<Eps3) and  ((Abs (X.Y.Re-OB.Y.Re))<Eps3) and
          	((Abs (X.X.Im-OB.X.Im))<Eps3) and  ((Abs (X.Y.Im-OB.Y.Im))<Eps3) then Result=true
	)
) -- TOPoint_Ravno

function  TOLine_Ravno X OB =
(	
	local Eps3=Eps*Eps*Eps;
	local Success; 
    	local c1,c2,g1,g2,g3,o1,o2,o3,o4,p1,p2,p3,p4
	local Chisl1,Chisl3,Chisl4,Chisl5
	c1=c2=g1=g2=g3=o1=o2=o3=o4=p1=p2=p3=p4=undefined

	
	TOChisl_Create &Chisl1 (Complex 1.1090931 0.0) Att5
	TOChisl_Create &Chisl3 (Complex 0.001 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 0.15288993 0.0) Att5
	TOChisl_Create &Chisl5 (Complex 0.001 0.0) Att5

	CreateCopy &o1 X
	CreateCopy &o4 OB

	do
	(
		Success=false
		if (p2 == undefined) then Success=(EExecP9 &p2 o1 Chisl1 Att0 1 1 "0") or Success;
		if (o3 == undefined) then Success=(EExecO5 &o3 o1 p2 rect Att0 1 1 1 "0") or Success;
		if (p4 == undefined) then Success=(EExecP2 &p4 o3 o4 Att0 1 1 "0") or Success;
		if (c2 == undefined) then Success=(EExecC2 &c2 p2 p4 Att0 1 1 "0") or Success;
		if (g2 == undefined) then Success=(EExecG5 &g2 c2 Chisl3 Att0 1 1 "0") or Success;
		if (p1 == undefined) then Success=(EExecP9 &p1 o1 Chisl4 Att0 1 1 "0") or Success;
		if (o2 == undefined) then Success=(EExecO5 &o2 o1 p1 rect Att0 1 1 1 "0") or Success;
		if (p3 == undefined) then Success=(EExecP2 &p3 o2 o4 Att0 1 1 "0") or Success;
		if (c1 == undefined) then Success=(EExecC2 &c1 p1 p3 Att0 1 1 "0") or Success;
		if (g1 == undefined) then Success=(EExecG5 &g1 c1 Chisl5 Att0 1 1 "0") or Success;
		if (g3 == undefined) then
		(
			_g3=#(g1, g2) 
			Success=(EExecGA  &g3 _g3 Att5 "0") or Success;
		)
	) while not  Success;
	return g3.B
) -- TOLine_Ravno

function Ravno X Y =
(
	local Result
	Result=false
	if X.OB=="P" then Result=TOPoint_Ravno X Y
	if X.OB=="O" then Result=TOLine_Ravno X Y
	return Result
) -- Ravno


function EExecGNE &Out_Prm X Y Z Att Sg1 Sg2 Sg3 FM =
(
	if ((X==undefined) or (Y==undefined) or (Z==undefined)) then return false

	if (Ravno X Y) then
	(
		if X.OB=="P" then TOPoint_Create &Out_Prm Z.X Z.Y Z.W Att5
		if X.OB=="O" then TOLine_Create &Out_Prm Z.X1 Z.Y1 Z.W1 Z.X2 Z.Y2 Z.W2 brn_Limited "sobstv" Att5;
	) else
	(
		if X.OB=="P" then TOPoint_Create &Out_Prm Y.X Y.Y Y.W Att5
		if X.OB=="O" then  TOLine_Create &Out_Prm Y.X1 Y.Y1 Y.W1 Y.X2 Y.Y2 Y.W2 brn_Limited "sobstv" Att5;
	)

	return true 
) -- EExecGNE