KerbalOS_scripts/touchdown.ks at master · Norodix/KerbalOS_scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
@lazyGlobal off.
run once library.

rcs on.
sas off.

lock desiredVelocity to getDesiredVelocity().
//lock horizontalVelocity to ship:velocity:surface - up:vector*verticalSpeed.
lock dv to ship:velocity:surface - desiredVelocity.


lock fv to vdot(dv, ship:facing:forevector).
lock rv to vdot(dv, ship:facing:rightvector).
lock uv to vdot(dv, ship:facing:upvector).


//lock steering to (2 * up:vector - ship:velocity:surface:normalized):direction.

lock g to ship:body:mu/((ship:body:radius+ship:bounds:bottomalt)^2).
lock staticthrust to ship:mass*g/ship:maxthrust.
lock steering to up.
lock throttle to staticthrust.

print ship:bounds:bottomaltradar.

until ship:bounds:bottomaltradar < 0.1
{
clearScreen.
print "Landing in progress".
print "h: " + round(ship:bounds:bottomaltradar, 2) + "     v: " + round(ship:velocity:surface:mag, 2).
set ship:control:translation to - v(rv, uv, fv):normalized * 5.
print "translation: " + ship:control:translation.
wait 0.001.
}
// turn off inputs
lock throttle to 0.
unlock throttle.
unlock steering.
set ship:control:neutralize to true.
sas on.

function getDesiredVelocity{
    if (ship:velocity:surface - project(ship:velocity:surface, ship:up:vector)):mag > 1 { return v(0, 0, 0). }
    return v(0, 0, 0) - ship:up:vector * 2.
}