// #include <conio.h>
#include <math.h>
+#include <simgear/constants.h>
+
#include <Aircraft/aircraft.hxx>
-#include <Include/fg_constants.h>
-#include <Main/options.hxx>
#include <WeatherCM/FGLocalWeatherDatabase.h>
#include "BalloonSim.h"
/* size for hot air balloons */
/************************************************************************/
- balloon_envelope_area = 4.0 * (8.8 * 8.8) * FG_PI;
- balloon_envelope_volume = (4.0/3.0) * (8.8 * 8.8 * 8.8) * FG_PI;
+ balloon_envelope_area = 4.0 * (8.8 * 8.8) * SGD_PI;
+ balloon_envelope_volume = (4.0/3.0) * (8.8 * 8.8 * 8.8) * SGD_PI;
- wind_facing_area_of_balloon = FG_PI * (8.8 * 8.8);
+ wind_facing_area_of_balloon = SGD_PI * (8.8 * 8.8);
wind_facing_area_of_basket = 2.0; //guessed: 2 m^2
cw_envelope=0.45; //a sphere in this case
/* later, but currently was my main concern to get it going... */
/************************************************************************/
+#ifdef FG_WEATHERCM
sgVec3 v;
+ FGPhysicalProperty wdbpos = WeatherDatabase->get(position);
+
//get the current wind velocity and store it in v
- //Point3D temp = WeatherDatabase->get(position).Wind;
+ //Point3D temp = wdbpos.Wind;
//sgSetVec3(v, temp.x(), temp.y(), temp.z());
- sgCopyVec3(v, WeatherDatabase->get(position).Wind );
+ sgCopyVec3(v, wdbpos.Wind );
sgSubVec3(v, velocity);
float speed = sgLengthVec3(v);
// calculate the density of the gas inside
- double rho = WeatherDatabase->get(position).AirPressure / (287.14 * T);
+ double rho = wdbpos.AirPressure / (287.14 * T);
// calculate the mass of the air
double mAir = rho * balloon_envelope_volume;
// loss of energy by cooling down:
float k = 1.0 / (1.0/4.8 + 1.0/(4.8+3.4*speed) + l_of_the_envelope/lambda);
- float Q = k * balloon_envelope_area * (dt/3600.0) * (WeatherDatabase->get(position).Temperature - T); //(dt/3600.0) = time since last call in hours
+ float Q = k * balloon_envelope_area * (dt/3600.0) * (wdbpos.Temperature - T); //(dt/3600.0) = time since last call in hours
+
+#else
+ // I realy don't think there is a solution for this without WeatherCM
+ // but this is a hack, and it's working -- EMH
+ double mAir = 0;
+ float Q = 0;
+#endif
// gain of energy by heating:
if (fuel_left > 0.0) //but only with some fuel left ;-)
sgVec3 fTotal, fFriction, fLift;
sgScaleVec3(fTotal, gravity_vector, mTotal);
+#ifdef FG_WEATHERCM
sgScaleVec3(fFriction, v, cw_envelope * wind_facing_area_of_balloon * WeatherDatabase->getAirDensity(position) * speed / 2.0); //wind resistance
- sgScaleVec3(fLift, gravity_vector, -balloon_envelope_volume * WeatherDatabase->get(position).AirPressure / (287.14 * WeatherDatabase->get(position).Temperature));
+ sgScaleVec3(fLift, gravity_vector, -balloon_envelope_volume * wdbpos.AirPressure / (287.14 * wdbpos.Temperature));
+#endif
sgAddVec3(fTotal, fLift);
sgAddVec3(fTotal, fFriction);