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

Fix sensor code.

Browse Source
This commit is contained in:
Anna Rose 2021-08-07 21:33:51 -04:00
parent 2a61dc6777
commit f5e80f3687
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/sensors.ks
View File

@ -4,7 +4,9 @@ function buildSensorList {
local sList is Lexicon().
list SENSORS in SensorList.
for s in SensorList {
sList:add(s:type, s).
if not sList:HasKey(s:type) {
sList:add(s:type, s).
}
}
return sList.
}
@ -22,5 +24,5 @@ function ReadSensor {
if not sList:HasKey(s) {
return -1. // TODO: is -1 an impossible result for all sensors? I suspect not...
}
return sList[s].
return s:DISPLAY:TOSCALAR.
}

8
lib/stabilize_rocket.ks
View File

@ -44,8 +44,8 @@ function Hover {
}
function alignForHover {
if ReadSensor("pres") = 0 {
// if we're in a vacuum, cancel all velocity first...
if ReadSensor("PRES") = 0 {
// if we're in a vacuum, align with retrograde for smoother horizontal control.
lock STEERING to SHIP:SRFRETROGRADE.
print "Aligning with retrograde.".
wait until done or VAng(SHIP:FACING:FOREVECTOR, SHIP:SRFRETROGRADE:FOREVECTOR) < 0.1.
@ -54,7 +54,7 @@ function alignForHover {
return.
}
} else {
// ... otherwise just cancel vertical velocity
// ... otherwise just align vertically.
lock STEERING to SHIP:UP.
print "Aligning vertical.".
wait until done or VAng(SHIP:FACING:FOREVECTOR, SHIP:UP:FOREVECTOR) < 1.
@ -76,6 +76,6 @@ function restoreControl {
unlock THROTTLE.
unlock STEERING.
SAS on.
print "Stabilized operation ended. Returning control to pilot.".
print "Done.".
set done to false.
}