From: ehofman <ehofman>
Date: Tue, 19 Aug 2003 13:06:51 +0000 (+0000)
Subject: Add support for moving cloud layers
X-Git-Url: https://git.mxchange.org/?a=commitdiff_plain;h=32cb0df98e470bf83efaa16670fb3b706c2e7053;p=flightgear.git

Add support for moving cloud layers
---

diff --git a/src/Environment/environment_mgr.cxx b/src/Environment/environment_mgr.cxx
index b57fec113..48690bafe 100644
--- a/src/Environment/environment_mgr.cxx
+++ b/src/Environment/environment_mgr.cxx
@@ -247,8 +247,17 @@ FGEnvironmentMgr::get_cloud_layer_elevation_ft (int index) const
 void
 FGEnvironmentMgr::set_cloud_layer_elevation_ft (int index, double elevation_ft)
 {
+  FGEnvironment env = *_environment;
+  env.set_elevation_ft(elevation_ft);
+
   thesky->get_cloud_layer(index)
     ->setElevation_m(elevation_ft * SG_FEET_TO_METER);
+
+  thesky->get_cloud_layer(index)
+    ->setSpeed(env.get_wind_speed_kt() * 0.5151);	// 1 kt = 0.5151 m/s
+
+  thesky->get_cloud_layer(index)
+    ->setDirection(env.get_wind_from_heading_deg());
 }
 
 double