This commit is contained in:
[VB]AWOL
2013-10-09 16:54:49 -05:00

View File

@@ -14,22 +14,31 @@ Returns a vector that is the sum of <vector1> and <vector2>.
************************************************************/
private["_p1","_p2","_return","_i"];
private["_p1","_p2","_return"];
_p1 = _this select 0;
_p2 = _this select 1;
if ((count _p1) != (count _p2)) then {textLogFormat ["BIS_FNC Error: vectors not of same size"]};
_c = (count _p1) max (count _p2);
_return = [];
_i = 0;
{
if(_i <= (count(_p2) - 1)) then {
_return = _return + [_x + (_p2 select _i)];
} else {
_return = _return + [_x];
};
_i = _i + 1;
} forEach _p1;
for "_i" from 0 to (_c - 1) do {
if(_i < (count _p1)) then {
if(_i < (count _p2)) then {
_return = _return + [(_p1 select _i) + (_p2 select _i)];
} else {
_return = _return + [(_p1 select _i)];
};
} else {
if(_i < (count _p1)) then {
_return = _return + [(_p2 select _i) + (_p1 select _i)];
} else {
_return = _return + [(_p2 select _i)];
};
};
};
_return