rcs to ground

// !runscript RM6SSKbR
set tp to ship:geoposition.
lock offset to v(0,0,0).
lock approach to up:vector.

set sep to 1.
set sl to 0.

lock steering to up.

when true then {
    set rel_v to ship:velocity:surface.
    set wv_pos to (tp:position + offset + approach * sep).
    set wanted_v to wv_pos:normalized * min(sl , (wv_pos:mag * 0.25)^0.55).
    set ve to wanted_v - rel_v.

    set ship:control:translation to v(
    -vdot(facing:starvector,ve),
    -vdot(facing:topvector,ve),
    -vdot(facing:vector,ve)
  ).

    return true.
}