2015-04-07 19:46:43 +00:00
|
|
|
/*
|
|
|
|
* Author: Ruthberg
|
|
|
|
*
|
|
|
|
* Calculates the ammo temperature induced muzzle velocity shift
|
|
|
|
*
|
|
|
|
* Arguments:
|
2015-05-08 15:20:56 +00:00
|
|
|
* 0: muzzle velocity shift lookup table - m/s <ARRAY>
|
2015-04-07 19:54:29 +00:00
|
|
|
* 1: temperature - degrees celcius <NUMBER>
|
2015-04-07 19:46:43 +00:00
|
|
|
*
|
|
|
|
* Return Value:
|
2015-08-05 03:01:30 +00:00
|
|
|
* muzzle velocity shift - m/s <NUMBER>
|
2015-08-05 02:38:04 +00:00
|
|
|
*
|
|
|
|
* Public: No
|
2015-04-07 19:46:43 +00:00
|
|
|
*/
|
2015-04-05 19:08:55 +00:00
|
|
|
#include "script_component.hpp"
|
|
|
|
|
2016-09-04 14:44:22 +00:00
|
|
|
params ["_muzzleVelocityShiftTable", "_temperature"];
|
2015-04-05 19:08:55 +00:00
|
|
|
|
2015-10-09 01:32:14 +00:00
|
|
|
// Check if muzzleVelocityShiftTable is Less Than 11 Entrys
|
|
|
|
if ((count _muzzleVelocityShiftTable) < 11) exitWith {0};
|
2016-09-04 14:44:22 +00:00
|
|
|
private _muzzleVelocityShiftTableUpperLimit = _muzzleVelocityShiftTable select 10;
|
2015-08-05 02:13:36 +00:00
|
|
|
if (isNil "_muzzleVelocityShiftTableUpperLimit") exitWith { 0 };
|
2015-04-05 19:08:55 +00:00
|
|
|
|
2015-08-05 02:13:36 +00:00
|
|
|
// Find exact data index required for given temperature
|
2016-09-04 14:44:22 +00:00
|
|
|
private _temperatureIndexFunction = (_temperature + 15) / 5;
|
2015-04-05 19:08:55 +00:00
|
|
|
|
2015-08-05 02:13:36 +00:00
|
|
|
// lower and upper data index used for interpolation
|
2016-09-04 14:44:22 +00:00
|
|
|
private _temperatureIndexA = (0 max (floor(_temperatureIndexFunction))) min 10;
|
|
|
|
private _temperatureIndexB = (0 max (ceil(_temperatureIndexFunction))) min 10;
|
2015-04-05 19:08:55 +00:00
|
|
|
|
2015-08-05 02:13:36 +00:00
|
|
|
// Interpolation ratio
|
2016-09-04 14:44:22 +00:00
|
|
|
private _interpolationRatio = _temperatureIndexFunction - floor(_temperatureIndexFunction);
|
2015-04-05 19:08:55 +00:00
|
|
|
|
2015-08-05 02:13:36 +00:00
|
|
|
// Interpolation
|
|
|
|
(_muzzleVelocityShiftTable select _temperatureIndexA) * (1 - _interpolationRatio) + (_muzzleVelocityShiftTable select _temperatureIndexB) * _interpolationRatio // Return
|