Fix satdeploy.

lib/navigation.ks

@@ -25,26 +25,21 @@ function GetAscentVector {
 function CreateCircularizationNode {
   parameter where is "APO".
 
-  local dt is 0.
-  local a is 0.
-  local t is 0.
+  local t is TIME.
   if where:IsType("String") {
     if where = "APO" {
-      set dt to SHIP:ORBIT:ETA:APOAPSIS.
-      set a to SHIP:ORBIT:APOAPSIS.
+      set t to TIME + SHIP:ORBIT:ETA:APOAPSIS.
     } else if where = "PERI" {
-      set dt to SHIP:ORBIT:ETA:PERIAPSIS.
-      set a to SHIP:ORBIT:PERIAPSIS.
+      set t to TIME + SHIP:ORBIT:ETA:PERIAPSIS.
     } else {
       print "WARNING: Invalid string passed to CreateCirculazationNode(). Node is invalid.".
     }
-
-    set t to TIME + dt.
   } else {
+    // we've been passed a time at which to circularize.
     set t to where.
   }
 
-  local Vc is sqrt(SHIP:BODY:MU/(SHIP:BODY:RADIUS + a)).
+  local Vc is sqrt(SHIP:BODY:MU/(PositionAt(SHIP, t) - SHIP:BODY:POSITION):MAG).
   local dV is Vc - VelocityAt(SHIP, t):ORBIT:MAG.
   local n is Node(t, 0, 0, dV).
 

lib/node.ks

@@ -20,7 +20,8 @@ function ExecNode {
   }
   
   print "Adjusting heading".
-  lock STEERING to LookDirUp(NEXTNODE:DELTAV, SHIP:FACING:TOPVECTOR).
+  // The vector constant here should always align our "sides" with the universal up/down axis, so we can predictably place solar panels.
+  lock STEERING to LookDirUp(NEXTNODE:DELTAV, V(0,0,90)).
   wait until VAng(SHIP:FACING:FOREVECTOR, STEERINGMANAGER:TARGET:FOREVECTOR) <= 0.1.
 
   print "Warping to node.".