Files
tbd-station-14/Content.Server/Atmos/EntitySystems/HeatExchangerSystem.cs
Kevin Zheng db5dee6db3 Add radiators (#18728)
* Add radiators

* Limit heat transfer to fluid heat capacity

* Adjust datafield names

* Fix material arbitrage

* This code has been debugged, and so there are no more bugs. Debugging code is therefore unnecessary

* Adjust radiator layer subfloor visibility

* Cache CVars

* No default

Co-authored-by: metalgearsloth <31366439+metalgearsloth@users.noreply.github.com>

* Like and unsubscribe

* Fix CVar caching

---------

Co-authored-by: metalgearsloth <31366439+metalgearsloth@users.noreply.github.com>
2023-08-06 02:21:05 -06:00

98 lines
3.4 KiB
C#

using Content.Server.Atmos.EntitySystems;
using Content.Server.Atmos.Piping.Components;
using Content.Server.Atmos.Piping.Unary.Components;
using Content.Server.Atmos;
using Content.Server.Atmos.Components;
using Content.Server.NodeContainer.EntitySystems;
using Content.Server.NodeContainer.Nodes;
using Content.Server.NodeContainer;
using Content.Shared.Atmos.Piping;
using Content.Shared.Atmos;
using Content.Shared.CCVar;
using Content.Shared.Interaction;
using JetBrains.Annotations;
using Robust.Shared.Configuration;
using Robust.Shared.Timing;
namespace Content.Server.Atmos.EntitySystems;
public sealed class HeatExchangerSystem : EntitySystem
{
[Dependency] private readonly AtmosphereSystem _atmosphereSystem = default!;
[Dependency] private readonly IConfigurationManager _cfg = default!;
[Dependency] private readonly NodeContainerSystem _nodeContainer = default!;
float tileLoss;
public override void Initialize()
{
base.Initialize();
SubscribeLocalEvent<HeatExchangerComponent, AtmosDeviceUpdateEvent>(OnAtmosUpdate);
// Getting CVars is expensive, don't do it every tick
_cfg.OnValueChanged(CCVars.SuperconductionTileLoss, CacheTileLoss, true);
}
public override void Shutdown()
{
base.Shutdown();
_cfg.UnsubValueChanged(CCVars.SuperconductionTileLoss, CacheTileLoss);
}
private void CacheTileLoss(float val)
{
tileLoss = val;
}
private void OnAtmosUpdate(EntityUid uid, HeatExchangerComponent comp, AtmosDeviceUpdateEvent args)
{
if (!EntityManager.TryGetComponent(uid, out NodeContainerComponent? nodeContainer)
|| !_nodeContainer.TryGetNode(nodeContainer, comp.InletName, out PipeNode? inlet)
|| !_nodeContainer.TryGetNode(nodeContainer, comp.OutletName, out PipeNode? outlet))
{
return;
}
// Positive dN flows from inlet to outlet
var dt = 1/_atmosphereSystem.AtmosTickRate;
var dP = inlet.Air.Pressure - outlet.Air.Pressure;
var dN = comp.G*dP*dt;
GasMixture xfer;
if (dN > 0)
xfer = inlet.Air.Remove(dN);
else
xfer = outlet.Air.Remove(-dN);
var radTemp = Atmospherics.TCMB;
// Convection
var environment = _atmosphereSystem.GetContainingMixture(uid, true, true);
if (environment != null)
{
radTemp = environment.Temperature;
// Positive dT is from pipe to surroundings
var dT = xfer.Temperature - environment.Temperature;
var dE = comp.K * dT * dt;
var envLim = Math.Abs(_atmosphereSystem.GetHeatCapacity(environment) * dT * dt);
var xferLim = Math.Abs(_atmosphereSystem.GetHeatCapacity(xfer) * dT * dt);
var dEactual = Math.Sign(dE) * Math.Min(Math.Abs(dE), Math.Min(envLim, xferLim));
_atmosphereSystem.AddHeat(xfer, -dEactual);
_atmosphereSystem.AddHeat(environment, dEactual);
}
// Radiation
float dTR = xfer.Temperature - radTemp;
float a0 = tileLoss / MathF.Pow(Atmospherics.T20C, 4);
float dER = comp.alpha * a0 * MathF.Pow(dTR, 4) * dt;
_atmosphereSystem.AddHeat(xfer, -dER);
if (dN > 0)
_atmosphereSystem.Merge(outlet.Air, xfer);
else
_atmosphereSystem.Merge(inlet.Air, xfer);
}
}