Dynamic Display

set sgfirst to 0.
set sgp to 0.
set sggo to true.
set sgf to 8.
set sgpr to 4.
set sgDisplayItems to lex().

function sgd {
    parameter l. parameter d.
    If l:length > sgpr set sgpr to l:length.
    set dstring to d:tostring().
    if d:typename = "Scalar" set dstring to round(d,2):tostring().

    print (l:padleft(sgpr) + ": " + dstring):padright(terminal:width) at (0, sgp).
    set sgp to sgp + 1.
}.

set sgDisplayItems["periapsis"] to { return periapsis. }.
set sgDisplayItems["apoapsis"] to { return apoapsis. }.
set sgDisplayItems["dv"] to { return Round(800 * 9.81 * ln(ship:mass / (ship:mass - (ship:liquidfuel * 0.005))), 5). }.

On round(kuniverse:realtime * sgf) {
    set sgp to sgfirst.

    for key in sgDisplayItems:keys {

        sgd(key,sgDisplayItems[key]()).
    }

    Print "":padright(terminal:width) at (0,sgp).
    return sggo.
}