Refactor boot/os code, add graphical interface, more attempts to fix steering logic.

This commit is contained in:
Anna Rose Wiggins 2021-07-18 19:32:45 -04:00
parent 5cb608ff01
commit 5b9da6f0f1
3 changed files with 38 additions and 13 deletions

View file

@ -4,6 +4,11 @@ local APOAPSIS_TARGET is 80000.
local GRAVITY_TURN_START is 5000.
SensorCheck().
// Configure subsystems.
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
RCS off.
SAS off.
// Countdowns are cute.
print "Initiating automated launch sequence".
from { local x is 5. } until x = 0 step { set x to x - 1. } do {
@ -12,10 +17,6 @@ from { local x is 5. } until x = 0 step { set x to x - 1. } do {
}
print "Launching".
// Disable subsystems.
RCS off.
SAS off.
// throttle controls
when TWR() > 1.5 then {
if SHIP:ALTITUDE > 32000 {
@ -23,9 +24,7 @@ when TWR() > 1.5 then {
return false.
}
local newThrot is ThrottleToTWR(1.5).
print "Setting throttle to " + newThrot.
lock THROTTLE to newThrot.
lock THROTTLE to ThrottleToTWR(1.5).
return true.
}
@ -39,11 +38,18 @@ lock STEERING to heading(90, 85, -90).
wait until SHIP:ALTITUDE > GRAVITY_TURN_START.
print "Beginning gravity turn".
until SHIP:APOAPSIS > 80000 {
local angle is max(30, SHIP:PROGRADE:PITCH - 2).
until SHIP:ORBIT:APOAPSIS > 80000 {
local adjustedPrograde is SHIP:ORBIT:PROGRADE * NORTH.
local angle is max(30, adjustedPrograde:pitch).
print "Adjusted Prograde = " + adjustedPrograde.
print "Angle = " + angle.
lock STEERING to heading(90, angle, -90).
wait 0.001.
}
print "Releasing controls. Good luck, Kerman!".
set THROTTLE to 0.0.
unlock THROTTLE.
unlock STEERING.
wait 5.
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").