fn EExecPLPF &out_Prm1 &out_Prm2 in_Prm1 in_Prm2 in_Prm3 in_Prm4 in_Prm5 in_Prm6 Att_1 Att_2 Sg1 Sg2 Sg3 Sg4 Sg5 Sg6 FM = ( if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined) or (in_Prm4==undefined) or (in_Prm5==undefined) or (in_Prm6==undefined)) then return false local o1,o10,o11,o12,o13,o14,o15,o16,o17,o18,o7,o8,o9,p10,p11,p12,p13,p14,p15,p16,p5,p6,p7,p8,p9 TOChisl_Create &Chisl1 (Complex 2.7254077 0.0) Att5 TOChisl_Create &Chisl2 (Complex 1.8403055 0.0) Att5 TOChisl_Create &Chisl3 (Complex -78.0 0.0) Att5 TOChisl_Create &Chisl4 (Complex -58.5 0.0) Att5 TOChisl_Create &Chisl5 (Complex -78.0 0.0) Att5 TOChisl_Create &Chisl6 (Complex -158.5 0.0) Att5 CreateCopy &p1 in_Prm1 p1.FAtt=in_Prm1.FAtt CreateCopy &p2 in_Prm2 p2.FAtt=in_Prm2.FAtt CreateCopy &o3 in_Prm3 o3.FAtt=in_Prm3.FAtt CreateCopy &o5 in_Prm4 o5.FAtt=in_Prm4.FAtt CreateCopy &o4 in_Prm5 o4.FAtt=in_Prm5.FAtt CreateCopy &o6 in_Prm6 o6.FAtt=in_Prm6.FAtt EExecP2 &p10 o5 o6 att0 1 1 "0" EExecO1 &o15 p10 Null att5 1 1 "0" EExecP9 &p6 o4 Chisl1 att0 1 1 "0" EExecO1 &o8 p6 rect att5 1 1 "0" EExecP2 &p8 o6 o8 att0 1 1 "0" EExecP2 &p9 o4 o3 att0 1 1 "0" EExecO1 &o11 p9 Null att5 1 1 "0" EExecP9 &p5 o3 Chisl2 att0 1 1 "0" EExecO0 &o9 p6 p5 att5 1 1 "0" EExecP2 &p11 o9 o11 att0 1 1 "0" EExecO1 &o12 p11 rect att5 1 1 "0" EExecO1 &o7 p5 rect att5 1 1 "0" EExecP2 &p7 o5 o7 att0 1 1 "0" EExecO0 &o10 p8 p7 att5 1 1 "0" EExecP2 &p13 o15 o10 att0 1 1 "0" EExecO1 &o16 p13 rect att5 1 1 "0" EExecP2 &p14 o16 o9 att0 1 1 "0" EExecO0 &o17 p9 p14 att5 1 1 "0" EExecP2 &p12 o10 o12 att0 1 1 "0" EExecO0 &o13 p10 p12 att5 1 1 "0" EExecO2 &o1 Chisl3 Chisl4 Chisl5 Chisl6 att5 1 1 1 1 "0" EExecO5 &o14 o13 p2 rect att0 1 1 1 "0" EExecO5 &o18 o17 p1 rect att0 1 1 1 "0" EExecPLPP &p15 &p16 o18 o14 o3 o5 o4 o6 att0 att0 1 1 1 1 1 1 "0" CreateCopy &out_Prm1 p15 out_Prm1.FAtt=p15.FAtt CreateCopy &out_Prm2 p16 out_Prm2.FAtt=p16.FAtt return true ) -- EExecPLPF