fn EExecSPYI &out_Prm1 &out_Prm2 in_Prm1 in_Prm2 in_Prm3 in_Prm4  Att_1 Att_2 Sg1 Sg2 Sg3 Sg4 FM  =
(
	if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined) or (in_Prm4==undefined)) then return false

	local  d3,o1,o2,o3,o4,o5,o6,p3,p4,p5,p6,p7,p8,p9

	TOChisl_Create &Chisl1 (Complex -48.9400279 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 38.5595108 0.0) Att5
	TOChisl_Create &Chisl3 (Complex -48.9400279 0.0) Att5
	TOChisl_Create &Chisl4 (Complex -61.4404892 0.0) Att5
	TOChisl_Create &Chisl5 (Complex -129.731441 0.0) Att5
	TOChisl_Create &Chisl6 (Complex -24.1521449 0.0) Att5
	TOChisl_Create &Chisl7 (Complex -29.7314406 0.0) Att5
	TOChisl_Create &Chisl8 (Complex -24.1521449 0.0) Att5
	TOChisl_Create &Chisl9 (Complex 76.0 0.0) Att5

	CreateCopy &d1 in_Prm1
	d1.FAtt=in_Prm1.FAtt

	CreateCopy &d2 in_Prm2
	d2.FAtt=in_Prm2.FAtt

	CreateCopy &p1 in_Prm3
	p1.FAtt=in_Prm3.FAtt

	CreateCopy &p2 in_Prm4
	p2.FAtt=in_Prm4.FAtt

	EExecO2 &o1  Chisl1 Chisl2 Chisl3 Chisl4  att5  1 1 1 1  "0"
	EExecPA &p3  d1  att0  1  "0"
	EExecPA &p4  d2  att0  1  "0"
	EExecO0 &o2  p1 p3  att5  1 1  "0"
	EExecO0 &o3  p2 p4  att5  1 1  "0"
	EExecO2 &o4  Chisl5 Chisl6 Chisl7 Chisl8  att5  1 1 1 1  "0"
	EExecO7 &o5  o3 Chisl9  att5  1 1  "0"
	EExecX0 &p5  p3 o4 p4 o5  att0  1 1 1 1  "mu(no(1,3),no(2,4))"
	EExecX0 &p6  p1 o4 p2 o5  att0  1 1 1 1  "mu(no(1,3),no(2,4))"
	EExecD0 &d3  p5 d2  att0  1 1  "0"
	EExecYI &p7  d3 p6  att0  1 1  "0"
	EExecPF &p8  p7 o3  att0  1 1  "0"
	EExecO1 &o6  p8 rect  att5  1 1  "0"
	EExecP2 &p9  o6 o2  att0  1 1  "0"

	CreateCopy &out_Prm1 p9
	out_Prm1.FAtt=p9.FAtt

	CreateCopy &out_Prm2 p8
	out_Prm2.FAtt=p8.FAtt

	return true
) -- EExecSPYI