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
108 lines
3.8 KiB
Plaintext
108 lines
3.8 KiB
Plaintext
/*
|
|
* Author: Ruthberg
|
|
* Calculates the truing drop and updates the output fields
|
|
*
|
|
* Arguments:
|
|
* parse input <BOOL>
|
|
*
|
|
* Return Value:
|
|
* Nothing
|
|
*
|
|
* Example:
|
|
* call ace_atragmx_fnc_calculate_truing_drop
|
|
*
|
|
* Public: No
|
|
*/
|
|
#include "script_component.hpp"
|
|
|
|
private _parseInput = _this;
|
|
|
|
private _transonicRange = GVAR(truingDropRangeData) select 0;
|
|
private _subsonicRange = GVAR(truingDropRangeData) select 1;
|
|
private _transonicDrop = GVAR(truingDropDropData) select 1;
|
|
private _subsonicDrop = GVAR(truingDropDropData) select 2;
|
|
|
|
if (_parseInput) then {
|
|
_transonicRange = 0 max abs(parseNumber(ctrlText 18011)) min 4000;
|
|
_subsonicRange = 0 max abs(parseNumber(ctrlText 18012)) min 4000;
|
|
if (GVAR(currentUnit) != 2) then {
|
|
_transonicRange = _transonicRange * 0.9144;
|
|
_subsonicRange = _subsonicRange * 0.9144;
|
|
};
|
|
_transonicRange = Round(_transonicRange);
|
|
_subsonicRange = Round(_subsonicRange);
|
|
|
|
_subsonicRange = _transonicRange max _subsonicRange;
|
|
|
|
_transonicDrop = 0 max abs(parseNumber(ctrlText 18013)) min 1000;
|
|
_subsonicDrop = 0 max abs(parseNumber(ctrlText 18014)) min 1000;
|
|
private _dropUnit = GVAR(currentScopeUnit);
|
|
if (_dropUnit == 3) then {
|
|
switch (GVAR(currentScopeClickUnit)) do {
|
|
case 0: { _dropUnit = 1; };
|
|
case 1: { _dropUnit = 2; };
|
|
case 2: { _dropUnit = 0; };
|
|
};
|
|
};
|
|
switch (_dropUnit) do {
|
|
case 0: {
|
|
_transonicDrop = _transonicDrop * 3.38;
|
|
_subsonicDrop = _subsonicDrop * 3.38;
|
|
};
|
|
case 2: {
|
|
_transonicDrop = _transonicDrop / 1.047;
|
|
_subsonicDrop = _subsonicDrop / 1.047;
|
|
};
|
|
};
|
|
_transonicDrop = Round(_transonicDrop * 100) / 100;
|
|
_subsonicDrop = Round(_subsonicDrop * 100) / 100;
|
|
|
|
_subsonicDrop = _transonicDrop max _subsonicDrop;
|
|
};
|
|
|
|
if ((GVAR(truingDropDropData) select 0) == 0 || {!([_transonicRange, _subsonicRange] isEqualTo GVAR(truingDropRangeData))}) then {
|
|
if (isNil QGVAR(targetSolutionInput)) then {
|
|
call FUNC(calculate_target_solution);
|
|
};
|
|
private _solutionInput = +GVAR(targetSolutionInput);
|
|
|
|
if (_transonicRange == 0) then {
|
|
_transonicRange = Round(403 call FUNC(calculate_distance_at_velocity));
|
|
};
|
|
_solutionInput set [13, _transonicRange];
|
|
private _result1 = _solutionInput call FUNC(calculate_solution);
|
|
_transonicDrop = Round((_result1 select 0) * 100) / 100;
|
|
GVAR(truingDropRangeData) set [0, _transonicRange];
|
|
GVAR(truingDropDropData) set [1, _transonicDrop];
|
|
GVAR(truingDropReferenceDropData) set [0, _transonicDrop];
|
|
|
|
private _speedOfSound = (_solutionInput select 5) call EFUNC(weather,calculateSpeedOfSound);
|
|
if (_subsonicRange == 0) then {
|
|
_subsonicRange = _speedOfSound call FUNC(calculate_distance_at_velocity);
|
|
if (GVAR(currentUnit) == 2) then {
|
|
_subsonicRange = _subsonicRange + 200;
|
|
} else {
|
|
_subsonicRange = _subsonicRange + 200 * 1.0936133;
|
|
};
|
|
_subsonicRange = Round(_subsonicRange);
|
|
};
|
|
_solutionInput set [13, _subsonicRange];
|
|
private _result2 = _solutionInput call FUNC(calculate_solution);
|
|
_subsonicDrop = Round((_result2 select 0) * 100) / 100;
|
|
GVAR(truingDropRangeData) set [1, _subsonicRange];
|
|
GVAR(truingDropDropData) set [2, _subsonicDrop];
|
|
GVAR(truingDropReferenceDropData) set [1, _subsonicDrop];
|
|
} else {
|
|
if (_transonicDrop != GVAR(truingDropDropData) select 1 || _subsonicDrop != GVAR(truingDropDropData) select 2) then {
|
|
GVAR(truingDropDropData) set [1, _transonicDrop];
|
|
GVAR(truingDropDropData) set [2, _subsonicDrop];
|
|
if (GVAR(truingDropMode) == 0) then {
|
|
call FUNC(true_muzzle_velocity);
|
|
} else {
|
|
call FUNC(true_c1_ballistic_coefficient);
|
|
};
|
|
};
|
|
};
|
|
|
|
call FUNC(update_truing_drop_data);
|