[LegacyColorValue = true]; 

arrays: f[8](0); // Using indexes 1 to 8
vars: tmp(0), result(0);
vars: cflag(false);

f[1]=0;
f[2]=0;
f[3]=0;
f[4]=0;
f[5]=0;
f[6]=0;
f[7]=0;
f[8]=0;
tmp = f[1];
f[1] = f[2];
f[2] = f[3];
f[3] = f[4];
f[4] = f[5];
f[5] = f[6];
f[6] = f[7];
f[7] = f[8];
f[8] = tmp;
f[1] = CELSqrt (f[1]);
f[1] = CELAdd (f[1], v1[29]);
f[1] = CELAdd (f[1], v1[33]);
f[2] = CELSubtract (f[2], f[1]);
f[1] = CELAdd (f[1], v1[23]);
f[1] = CELAdd (f[1], v1[6]);
f[1] = CELMultiply (f[1], v1[11]);
f[1] = CELSubtract (f[1], v1[29]);
f[1] = CELAdd (f[1], v1[25]);
f[1] = CELSqrt (f[1]);
f[2] = CELAdd (f[2], f[1]);
f[1] = CELSubtract (f[1], f[1]);
tmp = f[1];
f[1] = f[2];
f[2] = f[3];
f[3] = f[4];
f[4] = f[5];
f[5] = f[6];
f[6] = f[7];
f[7] = f[8];
f[8] = tmp;
f[1] = CELAbs (f[1]);
f[1] = CELAdd (f[1], v1[23]);
f[1] = CELAdd (f[1], v1[6]);
f[1] = CELMultiply (f[1], v1[11]);
f[1] = CELSubtract (f[1], v1[29]);
if (CELNot (CELIsFinite (f[1]))) then begin
f[1] = 0;
end;

result = f[1];