fn EExecD1 &D X Y Att Sg1 Sg2 FM =
(	
	if (X==undefined) or (Y==undefined) then return false
	if (X.OB=="P") and (Y.OB=="P") then
	(
		local Dx=CompSub X.X Y.X
		local Dy=CompSub X.Y Y.Y
		local Sx=CompSqr Dx
		local Sy=CompSqr Dy
		local S=CompSum Sx Sy
		local R=CompSqrt S
--		D=TODuga();
--		D.Xc=X.X;
--		D.Yc=X.Y;
--		D.R=R;
--		D.OB="D";
--		D.FAtt=CopyAtt Att
		TODuga_Create &D X.X X.Y R (X.X.Re+R.Re) X.Y.Re (X.X.Re+R.Re) X.Y.Re Att5 
	) else
	(
		if (Att.Chk==1) then TOEmpty_Create &D Att;
	)
	return true	
) -- EExecD1