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