From 41438700ad1012935c81bf48b2d169ea206927c4 Mon Sep 17 00:00:00 2001
From: Anna Wiggins <annabunches@gmail.com>
Date: Thu, 22 Jul 2021 21:42:34 +0000
Subject: [PATCH] Reorganize code files.

---
 boot/rocket.ks                    |  6 +++---
 execnode.ks => rocket/execnode.ks |  0
 launch.ks => rocket/launch.ks     |  9 +--------
 ui/rocket.ks => rocket/ui.ks      | 28 +++++++++++-----------------
 4 files changed, 15 insertions(+), 28 deletions(-)
 rename execnode.ks => rocket/execnode.ks (100%)
 rename launch.ks => rocket/launch.ks (90%)
 rename ui/rocket.ks => rocket/ui.ks (83%)

diff --git a/boot/rocket.ks b/boot/rocket.ks
index 8773903..e2f8fae 100644
--- a/boot/rocket.ks
+++ b/boot/rocket.ks
@@ -7,9 +7,9 @@ deletepath("/boot/rocket").
 // Install software.
 compile "0:/lib/navigation" to "1:/lib/navigation".
 compile "0:/lib/throttle" to "1:/lib/throttle".
-compile "0:/ui/rocket" to "1:/init".
-compile "0:/launch" to "1:/launch".
-copypath("0:/execnode", "1:/execnode"). // larger when compiled
+compile "0:/rocket/ui" to "1:/init".
+compile "0:/rocket/launch" to "1:/rocket/launch".
+copypath("0:/rocket/execnode", "1:/rocket/execnode"). // larger when compiled
 
 // Set OS to boot and restart.
 set core:bootfilename to "/init".
diff --git a/execnode.ks b/rocket/execnode.ks
similarity index 100%
rename from execnode.ks
rename to rocket/execnode.ks
diff --git a/launch.ks b/rocket/launch.ks
similarity index 90%
rename from launch.ks
rename to rocket/launch.ks
index 09ce17d..89f6b93 100644
--- a/launch.ks
+++ b/rocket/launch.ks
@@ -1,4 +1,3 @@
-// runoncepath("lib/sensors").
 runoncepath("lib/throttle").
 runoncepath("lib/navigation").
 
@@ -48,10 +47,6 @@ wait until vectorangle(
 // then wait until Prograde catches up (or passes us).
 local targetPitch is GetPitch(STEERINGMANAGER:TARGET:FOREVECTOR).
 wait until GetPitch(SHIP:SRFPROGRADE:FOREVECTOR) <= targetPitch.
-// wait until vectorangle(
-//   SHIP:SRFPROGRADE:FOREVECTOR,
-//   STEERINGMANAGER:TARGET:FOREVECTOR)
-//   < 0.5.
 
 print "Locking to prograde, letting gravity do the hard work.".
 lock STEERING to GetAscentVector(MINIMUM_PITCH).
@@ -66,10 +61,8 @@ wait 0.001. // make sure these control updates get applied
 
 print "Target apoapsis acquired. Creating maneuver node.".
 add CreateCircularizationNode().
-runpath("/execnode").
+runpath("/rocket/execnode").
 print "Orbit acquired. Releasing controls. Good luck, Kerman.".
 unlock THROTTLE.
 unlock STEERING.
 SAS on.
-
-// todo - automatically execute the node
diff --git a/ui/rocket.ks b/rocket/ui.ks
similarity index 83%
rename from ui/rocket.ks
rename to rocket/ui.ks
index d16df54..4f7eb39 100644
--- a/ui/rocket.ks
+++ b/rocket/ui.ks
@@ -8,7 +8,7 @@ function launchButtonPressed {
   local oldStopTime is STEERINGMANAGER:MAXSTOPPINGTIME.
   set STEERINGMANAGER:MAXSTOPPINGTIME to maxStopTime:TEXT:ToNumber().
 
-  run "launch"(
+  run "/rocket/launch"(
     targetApo:TEXT:ToNumber(),
     gravTurnStart:TEXT:ToNumber(),
     gravPitch:TEXT:ToNumber(),
@@ -21,7 +21,7 @@ function launchButtonPressed {
 }
 
 function executeNode {
-  run "execnode".
+  run "/rocket/execnode".
 }
 
 function showLaunchMenu {
@@ -34,7 +34,7 @@ set interface:X to 200.
 set interface:Y to 700.
 
 // Main menu elements in here.
-local box is interface:AddVBox().
+local box is interface:AddVLayout().
 
 local btn is box:AddButton("TERM").
 set btn:TOGGLE to true.
@@ -51,9 +51,6 @@ set btn:ONTOGGLE to {
 set btn to box:AddButton("LAUNCH").
 set btn:onClick to showLaunchMenu@.
 
-set btn to box:AddButton("CIRC").
-set btn:onClick to { add CreateCircularizationNode(). }.
-
 set btn to box:AddButton("EXECNODE").
 set btn:onClick to executeNode@.
 
@@ -69,37 +66,37 @@ local launchConfig is box:AddScrollBox().
 // set launchConfig:STYLE:WIDTH to 300.
 // set launchConfig:STYLE:HEIGHT to 800.
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Target Apoapsis").
 local targetApo is sbox:AddTextField("80000").
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Atmo TWR").
 local targetTWR is sbox:AddTextField("1.6").
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Initial Pitch").
 local initialPitch is sBox:AddTextField("85").
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Minimum Pitch").
 local minimumPitch is sbox:AddTextField("5").
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Gravity Turn Alt").
 local gravTurnStart is sbox:AddTextField("8000").
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Gravity Turn Pitch").
 local gravPitch is sbox:AddTextField("75").
 
 launchConfig:AddSpacing(5).
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Torque Epsilon Max").
 local maxEpsilon is sbox:AddTextField("0.001").
 
-set sbox to launchConfig:AddHBox().
+set sbox to launchConfig:AddHLayout().
 sbox:AddLabel("Max Stopping Time").
 local maxStopTime is sbox:AddTextField("2.0").
 
@@ -107,7 +104,4 @@ local maxStopTime is sbox:AddTextField("2.0").
 
 interface:show().
 
-
-
-
 wait until false.