162 lines
3.5 KiB
Plaintext
162 lines
3.5 KiB
Plaintext
@lazyglobal off.
|
|
|
|
runoncepath("/lib/navigation").
|
|
runoncepath("/lib/throttle").
|
|
runoncepath("/lib/node").
|
|
runoncepath("/lib/stabilize_rocket").
|
|
runoncepath("/lib/ui").
|
|
|
|
clearguis().
|
|
|
|
global done is false.
|
|
on AG9 {
|
|
set done to true.
|
|
return true.
|
|
}
|
|
|
|
// Main UI.
|
|
local iface is gui(250, 300).
|
|
set iface:X to 200.
|
|
set iface:Y to 700.
|
|
|
|
// Main menu elements in here.
|
|
local top is iface:AddVLayout().
|
|
local row is makeRow(top).
|
|
|
|
local btn is row:AddButton("TERM").
|
|
set btn:TOGGLE to true.
|
|
set btn:ONTOGGLE to {
|
|
parameter d.
|
|
|
|
if d {
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
} else {
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
}
|
|
}.
|
|
|
|
makeButton(row, "CONF", { stk:ShowOnly(panes["conf"]). }).
|
|
|
|
set row to makeRow(top).
|
|
|
|
makeButton(row, "HOVER", { Hover(). }).
|
|
makeButton(row, "LAND", { Land(). }).
|
|
|
|
set row to makeRow(top).
|
|
|
|
makeButton(row, "LNCH", { stk:ShowOnly(panes["launch"]). }).
|
|
|
|
makeButton(row, "NODE", {
|
|
if HASNODE {
|
|
set nodeDV:TEXT to NEXTNODE:DELTAV:MAG:ToString.
|
|
set nodeBT:TEXT to BurnTime(NEXTNODE:DELTAV:MAG):ToString.
|
|
}
|
|
stk:ShowOnly(panes["node"]).
|
|
}).
|
|
|
|
makeButton(row, "TWR", { stk:ShowOnly(panes["twr"]). }).
|
|
|
|
local stk is iface:AddStack().
|
|
local panes is Lex().
|
|
|
|
// Build launch menu
|
|
local top is stk:AddVLayout().
|
|
panes:Add("launch", top).
|
|
|
|
local box is top:AddScrollBox().
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Target Apoapsis").
|
|
local targetApo is row:AddTextField("80000"). // todo: config params should go into a nested lexicon
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Atmo TWR").
|
|
local targetTWR is row:AddTextField("1.6").
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Initial Pitch").
|
|
local initialPitch is row:AddTextField("85").
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Minimum Pitch").
|
|
local minimumPitch is row:AddTextField("5").
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Gravity Turn Alt").
|
|
local gravTurnStart is row:AddTextField("8000").
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Gravity Turn Pitch").
|
|
local gravPitch is row:AddTextField("75").
|
|
|
|
makeButton(top, "Execute", {
|
|
run "/launch"(
|
|
targetApo:TEXT:ToNumber(),
|
|
gravTurnStart:TEXT:ToNumber(),
|
|
gravPitch:TEXT:ToNumber(),
|
|
initialPitch:TEXT:ToNumber(),
|
|
minimumPitch:TEXT:ToNumber()
|
|
).
|
|
}).
|
|
// End Launch Menu
|
|
|
|
// Build conf menu
|
|
local top is stk:AddVLayout().
|
|
panes:Add("conf", top).
|
|
|
|
set box to top:AddScrollbox().
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Torque Epsilon Max").
|
|
local maxEpsilon is row:AddTextField("0.001").
|
|
|
|
set row to makeRow(box).
|
|
row:AddLabel("Max Stopping Time").
|
|
local maxStopTime is row:AddTextField("2.0").
|
|
|
|
makeButton(top, "Apply", {
|
|
set STEERINGMANAGER:TORQUEEPSILONMAX to maxEpsilon:TEXT:ToNumber().
|
|
set STEERINGMANAGER:MAXSTOPPINGTIME to maxStopTime:TEXT:ToNumber().
|
|
}).
|
|
// end conf menu
|
|
|
|
// twr menu
|
|
local top is stk:AddVLayout().
|
|
panes:Add("twr", top).
|
|
|
|
set row to makeRow(top).
|
|
row:AddLabel("Target TWR").
|
|
local twrLock is row:AddTextField("1.6").
|
|
|
|
makeButton(top, "Lock TWR", {
|
|
local done is false.
|
|
on AG9 {
|
|
set done to true.
|
|
}
|
|
|
|
print "Locking throttle to target TWR.".
|
|
local tgt is twrLock:TEXT:ToNumber().
|
|
lock THROTTLE to ThrottleToTWR(tgt).
|
|
wait until done.
|
|
print "Throttle unlocked.".
|
|
}).
|
|
// end twr menu
|
|
|
|
// node menu
|
|
local top is stk:AddVLayout().
|
|
panes:Add("node", top).
|
|
|
|
set row to makeRow(top).
|
|
row:AddLabel("Node dV").
|
|
local nodeDV is row:AddLabel().
|
|
|
|
set row to makeRow(top).
|
|
row:AddLabel("Node Burn Time").
|
|
local nodeBT is row:AddLabel().
|
|
|
|
makeButton(top, "Execute", { ExecNode(). }).
|
|
// end node menu
|
|
|
|
iface:show().
|
|
wait until false.
|