ACE3/addons/frag/functions/fnc_getFragInfo.sqf

110 lines
3.4 KiB
Plaintext

#include "..\script_component.hpp"
/*
* Author: Jaynus, NouberNou, Lambda.Tiger
* This function returns fragmentation parameters for a specific
* ammo type.
*
* Arguments:
* 0: _ammo <STRING> - cfgAmmo type of ammo to check
*
* Return Value:
* _ammoInfo <ARRAY>
* 0: _fragRange - search range for fragments <SCALAR>
* 1: _fragVel - gurney equation calculated velocity <SCALAR>
* 2: _fragTypes - array of fragment types <ARRAY>
* 3: _fragCount - modified frag count used under assumptions
* of spherical fragmentation <SCALAR>
*
* Example:
* ["B_556x45_Ball"] call ace_frag_fnc_getFragInfo;
*
* Public: No
*/
params ["_ammo"];
private _ammoInfo = GVAR(fragInfoCache) get _ammo;
if (!isNil "_ammoInfo") exitWith {_ammoInfo};
private _ammoConfig = configFile >> "CfgAmmo" >> _ammo;
private _fragTypes = [];
private _warn = false;
if (isArray (_ammoConfig >> QGVAR(CLASSES))) then {
_fragTypes = getArray (_ammoConfig >> QGVAR(CLASSES));
} else {
_warn = true;
};
/************ Gurney equation notes *****************//*
* see https://en.wikipedia.org/wiki/Gurney_equations
*
* GURNEY_K is the geometry constant added to _metalMass/_chargeMass
* GURNEY_C = sqrt(2E)
*
* _chargeMass = 185; - grams of comp-b
* _metalMass = 210; - grams of metal are accelerated by explosion
* _geometryCoefficient = 3/5; - spherical K factor
* _gurneyConstant = 2843; - Gurney constant of comp-b in /ms
*
* _chargeMass = 429; - grams of tritonal
* _metalMass = 496; - grams of metal are accelerated by explosion
* _geometryCoefficient = 1/2; - cylindrical K factor
* _gurneyConstant = 2320; - Gurney constant of tritonal in m/s
* Equation - 0.8 for empirical 80% speed
* 0.8 * (((_metalMass / _chargeMass) + _geometryCoefficient) ^ - (1 / 2)) * _gurneyConstant;
* or 0.8 * _gurneyConstant * sqrt (_chargeMass /(_metalMass + _chargeMass * _geometryCoefficient)); (slightly faster to compute)
*/
private _chargeMass = getNumber (_ammoConfig >> QGVAR(CHARGE));
if (_chargeMass == 0) then {
_chargeMass = 1;
_warn = true;
};
private _metalMass = getNumber (_ammoConfig >> QGVAR(METAL));
if (_metalMass == 0) then {
_metalMass = 2;
_warn = true;
};
private _geometryCoefficient = getNumber (_ammoConfig >> QGVAR(GURNEY_K));
if (_geometryCoefficient == 0) then {
_geometryCoefficient = 0.8;
_warn = true;
};
private _gurneyConstant = getNumber (_ammoConfig >> QGVAR(GURNEY_C));
if (_gurneyConstant == 0) then {
_gurneyConstant = 2440;
_warn = true;
};
private _fragCount = getNumber (_ammoConfig >> QGVAR(fragCount));
if (_fragCount == 0) then {
_fragCount = 400;
_warn = true;
};
if (_warn) then {
INFO_1("Ammo class %1 lacks proper explosive properties definitions for frag!",_ammo);
};
/********************** _ammoInfo format *************************//*
* 0: _fragRange - search range for fragments, calculated with
* the minimum chance to hit as defined
* 1: _fragVelocity - gurney equation calculated velocity
* 2: _fragTypes - array of fragment types
* 3: _fragCount - modified frag count used under assumptions
* of spherical fragmentation
*/
_ammoInfo = [
sqrt (_fragCount / (4 * pi * ACE_FRAG_MIN_FRAG_HIT_CHANCE)),
0.8 * _gurneyConstant * sqrt (_chargeMass / (_metalMass + _chargeMass * _geometryCoefficient)),
_fragTypes,
_fragCount / 4 / pi
];
GVAR(fragInfoCache) set [_ammo, _ammoInfo];
_ammoInfo