fn EExecG6 &OOO X Y Att Sg1 Sg2 FM =
(
	local A,B
	if (X==undefined) or (Y==undefined) then return false

	if (X.OB=="C") and (Y.OB=="C") and (IsReal X)  and (IsReal Y) then
	(
		A=Complex (X.C.Re*Sg1) (X.C.Im*Sg1) 
		B=Complex (Y.C.Re*Sg2) (Y.C.Im*Sg2) 
		TOUsl_Create &OOO (A.Re<=B.Re) Att 
	)  else
	(
		TOEmpty_Create &OOO Att 
	)

	return true
) -- EExecG6