mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
3f4564605b
* Muzzle Velocity vs. Temperature Interpolation * C1 Ballistic Coefficient vs. Distance Interpolation * Coriolis and Spin drift output * Options menu * Truing Drop --------------------------------- * Overworked default gun profiles --------------------------------- * Fixed the Cancel buttons on the gun-, atmosphere- and target columns. * Fixed some muzzle velocity entries in the default gun list. * Fixed divide by zero error in the target range estimator
58 lines
1.7 KiB
Plaintext
58 lines
1.7 KiB
Plaintext
/*
|
|
* Author: Ruthberg
|
|
* Recalculates the muzzle velocity based on the muzzle velocity vs. temperature interpolation input
|
|
*
|
|
* Arguments:
|
|
* parse input <BOOL>
|
|
* update display <BOOL>
|
|
*
|
|
* Return Value:
|
|
* Nothing
|
|
*
|
|
* Example:
|
|
* call ace_atragmx_fnc_recalculate_muzzle_velocity
|
|
*
|
|
* Public: No
|
|
*/
|
|
#include "script_component.hpp"
|
|
|
|
params ["_parseInput", "_updateDisplay"];
|
|
|
|
if (_parseInput) then {
|
|
[] call FUNC(parse_input);
|
|
};
|
|
|
|
private _lookupTable = [];
|
|
{
|
|
if ((_x select 1) > 0) then {
|
|
_lookupTable pushBack _x;
|
|
};
|
|
} forEach (GVAR(workingMemory) select 18);
|
|
|
|
private _lookupTableSize = count _lookupTable;
|
|
if (_lookupTableSize < 2) exitWith {};
|
|
_lookupTable sort true;
|
|
|
|
private ["_lowerIndex", "_upperIndex"];
|
|
for "_index" from 1 to (_lookupTableSize - 1) do {
|
|
_upperIndex = _index;
|
|
_lowerIndex = _upperIndex - 1;
|
|
if (((_lookupTable select _index) select 0) >= GVAR(temperature)) exitWith {}
|
|
};
|
|
|
|
private ["_lowerTemperature", "_upperTemperature", "_lowerMuzzleVelocity", "_upperMuzzleVelocity", "_slope", "_muzzleVelocity"];
|
|
_lowerTemperature = (_lookupTable select _lowerIndex) select 0;
|
|
_upperTemperature = (_lookupTable select _upperIndex) select 0;
|
|
_lowerMuzzleVelocity = (_lookupTable select _lowerIndex) select 1;
|
|
_upperMuzzleVelocity = (_lookupTable select _upperIndex) select 1;
|
|
_slope = (_upperMuzzleVelocity - _lowerMuzzleVelocity) / (_upperTemperature - _lowerTemperature);
|
|
_muzzleVelocity = _lowerMuzzleVelocity + (GVAR(temperature) - _lowerTemperature) * _slope;
|
|
|
|
if (_muzzleVelocity != GVAR(workingMemory) select 1) then {
|
|
GVAR(workingMemory) set [1, _muzzleVelocity];
|
|
if (_updateDisplay) then {
|
|
call FUNC(update_gun);
|
|
call FUNC(update_gun_ammo_data);
|
|
};
|
|
};
|