function EExecYK &out_prm1 in_prm1 in_prm2 in_prm3 Att_polus Sg1 Sg2 Sg3 FM =
(
	if ((in_prm1==undefined) or (in_prm2==undefined) or (in_prm3==undefined)) then return false;

	local Chisl1,Chisl2,Chisl3,Chisl4,Chisl5,Result
	local  pnt,p1,p2,p3,p4,p5,conica1,conica2,o1,o2,pp,o1_1,o2_1,o1_2,o2_2,o1_3,o2_3,o1_4,o2_4,o1_5,o2_5,pp_1,pp_2,pp_3,pp_4,pp_5

	CreateCopy &pnt in_prm1 
	pnt.FAtt=CopyAtt Att5 

	if (in_prm2.OB=="Y") then
	(
		CreateCopy &conica1 in_prm2 
		conica1.FAtt=CopyAtt Att0 
	)
	
	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.66 0) Att5
	TOChisl_Create &Chisl5 (Complex 0.88 0) Att5

	
	if (in_prm2.OB=="D") then
	(
		EExecP9 &p1 in_prm2 Chisl1 Att5 1 1 "0"
		EExecP9 &p2 in_prm2 Chisl2 Att5 1 1 "0"
		EExecP9 &p3 in_prm2 Chisl3 Att5 1 1 "0"
		EExecP9 &p4 in_prm2 Chisl4 Att5 1 1 "0"
		EExecP9 &p5 in_prm2 Chisl5 Att5 1 1 "0"
		EExecY0 &conica1 p1 p2 p3 p4 p5 Att0 1 1 1 1 1 "0"
	)

	if (in_prm3.OB=="Y") then
	(
		CreateCopy &conica2 in_prm3 
		conica2.FAtt=CopyAtt Att0 
	)

	if (in_prm3.OB=="D") then
	(
		EExecP9 &p1 in_prm3 Chisl1 Att5 1 1 "0"
		EExecP9 &p2 in_prm3 Chisl2 Att5 1 1 "0"
		EExecP9 &p3 in_prm3 Chisl3 Att5 1 1 "0"
		EExecP9 &p4 in_prm3 Chisl4 Att5 1 1 "0"
		EExecP9 &p5 in_prm3 Chisl5 Att5 1 1 "0"
		EExecY0 &conica2 p1 p2 p3 p4 p5 Att0 1 1 1 1 1 "0"
	)

	if (pnt.OB=="P") then
	(
		EExecY6 &o1 pnt in_prm2 Att5 1 Sg2 "0"
		EExecY6 &o2 pnt in_prm3 Att5 1 Sg3 "0"
		EExecP2 &pp o1 o2 Att5 1 1 "0"

		CreateCopy &out_prm1 pp 
		out_prm1.FAtt=CopyAtt Att5 
		Result=true;
		return Result;
	) else
	if (pnt.OB=="O") then
	(
		TOChisl_Create &Chisl1 (Complex 0 0) Att5
		TOChisl_Create &Chisl2 (Complex 2 0) Att5
		TOChisl_Create &Chisl3 (Complex 4 0) Att5
		TOChisl_Create &Chisl4 (Complex 6 0) Att5
		TOChisl_Create &Chisl5 (Complex 8 0) Att5

		EExecP9 &p1 pnt Chisl1 Att5 1 1 "0"
		EExecP9 &p2 pnt Chisl2 Att5 1 1 "0"
		EExecP9 &p3 pnt Chisl3 Att5 1 1 "0"
		EExecP9 &p4 pnt Chisl4 Att5 1 1 "0"
		EExecP9 &p5 pnt Chisl5 Att5 1 1 "0"


		EExecY6 &o1_1 p1 in_prm2 Att5 1 Sg2 "0"
		EExecY6 &o2_1 p1 in_prm3 Att5 1 Sg3 "0"
		EExecP2 &pp_1 o1_1 o2_1 Att5 1 1 "0"

		EExecY6 &o1_2 p2 in_prm2 Att5 1 Sg2 "0"
		EExecY6 &o2_2 p2 in_prm3 Att5 1 Sg3 "0"
		EExecP2 &pp_2 o1_2 o2_2 Att5 1 1 "0"

		EExecY6 &o1_3 p3 in_prm2 Att5 1 Sg2 "0"
		EExecY6 &o2_3 p3 in_prm3 Att5 1 Sg3 "0"
		EExecP2 &pp_3 o1_3 o2_3 Att5 1 1 "0"

		EExecY6 &o1_4 p4 in_prm2 Att5 1 Sg2 "0"
		EExecY6 &o2_4 p4 in_prm3 Att5 1 Sg3 "0"
		EExecP2 &pp_4 o1_4 o2_4 Att5 1 1 "0"

		EExecY6 &o1_5 p5 in_prm2 Att5 1 Sg2 "0"
		EExecY6 &o2_5 p5 in_prm3 Att5 1 Sg3 "0"
		EExecP2 &pp_5 o1_5 o2_5 Att5 1 1 "0"

		EExecY0 &pp pp_1 pp_2 pp_3 pp_4 pp_5 Att5 1 1 1 1 1 "0"

		CreateCopy &out_prm1 pp 
		out_prm1.FAtt=CopyAtt Att_polus 
		Redult=true;
		return Result;
	) else
	if (pnt.OB=="Y") then
	(
/*		
		Chisl1:=TOChisl.Create(MCompl(0 0) tc_Constant NAtt NIL c_ord 
		Chisl2:=TOChisl.Create(MCompl(0.0714 0) tc_Constant NAtt NIL c_ord 
		Chisl3:=TOChisl.Create(MCompl(0.1428 0) tc_Constant NAtt NIL c_ord 
		Chisl4:=TOChisl.Create(MCompl(0.2142 0) tc_Constant NAtt NIL c_ord 
		Chisl5:=TOChisl.Create(MCompl(0.2857 0) tc_Constant NAtt NIL c_ord 
		Chisl6:=TOChisl.Create(MCompl(0.3571 0) tc_Constant NAtt NIL c_ord 
		Chisl7:=TOChisl.Create(MCompl(0.4286 0) tc_Constant NAtt NIL c_ord 
		Chisl8:=TOChisl.Create(MCompl(0.5 0) tc_Constant NAtt NIL c_ord 
		Chisl9:=TOChisl.Create(MCompl(0.5714 9) tc_Constant NAtt NIL c_ord 
		Chisl10:=TOChisl.Create(MCompl(0.6428 0) tc_Constant NAtt NIL c_ord 
		Chisl11:=TOChisl.Create(MCompl(0.7142 0) tc_Constant NAtt NIL c_ord 
		Chisl12:=TOChisl.Create(MCompl(0.7857 0) tc_Constant NAtt NIL c_ord 
		Chisl13:=TOChisl.Create(MCompl(0.8571 0) tc_Constant NAtt NIL c_ord 
		Chisl14:=TOChisl.Create(MCompl(0.9286 0) tc_Constant NAtt NIL c_ord 

		EExecP9(Point Chisl1 p1 Att5 1 1 NIL 
		EExecP9(Point Chisl2 p2 Att5 1 1 NIL 
		EExecP9(Point Chisl3 p3 Att5 1 1 NIL 
		EExecP9(Point Chisl4 p4 Att5 1 1 NIL 
		EExecP9(Point Chisl5 p5 Att5 1 1 NIL 
		EExecP9(Point Chisl6 p6 Att5 1 1 NIL 
		EExecP9(Point Chisl7 p7 Att5 1 1 NIL 
		EExecP9(Point Chisl8 p8 Att5 1 1 NIL 
		EExecP9(Point Chisl9 p9 Att5 1 1 NIL 
		EExecP9(Point Chisl10 p10 Att5 1 1 NIL 
		EExecP9(Point Chisl11 p11 Att5 1 1 NIL 
		EExecP9(Point Chisl12 p12 Att5 1 1 NIL 
		EExecP9(Point Chisl13 p13 Att5 1 1 NIL 
		EExecP9(Point Chisl14 p14 Att5 1 1 NIL 

		EExecY6(p1 conica1 o1_1 Att5 1 Sg2 NIL 
		EExecY6(p1 conica2 o2_1 Att5 1 Sg3 NIL 
		EExecP2(o1_1 o2_1 pp_1 Att5 1 1 NIL 

		EExecY6(p2 conica1 o1_2 Att5 1 Sg2 NIL 
		EExecY6(p2 conica2 o2_2 Att5 1 Sg3 NIL 
		EExecP2(o1_2 o2_2 pp_2 Att5 1 1 NIL 

		EExecY6(p3 conica1 o1_3 Att5 1 Sg2 NIL 
		EExecY6(p3 conica2 o2_3 Att5 1 Sg3 NIL 
		EExecP2(o1_3 o2_3 pp_3 Att5 1 1 NIL 

		EExecY6(p4 conica1 o1_4 Att5 1 Sg2 NIL 
		EExecY6(p4 conica2 o2_4 Att5 1 Sg3 NIL 
		EExecP2(o1_4 o2_4 pp_4 Att5 1 1 NIL 

		EExecY6(p5 conica1 o1_5 Att5 1 Sg2 NIL 
		EExecY6(p5 conica2 o2_5 Att5 1 Sg3 NIL 
		EExecP2(o1_5 o2_5 pp_5 Att5 1 1 NIL 

		EExecY6(p6 conica1 o1_6 Att5 1 Sg2 NIL 
		EExecY6(p6 conica2 o2_6 Att5 1 Sg3 NIL 
		EExecP2(o1_6 o2_6 pp_6 Att5 1 1 NIL 

		EExecY6(p7 conica1 o1_7 Att5 1 Sg2 NIL 
		EExecY6(p7 conica2 o2_7 Att5 1 Sg3 NIL 
		EExecP2(o1_7 o2_7 pp_7 Att5 1 1 NIL 

		EExecY6(p8 conica1 o1_8 Att5 1 Sg2 NIL 
		EExecY6(p8 conica2 o2_8 Att5 1 Sg3 NIL 
		EExecP2(o1_8 o2_8 pp_8 Att5 1 1 NIL 

		EExecY6(p9 conica1 o1_9 Att5 1 Sg2 NIL 
		EExecY6(p9 conica2 o2_9 Att5 1 Sg3 NIL 
		EExecP2(o1_9 o2_9 pp_9 Att5 1 1 NIL 

		EExecY6(p10 conica1 o1_10 Att5 1 Sg2 NIL 
		EExecY6(p10 conica2 o2_10 Att5 1 Sg3 NIL 
		EExecP2(o1_10 o2_10 pp_10 Att5 1 1 NIL 

		EExecY6(p11 conica1 o1_11 Att5 1 Sg2 NIL 
		EExecY6(p11 conica2 o2_11 Att5 1 Sg3 NIL 
		EExecP2(o1_11 o2_11 pp_11 Att5 1 1 NIL 

		EExecY6(p12 conica1 o1_12 Att5 1 Sg2 NIL 
		EExecY6(p12 conica2 o2_12 Att5 1 Sg3 NIL 
		EExecP2(o1_12 o2_12 pp_12 Att5 1 1 NIL 

		EExecY6(p13 conica1 o1_13 Att5 1 Sg2 NIL 
		EExecY6(p13 conica2 o2_13 Att5 1 Sg3 NIL 
		EExecP2(o1_13 o2_13 pp_13 Att5 1 1 NIL 

		EExecY6(p14 conica1 o1_14 Att5 1 Sg2 NIL 
		EExecY6(p14 conica2 o2_14 Att5 1 Sg3 NIL 
		EExecP2(o1_14 o2_14 pp_14 Att5 1 1 NIL 

		EExecQ0(Pp_1 Pp_2 Pp_3 Pp_4 Pp_5 Pp_6 Pp_7 Pp_8 Pp_9 Pp_10 
		Pp_11 Pp_12 Pp_13 Pp_14 Pp Att5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 NIL 
		out_prm1:=pp.CreateCopy(OW1 
		out_prm1.OAtt:=att_polus;
*/
	) else
	(
		TOEmpty_Create &pp Att_polus 
		out_prm1.FAtt=CopyAtt Att_polus 

		return true
	)
	return true
) -- EExecYK