fn EExecP2 &PNT X Y Att Sg1 Sg2 FM =
(
    	local Def,Prizn,XX,YY,ZZ,S,C,Dl,Df,LDummy,X1,Y1,OB1,P1,P2,P3,CC,O1,XXX,YYY
    	local A1,A2,A3,B1,B2,B3,C1,C2,C3,D1,D2,D3,A,B,CCC,D,E,F,UX,UY,UZ,Q1,Q2


	if (X==undefined) or (Y==undefined) then return false
	
	if (X.OB=="O") and (Y.OB=="O") and (IsNull X) and (IsNull Y) then
	if Att.Chk==1 then
	(
		if (Att.Chk==1) then TOEmpty_Create &PNT Att
		return true
	)

    	if (X.OB=="O") and (IsNull X) then
	(
		CalcPF X.X1 X.Y1 Y &X1 &Y1
		if (Abs (X.X1.Re-X1.Re)<Eps) and (Abs (X.Y1.Re-Y1.Re)<Eps) then
		(
			TOPoint_Create &PNT X.X1 X.Y1 1 Att				
			AddInc X PNT
			AddInc Y PNT
		) else
		if (Att.Chk==1) then TOEmpty_Create &PNT Att

        	return true
	)

	if (Y.OB=="O") and (IsNull Y) then
    	(
		CalcPF Y.X1 Y.Y1 X &X1 &Y1
		if (Abs (Y.X1.Re-X1.Re)<Eps) and (Abs (Y.Y1.Re-Y1.Re)<Eps) then
		(
			TOPoint_Create &PNT Y.X1 Y.Y1 1 Att				
			AddInc X PNT
			AddInc Y PNT
		) else
		if (Att.Chk==1) then TOEmpty_Create &PNT Att
		
		return true
	)

	if (X.OB=="O") and (Y.OB=="O") then
	(
		if (X==Y) then
		(
			CreateCopy &PNT X
			return true
		)
		XX=Complex 0. 0. 
		YY=Complex 0. 0. 

		if (X.OB=="O") and (Y.OB=="O") and (IsSobstv X) and (IsSobstv Y) then
		(
			Prizn=LinLinComp X.X1 X.Y1 X.X2 X.Y2 Y.X1 Y.Y1 Y.X2 Y.Y2 &Xx &Yy &ZZ 

			Def=TRUE
			Q1=PointBelongs X XX.Re YY.Re
			Q2=PointBelongs Y XX.Re YY.Re


			if (ZZ.Re==1) then if Q1 and Q2 then Def=TRUE else Def=FALSE
			if not Def then
			(
				if (Att.Chk==1) then TOEmpty_Create &PNT Att
				return true
			)

			if (ZZ.Re==1) then
			(
				TOPoint_Create &PNT XX YY ZZ.Re Att				
				Result=TRUE
				AddInc PNT X
				AddInc PNT Y
				return true
			)
		)

		if (not IsSobstv X) and (IsSobstv Y) then
		(
			A1=Y.X1;
			A2=Y.Y1
			A3=Complex Y.W1 0.
			B1=Y.X2;
			B2=Y.Y2;
			B3=Complex Y.W2 0.

			A=CompSub (CompMul A2 B3) (CompMul A3 B2)
			B=CompSub (CompMul A3 B1) (CompMul A1 B3)
			CCC=CompSub (CompMul A1 B2 ) (CompMul A2 B1 )

			UX=B
			UY=CompNeg A 

			TOPoint_Create &PNT UX UY 0 Att				
			AddInc X PNT
			AddInc Y PNT
			return true
		)

		if (not IsSobstv Y) and (IsSobstv X) then
		(
			A1=X.X1
			A2=X.Y1
			A3=Complex X.W1 0
			B1=X.X2;
			B2=X.Y2;
			B3=Complex X.W2 0.

			A=CompSub (CompMul A2 B3) (CompMul A3 B2)
			B=CompSub (CompMul A3 B1) (CompMul A1 B3)
			
			CCC=CompSub (CompMul A1 B2) (CompMul A2 B1)

			UX=B;
			UY=CompNeg A ;

			TOPoint_Create &PNT UX UY 0 Att
			AddInc X PNT
			AddInc Y PNT
			return true
		)

		if (not IsSobstv X) and (not IsSobstv Y) then
		(
			if (Att.Chk==1) then TOEmpty_Create &PNT Att
			return true
		)

		if (not IsSobstv X) and (IsSobstv Y) then  
		(
			LDummy=SC Y.X1.Re Y.Y1.Re Y.X2.Re Y.Y2.Re &S &C &Dl  
			Df=Fi 0 1 S C;
			Df=Df*180./Pi;
			A=Complex Df 0.
			TOPoint_Create &PNT Complex (100.*Cos (A.Re/180.*Pi) 0.)  Complex(100.*Sin (A.Re/180.*Pi) 0.) 0 Att
			return true
		)

		if (not IsSobstv Y) and (IsSobstv X) then  
		(
			LDummy=SC X.X1.Re X.Y1.Re X.X2.Re X.Y2.Re &S &C &Dl  
			Df=Fi 0 1 S C;
			Df=Df*180./Pi;
			A=Complex Df 0.
			TOPoint_Create &PNT Complex (100.*Cos (A.Re/180.*Pi) 0.)  Complex(100.*Sin (A.Re/180.*Pi) 0. ) 0 Att
			return true
		)
		

	)
	if (Att.Chk==1) then TOEmpty_Create &PNT Att
	return true	

) -- EExecP2