Permalink
Browse files

RFRG and RFGL (#315)

  • Loading branch information...
cxi authored and jacob1 committed Sep 10, 2016
1 parent ad4ef65 commit 6e6eb36bf542d9f72ade1ac467a7d3fbeac88c21
Showing with 154 additions and 0 deletions.
  1. +92 −0 src/simulation/elements/RFGL.cpp
  2. +62 −0 src/simulation/elements/RFRG.cpp
@@ -0,0 +1,92 @@
#include "simulation/Elements.h"
//#TPT-Directive ElementClass Element_RFGL PT_RFGL 181
Element_RFGL::Element_RFGL()
{
Identifier = "DEFAULT_PT_RFGL";
Name = "RFGL";
Colour = PIXPACK(0x84C2CF);
MenuVisible = 0;
MenuSection = SC_LIQUID;
Enabled = 1;
Advection = 0.6f;
AirDrag = 0.01f * CFDS;
AirLoss = 0.98f;
Loss = 0.95f;
Collision = 0.0f;
Gravity = 0.1f;
Diffusion = 0.00f;
HotAir = 0.000f * CFDS;
Falldown = 2;
Flammable = 0;
Explosive = 0;
Meltable = 0;
Hardness = 20;
Weight = 10;
Temperature = R_TEMP + 273.15f;
HeatConduct = 0;
Description = "Liquid refrigerant.";
Properties = TYPE_LIQUID|PROP_DEADLY;
LowPressure = IPL;
LowPressureTransition = NT;
HighPressure = IPH;
HighPressureTransition = NT;
LowTemperature = ITL;
LowTemperatureTransition = NT;
HighTemperature = ITH;
HighTemperatureTransition = NT;
Update = &Element_RFGL::update;
}
//#TPT-Directive ElementHeader Element_RFGL static int update(UPDATE_FUNC_ARGS)
int Element_RFGL::update(UPDATE_FUNC_ARGS)
{
float pressure = sim->pv[y/CELL][x/CELL];
if (pressure > parts[i].tmp)
parts[i].tmp = (int)pressure;
if (pressure > -1 && pressure < 15 && parts[i].life > 0)
parts[i].life --;
if (parts[i].temp >= 323.15f + (pressure * 6.0f))
sim->part_change_type(i, x, y, PT_RFRG);
int r, rx, ry;
for (rx=-1; rx<2; rx++)
for (ry=-1; ry<2; ry++)
if (BOUNDS_CHECK && (rx || ry))
{
r = pmap[y+ry][x+rx];
if (!r)
continue;
if ((r&0xFF) == PT_RFGL)
{
float avgTemp = (parts[r>>8].temp + parts[i].temp) / 2;
parts[r>>8].temp = avgTemp;
parts[i].temp = avgTemp;
}
else
{
if (pressure > 20 && parts[i].temp > 273.15f + 2.0f - (pressure - 20.0f) && sim->elements[r&0xFF].HeatConduct)
{
parts[r>>8].temp = restrict_flt(parts[r>>8].temp + 80.0f, 0.0f, MAX_TEMP);
parts[i].temp = restrict_flt(parts[i].temp - 80.0f, 0.0f, MAX_TEMP);
}
else if (parts[i].life == 0 && parts[r>>8].temp > 273.15f + 2.0f - (parts[i].tmp - 20.0f) && sim->elements[r&0xFF].HeatConduct)
{
parts[r>>8].temp -= restrict_flt(parts[r>>8].temp - 40.0f, 273.15f + 2.0f - (parts[i].tmp - 60.0f), MAX_TEMP);
parts[i].temp = restrict_flt(parts[i].temp + 40.0f, 0.0f, 343.15f);
}
}
}
return 0;
}
Element_RFGL::~Element_RFGL() {}
@@ -0,0 +1,62 @@
#include "simulation/Elements.h"
//#TPT-Directive ElementClass Element_RFRG PT_RFRG 180
Element_RFRG::Element_RFRG()
{
Identifier = "DEFAULT_PT_RFRG";
Name = "RFRG";
Colour = PIXPACK(0x72D2D4);
MenuVisible = 1;
MenuSection = SC_GAS;
Enabled = 1;
Advection = 1.2f;
AirDrag = 0.00f * CFDS;
AirLoss = 0.99f;
Loss = 0.30f;
Collision = -0.1f;
Gravity = 0.0f;
Diffusion = 1.3f;
HotAir = 0.0001f * CFDS;
Falldown = 0;
Flammable = 0;
Explosive = 0;
Meltable = 0;
Hardness = 20;
Weight = 1;
Temperature = R_TEMP + 273.15f;
HeatConduct = 3;
Description = "Refrigerant. Liquifies and transfers heat to other particles under pressure.";
Properties = TYPE_GAS|PROP_DEADLY;
LowPressure = IPL;
LowPressureTransition = NT;
HighPressure = IPH;
HighPressureTransition = NT;
LowTemperature = ITL;
LowTemperatureTransition = NT;
HighTemperature = ITH;
HighTemperatureTransition = NT;
Update = &Element_RFRG::update;
}
//#TPT-Directive ElementHeader Element_RFRG static int update(UPDATE_FUNC_ARGS)
int Element_RFRG::update(UPDATE_FUNC_ARGS)
{
if (sim->pv[y/CELL][x/CELL] > 15) {
parts[i].temp += (sim->pv[y/CELL][x/CELL] - 15.0f) / 2.0f;
if (parts[i].temp >= 343.15f) {
sim->part_change_type(i, x, y, PT_RFGL);
parts[i].life = 20;
}
}
return 0;
}
Element_RFRG::~Element_RFRG() {}

0 comments on commit 6e6eb36

Please sign in to comment.