diff --git a/poweredLanding.ks b/poweredLanding.ks index 5e61176..9d55e3a 100644 --- a/poweredLanding.ks +++ b/poweredLanding.ks @@ -12,14 +12,13 @@ function TestSetup{ return. } print "Setting up test". - lock throttle to 100. - lock steering to heading(90, 89). + lock throttle to 0.5. + lock steering to heading(90, 89, 0). gear off. wait until apoapsis > tgt. lock steering to up. lock throttle to 0. unlock throttle. - unlock steering. } function Landing{ @@ -71,6 +70,8 @@ function Landing{ function WaitFalling{ parameter targetSpeed is 100. + sas off. + wait until altitude < 10000. print "Coasting to apoapsis.". rcs on. lock steering to up. @@ -89,7 +90,7 @@ function Descent { local lock vertSpeed to verticalSpeed. local lock localGravity to GetLocalGravity(altitude). local lock drag to GetDragDir(localGravity, ship:up:vector). - local lock burnDist to CalculateSuicideBurnAltitude(vertSpeed, localGravity, 80, drag). + local lock burnDist to CalculateSuicideBurnAltitude(vertSpeed, localGravity, 100, drag). wait until burnDist >= curAlt. print "Starting Burn". @@ -108,7 +109,7 @@ function Descent { print "Launch to start.". WaitForEngineStart(). -TestSetup(5000). +TestSetup(10000). WaitFalling(100). Descent(). Landing().