fn EExecD2 &D P R Att Sg1 Sg2 FM =
(	
	if (P==undefined) or (R==undefined) then return false
	if (P.OB=="P") and (R.OB=="C") then
	(
		local RR=Complex 0. 0.
		CompDiv R.C (Complex 2. 0.) &RR;
		TODuga_Create &D P.X P.Y RR (P.X.Re+RR.Re) P.Y.Re (P.X.Re+RR.Re) P.Y.Re Att5 
	) else
	(
		if (Att.Chk==1) then TOEmpty_Create &D Att;
	)
	return true
) -- EExecD2