function Inversion &Out_Prm Y X =
(
	(
		if (Y.OB=="P") then
		(
			if (X.OB=="D") then
			EExecAABD &Out_Prm X Y Y.FAtt 1 1
		)
		
		if (Y.OB=="O") then
		(
			TOChisl_Create &Chisl1 (Complex 0.001 0) Att5
			TOChisl_Create &Chisl2 (Complex 0.5 0) Att5
			TOChisl_Create &Chisl3 (Complex 0.999 0) Att5
			TOChisl_Create &Chisl4 (Complex 0.25 0) Att5
			TOChisl_Create &Chisl5 (Complex 0.75 0) Att5
			
			
			EExecP9 &p1 Y Chisl1 Att5 1 1
			EExecP9 &p2 Y Chisl2 Att5 1 1
			EExecP9 &p3 Y Chisl3 Att5 1 1
			EExecP9 &p4 Y Chisl4 Att5 1 1
			EExecP9 &p5 Y Chisl5 Att5 1 1

			EExecYI &POut1 X p1 Att5 1 1
			EExecYI &POut2 X p2 Att5 1 1
			EExecYI &POut3 X p3 Att5 1 1
			EExecYI &POut4 X p4 Att5 1 1
			EExecYI &POut5 X p5 Att5 1 1

			if (X.OB=="D") then EExecD4 &Out_Prm POut1 POut2 POut3 Att5 1 1 1 
--			if (X.OB=="Y") EExecY0(OOO,POut1,POut2,POut3,POut4,POut5,Att5,1,1,1,1,1);
		)
		
		if (Y.OB=="D") then
		(
			if ((Y.Vid==circ_full) or (Y.Vid==drw_Empty) or (Y.Vid==drw_Incidented)) then
			(
				if (X.OB=="D") then
				(
					TOChisl_Create &Chisl1 (Complex 0.01 0) Att5
					TOChisl_Create &Chisl2 (Complex 0.45 0) Att5
					TOChisl_Create &Chisl3 (Complex 0.2 0) Att5
					TOChisl_Create &Chisl4 (Complex 0.9 0) Att5
					TOChisl_Create &Chisl5 (Complex 0.75 0) Att5
				)

				if (X.OB=="Y") then
				(
					TOChisl_Create &Chisl1 (Complex 0.0 0) Att5
					TOChisl_Create &Chisl2 (Complex 0.2 0) Att5
					TOChisl_Create &Chisl3 (Complex 0.4 0) Att5
					TOChisl_Create &Chisl4 (Complex 0.6 0) Att5
					TOChisl_Create &Chisl5 (Complex 0.8 0) Att5
				)

			) else
			(
				TOChisl_Create &Chisl1 (Complex 0.0 0) Att5
				TOChisl_Create &Chisl2 (Complex 0.5 0) Att5
				TOChisl_Create &Chisl3 (Complex 1.0 0) Att5
				TOChisl_Create &Chisl4 (Complex 0.25 0) Att5
				TOChisl_Create &Chisl5 (Complex 0.75 0) Att5
			)

	
			EExecP9 &p1 Y Chisl1 Att5 1 1 
			EExecP9 &p2 Y Chisl2 Att5 1 1 
			EExecP9 &p3 Y Chisl3 Att5 1 1 
			EExecP9 &p4 Y Chisl4 Att5 1 1 
			EExecP9 &p5 Y Chisl5 Att5 1 1 

			EExecYI &POut1 X p1 Att5 1 1 
			EExecYI &POut2 X p2 Att5 1 1 
			EExecYI &POut3 X p3 Att5 1 1 
			EExecYI &POut4 X p4 Att5 1 1 
			EExecYI &POut5 X p5 Att5 1 1 

			if (X.OB=="D") then
			(
				if (Abs (Diskr POut1.X.Re POut1.Y.Re 1 POut2.X.Re POut2.Y.Re 1 POut3.X.Re POut3.Y.Re 1)<Eps) then 
					EExecO0 &Out_Prm POut1 POut2 Att5 1 1  else
					EExecD4 &Out_Prm POut1 POut2 POut3 Att5 1 1 1;
			)

/*			
*/	
		)
	)

	if (X.OB=="Y") then
	(
	)
) -- inversion


function EExecYI &Out_Prm X Y Att Sg1 Sg2 FM =
(    

	if ((X==undefined) or (Y==undefined)) then return false;

	if ((X.OB=="D") or (X.OB=="Y")) then
	(
/*
		if (Att.PT=8) and (Att.LV=8) and (Att.LT=6) then
		begin
			Att.RColor Y.OAtt.RColor;
			Att.GColor Y.OAtt.GColor;
			Att.BColor Y.OAtt.BColor;
		end;
		if Att.PT=8 then Att.PTY.OAtt.PT;
		if Att.LV=8 then Att.LVY.OAtt.LV;
		if Att.LT=6 then Att.LTY.OAtt.LT;
*/
		Inversion &Out_Prm Y X 
--		if (Att.Act) Out_Prm.FAtt=Att;

		return true
	) else
	if (X.OB=="O") then if (IsReal X) then
	(
/*		
		if Att.PT=8 then Att.PTY.OAtt.PT;
		if Att.LV=8 then Att.LVY.OAtt.LV;
		if Att.LT=6 then Att.LTY.OAtt.LT;
*/
		EExecUU &Out_Prm X Y Att Sg1 Sg2 "0"
--		if (Att.Act) then Out_Prm.FAtt=Att;
		if (not Result) then
		(
			if (Att.Chk==1) then TOEmpty_Create &Out_Prm Att 

			return true
		)
	) else
	(
		if (Att.Chk==1) then TOEmpty_Create &Out_Prm Att 
	
	)
	return true
) -- EExecYI