annabunches/kOS
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Set up code for quickly handling antennas and solar panels.

Browse Source
This commit is contained in:
Anna Rose
2021-08-25 01:11:29 -04:00
parent 27ad3c11d7
commit 081fcb3618
5 changed files with 108 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
prog/rocket.ks
View File

@ -6,6 +6,7 @@ RunOncePath("/lib/throttle").
RunOncePath("/lib/stabilize_rocket").
RunOncePath("/lib/launch_rocket").
RunOncePath("/lib/sensors").
RunOncePath("/lib/systems").
RunOncePath("/lib/reentry").
clearguis().
@ -29,7 +30,31 @@ AddStockButtons(rows[0], "rocket").
MakeMenu(
stk,
MakeButton(rows[0], "SENS"),
MakeButton(rows[0], "Config"),
List(
List("Torque Epsilon Max", "SCALAR", "0.001"),
List("Max Stopping Time", "SCALAR", "2.0")
),
"Apply",
{
parameter options.
set STEERINGMANAGER:TORQUEEPSILONMAX to options["Torque Epsilon Max"]:TEXT:ToNumber().
set STEERINGMANAGER:MAXSTOPPINGTIME to options["Max Stopping Time"]:TEXT:ToNumber().
}
).
MakeToggle(rows[0], "Solar", {
parameter d.
SolarPanels(d).
}).
MakeButton(rows[0], "Ant", {
Antennas().
}).
MakeMenu(
stk,
MakeButton(rows[1], "Sensors"),
List(
List("Pressure", "RO", "-1"),
List("Temperature", "RO", "-1"),
@ -44,7 +69,7 @@ MakeMenu(
MakeMenu(
stk,
MakeButton(rows[0], "GRND"),
MakeButton(rows[1], "Ground"),
List(
List("Burn Distance", "RO", "-1"),
List("Stopping Time", "RO", "-1"),
@ -61,29 +86,16 @@ MakeMenu(
set options["Stopping Distance"]:TEXT to StoppingDistance():TOSTRING.
}
).
MakeMenu(
stk,
MakeButton(rows[1], "REENTRY"),
List(
List("Retract Antennae", "BOOL", true)
),
"Execute",
{
parameter options.
PerformReentry(options["Retract Antennae"]:PRESSED).
}
).
MakeButton(rows[1], "HOVER", { Hover(). }).
MakeButton(rows[1], "LAND", { Land(). }).
MakeButton(rows[1], "Hover", { Hover(). }).
MakeButton(rows[1], "Land", { Land(). }).
MakeMenu(
stk,
MakeButton(rows[2], "LNCH"),
MakeButton(rows[2], "Launch"),
List(
List("Target Apoapsis", "SCALAR", "80000"),
List("Initial Pitch", "SCALAR", "20"),
List("Initial Pitch", "SCALAR", "30"),
List("Pitch Time", "SCALAR", "45"),
List("Atmo TWR", "SCALAR", "2.0"),
List("Minimum Pitch", "SCALAR", "5"),
@ -105,7 +117,7 @@ MakeMenu(
MakeMenu(
stk,
MakeButton(rows[2], "NODE"),
MakeButton(rows[2], "Node"),
List(
List("Node dV", "RO", "0"),
List("Node Burn Time", "RO", "0")
@ -148,20 +160,17 @@ MakeMenu(
MakeMenu(
stk,
MakeButton(rows[2], "Config"),
MakeButton(rows[2], "Reentry"),
List(
List("Torque Epsilon Max", "SCALAR", "0.001"),
List("Max Stopping Time", "SCALAR", "2.0")
List("Retract Antennae", "BOOL", true)
),
"Apply",
"Execute",
{
parameter options.
set STEERINGMANAGER:TORQUEEPSILONMAX to options["Torque Epsilon Max"]:TEXT:ToNumber().
set STEERINGMANAGER:MAXSTOPPINGTIME to options["Max Stopping Time"]:TEXT:ToNumber().
PerformReentry(options["Retract Antennae"]:PRESSED).
}
).
iface:show().
wait until false.