/**
 * fn_getBloodPressure.sqf
 * @Descr: Calculate the current blood pressure of a unit.
 * @Author: Glowbal
 *
 * @Arguments: [unit OBJECT (The unit to get the blood pressure from.)]
 * @Return: ARRAY Blood Pressure. Format [low NUMBER, high NUMBER]
 * @PublicAPI: true
 */

#include "script_component.hpp"

/*
    Value is taken because with cardic output and resistance at default values, it will put blood pressure High at 120.
*/
#define MODIFIER_BP_HIGH     0.229

/*
    Value is taken because with cardic output and resistance at default values, it will put blood pressure Low at 80.
*/
#define MODIFIER_BP_LOW     0.1524

private ["_unit", "_bloodPressureLow", "_bloodPressureHigh", "_cardiacOutput", "_resistance"];
_unit = _this select 0;
_cardiacOutput = [_unit] call FUNC(getCardiacOutput);
_resistance = [_unit, QGVAR(peripheralResistance)] call EFUNC(common,getDefinedVariable);

_bloodPressureHigh = (_cardiacOutput * MODIFIER_BP_HIGH) * _resistance;
_bloodPressureLow = (_cardiacOutput * MODIFIER_BP_LOW) * _resistance;

[_bloodPressureLow, _bloodPressureHigh];