fn EExecD5 &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=Sqrt R.C.Re/Pi*Sign(R.C.Re);
		V.Im=0;
		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
	
) --  EExecD5