fn EExecOE &OOO1 &OOO2 X Y Att1 Att2 Sg1 Sg2 FM =
(
	if (X==undefined) or (Y==undefined) then return false
	local X1=Complex 0. 0.
	local Y1=Complex 0. 0.
	local X2=Complex 0. 0.
	local Y2=Complex 0. 0.
	local X3=Complex 0. 0.
	local Y3=Complex 0. 0.
	local X4=Complex 0. 0.
	local Y4=Complex 0. 0.
	local Dx

	if (X.OB=="O") and (Y.OB=="C") and (IsSobstv X) and (IsReal X) then 
	(
		X1=X.X1;
		X1=X.X1;
		Y1=X.Y1;
		X2=X.X2;
		Y2=X.Y2;
		Dx=Y.C.Re/2;
		CALCO7 X1 Y1 X2 Y2 &Dx (Sg1*Sg2) &X4 &Y4 &X5 &Y5
		TOLine_Create &OOO1 X4 Y4 1 X5 Y5 1 brn_UnLimited "sobstv" Att1;	
		CALCO7 X1 Y1 X2 Y2 &Dx -(Sg1*Sg2) &X4 &Y4 &X5 &Y5
		TOLine_Create &OOO2 X4 Y4 1 X5 Y5 1 brn_UnLimited "sobstv" Att2;	
	) else
    	(
		if (Att1.Chk==1) then TOEmpty_Create &OOO1 Att1;
		if (Att2.Chk==1) then TOEmpty_Create &OOO2 Att2;
	)
	return true
) -- EExecOE